| 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;
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to update_trango.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / trango / Net-Telnet-Trango / scripts