add p5-Filesys-SmbClient, an interface for access Samba

filesystem with libsmclient.so

net/Makefile

@@ -427,6 +427,7 @@
     SUBDIR += p5-DNS-Zone
     SUBDIR += p5-EasyTCP
     SUBDIR += p5-File-Rsync
+    SUBDIR += p5-Filesys-SmbClient
     SUBDIR += p5-Frontier-RPC
     SUBDIR += p5-Geo-IP
     SUBDIR += p5-Geo-IPfree

net/p5-Filesys-SmbClient/Makefile

@@ -0,0 +1,30 @@
+# New ports collection makefile for:	sysutils/p5-Filesys-SmbClient
+# Date created:				August 10, 2003
+# Whom:					Erwin Lansing <erwin@FreeBSD.org>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	Filesys-SmbClient
+PORTVERSION=	1.4
+CATEGORIES=	net perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR=	Filesys
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	erwin@FreeBSD.org
+COMMENT=	Interface for access Samba filesystem with libsmclient.so
+
+LIB_DEPENDS=	smbclient.0:${PORTSDIR}/net/samba-libsmbclient
+BUILD_DEPENDS=	${SITE_PERL}/Test/Simple.pm:${PORTSDIR}/devel/p5-Test-Simple
+RUN_DEPENDS=	${BUILD_DEPENDS}
+
+PERL_CONFIGURE=	yes
+
+MAN3=		Filesys::SmbClient.3
+
+post-patch:
+	${PERL} -pi -e 's!%%LOCALBASE%%!${LOCALBASE}!g' \
+		${WRKSRC}/Makefile.PL
+
+.include <bsd.port.mk>

net/p5-Filesys-SmbClient/distinfo

@@ -0,0 +1 @@
+MD5 (Filesys-SmbClient-1.4.tar.gz) = 642ff0516bbd12d6b6118e8d3e210491

net/p5-Filesys-SmbClient/files/patch-Makefile.PL

@@ -0,0 +1,41 @@
+--- Makefile.PL.orig	Sun Aug 10 11:25:48 2003
++++ Makefile.PL	Sun Aug 10 11:29:22 2003
+@@ -5,36 +5,8 @@
+ # special flag for AIX
+ ($^O =~ m/AIX/i) ? ($ccfl = '-qcpluscmt') : ($ccfl = '');
+ 
+-# path libsmbclient.h
+-my $include = try_to_find("libsmbclient.h");
+-$include = prompt("Where can I find libsmbclient.h ?", $include);
+-warn_user("$include/libsmbclient.h") if (!-r "$include/libsmbclient.h");
+-
+-# path libsmbclient.so
+-my $lib = try_to_find("libsmbclient.so");
+-$lib = prompt("Where can I find libsmbclient.so ?",$lib);
+-warn_user("libsmbclient.so") if (!-r "$lib/libsmbclient.so");
+-
+-# tests demande ?
+-my $ans = 
+-  prompt("Do you want make tests ?(you will be prompted for server / \n".
+-	   "worgroup / share / user / password to make read write access.",
+-	   "yes");
+-if ($ans =~ /^y(es)?$/i) 
+-  {
+-    my $server = prompt("Server ?","localhost");
+-    my $share = prompt("Share ?","homes");
+-    my $workgroup = prompt("Workgroup/Domain ?","");
+-    my $user = prompt("Smb user ?",$ENV{'USER'});
+-    my $pass = prompt("Smb password ?");
+-    open(FILE,">.c") || warn "Can't create .c for test: $!\n";
+-    print FILE $server,"\t",$share,"\t",$workgroup,"\t",$user,"\t",$pass;
+-    close FILE;
+-  }
+-
+-# Trace for debug
+-$ans = prompt("Compile module with trace to STDERR ?", "no");
+-if ($ans =~ /^y(es)?$/i) { $define = "-DVERBOSE"; }
++my $include = '%%LOCALBASE%%/include/';
++my $lib = '%%LOCALBASE%%/lib/';
+ 
+ # Create config.h for alloca via configure
+ system("./configure") == 0 or die "Can't run configure:$!\n";

net/p5-Filesys-SmbClient/pkg-descr

@@ -0,0 +1,7 @@
+Provide interface to access routine defined
+in libsmbclient.so
+
+If you want to use filehandle with this module,
+you need Perl 5.6 or later.
+
+WWW: http://search.cpan.org/dist/Filesys-SmbClient/

net/p5-Filesys-SmbClient/pkg-plist

@@ -0,0 +1,8 @@
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Filesys/SmbClient/SmbClient.so
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Filesys/SmbClient/SmbClient.bs
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Filesys/SmbClient/autosplit.ix
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Filesys/SmbClient/.packlist
+%%SITE_PERL%%/%%PERL_ARCH%%/Filesys/SmbClient.pm
+@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/Filesys/SmbClient
+@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/Filesys 2>/dev/null || true
+@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/Filesys 2>/dev/null || true