From owner-freebsd-ports-bugs@FreeBSD.ORG Wed Oct 5 13:00:29 2005 Return-Path: X-Original-To: freebsd-ports-bugs@hub.freebsd.org Delivered-To: freebsd-ports-bugs@hub.freebsd.org Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id 60B5E16A420 for ; Wed, 5 Oct 2005 13:00:29 +0000 (GMT) (envelope-from gnats@FreeBSD.org) Received: from freefall.freebsd.org (freefall.freebsd.org [216.136.204.21]) by mx1.FreeBSD.org (Postfix) with ESMTP id 5291943D53 for ; Wed, 5 Oct 2005 13:00:28 +0000 (GMT) (envelope-from gnats@FreeBSD.org) Received: from freefall.freebsd.org (gnats@localhost [127.0.0.1]) by freefall.freebsd.org (8.13.3/8.13.3) with ESMTP id j95D0Sr7085175 for ; Wed, 5 Oct 2005 13:00:28 GMT (envelope-from gnats@freefall.freebsd.org) Received: (from gnats@localhost) by freefall.freebsd.org (8.13.3/8.13.1/Submit) id j95D0SUv085174; Wed, 5 Oct 2005 13:00:28 GMT (envelope-from gnats) Resent-Date: Wed, 5 Oct 2005 13:00:28 GMT Resent-Message-Id: <200510051300.j95D0SUv085174@freefall.freebsd.org> Resent-From: FreeBSD-gnats-submit@FreeBSD.org (GNATS Filer) Resent-To: freebsd-ports-bugs@FreeBSD.org Resent-Reply-To: FreeBSD-gnats-submit@FreeBSD.org, bra@fsn.hu Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id 472DB16A420 for ; Wed, 5 Oct 2005 12:59:33 +0000 (GMT) (envelope-from bra@mayday.intronet.hu) Received: from mayday.intronet.hu (www.ntech.hu [193.109.252.31]) by mx1.FreeBSD.org (Postfix) with ESMTP id A59B743D48 for ; Wed, 5 Oct 2005 12:59:25 +0000 (GMT) (envelope-from bra@mayday.intronet.hu) Received: by mayday.intronet.hu (Postfix, from userid 1003) id 42BB8102C52; Wed, 5 Oct 2005 14:59:19 +0200 (CEST) Message-Id: <20051005125919.42BB8102C52@mayday.intronet.hu> Date: Wed, 5 Oct 2005 14:59:19 +0200 (CEST) From: bra@fsn.hu To: FreeBSD-gnats-submit@FreeBSD.org X-Send-Pr-Version: 3.113 Cc: Subject: ports/86943: New port: security/p5-Authen-CyrusSASL X-BeenThere: freebsd-ports-bugs@freebsd.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Ports bug reports List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 05 Oct 2005 13:00:29 -0000 >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 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 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 is valid for user X C. It returns SASL_OK if the C is correct, END-of-security/p5-Authen-CyrusSASL/files/patch-CyrusSASL.pm exit --- p5-authen.sh ends here --- >Release-Note: >Audit-Trail: >Unformatted: