Changeset 174 for trunk/klask

Timestamp:

Aug 24, 2016, 2:57:53 PM (8 years ago)

Author:

g7moreau

Message:

• Update small check location bug

File:

• trunk/klask (modified) (1 diff)

trunk/klask

@@ -335 +335 @@
          }
       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};
+         my $location = $result->{$OID_NUMBER{sysLocation}};
+         $location =~ s/^"(.+)"$/$1/;
+         print "   error location: '$sw->{location}' =/= '$location'\n" if $location ne $sw->{location};
          }
       #$sw->{location} = $result->{"1.3.6.1.2.1.1.6.0"} || $sw->{hostname};