From mboxrd@z Thu Jan 1 00:00:00 1970 From: Peter =?utf-8?q?M=C3=BCller?= To: development@lists.ipfire.org Subject: [PATCH 2/4] ipinfo.cgi: display AS information as well Date: Tue, 03 Nov 2020 15:29:14 +0100 Message-ID: In-Reply-To: <8cce16a8-5a92-acbb-28e7-68df2a95d887@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============7490613059844199186==" List-Id: --===============7490613059844199186== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Signed-off-by: Peter M=C3=BCller --- html/cgi-bin/ipinfo.cgi | 143 +++++++++++++++++++++++++--------------- 1 file changed, 91 insertions(+), 52 deletions(-) diff --git a/html/cgi-bin/ipinfo.cgi b/html/cgi-bin/ipinfo.cgi index d8cb6c6b7..1b56e08f9 100644 --- a/html/cgi-bin/ipinfo.cgi +++ b/html/cgi-bin/ipinfo.cgi @@ -2,7 +2,7 @@ ############################################################################= ### # = # # IPFire.org - A linux based firewall = # -# Copyright (C) 2010 IPFire Team = # +# Copyright (C) 2007-2020 IPFire Team = # # = # # This program is free software: you can redistribute it and/or modify = # # it under the terms of the GNU General Public License as published by = # @@ -32,12 +32,16 @@ require "${General::swroot}/lang.pl"; require "${General::swroot}/header.pl"; require "${General::swroot}/location-functions.pl"; =20 +# Load colours for current theme... +my %color =3D (); +my %mainsettings =3D (); +&General::readhash("${General::swroot}/main/settings", \%mainsettings); +&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/i= nclude/colors.txt", \%color); + my %cgiparams=3D(); =20 &Header::showhttpheaders(); =20 -&Header::openpage($Lang::tr{'ip info'}, 1, ''); -&Header::openbigbox('100%', 'left'); my @lines=3D(); my $extraquery=3D''; =20 @@ -57,18 +61,38 @@ my $whois_server =3D "whois.arin.net"; my $addr =3D CGI::param("ip") || ""; =20 if (&General::validip($addr)) { + # Write HTML page header... + &Header::openpage($Lang::tr{'ip info for'} . ' ' . $addr, 1, ''); + &Header::openbigbox('100%', 'left'); + my $iaddr =3D inet_aton($addr); my $hostname =3D gethostbyaddr($iaddr, AF_INET); - if (!$hostname) { $hostname =3D $Lang::tr{'lookup failed'}; } + if (!$hostname) { $hostname =3D $Lang::tr{'ptr lookup failed'}; } =20 - # enumerate location information for IP address... + # Enumerate location information for IP address... my $db_handle =3D &Location::Functions::init(); my $ccode =3D &Location::Functions::lookup_country_code($db_handle, $addr); + my $cname =3D &Location::Functions::get_full_country_name($ccode); my @network_flags =3D &Location::Functions::address_has_flags($addr); =20 # Try to get the continent of the country code. my $continent =3D &Location::get_continent_code($db_handle, $ccode); =20 + # Enumerate Autonomous System details for IP address... + my $asn =3D &Location::Functions::lookup_asn($db_handle, $addr); + my $as_name; + if ($asn) { + $as_name =3D &Location::Functions::get_as_name($db_handle, $asn); + + # In case we have found an AS name, make output more readable... + if ($as_name) { + $as_name =3D "- " . $as_name; + } + $asn =3D "AS" . $asn; + } else { + $asn =3D $Lang::tr{'asn lookup failed'}; + } + # Check if a whois server for the continent is known. if($whois_servers_by_continent{$continent}) { # Use it. @@ -77,6 +101,63 @@ if (&General::validip($addr)) { =20 my $flag_icon =3D &Location::Functions::get_flag_icon($ccode); =20 + &Header::openbox('100%', 'left', $Lang::tr{'ip basic info'}); + + print < + + + + + + + + + + + + + +END + + # Check if the address has a flag. + if (@network_flags) { + # Get amount of flags for this network. + my $flags_amount =3D @network_flags; + my $processed_flags; + + # Loop through the array of network_flags. + foreach my $network_flag (@network_flags) { + # Increment value of processed flags. + $processed_flags++; + + # Get the network flag name. + my $network_flag_name =3D &Location::Functions::get_full_country_name($ne= twork_flag); + + # Colorize columns. + my $col; + if ($processed_flags % 2) { + $col =3D "bgcolor=3D'$color{'color20'}'"; } + else { + $col =3D "bgcolor=3D'$color{'color22'}'"; + } + + # Write table row... + print < + + + +END + } + } + + + print "
$Lang::tr{'country'}= $cname 3D"$cname"
$Lang::tr{'ptr'}$hostname
$Lang::tr{'autonomous system'= }$asn $as_name
$network_flag_name$Lang::tr{'yes'}
\n"; + print " \n"; + + &Header::closebox(); + my $sock =3D new IO::Socket::INET ( PeerAddr =3D> $whois_server, PeerPort = =3D> 43, Proto =3D> 'tcp'); if ($sock) { @@ -108,53 +189,7 @@ if (&General::validip($addr)) { @lines =3D ( "$Lang::tr{'unable to contact'} $whois_server" ); } =20 - &Header::openbox('100%', 'left', $addr . " <= img src=3D'$flag_icon' border=3D'0' align=3D'absmiddle' alt=3D'$ccode' title= =3D'$ccode' /> (" . $hostname . ') : '.$whois_server); - - # Check if the address has a flag. - if (@network_flags) { - # Get amount of flags for this network. - my $flags_amount =3D @network_flags; - my $processed_flags; - - # The message string which will be displayed. - my $message_string =3D "This address is marked as"; - - # Loop through the array of network_flags. - foreach my $network_flag (@network_flags) { - # Increment value of processed flags. - $processed_flags++; - - # Get the network flag name. - my $network_flag_name =3D &Location::Functions::get_full_country_name($ne= twork_flag); - - # Add the flag name to the message string. - $message_string =3D "$message_string" . " $network_flag_name"; - - # Check if multiple flags are set for this network. - if ($flags_amount gt "1") { - # Check if the the current flag is the next-to-last one. - if ($processed_flags eq $flags_amount - 1) { - $message_string =3D "$message_string" . " and "; - - # Check if the current flag it the last one. - } elsif ($processed_flags eq $flags_amount) { - # The message is finished add a dot for ending the sentence. - $message_string =3D "$message_string" . "."; - - # Otherwise add a simple comma to the message string. - } else { - $message_string =3D "$message_string" . ", "; - } - } else { - # Nothing special to do, simple add a dot to finish the sentence. - $message_string =3D "$message_string" . "."; - } - } - - # Display the generated notice. - print "

$message_string

\n"; - print "
\n"; - } + &Header::openbox('100%', 'left', $Lang::tr{'whois results from'} . " " . $w= hois_server); =20 print "
\n";
 	foreach my $line (@lines) {
@@ -163,6 +198,10 @@ if (&General::validip($addr)) {
 	print "
\n"; &Header::closebox(); } else { + # Open HTML page header in case of invalid IP addresses + &Header::openpage($Lang::tr{'ip info'}, 1, ''); + &Header::openbigbox('100%', 'left'); + &Header::openbox('100%', 'left', $Lang::tr{'invalid ip'}); print < --=20 2.26.2 --===============7490613059844199186==--