Changeset 175 for trunk/klask

Timestamp:

Aug 24, 2016, 3:13:10 PM (8 years ago)

Author:

g7moreau

Message:

• Better error message

File:

• trunk/klask (modified) (1 diff)

trunk/klask

@@ -332 +332 @@
       if ($check_hostname) {
          my ($hostname) = split /\./, $sw->{hostname}, 2;
-         print "   error hostname: $sw->{hostname}\n" if $result->{$OID_NUMBER{sysName}} ne $hostname;
+         print " $hostname - error internal hostname: $sw->{hostname}\n" if $result->{$OID_NUMBER{sysName}} ne $hostname;
          }
       if ($check_location) {
          my $location = $result->{$OID_NUMBER{sysLocation}};
          $location =~ s/^"(.+)"$/$1/;
-         print "   error location: '$sw->{location}' =/= '$location'\n" if $location ne $sw->{location};
+         print " $sw->{hostname} - error location: '$location' -> '$sw->{location}'\n" if $location ne $sw->{location};
          }
       #$sw->{location} = $result->{"1.3.6.1.2.1.1.6.0"} || $sw->{hostname};