Changeset 180 for trunk/klask

Timestamp:

Aug 25, 2016, 2:03:11 PM (8 years ago)

Author:

g7moreau

Message:

• Add vlan ID in vlan column

File:

• trunk/klask (modified) (2 diffs)

trunk/klask

@@ -1878 +1878 @@
    LOOP_ON_IP_ADDRESS:
    for my $ip (Net::Netmask::sort_by_ip_address(keys %result_ip)) {
-         printf "%-15s %-40s %-16s %s\n", $ip, $result_ip{$ip}->{hostname_fq}, $result_ip{$ip}->{date_last_detection}, $result_ip{$ip}->{vlan};
+         my $vlan_nameid = $result_ip{$ip}->{vlan}.'('.get_current_vlan_id($result_ip{$ip}->{vlan}).')';
+         printf "%-15s %-40s %-16s %s\n", $ip, $result_ip{$ip}->{hostname_fq}, $result_ip{$ip}->{date_last_detection}, $vlan_nameid;
       }
    }
@@ -1917 +1918 @@
       my ( $host_short ) = split m/ \. /xms, $result_ip{$ip}->{hostname_fq};
 
+      my $vlan_nameid = $result_ip{$ip}->{vlan}.'('.get_current_vlan_id($result_ip{$ip}->{vlan}).')';
+
       print <<"END_HTML";
   <tr class="$typerow">
    <td sorttable_customkey="$ip_sort">$ip</td>
    <td sorttable_customkey="$host_short">$result_ip{$ip}->{hostname_fq}</td>
-   <td>$result_ip{$ip}->{vlan}</td>
+   <td>$vlan_nameid</td>
    <td>$result_ip{$ip}->{date_last_detection}</td>
   </tr>