7 files changed, 172 insertions, 0 deletions

diff --git a/sysutils/Makefile b/sysutils/Makefile
index 4b6d11267ec9..8e0f29fef5ec 100644
--- a/sysutils/Makefile
+++ b/sysutils/Makefile
@@ -391,6 +391,7 @@
     SUBDIR += p5-Schedule-Match
     SUBDIR += p5-Stat-lsMode
     SUBDIR += p5-Sys-CpuLoad
+    SUBDIR += p5-Sys-Filesystem
     SUBDIR += p5-Sys-Hostname-Long
     SUBDIR += p5-Sys-Utmp
     SUBDIR += p5-SyslogScan
diff --git a/sysutils/p5-Sys-Filesystem/Makefile b/sysutils/p5-Sys-Filesystem/Makefile
new file mode 100644
index 000000000000..f7eb552c2d89
--- /dev/null
+++ b/sysutils/p5-Sys-Filesystem/Makefile
@@ -0,0 +1,37 @@
+# New ports collection makefile for:   p5-Sys-Filesystem
+# Date created:                        Thu May 25 21:12:53 CDT 2006
+# Whom:                                        Jim Pirzyk pirzyk@freebsd.org
+#
+# $FreeBSD$
+#
+
+PORTNAME=		Sys-Filesystem
+PORTVERSION=	1.21
+CATEGORIES=	sysutils perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR=	Sys
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	pirzyk@FreeBSD.org
+COMMENT=		Perl module to Retrieve list of filesystems and their properties
+
+PERL_MODBUILD=	yes
+
+MAN3=		Sys::Filesystem::Mswin32.3 \
+			Sys::Filesystem.3 \
+			Sys::Filesystem::Linux.3 \
+			Sys::Filesystem::Darwin.3 \
+			Sys::Filesystem::Cygwin.3 \
+			Sys::Filesystem::Aix.3 \
+			Sys::Filesystem::Unix.3 \
+			Sys::Filesystem::Dummy.3 \
+			Sys::Filesystem::Freebsd.3 \
+			Sys::Filesystem::Solaris.3
+
+.include <bsd.port.pre.mk>
+
+.if ${PERL_LEVEL} < 500600
+IGNORE=		requires perl 5.6.x or later. Install lang/perl5 then try again
+.endif
+
+.include <bsd.port.post.mk>
diff --git a/sysutils/p5-Sys-Filesystem/distinfo b/sysutils/p5-Sys-Filesystem/distinfo
new file mode 100644
index 000000000000..80222ebd5259
--- /dev/null
+++ b/sysutils/p5-Sys-Filesystem/distinfo
@@ -0,0 +1,3 @@
+MD5 (Sys-Filesystem-1.21.tar.gz) = 99bdb1a37ed2fde8e6ebede2c36c117e
+SHA256 (Sys-Filesystem-1.21.tar.gz) = 9d5a706f730bbdf013d610c46e32b8c2bb8663382799976df8eb1e6fa17483c5
+SIZE (Sys-Filesystem-1.21.tar.gz) = 18352
diff --git a/sysutils/p5-Sys-Filesystem/files/patch-lib-Sys-Filesystem-Freebsd.pm b/sysutils/p5-Sys-Filesystem/files/patch-lib-Sys-Filesystem-Freebsd.pm
new file mode 100644
index 000000000000..21bca99b8534
--- /dev/null
+++ b/sysutils/p5-Sys-Filesystem/files/patch-lib-Sys-Filesystem-Freebsd.pm
@@ -0,0 +1,98 @@
+--- ./lib/Sys/Filesystem/Freebsd.pm.orig	Sat Mar 25 14:44:35 2006
++++ ./lib/Sys/Filesystem/Freebsd.pm	Thu Jun  1 14:55:02 2006
+@@ -26,20 +26,33 @@
+ use FileHandle;
+ use Carp qw(croak);
+ 
++# For access to the getfsstat system call
++require 'sys/syscall.ph';
++require 'sys/mount.ph';
++
+ use vars qw($VERSION);
+ $VERSION = '1.05' || sprintf('%d', q$Revision: 364 $ =~ /(\d+)/g);
+ 
++my $sizeof;
++if ( &STATFS_VERSION == 0x20030518 ) {
++	$sizeof = 472; # The size in bytes of the statfs structure
++} else {
++	croak "The statfs strucuture changed version (" . &STATFS_VERSION . ")\n";
++}
++# unpack format, we want the 3rd and the last 3 fields.
++my $format = 'x8L' . 'x192' . ('A' . &MNAMELEN ) x 3 ;
++
+ sub new {
+ 	ref(my $class = shift) && croak 'Class name required';
+ 	my %args = @_;
+ 	my $self = { };
+ 
+ 	$args{fstab} ||= '/etc/fstab';
+-	$args{mtab} ||= '/etc/mtab';
+-	$args{xtab} ||= '/etc/lib/nfs/xtab';
++	# $args{mtab} ||= '/etc/mtab';  # Does not exist on FreeBSD
++	$args{xtab} ||= '/var/db/mountdtab';
+ 
+ 	my @keys = qw(fs_spec fs_file fs_vfstype fs_mntops fs_freq fs_passno);
+-	my @special_fs = qw(swap proc devpts tmpfs);
++	my @special_fs = qw(swap proc devpts devfs tmpfs);
+ 
+ 	# Read the fstab
+ 	my $fstab = new FileHandle;
+@@ -60,24 +73,42 @@
+ 		croak "Unable to open fstab file ($args{fstab})\n";
+ 	}
+ 
+-	# Read the mtab
+-	my $mtab = new FileHandle;
+-	if ($mtab->open($args{mtab})) {
+-		while (<$mtab>) {
+-			next if (/^\s*#/ || /^\s*$/);
+-			my @vals = split(/\s+/, $_);
+-			delete $self->{$vals[1]}->{unmounted} if exists $self->{$vals[1]}->{unmounted};
+-			$self->{$vals[1]}->{mounted} = 1;
+-			$self->{$vals[1]}->{mount_point} = $vals[1];
+-			$self->{$vals[1]}->{device} = $vals[0];
+-			$self->{$vals[1]}->{special} = 1 if grep(/^$vals[2]$/,qw(swap proc devpts tmpfs));
+-			for (my $i = 0; $i < @keys; $i++) {
+-				$self->{$vals[1]}->{$keys[$i]} = $vals[$i];
+-			}
++	# Get the number of mounted fileystems we have
++	my $buf = '';
++	my $cnt = syscall(&SYS_getfsstat, $buf, length $buf, &MNT_NOWAIT);
++
++	# Fix a bug on some 5.x systems, the previous syscall may return 0...
++	$cnt = 20 if ( ! $cnt );
++
++	# Preallocate the buffer memory per the syscall() requreiments
++	$buf = ' ' x ( $sizeof * $cnt );
++
++	if ( ($cnt=syscall(&SYS_getfsstat, $buf, length $buf, &MNT_NOWAIT)) ) {
++		for (my ($i) = 0; $i < $cnt; $i++) {
++
++			my $offset = ($i)? 'x' . ($i * $sizeof): '';
++			my @vals = unpack ( $offset . $format, $buf);
++
++			delete $self->{$vals[3]}->{unmounted} if exists $self->{$vals[3]}->{unmounted};
++			$self->{$vals[3]}->{mounted} = 1;
++			$self->{$vals[3]}->{mount_point} = $vals[3];
++			$self->{$vals[3]}->{device} = $vals[2];
++			$self->{$vals[3]}->{special} = 1 if grep(/^$vals[1]$/,@special_fs);
++
++			$self->{$vals[3]}->{fs_spec} = $vals[2];
++			$self->{$vals[3]}->{fs_file} = $vals[3];
++			$self->{$vals[3]}->{fs_vfstype} = $vals[1];
++			$self->{$vals[3]}->{fs_mntops} = 
++				($vals[0] & &MNT_RDONLY)? 'ro': 'rw';
++			$self->{$vals[3]}->{fs_mntops} .= ',noexec'
++				if ($vals[0] & &MNT_NOEXEC);
++			$self->{$vals[3]}->{fs_mntops} .= ',nosuid'
++				if ($vals[0] & &MNT_NOSUID);
++			$self->{$vals[3]}->{fs_mntops} .= ',nodev'
++				if ($vals[0] & &MNT_NODEV);
+ 		}
+-		$mtab->close;
+ 	} else {
+-		croak "Unable to open mtab file ($args{mtab})\n";
++		croak "Unable to retrieve mounted filesystem information\n";
+ 	}
+ 
+ 	# Bless and return
diff --git a/sysutils/p5-Sys-Filesystem/files/patch-lib-Sys-Filesystem.pm b/sysutils/p5-Sys-Filesystem/files/patch-lib-Sys-Filesystem.pm
new file mode 100644
index 000000000000..c4d3344b99de
--- /dev/null
+++ b/sysutils/p5-Sys-Filesystem/files/patch-lib-Sys-Filesystem.pm
@@ -0,0 +1,11 @@
+--- lib/Sys/Filesystem.pm.orig	Fri May 26 12:06:39 2006
++++ lib/Sys/Filesystem.pm	Fri May 26 12:06:40 2006
+@@ -108,7 +108,7 @@
+ 	# Invert logic for regular
+ 	if (exists $params->{regular}) {
+ 		delete $params->{regular};
+-		$params->{regular} = undef;
++		$params->{special} = undef;
+ 	}
+ 
+ 	my @filesystems = ();
diff --git a/sysutils/p5-Sys-Filesystem/pkg-descr b/sysutils/p5-Sys-Filesystem/pkg-descr
new file mode 100644
index 000000000000..5395c7ee960d
--- /dev/null
+++ b/sysutils/p5-Sys-Filesystem/pkg-descr
@@ -0,0 +1,10 @@
+Retrieve list of filesystems and their properties
+
+Sys::Filesystem is intended to be a portable interface to list and query
+filesystem names and their properties. At the time of writing there were
+only Solaris and Win32 modules available on CPAN to perform this kind of
+operation. This module hopes to provide a consistant API to list all,
+mounted, unmounted and special filesystems on a system, and query as
+many properties as possible with common aliases wherever possible.
+
+WWW: http://search.cpan.org/dist/Sys-Filesystem/
diff --git a/sysutils/p5-Sys-Filesystem/pkg-plist b/sysutils/p5-Sys-Filesystem/pkg-plist
new file mode 100644
index 000000000000..c5f0c2e7f58e
--- /dev/null
+++ b/sysutils/p5-Sys-Filesystem/pkg-plist
@@ -0,0 +1,12 @@
+%%SITE_PERL%%/Sys/Filesystem.pm
+%%SITE_PERL%%/Sys/Filesystem/Aix.pm
+%%SITE_PERL%%/Sys/Filesystem/Cygwin.pm
+%%SITE_PERL%%/Sys/Filesystem/Darwin.pm
+%%SITE_PERL%%/Sys/Filesystem/Dummy.pm
+%%SITE_PERL%%/Sys/Filesystem/Freebsd.pm
+%%SITE_PERL%%/Sys/Filesystem/Linux.pm
+%%SITE_PERL%%/Sys/Filesystem/Mswin32.pm
+%%SITE_PERL%%/Sys/Filesystem/Solaris.pm
+%%SITE_PERL%%/Sys/Filesystem/Unix.pm
+@dirrm %%SITE_PERL%%/Sys/Filesystem
+@dirrmtry %%SITE_PERL%%/Sys