Changeset 172


Ignore:
Timestamp:
Aug 24, 2016, 2:30:35 PM (8 years ago)
Author:
g7moreau
Message:
  • Add --chk-hostname option to updatedb command
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/klask

    r171 r172  
    293293# va rechercher le nom des switchs pour savoir qui est qui
    294294sub init_switch_names {
    295    my ($verbose, $verb_description) = @_;
     295   my ($verbose, $verb_description, $check_hostname) = @_;
    296296
    297297   printf "%-26s                %-25s %s\n",'Switch','Description','Type' if $verbose;
     
    330330         print "   description: $desc\n"
    331331         }
     332      if ($check_hostname) {
     333         my ($hostname) = split /\./, $sw->{hostname}, 2;
     334         print "   error hostname: $sw->{hostname}\n" if $result->{$OID_NUMBER{sysName}} ne $hostname;
     335         }
    332336      #$sw->{location} = $result->{"1.3.6.1.2.1.1.6.0"} || $sw->{hostname};
    333337      #$sw->{contact} = $result->{"1.3.6.1.2.1.1.4.0"} || $sw->{hostname};
     
    873877   @ARGV = @_;
    874878
    875    my ($verbose, $verb_description);
     879   my ($verbose, $verb_description, $check_hostname);
    876880
    877881   GetOptions(
    878       'verbose|v' => \$verbose,
    879       'verb_description|d' => \$verb_description,
     882      'verbose|v'          => \$verbose,
     883      'verb-description|d' => \$verb_description,
     884      'chk-hostname|h'     => \$check_hostname,
    880885      );
    881886
     
    898903   my $detected_computer = 0;
    899904
    900    init_switch_names('yes', $verb_description);    #nomme les switchs
     905   init_switch_names('yes', $verb_description, $check_hostname);    #nomme les switchs
    901906
    902907   { # Remplis le champs portignore des ports d'inter-connection pour chaque switch
Note: See TracChangeset for help on using the changeset viewer.