Date: Wed, 5 Oct 2005 14:59:19 +0200 (CEST) From: bra@fsn.hu To: FreeBSD-gnats-submit@FreeBSD.org Subject: ports/86943: New port: security/p5-Authen-CyrusSASL Message-ID: <20051005125919.42BB8102C52@mayday.intronet.hu> Resent-Message-ID: <200510051300.j95D0SUv085174@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
>Number: 86943
>Category: ports
>Synopsis: New port: security/p5-Authen-CyrusSASL
>Confidential: no
>Severity: non-critical
>Priority: low
>Responsible: freebsd-ports-bugs
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: change-request
>Submitter-Id: current-users
>Arrival-Date: Wed Oct 05 13:00:27 GMT 2005
>Closed-Date:
>Last-Modified:
>Originator: bra@fsn.hu
>Release: FreeBSD 6.0-BETA4 i386
>Organization:
>Environment:
System: FreeBSD mayday
>Description:
The Authen::CyrusSASL module provides a simple class that allows you
to send request to the cyrus-sasl's authen daemon.
This module is based on the Authen::Radius module with the similar interface.
>How-To-Repeat:
>Fix:
--- p5-authen.sh begins here ---
# 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
--- p5-authen.sh ends here ---
>Release-Note:
>Audit-Trail:
>Unformatted:
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20051005125919.42BB8102C52>