updated generation of drop-down list of graphs for 'serv' module #115

This commit is contained in:
Jordi Sanfeliu 2022-09-14 09:58:53 +02:00
parent a1b1c8bfb5
commit 34fb8f7df9
1 changed files with 8 additions and 0 deletions

View File

@ -362,6 +362,14 @@ EOF
}
next;
}
if($g eq "serv") {
for($n = 0; $n < scalar(my @serv_list = (sort keys %{$config{serv}->{list}})); $n++) {
my $name = trim($serv_list[$n]);
$gname = "_" . $g;
print(OUT " <option value='" . $gname . $n . "'>" . $name . "</option>\n");
}
next;
}
if($g eq "port") {
for($n = 0; $n < $config{port}->{max} && $n < scalar(my @port_list = split(',', $config{port}->{list})); $n++) {
my $num = trim($port_list[$n]);