diff --git a/html/cgi-bin/ipinfo.cgi b/html/cgi-bin/ipinfo.cgi index 978488cb1..cce6097ff 100644 --- a/html/cgi-bin/ipinfo.cgi +++ b/html/cgi-bin/ipinfo.cgi @@ -64,6 +64,7 @@ if (&General::validip($addr)) { # enumerate location information for IP address... my $db_handle = &Location::Functions::init(); my $ccode = &Location::Functions::lookup_country_code($db_handle, $addr); + my $network_flag = &Location::Functions::address_has_flag($addr); # Try to get the continent of the country code. my $continent = &Location::get_continent_code($db_handle, $ccode); @@ -108,6 +109,17 @@ if (&General::validip($addr)) { } &Header::openbox('100%', 'left', $addr . " $ccode (" . $hostname . ') : '.$whois_server); + + # Check if the address has a flag. + if ($network_flag) { + # Get + my $network_flag_name = &Location::Functions::get_full_country_name($network_flag); + + # Display notice. + print "

This address is marked as $network_flag_name.

\n"; + print "
\n"; + } + print "
\n";
 	foreach my $line (@lines) {
 		print &Header::cleanhtml($line,"y");