X-Git-Url: http://git.ipfire.org/?p=ipfire-2.x.git;a=blobdiff_plain;f=html%2Fcgi-bin%2Fnetexternal.cgi;h=4393393e081f07326de37e0b7648c2c2d59683c4;hp=299612d4c799051bd7958eae685db19230edf14d;hb=5b4464a94478059ceebf266bc31dee4a4ba18fac;hpb=f9602aa126b9ffcaa32055658c577463c0bff2b4

diff --git a/html/cgi-bin/netexternal.cgi b/html/cgi-bin/netexternal.cgi
index 299612d4c7..4393393e08 100644
--- a/html/cgi-bin/netexternal.cgi
+++ b/html/cgi-bin/netexternal.cgi
@@ -25,9 +25,12 @@ use strict;
 #use warnings;
 #use CGI::Carp 'fatalsToBrowser';
 
+use IO::Socket;
+
 require '/var/ipfire/general-functions.pl';
 require "${General::swroot}/lang.pl";
 require "${General::swroot}/header.pl";
+require "${General::swroot}/geoip-functions.pl";
 require "${General::swroot}/graphs.pl";
 
 my %color = ();
@@ -98,6 +101,12 @@ if ( $querry[0] ne~ ""){
 					<th align="center">
 						<strong>$Lang::tr{'nameserver'}</strong>
 					</th>
+					<th align="center">
+						<strong>$Lang::tr{'country'}</strong>
+					</th>
+					<th align="center">
+						<strong>$Lang::tr{'rdns'}</strong>
+					</th>
 					<th align="center">
 						<strong>$Lang::tr{'status'}</strong>
 					</th>
@@ -139,9 +148,25 @@ END
 
 		my $table_colour = ($id++ % 2) ? $color{'color22'} : $color{'color20'};
 
+		# collect more information about name server (rDNS, GeoIP country code)
+		my $ccode = &GeoIP::lookup($nameserver);
+		my $flag_icon = &GeoIP::get_flag_icon($ccode);
+
+		my $iaddr = inet_aton($nameserver);
+		my $rdns = gethostbyaddr($iaddr, AF_INET);
+		if (!$rdns) { $rdns = $Lang::tr{'lookup failed'}; }
+
 		print <<END;
 			<tr bgcolor="$table_colour">
-				<td>$nameserver</td>
+				<td>
+					$nameserver
+				</td>
+				<td align="center">
+					<a href='country.cgi#$ccode'><img src="$flag_icon" border="0" alt="$ccode" title="$ccode" /></a>
+				</td>
+				<td align="center">
+					$rdns
+				</td>
 				<td bgcolor="$bgcolour" align="center">
 					<font color="$colour"><strong>$message</strong></font>
 				</td>