scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-10-31 02:38:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

portmod: fixes poor use of use pragma, fixes load command, quieter

Browse Source
This commit is contained in:
Jed Reynolds
2020-03-12 15:45:08 -07:00
parent c863ec5a28
commit b9aa0b5efa
1 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lf_portmod.pl
View File

@@ -20,12 +20,11 @@ package main;
use strict;
use warnings;
use diagnostics;
if ((defined $ENV{'DEBUG'}) && ($ENV{'DEBUG'} eq "1")) {
use Data::Dumper;
use Carp;
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
$SIG{ __WARN__ } = sub { Carp::confess( @_ ) };
}
use Data::Dumper;
use Carp;
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
$SIG{ __WARN__ } = sub { Carp::confess( @_ ) };
# Un-buffer output
$| = 1;
@@ -247,7 +246,7 @@ if ($stats_from_file eq "") {
# Configure our utils.
$::utils = new LANforge::Utils();
my $t = $::utils->connect($lfmgr_host, $lfmgr_port);
$::utils->sleep_ms(10);
if ($::utils->isQuiet()) {
if (defined $ENV{'LOG_CLI'} && $ENV{'LOG_CLI'} ne "") {
$::utils->cli_send_silent(0);
@@ -376,8 +375,8 @@ if ($cli_cmd ne "") {
if ($load ne "") {
$cli_cmd = "load $load overwrite";
$::utils->doCmd($cli_cmd);
my @rslt = $t->waitfor("/LOAD-DB: Load attempt has been completed./");
my @rslt = $::utils->doAsyncCmd($cli_cmd);
# $t->waitfor("/LOAD-DB: Load attempt has been completed./");
if (!$::utils->isQuiet()) {
print @rslt;
print "\n";
@@ -389,7 +388,6 @@ if ($load ne "") {
if ((defined $list_port_names) && ($list_port_names ne "")) {
my @lines =split("\n", $::utils->doAsyncCmd("nc_show_ports 1 $card all"));
print "---------------------------- ~x:\n";
my $note = "";
my $eid = "";
my $ip = "";