we used a radius that worked with a mysql database:
#!/usr/bin/perl
# This file was originally a test.pl file for the icradius
use Authen::Radius;
# Insert your test code below (better if it prints "ok 13"
# (correspondingly "not ok 13") depending on the success of chunk 13
# of the test code):
#$host="hostname";
$secret="radius-secret";
$user="admin";
$pwd="admin";
$exitval = 0;
foreach $host (@ARGV) {
$r = new Authen::Radius(Host => $host, Secret => $secret);
if( ! $r->check_pwd($user, $pwd) ) {
print "$host \n ";
$exitval = 1;
}
}
exit $exitval;
Andrew Ryan wrote:
>
> Based on the amount of complaints I've heard about this radius monitor, I'm
> about to call BS on it. Does anyone have a simpler, perl-based one that
> works? We used a simple Authen::Radius-based monitor at my former job that
> worked fine, and I can try to get the source/permissions for it.
>
> andrew
>
> At 03:32 PM 8/6/01 -0700, John Himmelberger wrote:
> >Hello everyone,
> >
> >I am using the radius.monitor script that was availible from
> >(ftp://ftp.kernel.org/pub/software/admin/mon/contrib/monitors/radius/radius.
> >monitor)
> >Authen::Radius has been installed.
> >
> >I get the following output when using the radius.monitor script:
> >failed for user username: timed out waiting for packet
> >
> >Any Ideas?
> >
> >------------------------------------
> >John Himmelberger
> >[EMAIL PROTECTED]
--
system engineering +43-1-718-98-80
CUBiT IT Solutions http://www.cubit.at
