Hi monks,

I have two things to be done.

• 1. Open telnet connection and upgrade firmware.
• 2. Open the telnet connection and load some certificate files.

The above two has to be a separate script. 1. firmwareupdate.pl

my $prompt = '/\/\.\/->/';
my $con = new Net::Telnet(Timeout => 400, Prompt => $prompt);
$con->open("192.168.1.1");
$con->login("admin", "password");
my $prompt = '/\/\.\/map1\/firmware\/->/';
my @lines = $con->cmd(String => "cd /map1/firmware", Prompt => $prompt
+);
my $load_firmware = "load -source //14.0.1.0/test.bin -oemhpfiletype c
+sr";
@lines = $con->cmd(String => $load_firmware, Prompt => $prompt);
print join "\n",@lines;
@lines = $con->cmd(String => 'reset', Prompt => '/Map1 reset\./');
$con->close();
[download]

2.loadcert.pl

my $prompt = '/\/\.\/->/';
my $con = new Net::Telnet(Timeout => 400, Prompt => $prompt);
$con->open("192.168.1.1");
$con->login("admin", "password");
my $prompt = '/\/\.\/map1\/firmware\/->/';
my @lines = $con->cmd(String => "cd /map1/firmware", Prompt => $prompt
+);
my $load_firmware = "load -source //14.0.1.0/cert.pem -oemhpfiletype c
+sr";
@lines = $con->cmd(String => $load_firmware, Prompt => $prompt);
print join "\n",@lines;
@lines = $con->cmd(String => 'reset', Prompt => '/Map1 reset\./');
$con->close();
[download]

3. Mainexecution.pl

my $cmd = "perl firmwareupdate.pl"

if ( system($cmd) == 0 ) {
print "sucess\n";
} else {
print "Failed\n";
}

$cmd = "perl loadcert.pl"

if ( system($cmd) == 0 ) {
print "sucess\n";
} else {
print "Failed\n";
}
[download]

When executing Mainexecution.pl always first called script alone is getting success. If i call loadcert.pl first its getting success, when executing next script its stopped with the error "Download Unsuccessful". What could be the issues? I checked the closing part of the first called script, its returning success i.e closing perfectly.

If any body has knowledge on this, kindly give your ideas.