From owner-freebsd-ports Fri Aug 9 7:40:19 2002 Delivered-To: freebsd-ports@hub.freebsd.org Received: from mx1.FreeBSD.org (mx1.FreeBSD.org [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id E1CDB37B400 for ; Fri, 9 Aug 2002 07:40:03 -0700 (PDT) Received: from freefall.freebsd.org (freefall.FreeBSD.org [216.136.204.21]) by mx1.FreeBSD.org (Postfix) with ESMTP id 1963243E72 for ; Fri, 9 Aug 2002 07:40:03 -0700 (PDT) (envelope-from gnats@FreeBSD.org) Received: from freefall.freebsd.org (gnats@localhost [127.0.0.1]) by freefall.freebsd.org (8.12.4/8.12.4) with ESMTP id g79Ee2JU004481 for ; Fri, 9 Aug 2002 07:40:02 -0700 (PDT) (envelope-from gnats@freefall.freebsd.org) Received: (from gnats@localhost) by freefall.freebsd.org (8.12.4/8.12.4/Submit) id g79Ee2h8004480; Fri, 9 Aug 2002 07:40:02 -0700 (PDT) Received: from mx1.FreeBSD.org (mx1.FreeBSD.org [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id 0A8D637B400 for ; Fri, 9 Aug 2002 07:39:16 -0700 (PDT) Received: from mx1.ovh.net (b1.ovh.net [213.186.33.51]) by mx1.FreeBSD.org (Postfix) with ESMTP id 0CBCC43E3B for ; Fri, 9 Aug 2002 07:39:15 -0700 (PDT) (envelope-from pcasidy@casidy.com) Received: (qmail 16733 invoked by uid 503); 9 Aug 2002 14:37:46 -0000 Received: from unknown (HELO gueway.home) (212.43.212.24) by ns0.ovh.net with DES-CBC3-SHA encrypted SMTP; 9 Aug 2002 14:37:46 -0000 Received: from gueway.home (localhost [127.0.0.1]) by gueway.home (8.12.5/8.12.5) with ESMTP id g79Ee6Z2028768 for ; Fri, 9 Aug 2002 16:40:06 +0200 (CEST) (envelope-from pcasidy@gueway.home) Received: (from pcasidy@localhost) by gueway.home (8.12.5/8.12.5/Submit) id g79Ee6hE028767; Fri, 9 Aug 2002 16:40:06 +0200 (CEST) Message-Id: <200208091440.g79Ee6hE028767@gueway.home> Date: Fri, 9 Aug 2002 16:40:06 +0200 (CEST) From: Philippe CASIDY Reply-To: Philippe CASIDY To: FreeBSD-gnats-submit@FreeBSD.org X-Send-Pr-Version: 3.113 Subject: ports/41480: New port: whatpix / a perl apps to find, moves or deletes duplicate files. Sender: owner-freebsd-ports@FreeBSD.ORG Precedence: bulk List-ID: List-Archive: (Web Archive) List-Help: (List Instructions) List-Subscribe: List-Unsubscribe: X-Loop: FreeBSD.org >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 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 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