Changeset 14


Ignore:
Timestamp:
Jan 31, 2008, 11:57:25 AM (13 years ago)
Author:
g7moreau
Message:
  • Change Switch description print line
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/klask

    r13 r14  
    164164   my $verbose = shift;
    165165   
    166    print "Switch description\n" if $verbose;
    167    print "------------------\n" if $verbose;
     166   printf "%-25s                %-25s %s\n",'Switch','Description','Type';
     167#   print "Switch description\n" if $verbose;
     168   print "-------------------------------------------------------------------------\n" if $verbose;
    168169
    169170   INIT_EACH_SWITCH:
    170171   for my $sw (@SWITCH) {
    171 #print "$sw->{hostname} \n";
    172172      my %session = ( -hostname   => $sw->{hostname} );
    173173         $session{-version} = $sw->{version}   || 1;
     
    175175         if (exists $sw->{version} and $sw->{version} eq 3) {
    176176            $session{-username} = $sw->{username} || 'snmpadmin';
    177 #print "$sw->{hostname}  -- $session{-username}  \n";
    178 #for (keys %session) {
    179 #print "++ $_ -> $session{$_}\n";
    180 #}
    181177            }
    182178         else {
     
    187183
    188184      my ($session, $error) = Net::SNMP->session( %{$sw->{local_session}} );
    189 #         -hostname   => $sw->{hostname},
    190 #         -version    => $sw->{version}   || 1,
    191 #         -community  => $sw->{community} || $DEFAULT{community} || 'public',
    192 #         -username   => $sw->{username}  || 'snmpadmin',
    193 #         -port       => $sw->{snmpport}  || $DEFAULT{snmpport}  || 161,
    194 #         );
    195 #         if (exists $sw->{version} and $sw->{version} eq 3) {
    196 print "$error \n" if $error;
    197 #}
     185      print "$error \n" if $error;
     186
    198187      my $result = $session->get_request(
    199188         -varbindlist => ['1.3.6.1.2.1.1.5.0']
Note: See TracChangeset for help on using the changeset viewer.