Changeset 238 for trunk

Timestamp:

Apr 13, 2017, 9:14:04 AM (7 years ago)

Author:

g7moreau

Message:

• Change some new command, be more compact...

File:

• trunk/klask (modified) (11 diffs)

trunk/klask

@@ -82 +82 @@
    'search-mac-on-switch' => \&cmd_search_mac_on_switch,
    'bad-vlan-id'          => \&cmd_bad_vlan_id,
-   'set-vlan-port'        => \&cmd_set_vlan_port,
-   'get-vlan-port'        => \&cmd_get_vlan_port,
-   'set-vlan-name'        => \&cmd_set_vlan_name,
-   'get-vlan-name'        => \&cmd_get_vlan_name,
-   'get-vlan-list'        => \&cmd_get_vlan_list,
+   'port-setvlan'         => \&cmd_port_setvlan,
+   'port-getvlan'         => \&cmd_port_getvlan,
+   'vlan-setname'         => \&cmd_vlan_setname,
+   'vlan-getname'         => \&cmd_vlan_getname,
+   'vlan-list'            => \&cmd_vlan_list,
    'rebootsw'             => \&cmd_rebootsw,
    );
@@ -174 +174 @@
    ifName          => '1.3.6.1.2.1.31.1.1.1.1',       # Interface name (give port number)
    portUpDown      => '1.3.6.1.2.1.2.2.1.7',          # 1.3.6.1.2.1.2.2.1.7.NoPort = 1 (up)  = 2 (down)
+   poeState        => '1.3.6.1.2.1.105.1.1.1.3.1',    # 1.3.6.1.2.1.105.1.1.1.3.1.NoPort = 1 (poe up)  = 2 (poe down) - Cisco and Zyxel
    );
 
@@ -924 +925 @@
  klask status  [--verbose|-v] switch port
 
- klask get-vlan-name switch vlan-id
- klask get-vlan-list switch
+ klask vlan-getname switch vlan-id
+ klask vlan-list switch
 END
    return;
@@ -942 +943 @@
    }
 
+#---------------------------------------------------------------
 sub cmd_search {
    my @computer = @_;
@@ -1767 +1769 @@
 #---------------------------------------------------------------
 # not finish - do not use
-sub cmd_set_vlan_port {
+sub cmd_port_setvlan {
    my $switch_name = shift || q{};
    my $mac_address = shift || q{};
@@ -1815 +1817 @@
 
 #---------------------------------------------------------------
-sub cmd_get_vlan_port {
+sub cmd_port_getvlan {
    @ARGV = @_;
 
@@ -1827 +1829 @@
 
    if ($switch_name eq q{} or $switch_port eq q{}) {
-      die "Usage: klask get-vlan-port SWITCH_NAME PORT\n";
+      die "Usage: klask port-getvlan SWITCH_NAME PORT\n";
       }
 
@@ -1859 +1861 @@
 
 #---------------------------------------------------------------
-sub cmd_set_vlan_name {
+sub cmd_vlan_setname {
    }
 
@@ -1897 +1899 @@
 
 #---------------------------------------------------------------
-sub cmd_get_vlan_name {
+sub cmd_vlan_getname {
    my $switch_name = shift || q{};
    my $vlan_id     = shift || q{};
 
    if ($switch_name eq q{} or $vlan_id eq q{}) {
-      die "Usage: klask get-vlan-name SWITCH_NAME VLAN_ID\n";
+      die "Usage: klask vlan-getname SWITCH_NAME VLAN_ID\n";
       }
 
@@ -1936 +1938 @@
 
 #---------------------------------------------------------------
-sub cmd_get_vlan_list {
+sub cmd_vlan_list {
    my $switch_name = shift || q{};
 
    if ($switch_name eq q{}) {
-      die "Usage: klask get-vlan-list SWITCH_NAME\n";
+      die "Usage: klask vlan-list SWITCH_NAME\n";
       }
 
@@ -2749 +2751 @@
  klask status  [--verbose|-v] switch port
 
- klask get-vlan-name switch vlan-id
- klask get-vlan-list switch
+ klask vlan-getname switch vlan-id
+ klask vlan-list switch