Menu
▾
▴
perl-ldap-checkins — CVS checkin diffs
You can subscribe to this list here.
| 2001 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(9) |
Nov
(4) |
Dec
(15) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2002 |
Jan
(23) |
Feb
(18) |
Mar
(11) |
Apr
(3) |
May
(23) |
Jun
(13) |
Jul
(16) |
Aug
(11) |
Sep
(5) |
Oct
(4) |
Nov
(2) |
Dec
(4) |
| 2003 |
Jan
(18) |
Feb
(13) |
Mar
(56) |
Apr
(3) |
May
(124) |
Jun
(21) |
Jul
(2) |
Aug
(8) |
Sep
(1) |
Oct
(23) |
Nov
(4) |
Dec
(2) |
| 2004 |
Jan
(18) |
Feb
(5) |
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Chris R. <chr...@us...> - 2003-11-10 18:31:18
|
Update of /cvsroot/perl-ldap/ldap/lib/Net
In directory sc8-pr-cvs1:/tmp/cvs-serv13586
Modified Files:
LDAP.pod
Log Message:
Change decryptkey to keydecrypt. Didn't we do this once already?
Index: LDAP.pod
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pod,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- LDAP.pod 12 Oct 2003 08:32:03 -0000 1.34
+++ LDAP.pod 10 Nov 2003 18:31:04 -0000 1.35
@@ -640,7 +640,7 @@
=item clientkey =E<gt> '/path/to/key.pem'
-=item decryptkey =E<gt> sub { ... }
+=item keydecrypt =E<gt> sub { ... }
If you want to use the client to offer a certificate to the server for
SSL authentication (which is not the same as for the LDAP Bind
@@ -648,7 +648,7 @@
clientkey to the user's private key file. These files must be in PEM
format.
-If the private key is encrypted (highly recommended) then decryptkey
+If the private key is encrypted (highly recommended) then keydecrypt
should be a subroutine that returns the decrypting key. For example:
$ldap = Net::LDAP->new( 'myhost.example.com', version => 3 );
@@ -656,7 +656,7 @@
verify => 'require',
clientcert => 'mycert.pem',
clientkey => 'mykey.pem',
- decryptkey => sub { 'secret'; },
+ keydecrypt => sub { 'secret'; },
capath => '/usr/local/cacerts/'
);
|
|
From: Graham B. <gb...@us...> - 2003-11-01 19:01:51
|
Update of /cvsroot/perl-ldap/sasl In directory sc8-pr-cvs1:/tmp/cvs-serv3074 Modified Files: ChangeLog Log Message: Index: ChangeLog =================================================================== RCS file: /cvsroot/perl-ldap/sasl/ChangeLog,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- ChangeLog 17 Oct 2003 21:13:50 -0000 1.5 +++ ChangeLog 1 Nov 2003 19:01:48 -0000 1.6 @@ -1,3 +1,21 @@ +2003-11-01 18:48 Graham Barr + + * lib/Authen/SASL.pm: + + Release 2.06 + +2003-10-21 19:59 Graham Barr + + * MANIFEST, lib/Authen/SASL/Perl.pm, + lib/Authen/SASL/Perl/ANONYMOUS.pm, + lib/Authen/SASL/Perl/CRAM_MD5.pm, + lib/Authen/SASL/Perl/DIGEST_MD5.pm, + lib/Authen/SASL/Perl/EXTERNAL.pm, lib/Authen/SASL/Perl/LOGIN.pm, + lib/Authen/SASL/Perl/PLAIN.pm, t/order.t: + + Add ordering so we always pich the best of the available methods instead of + just the first + 2003-10-17 22:12 Graham Barr * lib/Authen/SASL.pm: |
|
From: Graham B. <gb...@us...> - 2003-11-01 19:00:39
|
Update of /cvsroot/perl-ldap/sasl/t
In directory sc8-pr-cvs1:/tmp/cvs-serv2855/t
Modified Files:
order.t
Log Message:
Fix package name typo
Index: order.t
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/t/order.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- order.t 21 Oct 2003 18:59:47 -0000 1.1
+++ order.t 1 Nov 2003 19:00:33 -0000 1.2
@@ -11,7 +11,7 @@
EXTERNAL 2
DIGEST-MD5 3
);
-my $skip3 = !eval { require Authen::SASL::Perl::Digest_MD5; };
+my $skip3 = !eval { require Authen::SASL::Perl::DIGEST_MD5; };
print "1..75\n";
|
|
From: Graham B. <gb...@us...> - 2003-11-01 18:48:35
|
Update of /cvsroot/perl-ldap/sasl/lib/Authen In directory sc8-pr-cvs1:/tmp/cvs-serv328/lib/Authen Modified Files: SASL.pm Log Message: Release 2.06 Index: SASL.pm =================================================================== RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- SASL.pm 17 Oct 2003 21:12:02 -0000 1.7 +++ SASL.pm 1 Nov 2003 18:48:32 -0000 1.8 @@ -8,7 +8,7 @@ use vars qw($VERSION @Plugins); use Carp; -$VERSION = "2.05"; +$VERSION = "2.06"; @Plugins = qw( Authen::SASL::Cyrus |
|
From: Graham B. <gb...@us...> - 2003-10-22 06:39:19
|
Update of /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl
In directory sc8-pr-cvs1:/tmp/cvs-serv26237/lib/Authen/SASL/Perl
Modified Files:
ANONYMOUS.pm CRAM_MD5.pm DIGEST_MD5.pm EXTERNAL.pm LOGIN.pm
PLAIN.pm
Log Message:
Add ordering so we always pich the best of the available methods instead of
just the first
Index: ANONYMOUS.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl/ANONYMOUS.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- ANONYMOUS.pm 24 Jan 2002 12:04:16 -0000 1.1.1.1
+++ ANONYMOUS.pm 21 Oct 2003 18:59:47 -0000 1.2
@@ -7,13 +7,14 @@
use strict;
use vars qw($VERSION @ISA);
-$VERSION = "1.00";
+$VERSION = "1.03";
@ISA = qw(Authen::SASL::Perl);
my %secflags = (
noplaintext => 1,
);
+sub _order { 0 }
sub _secflags {
shift;
grep { $secflags{$_} } @_;
Index: CRAM_MD5.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl/CRAM_MD5.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- CRAM_MD5.pm 24 Jan 2002 12:04:16 -0000 1.1.1.1
+++ CRAM_MD5.pm 21 Oct 2003 18:59:47 -0000 1.2
@@ -8,7 +8,7 @@
use vars qw($VERSION @ISA);
use Digest::HMAC_MD5 qw(hmac_md5_hex);
-$VERSION = "1.00";
+$VERSION = "1.03";
@ISA = qw(Authen::SASL::Perl);
my %secflags = (
@@ -16,6 +16,7 @@
noanonymous => 1,
);
+sub _order { 2 }
sub _secflags {
shift;
scalar grep { $secflags{$_} } @_;
Index: DIGEST_MD5.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl/DIGEST_MD5.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- DIGEST_MD5.pm 17 Oct 2003 20:19:14 -0000 1.3
+++ DIGEST_MD5.pm 21 Oct 2003 18:59:47 -0000 1.4
@@ -1,167 +1,168 @@
-# Copyright (c) 2003 Graham Barr, Djamel Boudjerda, Paul Connolly, Julian Onions and Nexor.
-# All rights reserved. This program is free software; you can redistribute
-# it and/or modify it under the same terms as Perl itself.
-
-# See http://www.ietf.org/rfc/rfc2831.txt for details
-
-package Authen::SASL::Perl::DIGEST_MD5;
-
-use strict;
-use vars qw($VERSION @ISA $CNONCE);
-use Digest::MD5 qw(md5_hex md5);
-
-$VERSION = "1.01";
-@ISA = qw(Authen::SASL::Perl);
-
-my %secflags = (
- noplaintext => 1,
- noanonymous => 1,
-);
-
-# some have to be quoted - some don't - sigh!
-my %qdval; @qdval{qw(username realm nonce cnonce digest-uri qop)} = ();
-
-sub _secflags {
- shift;
- scalar grep { $secflags{$_} } @_;
-}
-
-sub mechanism { 'DIGEST-MD5' }
-
-# no initial value passed to the server
-sub client_start {
- '';
-}
-
-sub client_step # $self, $server_sasl_credentials
-{
- my ($self, $challenge) = @_;
- $self->{server_params} = \my %sparams;
-
- # Parse response parameters
- while($challenge =~ s/^(?:\s*,)?\s*(\w+)=("([^\\"]+|\\.)*"|[^,]+)\s*//) {
- my ($k, $v) = ($1,$2);
- if ($v =~ /^"(.*)"$/s) {
- ($v = $1) =~ s/\\//g;
- }
- $sparams{$k} = $v;
- }
-
- return $self->set_error("Bad challenge: '$challenge'")
- if length $challenge;
-
- my %response = (
- nonce => $sparams{'nonce'},
- username => $self->_call('user'),
- realm => $sparams{'realm'},
- nonce => $sparams{'nonce'},
- cnonce => md5_hex($CNONCE || join (":", $$, time, rand)),
- 'digest-uri' => $self->service . '/' . $self->host,
- qop => $sparams{'qop'},
- nc => sprintf("%08d", ++$self->{nonce}{$sparams{'nonce'}}),
- charset => $sparams{'charset'},
- );
-
- my $serv_name = $self->_call('serv');
- if (defined $serv_name) {
- $response{'digest_uri'} .= '/' . $serv_name;
- }
-
- my $password = $self->_call('pass');
-
- # Generate the response value
-
- my $A1 = join (":",
- md5(join (":", @response{qw(username realm)}, $password)),
- @response{qw(nonce cnonce)}
- );
-
- my $A2 = "AUTHENTICATE:" . $response{'digest-uri'};
-
- $A2 .= ":00000000000000000000000000000000"
- if $response{'qop'} and $response{'qop'} =~ /^auth-(conf|int)$/;
-
- $response{'response'} = md5_hex(
- join (":", md5_hex($A1), @response{qw(nonce nc cnonce qop)}, md5_hex($A2))
- );
-
- join (",", map { _qdval($_, $response{$_}) } sort keys %response);
-}
-
-sub _qdval {
- my ($k, $v) = @_;
-
- if (!defined $v) {
- return;
- }
- elsif (exists $qdval{$k}) {
- $v =~ s/([\\"])/\\$1/g;
- return qq{$k="$v"};
- }
-
- return "$k=$v";
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-Authen::SASL::Perl::DIGEST_MD5 - Digest MD5 Authentication class
-
-=head1 SYNOPSIS
-
- use Authen::SASL;
-
- $sasl = Authen::SASL->new(
- mechanism => 'DIGEST-MD5',
- callback => {
- user => $user,
- pass => $pass,
- serv => $serv
- },
- );
-
-=head1 DESCRIPTION
-
-This method implements the DIGEST MD5 SASL algorithm, as described in RFC-2831.
-
-=head2 CALLBACK
-
-The callbacks used are:
-
-=over 4
-
-=item user
-
-The username to be used in the response
-
-=item pass
-
-The password to be used in the response
-
-=item serv
-
-The service name when authenticating to a replicated service
-
-=back
-
-=head1 SEE ALSO
-
-L<Authen::SASL>
-
-=head1 AUTHORS
-
-Graham Barr, Djamel Boudjerda (NEXOR) Paul Connolly, Julian Onions (NEXOR)
-
-Please report any bugs, or post any suggestions, to the perl-ldap mailing list
-<per...@li...>
-
-=head1 COPYRIGHT
-
-Copyright (c) 2003 Graham Barr, Djamel Boudjerda, Paul Connolly, Julian Onions and Nexor.
-All rights reserved. This program is free software; you can redistribute
-it and/or modify it under the same terms as Perl itself.
-
-=cut
+# Copyright (c) 2003 Graham Barr, Djamel Boudjerda, Paul Connolly, Julian Onions and Nexor.
+# All rights reserved. This program is free software; you can redistribute
+# it and/or modify it under the same terms as Perl itself.
+
+# See http://www.ietf.org/rfc/rfc2831.txt for details
+
+package Authen::SASL::Perl::DIGEST_MD5;
+
+use strict;
+use vars qw($VERSION @ISA $CNONCE);
+use Digest::MD5 qw(md5_hex md5);
+
+$VERSION = "1.03";
+@ISA = qw(Authen::SASL::Perl);
+
+my %secflags = (
+ noplaintext => 1,
+ noanonymous => 1,
+);
+
+# some have to be quoted - some don't - sigh!
+my %qdval; @qdval{qw(username realm nonce cnonce digest-uri qop)} = ();
+
+sub _order { 3 }
+sub _secflags {
+ shift;
+ scalar grep { $secflags{$_} } @_;
+}
+
+sub mechanism { 'DIGEST-MD5' }
+
+# no initial value passed to the server
+sub client_start {
+ '';
+}
+
+sub client_step # $self, $server_sasl_credentials
+{
+ my ($self, $challenge) = @_;
+ $self->{server_params} = \my %sparams;
+
+ # Parse response parameters
+ while($challenge =~ s/^(?:\s*,)?\s*(\w+)=("([^\\"]+|\\.)*"|[^,]+)\s*//) {
+ my ($k, $v) = ($1,$2);
+ if ($v =~ /^"(.*)"$/s) {
+ ($v = $1) =~ s/\\//g;
+ }
+ $sparams{$k} = $v;
+ }
+
+ return $self->set_error("Bad challenge: '$challenge'")
+ if length $challenge;
+
+ my %response = (
+ nonce => $sparams{'nonce'},
+ username => $self->_call('user'),
+ realm => $sparams{'realm'},
+ nonce => $sparams{'nonce'},
+ cnonce => md5_hex($CNONCE || join (":", $$, time, rand)),
+ 'digest-uri' => $self->service . '/' . $self->host,
+ qop => $sparams{'qop'},
+ nc => sprintf("%08d", ++$self->{nonce}{$sparams{'nonce'}}),
+ charset => $sparams{'charset'},
+ );
+
+ my $serv_name = $self->_call('serv');
+ if (defined $serv_name) {
+ $response{'digest_uri'} .= '/' . $serv_name;
+ }
+
+ my $password = $self->_call('pass');
+
+ # Generate the response value
+
+ my $A1 = join (":",
+ md5(join (":", @response{qw(username realm)}, $password)),
+ @response{qw(nonce cnonce)}
+ );
+
+ my $A2 = "AUTHENTICATE:" . $response{'digest-uri'};
+
+ $A2 .= ":00000000000000000000000000000000"
+ if $response{'qop'} and $response{'qop'} =~ /^auth-(conf|int)$/;
+
+ $response{'response'} = md5_hex(
+ join (":", md5_hex($A1), @response{qw(nonce nc cnonce qop)}, md5_hex($A2))
+ );
+
+ join (",", map { _qdval($_, $response{$_}) } sort keys %response);
+}
+
+sub _qdval {
+ my ($k, $v) = @_;
+
+ if (!defined $v) {
+ return;
+ }
+ elsif (exists $qdval{$k}) {
+ $v =~ s/([\\"])/\\$1/g;
+ return qq{$k="$v"};
+ }
+
+ return "$k=$v";
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Authen::SASL::Perl::DIGEST_MD5 - Digest MD5 Authentication class
+
+=head1 SYNOPSIS
+
+ use Authen::SASL;
+
+ $sasl = Authen::SASL->new(
+ mechanism => 'DIGEST-MD5',
+ callback => {
+ user => $user,
+ pass => $pass,
+ serv => $serv
+ },
+ );
+
+=head1 DESCRIPTION
+
+This method implements the DIGEST MD5 SASL algorithm, as described in RFC-2831.
+
+=head2 CALLBACK
+
+The callbacks used are:
+
+=over 4
+
+=item user
+
+The username to be used in the response
+
+=item pass
+
+The password to be used in the response
+
+=item serv
+
+The service name when authenticating to a replicated service
+
+=back
+
+=head1 SEE ALSO
+
+L<Authen::SASL>
+
+=head1 AUTHORS
+
+Graham Barr, Djamel Boudjerda (NEXOR) Paul Connolly, Julian Onions (NEXOR)
+
+Please report any bugs, or post any suggestions, to the perl-ldap mailing list
+<per...@li...>
+
+=head1 COPYRIGHT
+
+Copyright (c) 2003 Graham Barr, Djamel Boudjerda, Paul Connolly, Julian Onions and Nexor.
+All rights reserved. This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+=cut
Index: EXTERNAL.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl/EXTERNAL.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- EXTERNAL.pm 24 Jan 2002 12:04:16 -0000 1.1.1.1
+++ EXTERNAL.pm 21 Oct 2003 18:59:47 -0000 1.2
@@ -8,7 +8,7 @@
use strict;
use vars qw($VERSION @ISA);
-$VERSION = "1.00";
+$VERSION = "1.03";
@ISA = qw(Authen::SASL::Perl);
my %secflags = (
@@ -16,6 +16,7 @@
nodictionary => 1,
);
+sub _order { 2 }
sub _secflags {
shift;
grep { $secflags{$_} } @_;
Index: LOGIN.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl/LOGIN.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- LOGIN.pm 21 Jan 2003 12:22:13 -0000 1.2
+++ LOGIN.pm 21 Oct 2003 18:59:47 -0000 1.3
@@ -7,13 +7,14 @@
use strict;
use vars qw($VERSION @ISA);
-$VERSION = "1.01";
+$VERSION = "1.03";
@ISA = qw(Authen::SASL::Perl);
my %secflags = (
noanonymous => 1,
);
+sub _order { 1 }
sub _secflags {
shift;
scalar grep { $secflags{$_} } @_;
Index: PLAIN.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl/PLAIN.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- PLAIN.pm 24 Jan 2002 12:04:16 -0000 1.1.1.1
+++ PLAIN.pm 21 Oct 2003 18:59:47 -0000 1.2
@@ -7,13 +7,14 @@
use strict;
use vars qw($VERSION @ISA);
-$VERSION = "1.00";
+$VERSION = "1.03";
@ISA = qw(Authen::SASL::Perl);
my %secflags = (
noanonymous => 1,
);
+sub _order { 1 }
sub _secflags {
shift;
grep { $secflags{$_} } @_;
|
|
From: Graham B. <gb...@us...> - 2003-10-21 22:19:43
|
Update of /cvsroot/perl-ldap/sasl In directory sc8-pr-cvs1:/tmp/cvs-serv26237 Modified Files: MANIFEST Log Message: Add ordering so we always pich the best of the available methods instead of just the first Index: MANIFEST =================================================================== RCS file: /cvsroot/perl-ldap/sasl/MANIFEST,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- MANIFEST 17 Oct 2003 21:06:52 -0000 1.6 +++ MANIFEST 21 Oct 2003 18:59:47 -0000 1.7 @@ -30,4 +30,5 @@ t/digest_md5.t t/external.t t/login.t +t/order.t t/plain.t |
|
From: Graham B. <gb...@us...> - 2003-10-21 19:33:19
|
Update of /cvsroot/perl-ldap/sasl/t
In directory sc8-pr-cvs1:/tmp/cvs-serv26237/t
Added Files:
order.t
Log Message:
Add ordering so we always pich the best of the available methods instead of
just the first
--- NEW FILE: order.t ---
use Authen::SASL;
@Authen::SASL::Plugins = qw(Authen::SASL::Perl);
my %order = qw(
ANONYMOUS 0
LOGIN 1
PLAIN 1
CRAM-MD5 2
EXTERNAL 2
DIGEST-MD5 3
);
my $skip3 = !eval { require Authen::SASL::Perl::Digest_MD5; };
print "1..75\n";
my $i =0;
foreach my $level (reverse 0..3) {
my @mech = grep { $order{$_} <= $level } keys %order;
foreach my $n (1..@mech) {
push @mech, shift @mech; # rotate
my $mech = join(" ",@mech);
print "# $level $mech\n";
if ($level == 3 and $skip3) {
for (1..5) {
print "ok ",++$i," # skip\n";
}
next;
}
my $sasl = Authen::SASL->new(
mechanism => $mech,
callback => {
user => 'gbarr',
pass => 'fred',
authname => 'none'
},
) or print "not ";
print "ok ",++$i,"\n";
$sasl->mechanism eq $mech
or print "not ";
print "ok ",++$i,"\n";
my $conn = $sasl->client_new("ldap","localhost")
or print "not ";
print "ok ",++$i,"\n";
my $chosen = $conn->mechanism
or print "not ";
print "ok ",++$i,"\n";
($order{$chosen} || 0) == $level
or print "not ";
print "ok ",++$i,"\n";
}
}
|
|
From: Graham B. <gb...@us...> - 2003-10-21 19:32:52
|
Update of /cvsroot/perl-ldap/sasl/lib/Authen/SASL
In directory sc8-pr-cvs1:/tmp/cvs-serv26237/lib/Authen/SASL
Modified Files:
Perl.pm
Log Message:
Add ordering so we always pich the best of the available methods instead of
just the first
Index: Perl.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Perl.pm 17 Oct 2003 20:17:20 -0000 1.4
+++ Perl.pm 21 Oct 2003 18:59:47 -0000 1.5
@@ -8,7 +8,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = "1.02";
+$VERSION = "1.03";
my %secflags = (
noplaintext => 1,
@@ -27,9 +27,9 @@
host => $host || '',
};
- # Dumb selection;
-
- my @mpkg = grep {
+ my @mpkg = sort {
+ $b->_order <=> $a->_order
+ } grep {
eval "require $_;" && $_->_secflags(@sec) == @sec
} map {
(my $mpkg = __PACKAGE__ . "::$_") =~ s/-/_/g;
@@ -40,6 +40,7 @@
$mpkg[0]->_init($self);
}
+sub _order { 0 }
sub code { defined(shift->{error}) || 0 }
sub error { shift->{error} }
sub service { shift->{service} }
|
|
From: Chris R. <chr...@us...> - 2003-10-18 09:40:29
|
Update of /cvsroot/perl-ldap/website
In directory sc8-pr-cvs1:/tmp/cvs-serv12709
Modified Files:
index.html
Log Message:
Update for 0.30
Index: index.html
===================================================================
RCS file: /cvsroot/perl-ldap/website/index.html,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- index.html 24 Jun 2003 12:06:36 -0000 1.42
+++ index.html 18 Oct 2003 09:34:09 -0000 1.43
@@ -51,8 +51,8 @@
</div>
<div class="section">
<h2>Distribution</h2>
- <p>The latest (June 2003) release of the library is <a href=
- "http://prdownloads.sourceforge.net/perl-ldap/perl-ldap-0.29.tar.gz"> perl-ldap-0.29</a>.
+ <p>The latest (October 2003) release of the library is <a href=
+ "http://prdownloads.sourceforge.net/perl-ldap/perl-ldap-0.30.tar.gz"> perl-ldap-0.30</a>.
You may also <a href=
"http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/perl-ldap/ldap/">look
at the individual files</a> in the CVS repository and the <a href=
|
|
From: Graham B. <gb...@us...> - 2003-10-17 21:39:57
|
Update of /cvsroot/perl-ldap/ldap In directory sc8-pr-cvs1:/tmp/cvs-serv13959 Modified Files: ChangeLog RELEASE_NOTES Log Message: Release 0.30 Index: ChangeLog =================================================================== RCS file: /cvsroot/perl-ldap/ldap/ChangeLog,v retrieving revision 1.30 retrieving revision 1.31 diff -u -d -r1.30 -r1.31 --- ChangeLog 24 Jun 2003 10:18:35 -0000 1.30 +++ ChangeLog 17 Oct 2003 21:39:51 -0000 1.31 @@ -1,3 +1,100 @@ +2003-10-17 22:22 Graham Barr + + * lib/Net/LDAP/Bind.pm: + + Fix error checking on client_step to check for an empty list, not undef + +2003-10-17 22:19 Graham Barr + + * lib/Net/LDAP/Entry.pm: + + Avoid cannot call method on unbless reference error + +2003-10-12 09:32 Chris Ridd + + * lib/Net/LDAP.pod: + + Added note about escaping filters + +2003-09-11 11:44 Chris Ridd + + * lib/Net/LDAP/Filter.pod: + + Remove leftover documentation for asn() + +2003-08-16 09:44 Chris Ridd + + * lib/Net/LDAP/Schema.pod: + + Rearranged description of HASHes + +2003-08-05 15:09 Chris Ridd + + * lib/Net/LDAP/Examples.pod: + + Updated documentation style, corrected schema code etc + +2003-08-05 14:33 Chris Ridd + + * lib/Net/LDAP/Schema.pod: + + Updated documentation style, corrected return type of all_attributes etc + +2003-08-02 19:50 Chris Ridd + + * lib/Net/LDAP/Search.pod: + + Fix typo + +2003-08-02 11:03 Chris Ridd + + * lib/Net/LDAP/LDIF.pod: + + Updated documentation style. + +2003-08-01 20:00 Chris Ridd + + * lib/Net/LDAP/Entry.pod: + + Updated documentation style. + +2003-08-01 19:42 Chris Ridd + + * lib/Net/LDAP/Message.pod: + + Updated documentation style. + +2003-08-01 17:34 Chris Ridd + + * lib/Net/LDAP/Search.pod: + + Updated documentation style. + +2003-07-09 21:27 Graham Barr + + * lib/Net/LDAP/: Control/SortResult.pm, Extension/SetPassword.pm: + + Add $VERSION + +2003-06-24 22:58 Kartik Subbarao + + * contrib/ldifdiff.pl: + + Added options to specify DN attributes, as well as "shared" attributes. + Converted to Getopt::Long. + +2003-06-24 22:58 Kartik Subbarao + + * contrib/ldifsort.pl: + + Added option to sort attributes within each entry. + +2003-06-24 11:18 Graham Barr + + * RELEASE_NOTES, lib/Net/LDAP.pm: + + Release 0.29 + 2003-06-23 13:52 Chris Ridd * lib/Net/LDAP.pod: Index: RELEASE_NOTES =================================================================== RCS file: /cvsroot/perl-ldap/ldap/RELEASE_NOTES,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- RELEASE_NOTES 24 Jun 2003 10:18:35 -0000 1.14 +++ RELEASE_NOTES 17 Oct 2003 21:39:51 -0000 1.15 @@ -1,3 +1,10 @@ +perl-ldap 0.30 17 Oct 2003 +========================== + +* Documentation updates +* Fixed bug checking return value of client_step in bind() +* Fixed bug in Entry.pm causing method calls on unblessed references + perl-ldap 0.29 24 Jun 2003 ========================== |
|
From: Graham B. <gb...@us...> - 2003-10-17 21:39:55
|
Update of /cvsroot/perl-ldap/ldap/lib/Net In directory sc8-pr-cvs1:/tmp/cvs-serv13959/lib/Net Modified Files: LDAP.pm Log Message: Release 0.30 Index: LDAP.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v retrieving revision 1.56 retrieving revision 1.57 diff -u -d -r1.56 -r1.57 --- LDAP.pm 24 Jun 2003 10:18:35 -0000 1.56 +++ LDAP.pm 17 Oct 2003 21:39:51 -0000 1.57 @@ -27,7 +27,7 @@ LDAP_UNAVAILABLE ); -$VERSION = "0.29"; +$VERSION = "0.30"; @ISA = qw(Tie::StdHash Net::LDAP::Extra); $LDAP_VERSION = 3; # default LDAP protocol version |
|
From: Graham B. <gb...@us...> - 2003-10-17 21:25:06
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory sc8-pr-cvs1:/tmp/cvs-serv8786/lib/Net/LDAP
Modified Files:
Bind.pm
Log Message:
Fix error checking on client_step to check for an empty list, not undef
Index: Bind.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Bind.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Bind.pm 6 May 2003 16:45:20 -0000 1.4
+++ Bind.pm 17 Oct 2003 21:22:56 -0000 1.5
@@ -1,4 +1,4 @@
-# Copyright (c) 1998-2000 Graham Barr <gb...@po...>. All rights reserved.
+# Copyright (c) 1998-2003 Graham Barr <gb...@po...>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
@@ -38,10 +38,8 @@
$self->{mesgid} = Net::LDAP::Message->NewMesgID(); # Get a new message ID
- my $resp = $sasl->client_step($bind->{serverSaslCreds});
-
- $self->set_error(LDAP_DECODING_ERROR,"LDAP decode error"), return
- unless defined $resp;
+ my ($resp) = $sasl->client_step($bind->{serverSaslCreds})
+ or $self->set_error(LDAP_DECODING_ERROR,"LDAP decode error"), return;
$self->encode(
bindRequest => {
|
|
From: Graham B. <gb...@us...> - 2003-10-17 21:19:48
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory sc8-pr-cvs1:/tmp/cvs-serv8075/lib/Net/LDAP
Modified Files:
Entry.pm
Log Message:
Avoid cannot call method on unbless reference error
Index: Entry.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Entry.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- Entry.pm 9 May 2003 11:56:17 -0000 1.14
+++ Entry.pm 17 Oct 2003 21:19:38 -0000 1.15
@@ -1,4 +1,4 @@
-# Copyright (c) 1997-2000 Graham Barr <gb...@po...>. All rights reserved.
+# Copyright (c) 1997-2003 Graham Barr <gb...@po...>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
@@ -9,7 +9,7 @@
use Net::LDAP::Constant qw(LDAP_LOCAL_ERROR);
use vars qw($VERSION);
-$VERSION = "0.20";
+$VERSION = "0.21";
sub new {
my $self = shift;
@@ -250,7 +250,7 @@
}
else {
require Net::LDAP::Message;
- $mesg = Net::LDAP::Message->new( {} );
+ $mesg = Net::LDAP::Message->new( $ldap );
$mesg->set_error(LDAP_LOCAL_ERROR,"No attributes to update");
}
|
|
From: Graham B. <gb...@us...> - 2003-10-17 21:13:57
|
Update of /cvsroot/perl-ldap/sasl In directory sc8-pr-cvs1:/tmp/cvs-serv4368 Modified Files: ChangeLog Log Message: Index: ChangeLog =================================================================== RCS file: /cvsroot/perl-ldap/sasl/ChangeLog,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- ChangeLog 19 May 2003 21:41:26 -0000 1.4 +++ ChangeLog 17 Oct 2003 21:13:50 -0000 1.5 @@ -1,3 +1,33 @@ +2003-10-17 22:12 Graham Barr + + * lib/Authen/SASL.pm: + + Release 2.05 + +2003-10-17 22:06 Graham Barr + + * MANIFEST, Makefile.PL: + + use Module::Install to generate Makefile and add SIGNATURE and META.yml + +2003-10-17 21:19 Graham Barr + + * lib/Authen/SASL/Perl/DIGEST_MD5.pm: + + Fix typo + +2003-10-17 21:17 Graham Barr + + * lib/Authen/SASL/: Perl.pm, Perl/DIGEST_MD5.pm: + + Don't call die in DIGEST_MD5, but call set_error and return an empty list + +2003-10-17 21:16 Graham Barr + + * lib/Authen/SASL.pod: + + Update docs to reflect that client_start and client_step return an emtpy list on error + 2003-05-19 22:41 Graham Barr * lib/Authen/SASL.pm: |
|
From: Graham B. <gb...@us...> - 2003-10-17 21:12:17
|
Update of /cvsroot/perl-ldap/sasl/lib/Authen In directory sc8-pr-cvs1:/tmp/cvs-serv4011/lib/Authen Modified Files: SASL.pm Log Message: Release 2.05 Index: SASL.pm =================================================================== RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- SASL.pm 19 May 2003 21:41:08 -0000 1.6 +++ SASL.pm 17 Oct 2003 21:12:02 -0000 1.7 @@ -8,7 +8,7 @@ use vars qw($VERSION @Plugins); use Carp; -$VERSION = "2.04"; +$VERSION = "2.05"; @Plugins = qw( Authen::SASL::Cyrus |
|
From: Graham B. <gb...@us...> - 2003-10-17 21:07:02
|
Update of /cvsroot/perl-ldap/sasl
In directory sc8-pr-cvs1:/tmp/cvs-serv2948
Modified Files:
MANIFEST Makefile.PL
Log Message:
use Module::Install to generate Makefile and add SIGNATURE and META.yml
Index: MANIFEST
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/MANIFEST,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- MANIFEST 19 May 2003 16:06:04 -0000 1.5
+++ MANIFEST 17 Oct 2003 21:06:52 -0000 1.6
@@ -1,9 +1,18 @@
ChangeLog
MANIFEST
+META.yml
Makefile.PL
+SIGNATURE
api.txt
compat_pl
example_pl
+inc/Module/Install.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Win32.pm
lib/Authen/SASL.pm
lib/Authen/SASL.pod
lib/Authen/SASL/CRAM_MD5.pm
Index: Makefile.PL
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/Makefile.PL,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- Makefile.PL 24 Jan 2002 12:04:16 -0000 1.1.1.1
+++ Makefile.PL 17 Oct 2003 21:06:52 -0000 1.2
@@ -1,10 +1,30 @@
# This -*- perl -*- script makes the Makefile
-use 5.004;
-use ExtUtils::MakeMaker;
+use 5.005;
+use inc::Module::Install;
-WriteMakefile(
- VERSION_FROM => 'lib/Authen/SASL.pm',
- NAME => 'Authen::SASL',
-);
+name ('Authen-SASL');
+abstract ('SASL Authentication framework');
+author ('Graham Barr <gb...@po...>');
+version_from ('lib/Authen/SASL.pm');
+license ('perl');
+
+check_nmake(); # check and download nmake.exe for Win32
+
+&Makefile->write;
+&Meta->write;
+
+## - - - - - - - -
+
+sub MY::postamble {
+ return <<'POSTAMBLE';
+
+disttest : distdir_check_sig
+
+distdir_check_sig : distdir
+ cd $(DISTVNAME) && $(PERL) -MModule::Signature=verify -e 'exit verify()'
+
+POSTAMBLE
+
+}
|
|
From: Graham B. <gb...@us...> - 2003-10-17 20:23:25
|
Update of /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl
In directory sc8-pr-cvs1:/tmp/cvs-serv23768/lib/Authen/SASL/Perl
Modified Files:
DIGEST_MD5.pm
Log Message:
Fix typo
Index: DIGEST_MD5.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl/DIGEST_MD5.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- DIGEST_MD5.pm 17 Oct 2003 20:17:20 -0000 1.2
+++ DIGEST_MD5.pm 17 Oct 2003 20:19:14 -0000 1.3
@@ -47,7 +47,7 @@
$sparams{$k} = $v;
}
- return $self->set_error("Bad challenge: '$challenge'"
+ return $self->set_error("Bad challenge: '$challenge'")
if length $challenge;
my %response = (
|
|
From: Graham B. <gb...@us...> - 2003-10-17 20:21:43
|
Update of /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl
In directory sc8-pr-cvs1:/tmp/cvs-serv23315/lib/Authen/SASL/Perl
Modified Files:
DIGEST_MD5.pm
Log Message:
Don't call die in DIGEST_MD5, but call set_error and return an empty list
Index: DIGEST_MD5.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl/DIGEST_MD5.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- DIGEST_MD5.pm 19 May 2003 16:06:04 -0000 1.1
+++ DIGEST_MD5.pm 17 Oct 2003 20:17:20 -0000 1.2
@@ -10,7 +10,7 @@
use vars qw($VERSION @ISA $CNONCE);
use Digest::MD5 qw(md5_hex md5);
-$VERSION = "1.00";
+$VERSION = "1.01";
@ISA = qw(Authen::SASL::Perl);
my %secflags = (
@@ -46,7 +46,9 @@
}
$sparams{$k} = $v;
}
- die $challenge if length $challenge;
+
+ return $self->set_error("Bad challenge: '$challenge'"
+ if length $challenge;
my %response = (
nonce => $sparams{'nonce'},
|
|
From: Graham B. <gb...@us...> - 2003-10-17 20:21:26
|
Update of /cvsroot/perl-ldap/sasl/lib/Authen/SASL
In directory sc8-pr-cvs1:/tmp/cvs-serv23315/lib/Authen/SASL
Modified Files:
Perl.pm
Log Message:
Don't call die in DIGEST_MD5, but call set_error and return an empty list
Index: Perl.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Perl.pm 18 Feb 2002 16:56:58 -0000 1.3
+++ Perl.pm 17 Oct 2003 20:17:20 -0000 1.4
@@ -8,7 +8,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = "1.01";
+$VERSION = "1.02";
my %secflags = (
noplaintext => 1,
@@ -40,11 +40,16 @@
$mpkg[0]->_init($self);
}
-sub code { 0 }
-sub error { '' }
-
+sub code { defined(shift->{error}) || 0 }
+sub error { shift->{error} }
sub service { shift->{service} }
sub host { shift->{host} }
+
+sub set_error {
+ my $self = shift;
+ $self->{error} = shift;
+ return;
+}
# set/get property
sub property {
|
|
From: Graham B. <gb...@us...> - 2003-10-17 20:20:17
|
Update of /cvsroot/perl-ldap/sasl/lib/Authen In directory sc8-pr-cvs1:/tmp/cvs-serv22972/lib/Authen Modified Files: SASL.pod Log Message: Update docs to reflect that client_start and client_step return an emtpy list on error Index: SASL.pod =================================================================== RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL.pod,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -d -r1.1.1.1 -r1.2 --- SASL.pod 24 Jan 2002 12:04:16 -0000 1.1.1.1 +++ SASL.pod 17 Oct 2003 20:16:19 -0000 1.2 @@ -76,12 +76,14 @@ =item client_start -The initial step to be performed. Returns the initial value to pass to the server. +The initial step to be performed. Returns the initial value to pass to the server +or an empty list on error. =item client_step CHALLENGE This method is called when a response from the server requires it. CHALLENGE -is the value from the server. Returns the next value to pass to the server. +is the value from the server. Returns the next value to pass to the server or an +empty list on error. =item property NAME |
|
From: Chris R. <chr...@us...> - 2003-10-12 08:32:07
|
Update of /cvsroot/perl-ldap/ldap/lib/Net In directory sc8-pr-cvs1:/tmp/cvs-serv25003 Modified Files: LDAP.pod Log Message: Added note about escaping filters Index: LDAP.pod =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pod,v retrieving revision 1.33 retrieving revision 1.34 diff -u -d -r1.33 -r1.34 --- LDAP.pod 23 Jun 2003 12:52:24 -0000 1.33 +++ LDAP.pod 12 Oct 2003 08:32:03 -0000 1.34 @@ -535,8 +535,9 @@ A filter that defines the conditions an entry in the directory must meet in order for it to be returned by the search. This may be a string or a -L<Net::LDAP::Filter> object. See L<Net::LDAP::Filter> for a definition of -the filter format. +L<Net::LDAP::Filter> object. Values inside filters may need to be escaped +to avoid security problems; see L<Net::LDAP::Filter> for a definition of +the filter format, including the escaping rules. =item attrs =E<gt> [ ATTR, ... ] |
|
From: Graham B. <gb...@us...> - 2003-10-08 14:29:53
|
Update of /cvsroot/perl-ldap/asn In directory sc8-pr-cvs1:/tmp/cvs-serv3767 Modified Files: ChangeLog Log Message: Release 0.18 Index: ChangeLog =================================================================== RCS file: /cvsroot/perl-ldap/asn/ChangeLog,v retrieving revision 1.23 retrieving revision 1.24 diff -u -d -r1.23 -r1.24 --- ChangeLog 12 May 2003 17:46:15 -0000 1.23 +++ ChangeLog 8 Oct 2003 14:29:46 -0000 1.24 @@ -1,3 +1,21 @@ +2003-10-08 15:29 Graham Barr + + * lib/Convert/ASN1.pm: + + Release 0.18 + +2003-10-08 15:28 Graham Barr + + * MANIFEST, Makefile.PL, t/0-signature.t: + + Use Module::Build to build Makefile and add SIGNATURE + +2003-10-08 13:28 Graham Barr + + * lib/Convert/: ASN1.pm, ASN1/_encode.pm: + + Fix bug in encoding BIT STRINGS where chr() was causing an upgrade to UTF8 + 2003-05-12 18:45 Graham Barr * lib/Convert/ASN1.pm: |
|
From: Graham B. <gb...@us...> - 2003-10-08 14:29:23
|
Update of /cvsroot/perl-ldap/asn/lib/Convert
In directory sc8-pr-cvs1:/tmp/cvs-serv3707/lib/Convert
Modified Files:
ASN1.pm
Log Message:
Release 0.18
Index: ASN1.pm
===================================================================
RCS file: /cvsroot/perl-ldap/asn/lib/Convert/ASN1.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- ASN1.pm 8 Oct 2003 12:28:09 -0000 1.28
+++ ASN1.pm 8 Oct 2003 14:29:17 -0000 1.29
@@ -21,7 +21,7 @@
}
@ISA = qw(Exporter);
- $VERSION = '0.18';
+ $VERSION = "0.18";
%EXPORT_TAGS = (
io => [qw(asn_recv asn_send asn_read asn_write asn_get asn_ready)],
|
|
From: Graham B. <gb...@us...> - 2003-10-08 14:28:13
|
Update of /cvsroot/perl-ldap/asn/t
In directory sc8-pr-cvs1:/tmp/cvs-serv3435/t
Added Files:
0-signature.t
Log Message:
Use Module::Build to build Makefile and add SIGNATURE
--- NEW FILE: 0-signature.t ---
#!/usr/bin/perl
# $File: //member/autrijus/Module-Signature/t/0-signature.t $ $Author: gbarr $
# $Revision: 1.1 $ $Change: 1871 $ $DateTime: 2002/11/03 19:22:02 $
use strict;
use Test::More tests => 1;
SKIP: {
if (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) {
skip("Cannot connect to the keyserver", 1);
}
elsif (!eval { require Module::Signature; 1 }) {
diag("Next time around, consider install Module::Signature,\n".
"so you can verify the integrity of this distribution.\n");
skip("Module::Signature not installed", 1);
}
else {
ok(Module::Signature::verify() == Module::Signature::SIGNATURE_OK()
=> "Valid signature" );
}
}
__END__
|
|
From: Graham B. <gb...@us...> - 2003-10-08 14:28:13
|
Update of /cvsroot/perl-ldap/asn
In directory sc8-pr-cvs1:/tmp/cvs-serv3435
Modified Files:
MANIFEST Makefile.PL
Log Message:
Use Module::Build to build Makefile and add SIGNATURE
Index: MANIFEST
===================================================================
RCS file: /cvsroot/perl-ldap/asn/MANIFEST,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- MANIFEST 12 May 2003 17:45:18 -0000 1.9
+++ MANIFEST 8 Oct 2003 14:28:08 -0000 1.10
@@ -1,11 +1,23 @@
ChangeLog
MANIFEST
+META.yml
Makefile.PL
OldChanges
README
+SIGNATURE
examples/ldap
examples/ldap-search
examples/x509decode
+inc/Module/Install.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Include.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Win32.pm
+inc/Test/Builder.pm
+inc/Test/More.pm
lib/Convert/ASN1.pm
lib/Convert/ASN1.pod
lib/Convert/ASN1/Debug.pm
@@ -15,6 +27,7 @@
lib/Convert/ASN1/parser.pm
mkparse
parser.y
+t/0-signature.t
t/00prim.t
t/01tag.t
t/02seq.t
Index: Makefile.PL
===================================================================
RCS file: /cvsroot/perl-ldap/asn/Makefile.PL,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Makefile.PL 19 Apr 2001 23:00:46 -0000 1.3
+++ Makefile.PL 8 Oct 2003 14:28:08 -0000 1.4
@@ -1,31 +1,32 @@
-# This -*- perl -*- script makes the Makefile
-# $Id$
+# -*- perl -*-
-use 5.004;
-use ExtUtils::MakeMaker;
+use inc::Module::Install;
-my @ppd;
+name('Convert-ASN1');
+abstract('Convert between perl data structures and ASN.1 encoded packets');
+author('Graham Barr <gb...@cp...>');
+version_from('lib/Convert/ASN1.pm');
+license('perl');
-@ppd = (
- AUTHOR => 'Graham Barr <gb...@po...>',
- ABSTRACT => 'Convert between perl data structures and ASN.1 encoded packets',
-) if $] >= 5.00503;
+clean_files(qw(y.tab.pl));
-WriteMakefile(
- VERSION_FROM => 'lib/Convert/ASN1.pm',
- NAME => 'Convert::ASN1',
- clean => { FILES => 'y.tab.pl' },
- @ppd,
-);
+include_deps('Test::More', 5.004);
+
+check_nmake(); # check and download nmake.exe for Win32
+
+&Makefile->write;
+&Meta->write;
sub MY::postamble {
+ return <<POSTAMBLE;
-<<"EDQ";
+distdir : distsign
run_byacc:
\$(PERL) mkparse parser.y lib/Convert/ASN1/parser.pm
-EDQ
+POSTAMBLE
+
}
|
