trango/Net-Telnet-Trango/scripts/update_trango.pl - diff

Return to update_trango.pl CVS log

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

version 1.28, 2007/02/02 22:37:24

version 1.29, 2007/02/05 16:37:20

Line 1

#!/usr/bin/perl

# $RedRiver: update_trango.pl,v 1.27 2007/02/02 21:36:00 andrew Exp $

# $RedRiver: update_trango.pl,v 1.28 2007/02/02 22:37:24 andrew Exp $

########################################################################

# update_trango.pl *** Updates trango hosts with a new firmware

Line 88

$l->sp("Getting sudb");

my $sudb = $t->sudb_view;

if ($sudb) {

$t->su_password($password);

foreach my $su (@{ $sudb }) {

$l->p("Getting su info $su->{suid}");

my $su_info = $t->su_info( $su->{suid} );