mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2025-01-11 07:22:22 +00:00
Code Issues Releases Activity

New port: whatpix

Browse Source 
a perl apps to find, moves or deletes duplicate files.

PR:		ports/41480
Submitted by:	Philippe CASIDY <pcasidy@casidy.com>
This commit is contained in:
Edwin Groothuis 2003-02-05 11:36:13 +00:00
parent 75151ef0f9
commit e6ef3a7589
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=74842
7 changed files with 92 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
sysutils/Makefile
View File

@ -250,6 +250,7 @@
SUBDIR += vobcopy
SUBDIR += wait_on
SUBDIR += webmin
SUBDIR += whatpix
SUBDIR += whowatch
SUBDIR += wmapm
SUBDIR += wmapmload

24
sysutils/whatpix/Makefile Normal file
View File

@ -0,0 +1,24 @@
# New ports collection makefile for: mtf
# Date created: 02 June 2002
# Whom: Philippe Casidy <pcasidy@casidy.com>
#
# $FreeBSD$
#
PORTNAME= whatpix
PORTVERSION= 1.2
CATEGORIES= sysutils
MASTER_SITES= http://whatpix.sourceforge.net/download/
MAINTAINER= pcasidy@casidy.com
RUN_DEPENDS= ${LOCALBASE}/lib/perl5/site_perl/${PERL_VER}/${PERL_ARCH}/Digest/MD5.pm:${PORTSDIR}/security/p5-Digest-MD5 \
${LOCALBASE}/lib/perl5/site_perl/${PERL_VER}/${PERL_ARCH}/Digest/SHA1.pm:${PORTSDIR}/security/p5-Digest-SHA1
NO_BUILD= yes
USE_PERL5_RUN= yes
do-install:
${INSTALL_SCRIPT} ${WRKSRC}/whatpix ${PREFIX}/bin
.include <bsd.port.mk>

1
sysutils/whatpix/distinfo Normal file
View File

@ -0,0 +1 @@
MD5 (whatpix-1.2.tar.gz) = 541bf06404dee568ade0e4a63dbc1d30

53
sysutils/whatpix/files/patch-whatpix Normal file
View File

@ -0,0 +1,53 @@
*** whatpix.ori Fri Aug 9 13:43:49 2002
--- whatpix Fri Aug 9 13:44:49 2002
***************
*** 236,242 ****
print " ", $dir, "\n";
# Get list of subdirectories.
! opendir(DIR, $dir) or die "Error: opendir() failed on $dir\n";
my @dirs = grep { -d "$dir/$_" } readdir(DIR);
closedir(DIR);
--- 236,242 ----
print " ", $dir, "\n";
# Get list of subdirectories.
! opendir(DIR, "$dir\0") or die "Error: opendir() failed on $dir\n";
my @dirs = grep { -d "$dir/$_" } readdir(DIR);
closedir(DIR);
***************
*** 246,252 ****
}
# Now do the files in this directory.
! opendir(DIR, $dir) || die "Error: failed to open $dir: $!";
my @files = grep { -r "$dir/$_" && -s "$dir/$_" } readdir(DIR);
closedir(DIR);
my $digester = $usemd5 ? Digest::MD5->new() : Digest::SHA1->new();
--- 246,252 ----
}
# Now do the files in this directory.
! opendir(DIR, "$dir\0") || die "Error: failed to open $dir: $!";
my @files = grep { -r "$dir/$_" && -s "$dir/$_" } readdir(DIR);
closedir(DIR);
my $digester = $usemd5 ? Digest::MD5->new() : Digest::SHA1->new();
***************
*** 256,262 ****
my @vars = stat($filename) or die "Error: could not stat $filename\n";
my $size = $vars[7];
if ($size) {
! open(FILE, $filename) or die "Error: could not open $filename\n";
binmode(FILE);
$digester->reset;
$digester->addfile(*FILE);
--- 256,262 ----
my @vars = stat($filename) or die "Error: could not stat $filename\n";
my $size = $vars[7];
if ($size) {
! open(FILE, "$filename\0") or die "Error: could not open $filename\n";
binmode(FILE);
$digester->reset;
$digester->addfile(*FILE);

1
sysutils/whatpix/pkg-comment Normal file
View File

@ -0,0 +1 @@
Perl console application which finds, moves or deletes duplicate files

11
sysutils/whatpix/pkg-descr Normal file
View File

@ -0,0 +1,11 @@
whatpix is a GPL Perl console application which finds and optionally moves or
deletes duplicate files.
whatpix was originally written by codex@bogus.net. The original web site for
whatpix is http://www.bogus.net/~codex/ You can find versions prior to 1.0
there.
whatpix is currently being developed and maintained by 3Jane Tessier-Ashpool
and Gerard Lanois.
WWW: http://whatpix.sourceforge.net/

1
sysutils/whatpix/pkg-plist Normal file
View File

@ -0,0 +1 @@
bin/whatpix