cwmp/google/tcli.pl

#!/usr/bin/perl -w

use strict;
use Expect;
use Net::Telnet;

my $modem = '192.168.1.254';
my @commands = (
':system config led=flash',
);

while(<>) {
        chomp;
        next if (/^#/ || /^\s*$/);
        push @commands, $_;
}

push @commands, ':system config led=off';

my $debug = 0;

my $telnet = new Net::Telnet( $modem ) or die "Cannot telnet to $modem: $!\n";
my $exp = Expect->exp_init($telnet);
$exp->debug( $debug );

$exp->log_stdout( 1 );

my ( $username, $password ) = ('Administrator','');
my $timeout = 10;

$exp->expect($timeout, 'Username : ');
$exp->send("$username\r\n");
$exp->expect($timeout, 'Password :');
$exp->send("$password\r\n");
$exp->expect($timeout, '=>');

foreach my $cmd ( @commands ) {
        $exp->send( "$cmd\r\n" );
        $exp->expect($timeout, '=>');
}

$exp->send( "exit\r\n" );
$exp->soft_close();

1	#!/usr/bin/perl -w
2
3	use strict;
4	use Expect;
5	use Net::Telnet;
6
7	my $modem = '192.168.1.254';
8	my @commands = (
9	':system config led=flash',
10	);
11
12	while(<>) {
13	chomp;
14	next if (/^#/ \|\| /^\s*$/);
15	push @commands, $_;
16	}
17
18	push @commands, ':system config led=off';
19
20	my $debug = 0;
21
22	my $telnet = new Net::Telnet( $modem ) or die "Cannot telnet to $modem: $!\n";
23	my $exp = Expect->exp_init($telnet);
24	$exp->debug( $debug );
25
26	$exp->log_stdout( 1 );
27
28	my ( $username, $password ) = ('Administrator','');
29	my $timeout = 10;
30
31	$exp->expect($timeout, 'Username : ');
32	$exp->send("$username\r\n");
33	$exp->expect($timeout, 'Password :');
34	$exp->send("$password\r\n");
35	$exp->expect($timeout, '=>');
36
37	foreach my $cmd ( @commands ) {
38	$exp->send( "$cmd\r\n" );
39	$exp->expect($timeout, '=>');
40	}
41
42	$exp->send( "exit\r\n" );
43	$exp->soft_close();
44