projects
/
perl-cwmp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
hush some debugging
[perl-cwmp.git]
/
scripts
/
tcli.pl
diff --git
a/scripts/tcli.pl
b/scripts/tcli.pl
index
037b0d1
..
45456e3
100755
(executable)
--- a/
scripts/tcli.pl
+++ b/
scripts/tcli.pl
@@
-10,6
+10,8
@@
die "usage: $0 [modem] commands\n" unless @ARGV;
my $modem = '10.0.0.138';
$modem = shift @ARGV if $#ARGV >= 1;
my $modem = '10.0.0.138';
$modem = shift @ARGV if $#ARGV >= 1;
+my $debug = 0;
+
my @commands = (
':system config led=flash',
);
my @commands = (
':system config led=flash',
);
@@
-28,16
+30,14
@@
while(<>) {
chomp;
next if (/^#/ || /^\s*$/);
my $l = $_;
chomp;
next if (/^#/ || /^\s*$/);
my $l = $_;
- warn "--$_--";
+ warn "--$_--"
if $debug
;
$l =~ s/ask\(([^|\)]+)(?:\|([^\)]+))?\)/ask($1,$2)/eg;
$l =~ s/ask\(([^|\)]+)(?:\|([^\)]+))?\)/ask($1,$2)/eg;
- warn "++ $l\n";
+ warn "++ $l\n"
if $debug
;
push @commands, $l;
}
push @commands, ':system config led=off';
push @commands, $l;
}
push @commands, ':system config led=off';
-my $debug = 0;
-
warn "## connecting to $modem\n";
my $telnet = new Net::Telnet( $modem ) or die "Cannot telnet to $modem: $!\n";
warn "## connecting to $modem\n";
my $telnet = new Net::Telnet( $modem ) or die "Cannot telnet to $modem: $!\n";