Radius authentication

[A.L.M.Buxey at lboro.ac.uk]

Hi,

> 
> use Authen::Radius;
> 
> my $username = shift;
> my $password = shift;
> 
> my $r = new Authen::Radius(Host => 'myserver', Secret => 'mysecret');
> my $result = $r->check_pwd($username, $password);
> 
> exit ($result == 1) ? 0 : 1;
> 
> I thought this should pass all the relevant radius parametres to the module. Do I need to add the radius server and secret anywhere else in the perl module? (never used perl module before).

what do the logs from the RADIUS server say and show?  WHY is it failing?  
this is only one half of the equation

alan