Changeset 172

Timestamp:

Aug 24, 2016, 2:30:35 PM (8 years ago)

Author:

g7moreau

Message:

• Add --chk-hostname option to updatedb command

File:

• trunk/klask (modified) (4 diffs)

trunk/klask

@@ -293 +293 @@
 # va rechercher le nom des switchs pour savoir qui est qui
 sub init_switch_names {
-   my ($verbose, $verb_description) = @_;
+   my ($verbose, $verb_description, $check_hostname) = @_;
 
    printf "%-26s                %-25s %s\n",'Switch','Description','Type' if $verbose;
@@ -330 +330 @@
          print "   description: $desc\n"
          }
+      if ($check_hostname) {
+         my ($hostname) = split /\./, $sw->{hostname}, 2;
+         print "   error hostname: $sw->{hostname}\n" if $result->{$OID_NUMBER{sysName}} ne $hostname;
+         }
       #$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};
@@ -873 +877 @@
    @ARGV = @_;
 
-   my ($verbose, $verb_description);
+   my ($verbose, $verb_description, $check_hostname);
 
    GetOptions(
-      'verbose|v' => \$verbose,
-      'verb_description|d' => \$verb_description,
+      'verbose|v'          => \$verbose,
+      'verb-description|d' => \$verb_description,
+      'chk-hostname|h'     => \$check_hostname,
       );
 
@@ -898 +903 @@
    my $detected_computer = 0;
 
-   init_switch_names('yes', $verb_description);    #nomme les switchs
+   init_switch_names('yes', $verb_description, $check_hostname);    #nomme les switchs
 
    { # Remplis le champs portignore des ports d'inter-connection pour chaque switch