projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
- fixed two argument invocation (modem, script)
[perl-cwmp.git]
/
scripts
/
tcli.pl
diff --git
a/scripts/tcli.pl
b/scripts/tcli.pl
index
eede562
..
037b0d1
100755
(executable)
--- a/
scripts/tcli.pl
+++ b/
scripts/tcli.pl
@@
-5,15
+5,15
@@
use Expect;
use Net::Telnet;
use Data::Dump qw/dump/;
use Net::Telnet;
use Data::Dump qw/dump/;
+die "usage: $0 [modem] commands\n" unless @ARGV;
+
my $modem = '10.0.0.138';
my $modem = '10.0.0.138';
-$modem = shift @ARGV if $#ARGV > 1;
+$modem = shift @ARGV if $#ARGV >
=
1;
my @commands = (
':system config led=flash',
);
my @commands = (
':system config led=flash',
);
-warn "ARGV = ",dump( $ARGV );
-
sub ask {
my ( $prompt, $default ) = @_;
warn "## ask $prompt [default]";
sub ask {
my ( $prompt, $default ) = @_;
warn "## ask $prompt [default]";
@@
-38,6
+38,8
@@
push @commands, ':system config led=off';
my $debug = 0;
my $debug = 0;
+warn "## connecting to $modem\n";
+
my $telnet = new Net::Telnet( $modem ) or die "Cannot telnet to $modem: $!\n";
my $exp = Expect->exp_init($telnet);
$exp->debug( $debug );
my $telnet = new Net::Telnet( $modem ) or die "Cannot telnet to $modem: $!\n";
my $exp = Expect->exp_init($telnet);
$exp->debug( $debug );