r66158 - in /trunk/libauthen-radius-perl/debian: changelog patches/01_radius_port.patch patches/02_use_dumper.patch
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri Dec 24 04:34:49 UTC 2010
Author: jawnsy-guest
Date: Fri Dec 24 04:34:42 2010
New Revision: 66158
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=66158
Log:
* RADIUS port patch is now a documentation fix only
* Refresh patch to use Data::Dumper instead of HexDump
Modified:
trunk/libauthen-radius-perl/debian/changelog
trunk/libauthen-radius-perl/debian/patches/01_radius_port.patch
trunk/libauthen-radius-perl/debian/patches/02_use_dumper.patch
Modified: trunk/libauthen-radius-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-radius-perl/debian/changelog?rev=66158&op=diff
==============================================================================
--- trunk/libauthen-radius-perl/debian/changelog (original)
+++ trunk/libauthen-radius-perl/debian/changelog Fri Dec 24 04:34:42 2010
@@ -8,6 +8,8 @@
+ Now supports multiple RADIUS servers (i.e. a cluster)
* Standards-Version 3.9.1 (no changes)
* Use new 3.0 (quilt) source format
+ * RADIUS port patch is now a documentation fix only
+ * Refresh patch to use Data::Dumper instead of HexDump
[ gregor herrmann ]
* debian/rules: switch order of arguments to dh.
Modified: trunk/libauthen-radius-perl/debian/patches/01_radius_port.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-radius-perl/debian/patches/01_radius_port.patch?rev=66158&op=diff
==============================================================================
--- trunk/libauthen-radius-perl/debian/patches/01_radius_port.patch (original)
+++ trunk/libauthen-radius-perl/debian/patches/01_radius_port.patch Fri Dec 24 04:34:42 2010
@@ -1,21 +1,12 @@
-Author: Stephen Quinney <sjq at debian.org>
Description: Change de standard radius port
The standard radius port on Debian is 1812 rather than 1645 which is
now "old-radius".
-Reviewed-by: Italo Valcy <italo at dcc.ufba.br>
-Last-Update: 2009-08-30
+ .
+ This patch is now a simple documentation fix (the default upstream
+ has now been changed to 1645).
--- a/Radius.pm
+++ b/Radius.pm
-@@ -81,7 +81,7 @@
- $port = getservbyname($service, 'udp') unless $port;
-
- unless ($port) {
-- my %services = ( radius => 1645, radacct => 1646,
-+ my %services = ( radius => 1812, radacct => 1646,
- 'radius-acct' => 1813 );
- if (exists($services{$service})) {
- $port = $services{$service};
-@@ -605,7 +605,7 @@
+@@ -879,7 +879,7 @@
The default C<Service> is C<radius>, the alternative is C<radius-acct>.
If you do not specify port in the C<Host> as a C<hostname:port>, then port
specified in your F</etc/services> will be used. If there is nothing
Modified: trunk/libauthen-radius-perl/debian/patches/02_use_dumper.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-radius-perl/debian/patches/02_use_dumper.patch?rev=66158&op=diff
==============================================================================
--- trunk/libauthen-radius-perl/debian/patches/02_use_dumper.patch (original)
+++ trunk/libauthen-radius-perl/debian/patches/02_use_dumper.patch Fri Dec 24 04:34:42 2010
@@ -2,11 +2,11 @@
Description: This removes the dependency on Data::HexDump
Data::HexDump was being used exclusively for debugging purposes. It is
switched instead to using Data::Dumper (which is a core Perl module).
-Reviewed-by: Italo Valcy <italo at dcc.ufba.br>
-Last-Update: 2009-08-30
+Reviewed-by: Italo Valcy <italo at dcc.ufba.br>, Jonathan Yu <jawnsy at cpan.org>
+Last-Update: 2010-12-23
--- a/Radius.pm
+++ b/Radius.pm
-@@ -22,7 +22,6 @@
+@@ -23,7 +23,6 @@
use IO::Select;
use Digest::MD5;
use Data::Dumper;
@@ -14,24 +14,24 @@
use vars qw($VERSION @ISA @EXPORT);
-@@ -153,7 +152,7 @@
+@@ -207,7 +206,7 @@
if ($debug) {
print STDERR "Sending request:\n";
- print STDERR HexDump($data);
+ print STDERR Data::Dumper::Dumper($data);
}
- $self->{'sock'}->send($data) || $self->set_error('ESENDFAIL', $!);
- }
-@@ -170,7 +169,7 @@
- $self->{'sock'}->recv ($data, 65536) or return $self->set_error('ERECVFAIL', $!);
- if ($debug) {
- print STDERR "Received response:\n";
+ my $res;
+ if (!defined($self->{'node_list_a'})) {
+@@ -278,7 +277,7 @@
+
+ if ($debug) {
+ print STDERR "Received response:\n";
- print STDERR HexDump($data);
+ print STDERR Data::Dumper::Dumper($data);
}
- ($type, $id, $length, $auth, $resp_attributes ) = unpack('C C n a16 a*', $data);
- if ($detect_bad_id && defined($id) && ($id != $request_id) ) {
+
+ if (defined($self->{'sock_list'})) {
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -8,7 +8,6 @@
More information about the Pkg-perl-cvs-commits
mailing list