New port: whatpix

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

PR:		ports/41480
Submitted by:	Philippe CASIDY <pcasidy@casidy.com>

7 files changed, 92 insertions, 0 deletions

diff --git a/sysutils/Makefile b/sysutils/Makefile
index ce6e856244b4..aa71103e058e 100644
--- a/sysutils/Makefile
+++ b/sysutils/Makefile
@@ -250,6 +250,7 @@
     SUBDIR += vobcopy
     SUBDIR += wait_on
     SUBDIR += webmin
+    SUBDIR += whatpix
     SUBDIR += whowatch
     SUBDIR += wmapm
     SUBDIR += wmapmload
diff --git a/sysutils/whatpix/Makefile b/sysutils/whatpix/Makefile
new file mode 100644
index 000000000000..9abb71825606
--- /dev/null
+++ b/sysutils/whatpix/Makefile
@@ -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>
diff --git a/sysutils/whatpix/distinfo b/sysutils/whatpix/distinfo
new file mode 100644
index 000000000000..aa07645e1f0a
--- /dev/null
+++ b/sysutils/whatpix/distinfo
@@ -0,0 +1 @@
+MD5 (whatpix-1.2.tar.gz) = 541bf06404dee568ade0e4a63dbc1d30
diff --git a/sysutils/whatpix/files/patch-whatpix b/sysutils/whatpix/files/patch-whatpix
new file mode 100644
index 000000000000..1e154e812370
--- /dev/null
+++ b/sysutils/whatpix/files/patch-whatpix
@@ -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);
diff --git a/sysutils/whatpix/pkg-comment b/sysutils/whatpix/pkg-comment
new file mode 100644
index 000000000000..899efa493bc4
--- /dev/null
+++ b/sysutils/whatpix/pkg-comment
@@ -0,0 +1 @@
+Perl console application which finds, moves or deletes duplicate files
diff --git a/sysutils/whatpix/pkg-descr b/sysutils/whatpix/pkg-descr
new file mode 100644
index 000000000000..7e0ea866b177
--- /dev/null
+++ b/sysutils/whatpix/pkg-descr
@@ -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/
diff --git a/sysutils/whatpix/pkg-plist b/sysutils/whatpix/pkg-plist
new file mode 100644
index 000000000000..a7359f6544cb
--- /dev/null
+++ b/sysutils/whatpix/pkg-plist
@@ -0,0 +1 @@
+bin/whatpix