bugfix: nslookup output parsing changes with openwrt 18.06

fixes #66
aredn · Jul 15, 2018 · eae3e42 · eae3e42
1 parent ef05b37
commit eae3e42
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/files/www/cgi-bin/perlfunc.pm b/files/www/cgi-bin/perlfunc.pm
@@ -486,9 +486,10 @@ sub ip2hostname
     my $host;
     return "" unless $ip;
     return "" if $ip eq "none";
+    $reverse_ip=join ".",reverse(split /\./,$ip);
     foreach(`nslookup $ip`)
     {
-	next unless ($host) = /Address 1: $ip (\S+)/;
+	next unless ($host) = /^$reverse_ip\.in-addr\.arpa[ \t]+name[ \t]+=[ \t]+(\S+)/;
 	return $host;
     }
     return "";