prefix the port name with the connection type

This commit is contained in:
Jordi Sanfeliu 2013-01-29 12:46:25 +01:00
parent a44e47a28b
commit c81ae35e20
1 changed files with 6 additions and 2 deletions

View File

@ -284,9 +284,13 @@ EOF
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]);
my ($name) = (split(',', $config{port}->{desc}->{$num}))[0];
my $name = trim((split(',', $config{port}->{desc}->{$num}))[0]);
my $pcon = trim((split(',', $config{port}->{desc}->{$num}))[2]);
$gname = "_" . $g;
print(OUT " <option value='" . $gname . $n . "'>" . $config{graphs}->{$gname} . " " . $num . " (" . trim($name) . ")" . "</option>\n");
foreach my $c (split('/', $pcon)) {
$c = uc(trim($c));
print(OUT " <option value='" . $gname . $n . "'>" . $config{graphs}->{$gname} . " " . $num . " (" . $c . "-" . $name . ")" . "</option>\n");
}
}
next;
}