Changeset 14

Timestamp:

Jan 31, 2008, 11:57:25 AM (17 years ago)

Author:

g7moreau

Message:

• Change Switch description print line

File:

• trunk/klask (modified) (3 diffs)

trunk/klask

@@ -164 +164 @@
    my $verbose = shift;
    
-   print "Switch description\n" if $verbose;
-   print "------------------\n" if $verbose;
+   printf "%-25s                %-25s %s\n",'Switch','Description','Type';
+#   print "Switch description\n" if $verbose;
+   print "-------------------------------------------------------------------------\n" if $verbose;
 
    INIT_EACH_SWITCH:
    for my $sw (@SWITCH) {
-#print "$sw->{hostname} \n";
       my %session = ( -hostname   => $sw->{hostname} );
          $session{-version} = $sw->{version}   || 1;
@@ -175 +175 @@
          if (exists $sw->{version} and $sw->{version} eq 3) {
             $session{-username} = $sw->{username} || 'snmpadmin';
-#print "$sw->{hostname}  -- $session{-username}  \n";
-#for (keys %session) {
-#print "++ $_ -> $session{$_}\n";
-#}
             }
          else {
@@ -187 +183 @@
 
       my ($session, $error) = Net::SNMP->session( %{$sw->{local_session}} );
-#         -hostname   => $sw->{hostname},
-#         -version    => $sw->{version}   || 1,
-#         -community  => $sw->{community} || $DEFAULT{community} || 'public',
-#         -username   => $sw->{username}  || 'snmpadmin',
-#         -port       => $sw->{snmpport}  || $DEFAULT{snmpport}  || 161,
-#         );
-#         if (exists $sw->{version} and $sw->{version} eq 3) {
-print "$error \n" if $error;
-#}
+      print "$error \n" if $error;
+
       my $result = $session->get_request(
          -varbindlist => ['1.3.6.1.2.1.1.5.0']