Attachment 57635 Details for Bug 86943 – p5-authen.sh

p5-authen.sh

p5-authen.sh (text/plain), 4.63 KB, created by nagy.attila on 2005-10-05 14:00:27 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: nagy.attila

Created: 2005-10-05 14:00:27 UTC

Size: 4.63 KB

patch

obsolete

># 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:
>#
>#	security/p5-Authen-CyrusSASL
>#	security/p5-Authen-CyrusSASL/Makefile
>#	security/p5-Authen-CyrusSASL/distinfo
>#	security/p5-Authen-CyrusSASL/pkg-descr
>#	security/p5-Authen-CyrusSASL/pkg-plist
>#	security/p5-Authen-CyrusSASL/files
>#	security/p5-Authen-CyrusSASL/files/patch-CyrusSASL.pm
>#
>echo c - security/p5-Authen-CyrusSASL
>mkdir -p security/p5-Authen-CyrusSASL > /dev/null 2>&1
>echo x - security/p5-Authen-CyrusSASL/Makefile
>sed 's/^X//' >security/p5-Authen-CyrusSASL/Makefile << 'END-of-security/p5-Authen-CyrusSASL/Makefile'
>X# New ports collection makefile for:	p5-Authen-CyrusSASL
>X# Date created:				October 05 2005
>X# Whom:	      				Attila Nagy <bra@fsn.hu>
>X#
>X# $FreeBSD$
>X#
>X
>XPORTNAME=	Authen-CyrusSASL
>XPORTVERSION=	0.01
>XCATEGORIES=	security perl5
>XMASTER_SITES=	${MASTER_SITE_PERL_CPAN}
>XMASTER_SITE_SUBDIR=	Authen
>XPKGNAMEPREFIX=	p5-
>X
>XMAINTAINER=	bra@fsn.hu
>XCOMMENT=	Perl5 module for accessing the SASL authentication daemon
>X
>XPERL_CONFIGURE=	yes
>X
>XMAN3=	Authen::CyrusSASL.3
>X
>Xpost-patch:
>X	${MKDIR} ${WRKSRC}/lib
>X	${CP} -vpR ${WRKSRC}/Authen ${WRKSRC}/lib/
>X	${RM} ${WRKSRC}/lib/Authen/*.orig
>X
>X.include <bsd.port.mk>
>END-of-security/p5-Authen-CyrusSASL/Makefile
>echo x - security/p5-Authen-CyrusSASL/distinfo
>sed 's/^X//' >security/p5-Authen-CyrusSASL/distinfo << 'END-of-security/p5-Authen-CyrusSASL/distinfo'
>XMD5 (Authen-CyrusSASL-0.01.tar.gz) = 64f8d8c251cccb8bdf2e46d4ce7c2bf6
>XSIZE (Authen-CyrusSASL-0.01.tar.gz) = 4113
>END-of-security/p5-Authen-CyrusSASL/distinfo
>echo x - security/p5-Authen-CyrusSASL/pkg-descr
>sed 's/^X//' >security/p5-Authen-CyrusSASL/pkg-descr << 'END-of-security/p5-Authen-CyrusSASL/pkg-descr'
>XThe Authen::CyrusSASL module provides a simple class that allows you
>Xto send request to the cyrus-sasl's authen daemon.
>XThis module is based on the Authen::Radius module with the similar interface.
>X
>XWWW: http://search.cpan.org/dist/Authen-CyrusSASL/
>END-of-security/p5-Authen-CyrusSASL/pkg-descr
>echo x - security/p5-Authen-CyrusSASL/pkg-plist
>sed 's/^X//' >security/p5-Authen-CyrusSASL/pkg-plist << 'END-of-security/p5-Authen-CyrusSASL/pkg-plist'
>X%%SITE_PERL%%/Authen/CyrusSASL.pm
>X%%SITE_PERL%%/%%PERL_ARCH%%/auto/Authen/CyrusSASL/.packlist
>X%%SITE_PERL%%/auto/Authen/CyrusSASL/autosplit.ix
>X@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/Authen/CyrusSASL
>X@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/Authen 2>/dev/null || true
>X@dirrm %%SITE_PERL%%/auto/Authen/CyrusSASL
>END-of-security/p5-Authen-CyrusSASL/pkg-plist
>echo c - security/p5-Authen-CyrusSASL/files
>mkdir -p security/p5-Authen-CyrusSASL/files > /dev/null 2>&1
>echo x - security/p5-Authen-CyrusSASL/files/patch-CyrusSASL.pm
>sed 's/^X//' >security/p5-Authen-CyrusSASL/files/patch-CyrusSASL.pm << 'END-of-security/p5-Authen-CyrusSASL/files/patch-CyrusSASL.pm'
>X--- Authen/CyrusSASL.pm.orig	Mon Sep 24 15:41:30 2001
>X+++ Authen/CyrusSASL.pm	Fri Aug 26 13:34:21 2005
>X@@ -76,10 +76,13 @@
>X }
>X 
>X sub check_pwd {
>X-	my ($self, $name, $pwd) = @_;
>X+	my ($self, $name, $pwd, $service, $realm) = @_;
>X 	my ($req, $res, $sh);
>X 
>X-	$req = "$name\0$pwd\0";
>X+	$service = "imap" unless defined ($service);
>X+	$realm = "" unless defined ($realm);
>X+
>X+	$req = sprintf ("\0%c%s\0%c%s\0%c%s\0%c%s", length $name, $name, length $pwd, $pwd, length $service, $service, length $realm, $realm);
>X 	$res = ' ' x 1024;
>X 
>X 	# send request
>X@@ -93,7 +96,7 @@
>X 	# sock->recv does not work
>X 	#$self->{'sock'}->recv ($res, 1024, 0) or return SASL_FAIL;
>X 
>X-	if (substr($res, 0, 2) ne 'OK') {
>X+	if (substr($res, 2, 2) ne 'OK') {
>X 	  $! = substr($res, 3);
>X 	  return SASL_BADAUTH;
>X 	}
>X@@ -113,10 +116,10 @@
>X   use Authen::CyrusSASL;
>X   
>X   $p = new Authen::CyrusSASL(Type => SASL_AUTHD, Dir => '/var/run/saslauthd');
>X-  print "check=", $r->check_pwd('username', 'userpass'), "\n";
>X+  print "check=", $r->check_pwd('username', 'userpass', 'service', 'realm'), "\n";
>X 
>X   $p = new Authen::CyrusSASL(Type => SASL_PWCHECK, Dir => '/var/run/pwcheck');
>X-  print "check=", $r->check_pwd('username', 'userpass'), "\n";
>X+  print "check=", $r->check_pwd('username', 'userpass', 'service', 'realm'), "\n";
>X 
>X =head1 DESCRIPTION
>X 
>X@@ -154,7 +157,7 @@
>X 
>X =over 4
>X 
>X-=item check_pwd ( USERNAME, PASSWORD )
>X+=item check_pwd ( USERNAME, PASSWORD, SERVICE, REALM )
>X 
>X Checks with the SASL server if the specified C<PASSWORD> is valid for user 
>X C<USERNAME>. It returns SASL_OK if the C<PASSWORD> is correct,
>END-of-security/p5-Authen-CyrusSASL/files/patch-CyrusSASL.pm
>exit

Actions: View

Attachments on bug 86943: 57635