trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm - diff

Return to Trango.pm CVS log

Up to [local] / trango / Net-Telnet-Trango / lib / Net / Telnet

Diff for /trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm between version 1.18 and 1.20

version 1.18, 2006/09/12 03:13:08

version 1.20, 2006/09/12 03:20:39

Line 1

package Net::Telnet::Trango;

# $RedRiver: Trango.pm,v 1.17 2006/09/12 01:17:46 andrew Exp $

# $RedRiver: Trango.pm,v 1.19 2006/09/12 02:16:43 andrew Exp $

use strict;

use warnings;

use base 'Net::Telnet';

Line 28

Perl access to the telnet interface on Trango Foxes, SUs and APs.

Another handy feature is that it will parse the output from certain commands that is in the format "[key1] value1 [key2] value2" and put those in a hashref that is returned. This makes using the output from things like sysinfo very easy to do.

Another handy feature is that it will parse the output from certain

commands that is in the format "[key1] value1 [key2] value2" and put

those in a hashref that is returned. This makes using the output from

things like sysinfo very easy to do.

=head2 EXPORT

Line 192

Line 195

=item login_banner

returns the banner that is displayed when first connected at login. Only set after a successful open()

returns the banner that is displayed when first connected at login.

Only set after a successful open()

This is usually only set internally

Line 219

Line 223

=head2 COMMANDS

Most of these are just shortcuts to C<cmd(String =E<gt> METHOD)>, as such they accept the same options as C<cmd()>. Specifically they take a named paramater "args", for example:

Most of these are just shortcuts to C<cmd(String =E<gt> METHOD)>,

as such they accept the same options as C<cmd()>.

Specifically they take a named paramater "args", for example:

C<tftpd(args =E<gt> 'on')> would enable tftpd

=over

Line 364

Line 370

=item open

Calls Net::Telnet::open() then makes sure you get a password prompt so you are ready to login() and parses the login banner so you can get host_type() and firmware_version()

Calls Net::Telnet::open() then makes sure you get a password prompt so

you are ready to login() and parses the login banner so you can get

host_type() and firmware_version()

=cut

Line 398

Line 406

=item login

Calls open() if not already connected, then sends the password and sets logged_in() if successful

Calls open() if not already connected, then sends the password and sets

logged_in() if successful

=cut

Line 430

Line 439

=item parse_login_banner

Takes a login banner (what you get when you first connect to the Trango) or reads what is already in login_banner() then parses it and sets host_type() and firmware_version() as well as login_banner()

Takes a login banner (what you get when you first connect to the Trango)

or reads what is already in login_banner() then parses it and sets

host_type() and firmware_version() as well as login_banner()

=cut

Line 747

Line 758

=item cmd

This does most of the work. At the heart, it calls Net::Telnet::cmd() but it also does some special stuff for Trango.

This does most of the work. At the heart, it calls Net::Telnet::cmd()

but it also does some special stuff for Trango.

Normally returns the last lines from from the command

Also accepts these options:

I<decode>

- if this is true, then it will send the output lines to _decode_lines() and then returns the decoded output

- if this is true, then it will send the output lines to _decode_lines()

and then returns the decoded output

I<cmd_disconnects>

- if this is true, it then sets logged_in() to false, then it will close() the connection and then sets is_connected() to false

- if this is true, it then sets logged_in() to false, then it will

close() the connection and then sets is_connected() to false

I<expect>

- if this is set (usually to 'Success.') it will check for that in the last line of output and if it does not, will return undef because the command probably failed

- if this is set (usually to 'Success.') it will check for that in the

last line of output and if it does not, will return undef because the

command probably failed

I<args>

- a string containing the command line options that are passed to the command

- a string containing the command line options that are passed to the

command

=cut

Line 1036

Line 1053

=head1 SEE ALSO

Trango Documentation - http://www.trangobroadband.com/support/product_docs.htm

Trango Documentation -

http://www.trangobroadband.com/support/product_docs.htm

L<Net::Telnet>

=head1 TODO

There are still a lot of commands that are not accessed directly. If you call them (as cmd("command + args") or whatever) and it works, please send me examples that work and I will try to get it incorporated into the next version of the script.

There are still a lot of commands that are not accessed directly. If

you call them (as cmd("command + args") or whatever) and it works,

please send me examples that work and I will try to get it incorporated

into the next version of the script.

I also want to be able to parse the different types of output from commands like su, sudb all and anything else that would be better available as a perl datastructure.

I also want to be able to parse the different types of output from

commands like su, sudb all and anything else that would be better

available as a perl datastructure.

=head1 AUTHOR

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>