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 @commands = (
':system config led=flash',
);
my @commands = (
':system config led=flash',
);
chomp;
next if (/^#/ || /^\s*$/);
my $l = $_;
chomp;
next if (/^#/ || /^\s*$/);
my $l = $_;
+ warn "--$_--" if $debug;
$l =~ s/ask\(([^|\)]+)(?:\|([^\)]+))?\)/ask($1,$2)/eg;
$l =~ s/ask\(([^|\)]+)(?:\|([^\)]+))?\)/ask($1,$2)/eg;
+ warn "++ $l\n" if $debug;
push @commands, $l;
}
push @commands, ':system config led=off';
push @commands, $l;
}
push @commands, ':system config led=off';
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";