Changeset 115 for trunk/klask

Timestamp:

Oct 3, 2012, 2:08:53 PM (12 years ago)

Author:

g7moreau

Message:

• Begin Trunk port (maybe better !)
• Delete a warning

File:

• trunk/klask (modified) (3 diffs)

trunk/klask

@@ -499 +499 @@
       }
 
+   if ($sw_model eq 'HP2810-48G') {
+      if ($sw_port > 48) {
+         
+         my $reste = $sw_port - 48;
+         return "T$reste";
+         }
+      }
+
    return $sw_port;
    }
@@ -529 +537 @@
 
          return 16 + $reste;
+         }
+      }
+
+   if ($sw_model eq 'HP2810-48G') {
+      if ($sw_port =~ m/^T/xms ) {
+
+         my $reste =  substr $sw_port, 1;
+
+         return 48 + $reste;
          }
       }
@@ -1202 +1219 @@
       my $ip_hostname_fq = $computerdb->{$ip}{hostname_fq};
 
-      my $swpt = sprintf "%-28s  %2s", $computerdb->{$ip}{switch_hostname}, $computerdb->{$ip}{switch_port};
+      my $swpt = sprintf "%-28s  %2s",
+         $computerdb->{$ip}{switch_hostname} || $computerdb->{$ip}{switch_description},
+         $computerdb->{$ip}{switch_port};
       $swithportdb{$swpt} ||= {
          ip          => $ip,