On Thu, Jun 24, 2004 at 01:30:54PM +0900, Masaaki Nakamura wrote:
> Thanks for your response.
> I tried as you said.
Oh well, it was just a guess.
Now that I had some time to look at it: the real problem is a small
incompatibility with my (older) version of Authen::Radius and yours.
This patch should fix it:
--- lib/probes/Radius.pm Tue Mar 9 22:40:34 2004
+++ lib/probes/Radius.pm.new Thu Jun 24 10:28:25 2004
@@ -146,8 +146,8 @@
for (1..$self->{cfg}{Database}{pings}) {
my $r = new Authen::Radius(Host => $host, Secret => $secret);
$r->add_attributes(
- { Name => 1, Value => $username },
- { Name => 2, Value => $password },
+ { Name => 1, Value => $username , Type => 'string'},
+ { Name => 2, Value => $password , Type => 'string'},
);
$r->add_attributes( { Name => 4, Type => 'ipaddr', Value =>
$vars->{nas_ip_address} })
if exists $vars->{nas_ip_address};
Try it and let me know if it helps.
Regards,
--
Niko Tyni [EMAIL PROTECTED]
--
Unsubscribe mailto:[EMAIL PROTECTED]
Help mailto:[EMAIL PROTECTED]
Archive http://www.ee.ethz.ch/~slist/smokeping-users
WebAdmin http://www.ee.ethz.ch/~slist/lsg2.cgi
