Changeset 220 for trunk/klask

Timestamp:

Feb 18, 2017, 5:22:17 PM (7 years ago)

Author:

g7moreau

Message:

• Push community-rw parameter in order to do set_request SNMP command.

File:

• trunk/klask (modified) (8 diffs)

trunk/klask

@@ -7 +7 @@
 use strict;
 use warnings;
-use version; our $VERSION = qv('0.6.1');
+use version; our $VERSION = qv('0.6.2');
 
 use Readonly;
@@ -779 +779 @@
 
 #---------------------------------------------------------------
+sub snmp_get_rwsession {
+   my ($sw) = @_;
+
+   my %session = %{$sw->{snmp_param_session}};
+   $session{-community} = $sw->{community-rw} || $DEFAULT{community-rw} || 'private';
+   return %session;
+   }
+
+#---------------------------------------------------------------
 sub snmp_get_switchport_hr {
    my ($snmp_session, $swport) = @_;
@@ -1716 +1725 @@
 
 #---------------------------------------------------------------
+# not finish - do not use
 sub cmd_set_vlan_port {
    my $switch_name = shift || q{};
@@ -1833 +1843 @@
 
       my $sw = $SWITCH_DB{$sw_name};
-      my ($session, $error) = Net::SNMP->session( %{$sw->{snmp_param_session}} );
+      my ($session, $error) = Net::SNMP->session(snmp_get_rwsession($sw));
       print "$error \n" if $error;
 
@@ -2074 +2084 @@
 
    my $sw = $SWITCH_DB{$switch_name};
-   my ($session, $error) = Net::SNMP->session( %{$sw->{snmp_param_session}} );
+   my ($session, $error) = Net::SNMP->session(snmp_get_rwsession($sw));
    print "$error \n" if $error;
 
@@ -2119 +2129 @@
 
    my $sw = $SWITCH_DB{$switch_name};
-   my ($session, $error) = Net::SNMP->session( %{$sw->{snmp_param_session}} );
+   my ($session, $error) = Net::SNMP->session(snmp_get_rwsession($sw));
    print "$error \n" if $error;
 
@@ -2776 +2786 @@
  default:
    community: public
+   community-rw: private
    snmpport: 161
 
@@ -2860 +2871 @@
 =over
 
-=item *
-
-Web site: L<http://servforge.legi.grenoble-inp.fr/projects/klask>
-
-=item *
-
-Online Manual: L<http://servforge.legi.grenoble-inp.fr/pub/klask/klask.html>
+=item * L<Web site|http://servforge.legi.grenoble-inp.fr/projects/klask>
+
+=item * L<Online Manual|http://servforge.legi.grenoble-inp.fr/pub/klask/klask.html>
 
 =back