Changeset 173 for trunk/klask

Timestamp:

Aug 24, 2016, 2:36:33 PM (8 years ago)

Author:

g7moreau

Message:

• Add subcommand check location to updatedb command

File:

• trunk/klask (modified) (5 diffs)

trunk/klask

@@ -293 +293 @@
 # va rechercher le nom des switchs pour savoir qui est qui
 sub init_switch_names {
-   my ($verbose, $verb_description, $check_hostname) = @_;
+   my ($verbose, $verb_description, $check_hostname, $check_location) = @_;
 
    printf "%-26s                %-25s %s\n",'Switch','Description','Type' if $verbose;
@@ -334 +334 @@
          print "   error hostname: $sw->{hostname}\n" if $result->{$OID_NUMBER{sysName}} ne $hostname;
          }
+      if ($check_location) {
+         my ($hostname) = split /\./, $sw->{hostname}, 2;
+         print "   error location: $sw->{location} =/= $result->{$OID_NUMBER{sysLocation}}\n"
+            if $result->{$OID_NUMBER{sysLocation}} ne $sw->{location};
+         }
       #$sw->{location} = $result->{"1.3.6.1.2.1.1.6.0"} || $sw->{hostname};
       #$sw->{contact} = $result->{"1.3.6.1.2.1.1.4.0"} || $sw->{hostname};
@@ -877 +882 @@
    @ARGV = @_;
 
-   my ($verbose, $verb_description, $check_hostname);
+   my ($verbose, $verb_description, $check_hostname, $check_location);
 
    GetOptions(
@@ -883 +888 @@
       'verb-description|d' => \$verb_description,
       'chk-hostname|h'     => \$check_hostname,
+      'chk-location|l'     => \$check_location,
       );
 
@@ -903 +909 @@
    my $detected_computer = 0;
 
-   init_switch_names('yes', $verb_description, $check_hostname);    #nomme les switchs
+   init_switch_names('yes', $verb_description, $check_hostname, $check_location);    #nomme les switchs
 
    { # Remplis le champs portignore des ports d'inter-connection pour chaque switch