6 use Data::Dump qw/dump/;
8 my $modem = '10.0.0.138';
9 $modem = shift @ARGV if $#ARGV > 1;
12 ':system config led=flash',
15 warn "ARGV = ",dump( $ARGV );
18 my ( $prompt, $default ) = @_;
19 warn "## ask $prompt [default]";
20 print "$prompt [$default] ";
23 $in = $default unless length($in) > 1;
29 next if (/^#/ || /^\s*$/);
32 $l =~ s/ask\(([^|\)]+)(?:\|([^\)]+))?\)/ask($1,$2)/eg;
37 push @commands, ':system config led=off';
41 my $telnet = new Net::Telnet( $modem ) or die "Cannot telnet to $modem: $!\n";
42 my $exp = Expect->exp_init($telnet);
43 $exp->debug( $debug );
45 $exp->log_stdout( 1 );
47 my ( $username, $password ) = ('Administrator','');
50 $exp->expect($timeout, 'Username : ');
51 $exp->send("$username\r\n");
52 $exp->expect($timeout, 'Password :');
53 $exp->send("$password\r\n");
54 $exp->expect($timeout, '=>');
56 foreach my $cmd ( @commands ) {
57 $exp->send( "$cmd\r\n" );
58 $exp->expect($timeout, '=>');
61 $exp->send( "exit\r\n" );