version 1.14, 2005/12/30 19:26:06 |
version 1.15, 2005/12/30 20:26:41 |
|
|
#!/usr/bin/perl
|
#!/usr/bin/perl
|
# $RedRiver: update_trango.pl,v 1.13 2005/12/30 01:02:41 andrew Exp $
|
# $RedRiver: update_trango.pl,v 1.14 2005/12/30 19:26:06 andrew Exp $
|
########################################################################
|
########################################################################
|
# update_trango.pl *** Updates trango foxes with a new firmware
|
# update_trango.pl *** Updates trango foxes with a new firmware
|
#
|
#
|
|
|
#print Dump $t->sysinfo;
|
#print Dump $t->sysinfo;
|
#print Dump $t->last_lines;
|
#print Dump $t->last_lines;
|
#print Dump $t->ver();
|
#print Dump $t->ver();
|
print Dump $t->tftpd();
|
#print Dump $t->tftpd();
|
print Dump $t->enable_tftpd();
|
#print Dump $t->enable_tftpd();
|
#print Dump [ "Exit", $t->exit ];
|
#print Dump [ "Exit", $t->exit ];
|
print Dump $t->tftpd();
|
#print Dump $t->tftpd();
|
print Dump $t->disable_tftpd();
|
#print Dump $t->disable_tftpd();
|
print Dump $t->tftpd();
|
#print Dump $t->tftpd();
|
|
print Dump $t->sulog(args => 5);
|
#if ( upload($t, $conf->{'file_name'}) ) {
|
#if ( upload($t, $conf->{'file_name'}) ) {
|
# $l->p("Rebooting");
|
# $l->p("Rebooting");
|
# $t->reboot;
|
# $t->reboot;
|