NAME

Authen::TacacsPlus - Perl extension for authentication using tacacs+ server

SYNOPSIS

  use Authen::TacacsPlus;

  $tac = new Authen::TacacsPlus(Host=>$server,
			Key=>$key,
			[Port=>'tacacs'],
			[Timeout=>15]);

  $tac->authen($username,$passwords);

  Authen::TacacsPlus::errmsg(); 

  $tac->close();

DESCRIPTION

Authen::TacacsPlus allows you to authenticate using tacacs+ server.

 $tac = new Authen::TacacsPlus(Host=>$server,      
	                Key=>$key,          
                       [Port=>'tacacs'],   
                       [Timeout=>15]);     

Opens new session with tacacs+ server on host $server, encrypted with key $key. Undefined object is returned if something wrong (check errmsg()).

Authen::TacacsPlus::errmsg();

Returns last error message.

$tac->authen($username,$password);

Tries an authentication with $username and $password. 1 is returned if authenticaton succeded and 0 if failed (check errmsg() for reason).

$tac->close();

Closes session with tacacs+ server.

EXAMPLE

use Authen::TacacsPlus;                                             
                                                            
                                                            
$tac = new Authen::TacacsPlus(Host=>'foo.bar.ru',Key=>'9999');  
unless ($tac){                                              
        print "Error: ",Authen::TacacsPlus::errmsg(),"\n";          
        exit(1);                                            
}                                                           
if ($tac->authen('john','johnpass')){                   
        print "Granted\n";                                  
} else {                                                    
        print "Denied: ",Authen::TacacsPlus::errmsg(),"\n";         
}                                                           
$tac->close();                                              

AUTHOR

Mike Shoyher, msh@corbina.net, msh@apache.lexa.ru

BUGS

only authentication is supported

only one session may be active (you have to close one session before opening another one)

SEE ALSO

perl(1).