diff --git a/html/cgi-bin/dhcp.cgi b/html/cgi-bin/dhcp.cgi
index f45703f0b..b87da6907 100755
--- a/html/cgi-bin/dhcp.cgi
+++ b/html/cgi-bin/dhcp.cgi
@@ -21,6 +21,7 @@
use strict;
use experimental 'smartmatch';
+use IO::Socket;
# enable only the following on debugging purpose
#use warnings;
@@ -1007,8 +1008,9 @@ END
print <
- | $Lang::tr{'mac address'} |
- $Lang::tr{'ip address'} |
+ $Lang::tr{'mac address'} |
+ $Lang::tr{'ip address'} |
+ $Lang::tr{'hostname'} |
$Lang::tr{'remark'} |
next-server |
filename |
@@ -1106,9 +1108,14 @@ foreach my $line (@current2) {
$TAG4 = "class='red'" if ($dhcpsettings{'KEY2'} ne $key);
}
+ # resolved name (if exists)
+ my $iaddr = inet_aton($temp[1]);
+ my $rname = gethostbyaddr($iaddr, AF_INET);
+ if (!$rname || $rname eq "") { $rname = $Lang::tr{'ptr lookup failed'}; }
print <$TAG2$temp[0]$TAG3
$TAG0$temp[1]$TAG1 |
+$rname |
$temp[6] |
$temp[3] |
$temp[4] |