r5061 - in /packages/libauthen-radius-perl/trunk: Changes README
Radius.pm
debian/changelog debian/control debian/patches/02_use_dumper.dpatch
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Fri Apr 13 19:57:40 UTC 2007
Author: gregoa-guest
Date: Fri Apr 13 19:57:40 2007
New Revision: 5061
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5061
Log:
* New upstream release.
* Set Standards-Version to 3.7.2 (no changes).
* Adjust patch 02_use_dumper.
Modified:
packages/libauthen-radius-perl/trunk/Changes
packages/libauthen-radius-perl/trunk/README
packages/libauthen-radius-perl/trunk/Radius.pm
packages/libauthen-radius-perl/trunk/debian/changelog
packages/libauthen-radius-perl/trunk/debian/control
packages/libauthen-radius-perl/trunk/debian/patches/02_use_dumper.dpatch
Modified: packages/libauthen-radius-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-radius-perl/trunk/Changes?rev=5061&op=diff
==============================================================================
--- packages/libauthen-radius-perl/trunk/Changes (original)
+++ packages/libauthen-radius-perl/trunk/Changes Fri Apr 13 19:57:40 2007
@@ -1,4 +1,9 @@
Revision history for Perl extension Radius.
+
+0.13 Mon Feb 19 22:09:00 2006
+ - Packet-of-disconnect support (thanks to Kostas Kalevras for
+ the patch)
+ - Print hexdump of packets to STDERR (thanks to Kevin Steves)
0.12 Fri Dec 17 19:00:00 2004
- Include the default set of radius dictionaries with the module,
Modified: packages/libauthen-radius-perl/trunk/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-radius-perl/trunk/README?rev=5061&op=diff
==============================================================================
--- packages/libauthen-radius-perl/trunk/README (original)
+++ packages/libauthen-radius-perl/trunk/README Fri Apr 13 19:57:40 2007
@@ -1,4 +1,4 @@
-This is RadiusPerl version 0.11. RadiusPerl is a Perl 5 module (Radius.pm)
+This is RadiusPerl version 0.13. RadiusPerl is a Perl 5 module (Radius.pm)
which allows you to communicate with a Radius server from Perl. You can
just authenticate usernames/passwords via Radius, or comletely imitate
AAA requests and process server response.
Modified: packages/libauthen-radius-perl/trunk/Radius.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-radius-perl/trunk/Radius.pm?rev=5061&op=diff
==============================================================================
--- packages/libauthen-radius-perl/trunk/Radius.pm (original)
+++ packages/libauthen-radius-perl/trunk/Radius.pm Fri Apr 13 19:57:40 2007
@@ -7,12 +7,12 @@
# policy. #
# #
# Modified by Olexander Kapitanenko <kapitan at portaone.com>, #
-# Andrew Zhilenko <andrew at portaone.com>, 2002-2004. #
+# Andrew Zhilenko <andrew at portaone.com>, 2002-2007. #
# #
# See the file 'Changes' in the distrution archive. #
# #
#############################################################################
-# $Id: Radius.pm,v 1.16 2004/12/18 04:46:44 andrew Exp $
+# $Id: Radius.pm,v 1.17 2007/02/20 06:15:04 andrew Exp $
package Authen::Radius;
@@ -30,8 +30,9 @@
@ISA = qw(Exporter);
@EXPORT = qw(ACCESS_REQUEST ACCESS_ACCEPT ACCESS_REJECT
- ACCOUNTING_REQUEST ACCOUNTING_RESPONSE ACCOUNTING_STATUS);
-$VERSION = '0.12';
+ ACCOUNTING_REQUEST ACCOUNTING_RESPONSE ACCOUNTING_STATUS
+ DISCONNECT_REQUEST);
+$VERSION = '0.13';
my (%dict_id, %dict_name, %dict_val, %dict_vendor_id, %dict_vendor_name );
my ($request_id) = $$ & 0xff; # probably better than starting from 0
@@ -53,6 +54,7 @@
use constant ACCOUNTING_REQUEST => 4;
use constant ACCOUNTING_RESPONSE => 5;
use constant ACCOUNTING_STATUS => 6;
+use constant DISCONNECT_REQUEST => 40;
sub new {
my $class = shift;
@@ -102,7 +104,7 @@
my $length = 20 + length($self->{'attributes'});
$self->set_error;
- if ($type == ACCOUNTING_REQUEST) {
+ if ($type == ACCOUNTING_REQUEST || $type == DISCONNECT_REQUEST) {
$self->{'authenticator'} = "\0" x 16;
$self->{'authenticator'} =
$self->calc_authenticator($type, $request_id, $length)
@@ -114,7 +116,7 @@
$request_id = ($request_id + 1) & 0xff;
if ($debug) {
print STDERR "Sending request:\n";
- print HexDump $data;
+ print STDERR HexDump($data);
}
$self->{'sock'}->send ($data) || $self->set_error('ESENDFAIL');
}
@@ -131,7 +133,7 @@
$self->{'sock'}->recv ($data, 65536) or return $self->set_error('ERECVFAIL');
if ($debug) {
print STDERR "Received response:\n";
- print HexDump $data;
+ print STDERR HexDump($data);
}
($type, $id, $length, $auth, $self->{'attributes'}) = unpack('C C n a16 a*', $data);
return $self->set_error('EBADAUTH') if $auth ne $self->calc_authenticator($type, $id, $length);
@@ -523,7 +525,8 @@
Packs up a Radius packet based on the current secret & attributes and
sends it to the server with a Request type of C<REQUEST_TYPE>. Exported
C<REQUEST_TYPE> methods are 'C<ACCESS_REQUEST>', 'C<ACCESS_ACCEPT>' ,
-'C<ACCESS_REJECT>', 'C<ACCOUNTING_REQUEST>' and 'C<ACCOUNTING_RESPONSE>'.
+'C<ACCESS_REJECT>', 'C<ACCOUNTING_REQUEST>', 'C<ACCOUNTING_RESPONSE>',
+and 'C<DISCONNECT_REQUEST>'.
Returns the number of bytes sent, or undef on failure.
=item recv_packet
Modified: packages/libauthen-radius-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-radius-perl/trunk/debian/changelog?rev=5061&op=diff
==============================================================================
--- packages/libauthen-radius-perl/trunk/debian/changelog (original)
+++ packages/libauthen-radius-perl/trunk/debian/changelog Fri Apr 13 19:57:40 2007
@@ -1,3 +1,11 @@
+libauthen-radius-perl (0.13-1) unstable; urgency=low
+
+ * New upstream release.
+ * Set Standards-Version to 3.7.2 (no changes).
+ * Adjust patch 02_use_dumper.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Fri, 13 Apr 2007 21:57:25 +0200
+
libauthen-radius-perl (0.12-2) unstable; urgency=low
* Adopt the package for the Debian Perl Group. (Closes: #314851)
Modified: packages/libauthen-radius-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-radius-perl/trunk/debian/control?rev=5061&op=diff
==============================================================================
--- packages/libauthen-radius-perl/trunk/debian/control (original)
+++ packages/libauthen-radius-perl/trunk/debian/control Fri Apr 13 19:57:40 2007
@@ -2,8 +2,8 @@
Section: perl
Priority: extra
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Niko Tyni <ntyni at iki.fi>
-Standards-Version: 3.6.2
+Uploaders: Niko Tyni <ntyni at iki.fi>, gregor herrmann <gregor+debian at comodo.priv.at>
+Standards-Version: 3.7.2
XS-Vcs-Svn: svn://svn.debian.org/pkg-perl/packages/libauthen-radius-perl/trunk/
Build-Depends: debhelper (>= 5), dpatch (>= 2.0.9)
Modified: packages/libauthen-radius-perl/trunk/debian/patches/02_use_dumper.dpatch
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-radius-perl/trunk/debian/patches/02_use_dumper.dpatch?rev=5061&op=diff
==============================================================================
--- packages/libauthen-radius-perl/trunk/debian/patches/02_use_dumper.dpatch (original)
+++ packages/libauthen-radius-perl/trunk/debian/patches/02_use_dumper.dpatch Fri Apr 13 19:57:40 2007
@@ -18,20 +18,20 @@
use vars qw($VERSION @ISA @EXPORT);
-@@ -114,7 +113,7 @@
+@@ -116,7 +115,7 @@
$request_id = ($request_id + 1) & 0xff;
if ($debug) {
print STDERR "Sending request:\n";
-- print HexDump $data;
+- print STDERR HexDump($data);
+ print STDERR Data::Dumper::Dumper($data);
}
$self->{'sock'}->send ($data) || $self->set_error('ESENDFAIL');
}
-@@ -131,7 +130,7 @@
+@@ -133,7 +132,7 @@
$self->{'sock'}->recv ($data, 65536) or return $self->set_error('ERECVFAIL');
if ($debug) {
print STDERR "Received response:\n";
-- print HexDump $data;
+- print STDERR HexDump($data);
+ print STDERR Data::Dumper::Dumper($data);
}
($type, $id, $length, $auth, $self->{'attributes'}) = unpack('C C n a16 a*', $data);
More information about the Pkg-perl-cvs-commits
mailing list