NAME

Net::TacacsPlus::Client - Tacacs+ client library

SYNOPSIS

use Net::TacacsPlus::Client;
use Net::TacacsPlus::Constants;

my $tac = new Net::TacacsPlus::Client(
			host => 'localhost',
			key => 'secret');

if ($tac->authenticate($username, $password, TAC_PLUS_AUTHEN_TYPE_PAP)){                   
	print "Granted\n";                                  
} else {                                                    
	print "Denied: ".$tac->{'errmsg'}."\n";         
}                                                           

DESCRIPTION

Currently only PAP and ASCII authentication can be used agains Tacacs+ server.

AUTHOR

Jozef Kutej - jozef.kutej@hp.com

BUGS

not known

SEE ALSO

tac-rfc.1.76.txt, Net::TacacsPlus::Packet

TODO

tacacs+ CHAP, ARAP, MSCHAP authentication
tacacs+ authorization
tacacs+ accounting

METHODS

new( somekey => somevalue )

required parameters: host, key

host	- tacacs server
key	- ecryption secret

optional parameters: timeout, port

timeout	- tcp timeout
port	- tcp port

authenticate(username, password, authen_type)

username - tacacs+ username password - tacacs+ user password authen_type - TAC_PLUS_AUTHEN_TYPE_ASCII | TAC_PLUS_AUTHEN_TYPE_PAP

COPYRIGHT AND LICENSE

Copyright (C) 2006 by Jozef Kutej

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.4 or, at your option, any later version of Perl 5 you may have available.