mirrors
/
Monitorix
mirror of https://github.com/mikaku/Monitorix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix the use of uninitialized value message when the port number was listed but not defined. Also show a message denoting a bad configuration.

This commit is contained in:
Jordi Sanfeliu 2014-02-20 12:54:42 +01:00
parent 227fd147aa
commit b5f73bb20e
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/port.pm
View File

@ -131,6 +131,11 @@ sub port_init {
for($n = 0; $n < min($port->{max}, scalar(@pl)); $n++) {
$pl[$n] = trim($pl[$n]);
my ($np) = ($pl[$n] =~ m/^(\d+).*?/);
if(!$port->{desc}->{$pl[$n]}) {
logger("$myself: port number '$np' listed but not defined.");
next;
}
if($pl[$n] && $np) {
my $p = trim(lc((split(',', $port->{desc}->{$pl[$n]}))[1])) || "all";
my $conn = trim(lc((split(',', $port->{desc}->{$pl[$n]}))[2]));
@ -414,6 +419,8 @@ sub port_cgi {
my $max = min($port->{max}, scalar(my @pl = split(',', $port->{list})));
for($n = 0; $n < $max; $n++) {
$pl[$n] = trim($pl[$n]);
next if !$port->{desc}->{$pl[$n]};
my $pc = trim((split(',', $port->{desc}->{$pl[$n]}))[2]);
foreach my $conn (split('/', $pc)) {
$str = $u . $package . $n . substr($conn, 0 ,1) . "." . $tf->{when} . ".png";
@ -431,6 +438,13 @@ sub port_cgi {
$n2 = 1;
while($n < $max) {
next unless $pl[$n];
# continue if port was listed by not defined
if(!$port->{desc}->{$pl[$n]}) {
$n++;
next;
}
if($title) {
if($n == 0) {
main::graph_header($title, $port->{graphs_per_row});