Changeset 208

Timestamp:

Feb 16, 2017, 7:58:44 PM (8 years ago)

Author:

g7moreau

Message:

• Begin SNMP param mutualisation code

File:

• trunk/klask (modified) (2 diffs)

trunk/klask

@@ -43 +43 @@
    $SWITCH_LEVEL{$sw->{hostname}} = $sw->{level} || $DEFAULT{switch_level}  || 2;
    $SWITCH_DB{$sw->{hostname}} = $sw;
+
+   # SNMP parameter initialisation
+   my %session = ( -hostname   => $sw->{hostname} );
+   $session{-version} = $sw->{version}   || 1;
+   $session{-port}    = $sw->{snmpport}  || $DEFAULT{snmpport}  || 161;
+   if (exists $sw->{version} and $sw->{version} eq '3') {
+      $session{-username} = $sw->{username} || 'snmpadmin';
+      }
+   else {
+      $session{-community} = $sw->{community} || $DEFAULT{community} || 'public';
+      }
+   $sw->{snmp_param_session} = \%session;
    }
 @SWITCH_LIST = reverse sort { $SWITCH_LEVEL{$a->{hostname}} <=> $SWITCH_LEVEL{$b->{hostname}} } @{$KLASK_CFG->{switch}};
@@ -2048 +2060 @@
 
    my $sw = $SWITCH_DB{$switch_name};
-   my %session = ( -hostname   => $sw->{hostname} );
-      $session{-version} = $sw->{version}   || 1;
-      $session{-port}    = $sw->{snmpport}  || $DEFAULT{snmpport}  || 161;
-      if (exists $sw->{version} and $sw->{version} eq '3') {
-         $session{-username} = $sw->{username} || 'snmpadmin';
-         }
-      else {
-         $session{-community} = $sw->{community} || $DEFAULT{community} || 'public';
-         }
-   $sw->{local_session} = \%session;
-
-   my ($session, $error) = Net::SNMP->session( %{$sw->{local_session}} );
+   my ($session, $error) = Net::SNMP->session( %{$sw->{snmp_param_session}} );
    print "$error \n" if $error;