Date: Fri, 9 Aug 2002 16:40:06 +0200 (CEST) From: Philippe CASIDY <pcasidy@casidy.com> To: FreeBSD-gnats-submit@FreeBSD.org Subject: ports/41480: New port: whatpix / a perl apps to find, moves or deletes duplicate files. Message-ID: <200208091440.g79Ee6hE028767@gueway.home>
next in thread | raw e-mail | index | archive | help
>Number: 41480 >Category: ports >Synopsis: New port: whatpix / a perl apps to find, moves or deletes duplicate files. >Confidential: no >Severity: non-critical >Priority: low >Responsible: freebsd-ports >State: open >Quarter: >Keywords: >Date-Required: >Class: change-request >Submitter-Id: current-users >Arrival-Date: Fri Aug 09 07:40:01 PDT 2002 >Closed-Date: >Last-Modified: >Originator: Philippe CASIDY >Release: FreeBSD 4.6-STABLE i386 >Organization: >Environment: System: FreeBSD gueway.home 4.6-STABLE FreeBSD 4.6-STABLE #0: Thu Jul 11 23:00:37 CEST 2002 root@gueway.home:/usr/obj/usr/src/sys/GUEWAY i386 >Description: >How-To-Repeat: >Fix: --- whatpix.shar begins here --- # This is a shell archive. Save it in a file, remove anything before # this line, and then unpack it by entering "sh file". Note, it may # create directories; files and directories will be owned by you and # have default permissions. # # This archive contains: # # whatpix # whatpix/Makefile # whatpix/distinfo # whatpix/pkg-comment # whatpix/pkg-descr # whatpix/pkg-plist # whatpix/files # whatpix/files/patch-whatpix # echo c - whatpix mkdir -p whatpix > /dev/null 2>&1 echo x - whatpix/Makefile sed 's/^X//' >whatpix/Makefile << 'END-of-whatpix/Makefile' X# New ports collection makefile for: mtf X# Date created: 02 June 2002 X# Whom: Philippe Casidy <pcasidy@casidy.com> X# X# $FreeBSD$ X# X XPORTNAME= whatpix XPORTVERSION= 1.2 XCATEGORIES= sysutils XMASTER_SITES= http://whatpix.sourceforge.net/download/ X XMAINTAINER= pcasidy@casidy.com X XRUN_DEPENDS= ${LOCALBASE}/lib/perl5/site_perl/${PERL_VER}/${PERL_ARCH}/Digest/MD5.pm:${PORTSDIR}/security/p5-Digest-MD5 \ X ${LOCALBASE}/lib/perl5/site_perl/${PERL_VER}/${PERL_ARCH}/Digest/SHA1.pm:${PORTSDIR}/security/p5-Digest-SHA1 X XNO_BUILD= yes X Xdo-install: X ${INSTALL_SCRIPT} ${WRKSRC}/whatpix ${PREFIX}/bin X X.include <bsd.port.mk> END-of-whatpix/Makefile echo x - whatpix/distinfo sed 's/^X//' >whatpix/distinfo << 'END-of-whatpix/distinfo' XMD5 (whatpix-1.2.tar.gz) = 541bf06404dee568ade0e4a63dbc1d30 END-of-whatpix/distinfo echo x - whatpix/pkg-comment sed 's/^X//' >whatpix/pkg-comment << 'END-of-whatpix/pkg-comment' XPerl console application which finds, moves or deletes duplicate files END-of-whatpix/pkg-comment echo x - whatpix/pkg-descr sed 's/^X//' >whatpix/pkg-descr << 'END-of-whatpix/pkg-descr' Xwhatpix is a GPL Perl console application which finds and optionally moves or Xdeletes duplicate files. X Xwhatpix was originally written by codex@bogus.net. The original web site for Xwhatpix is http://www.bogus.net/~codex/ You can find versions prior to 1.0 Xthere. X Xwhatpix is currently being developed and maintained by 3Jane Tessier-Ashpool Xand Gerard Lanois. X XWWW: http://whatpix.sourceforge.net/ END-of-whatpix/pkg-descr echo x - whatpix/pkg-plist sed 's/^X//' >whatpix/pkg-plist << 'END-of-whatpix/pkg-plist' Xbin/whatpix END-of-whatpix/pkg-plist echo c - whatpix/files mkdir -p whatpix/files > /dev/null 2>&1 echo x - whatpix/files/patch-whatpix sed 's/^X//' >whatpix/files/patch-whatpix << 'END-of-whatpix/files/patch-whatpix' X*** whatpix.ori Fri Aug 9 13:43:49 2002 X--- whatpix Fri Aug 9 13:44:49 2002 X*************** X*** 236,242 **** X print " ", $dir, "\n"; X X # Get list of subdirectories. X! opendir(DIR, $dir) or die "Error: opendir() failed on $dir\n"; X my @dirs = grep { -d "$dir/$_" } readdir(DIR); X closedir(DIR); X X--- 236,242 ---- X print " ", $dir, "\n"; X X # Get list of subdirectories. X! opendir(DIR, "$dir\0") or die "Error: opendir() failed on $dir\n"; X my @dirs = grep { -d "$dir/$_" } readdir(DIR); X closedir(DIR); X X*************** X*** 246,252 **** X } X X # Now do the files in this directory. X! opendir(DIR, $dir) || die "Error: failed to open $dir: $!"; X my @files = grep { -r "$dir/$_" && -s "$dir/$_" } readdir(DIR); X closedir(DIR); X my $digester = $usemd5 ? Digest::MD5->new() : Digest::SHA1->new(); X--- 246,252 ---- X } X X # Now do the files in this directory. X! opendir(DIR, "$dir\0") || die "Error: failed to open $dir: $!"; X my @files = grep { -r "$dir/$_" && -s "$dir/$_" } readdir(DIR); X closedir(DIR); X my $digester = $usemd5 ? Digest::MD5->new() : Digest::SHA1->new(); X*************** X*** 256,262 **** X my @vars = stat($filename) or die "Error: could not stat $filename\n"; X my $size = $vars[7]; X if ($size) { X! open(FILE, $filename) or die "Error: could not open $filename\n"; X binmode(FILE); X $digester->reset; X $digester->addfile(*FILE); X--- 256,262 ---- X my @vars = stat($filename) or die "Error: could not stat $filename\n"; X my $size = $vars[7]; X if ($size) { X! open(FILE, "$filename\0") or die "Error: could not open $filename\n"; X binmode(FILE); X $digester->reset; X $digester->addfile(*FILE); END-of-whatpix/files/patch-whatpix exit --- whatpix.shar ends here --- >Release-Note: >Audit-Trail: >Unformatted: To Unsubscribe: send mail to majordomo@FreeBSD.org with "unsubscribe freebsd-ports" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200208091440.g79Ee6hE028767>