[BACK]Return to Trango.pm CVS log [TXT][DIR] Up to [local] / trango / Net-Telnet-Trango / lib / Net / Telnet

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

version 1.20, 2006/09/12 03:20:39 version 1.24, 2007/01/17 19:00:51
Line 1 
Line 1 
 package Net::Telnet::Trango;  package Net::Telnet::Trango;
 # $RedRiver: Trango.pm,v 1.19 2006/09/12 02:16:43 andrew Exp $  # $RedRiver: Trango.pm,v 1.23 2007/01/08 22:16:29 mike Exp $
 use strict;  use strict;
 use warnings;  use warnings;
 use base 'Net::Telnet';  use base 'Net::Telnet';
Line 14 
Line 14 
   
   use Net::Telnet::Trango;    use Net::Telnet::Trango;
   my $t = new Net::Telnet::Trango ( Timeout => 5 );    my $t = new Net::Telnet::Trango ( Timeout => 5 );
   
   $t->open( Host => $fox ) or die "Error connecting: $!";    $t->open( Host => $fox ) or die "Error connecting: $!";
   
   $t->login('password') or die "Couldn't log in: $!";    $t->login('password') or die "Couldn't log in: $!";
   
   # Do whatever    # Do whatever
   
   $t->exit;    $t->exit;
   $t->close;    $t->close;
   
Line 37 
Line 37 
   
 None  None
   
   =head1 METHODS
   
   =over
   
 =cut  =cut
   
 our $VERSION = '0.01';  our $VERSION = '0.01';
Line 160 
Line 164 
   
 =pod  =pod
   
 =head1 METHODS  =back
   
 =head2 ACCESSORS  =head2 ACCESSORS
   
Line 314 
Line 318 
   eth_link    => { String => 'eth link', expect => $success },    eth_link    => { String => 'eth link', expect => $success },
   su_info     => { String => 'su info', decode => 'all', expect => $success },    su_info     => { String => 'su info', decode => 'all', expect => $success },
   save_ss     => { String => 'save ss', expect => $success },    save_ss     => { String => 'save ss', expect => $success },
     opmode      => { decode => 'all',   expect => $success },
   # eth r, w and reset???    # eth r, w and reset???
   #su password???    #su password???
   #_bootloader    #_bootloader
Line 469 
Line 474 
   
 =item su_password  =item su_password
   
 C<su_password('all'|suid, 'new_password')>  C<su_password('new_password'[, 'suid'])> If no suid is specified,
   the default is "all".
   
 =cut  =cut
   
 sub su_password  sub su_password
 {  {
   my $self     = shift;    my $self     = shift;
   my $su       = shift || '!';  
   my $new_pass = shift || '';    my $new_pass = shift || '';
     my $su       = shift || 'all';
   unless (defined $su) {  
     warn "No su passed!"  
     #return undef;  
   }  
   
   unless (defined $new_pass) {    unless (defined $new_pass) {
     warn "No new password!"      warn "No new password!"
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.24
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>