From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 30 Oct 2007 14:45:17 +0000 (+0000)
Subject: - fixed two argument invocation (modem, script)
X-Git-Url: http://git.rot13.org/?p=perl-cwmp.git;a=commitdiff_plain;h=b5bf342fe1f1110abd2d17fba876afd46da8598c

- fixed two argument invocation (modem, script)
- added usage when called without args

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@180 836a5e1a-633d-0410-964b-294494ad4392
---

diff --git a/scripts/tcli.pl b/scripts/tcli.pl
index eede562..037b0d1 100755
--- a/scripts/tcli.pl
+++ b/scripts/tcli.pl
@@ -5,15 +5,15 @@ use Expect;
 use Net::Telnet;
 use Data::Dump qw/dump/;
 
+die "usage: $0 [modem] commands\n" unless @ARGV;
+
 my $modem = '10.0.0.138';
-$modem = shift @ARGV if $#ARGV > 1;
+$modem = shift @ARGV if $#ARGV >= 1;
 
 my @commands = (
 ':system config led=flash',
 );
 
-warn "ARGV = ",dump( $ARGV );
-
 sub ask {
 	my ( $prompt, $default ) = @_;
 	warn "## ask $prompt [default]";
@@ -38,6 +38,8 @@ 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";
 my $exp = Expect->exp_init($telnet);
 $exp->debug( $debug );