/[cwmp]/google/trunk/scripts/tcli.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /google/trunk/scripts/tcli.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

google/tcli.pl revision 4 by dpavlin, Sat May 19 15:54:04 2007 UTC google/trunk/scripts/tcli.pl revision 181 by dpavlin, Tue Oct 30 14:45:17 2007 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use Expect;  use Expect;
5  use Net::Telnet;  use Net::Telnet;
6    use Data::Dump qw/dump/;
7    
8    die "usage: $0 [modem] commands\n" unless @ARGV;
9    
10    my $modem = '10.0.0.138';
11    $modem = shift @ARGV if $#ARGV >= 1;
12    
 my $modem = '192.168.1.254';  
13  my @commands = (  my @commands = (
14  ':system config led=flash',  ':system config led=flash',
15  );  );
16    
17    sub ask {
18            my ( $prompt, $default ) = @_;
19            warn "## ask $prompt [default]";
20            print "$prompt [$default] ";
21            my $in = <STDIN>;
22            chomp($in);
23            $in = $default unless length($in) > 1;
24            return $in;
25    }
26    
27  while(<>) {  while(<>) {
28          chomp;          chomp;
29          next if (/^#/ || /^\s*$/);          next if (/^#/ || /^\s*$/);
30          push @commands, $_;          my $l = $_;
31            warn "--$_--";
32            $l =~ s/ask\(([^|\)]+)(?:\|([^\)]+))?\)/ask($1,$2)/eg;
33            warn "++ $l\n";
34            push @commands, $l;
35  }  }
36    
37  push @commands, ':system config led=off';  push @commands, ':system config led=off';
38    
39  my $debug = 0;  my $debug = 0;
40    
41    warn "## connecting to $modem\n";
42    
43  my $telnet = new Net::Telnet( $modem ) or die "Cannot telnet to $modem: $!\n";  my $telnet = new Net::Telnet( $modem ) or die "Cannot telnet to $modem: $!\n";
44  my $exp = Expect->exp_init($telnet);  my $exp = Expect->exp_init($telnet);
45  $exp->debug( $debug );  $exp->debug( $debug );
# Line 26  $exp->debug( $debug ); Line 47  $exp->debug( $debug );
47  $exp->log_stdout( 1 );  $exp->log_stdout( 1 );
48    
49  my ( $username, $password ) = ('Administrator','');  my ( $username, $password ) = ('Administrator','');
50  my $timeout = 10;  my $timeout = 3;
51    
52  $exp->expect($timeout, 'Username : ');  $exp->expect($timeout, 'Username : ');
53  $exp->send("$username\r\n");  $exp->send("$username\r\n");
Legend:
Removed from v.4  
changed lines
  Added in v.181
  ViewVC Help
Powered by ViewVC 1.1.26