From mboxrd@z Thu Jan  1 00:00:00 1970
From: Michael Tremer <michael.tremer@ipfire.org>
To: development@lists.ipfire.org
Subject: Re: [PATCH v2] add GeoIP and rDNS information to used nameservers
Date: Mon, 20 Nov 2017 16:03:53 +0000
Message-ID: <1511193833.4838.544.camel@ipfire.org>
In-Reply-To: <20171116172325.4cdca59e.peter.mueller@link38.eu>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============9076465198362923324=="
List-Id: <development.lists.ipfire.org>

--===============9076465198362923324==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

On Thu, 2017-11-16 at 17:23 +0100, Peter M=C3=BCller wrote:
> Hello Michael,
>=20
> > Hi,
> >=20
> > On Wed, 2017-11-15 at 22:49 +0100, Peter M=C3=BCller wrote:
> > > Add GeoIP and rDNS information to DNS nameserver list at netexternal.cgi
> > >=20
> > > Use newly implemented GeoIP function in /var/ipfire/geoip-functions.pl
> > >=20
> > > Signed-off-by: Peter M=C3=BCller <peter.mueller(a)link38.eu>
> > > ---
> > >  html/cgi-bin/netexternal.cgi | 27 ++++++++++++++++++++++++++-
> > >  langs/de/cgi-bin/de.pl       |  1 +
> > >  langs/en/cgi-bin/en.pl       |  1 +
> > >  3 files changed, 28 insertions(+), 1 deletion(-)
> > >=20
> > > diff --git a/html/cgi-bin/netexternal.cgi b/html/cgi-bin/netexternal.cgi
> > > index 299612d4c..4393393e0 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';
> > > =20
> > > +use IO::Socket;
> > > + =20
> >=20
> > For what is this module being loaded?
>=20
> It is necessary to perform the DNS query. Without it, Perl returns
> an error.

Oh, so inet_aton() is from that package. Would it not be better to call that =
by
it's full name (IO::Socket::inet_aton)?

-Michael

>=20
> Best regards,
> Peter M=C3=BCller
> >=20
> > >  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";
> > > =20
> > >  my %color =3D ();
> > > @@ -99,6 +102,12 @@ if ( $querry[0] ne~ ""){
> > >  						<strong>$Lang::tr{'namese
> > > rver
> > > '}</strong>
> > >  					</th>
> > >  					<th align=3D"center">
> > > +						<strong>$Lang::tr{'countr
> > > y'}< =20
> > > /strong> =20
> > > +					</th>
> > > +					<th align=3D"center">
> > > +						<strong>$Lang::tr{'rdns'}
> > > </st =20
> > > rong> =20
> > > +					</th>
> > > +					<th align=3D"center">
> > >  						<strong>$Lang::tr{'status
> > > '}</ =20
> > > strong> =20
> > >  					</th>
> > >  				</tr>
> > > @@ -139,9 +148,25 @@ END
> > > =20
> > >  		my $table_colour =3D ($id++ % 2) ? $color{'color22'} :
> > > $color{'color20'};
> > > =20
> > > +		# collect more information about name server (rDNS, GeoIP
> > > country code)
> > > +		my $ccode =3D &GeoIP::lookup($nameserver);
> > > +		my $flag_icon =3D &GeoIP::get_flag_icon($ccode);
> > > +
> > > +		my $iaddr =3D inet_aton($nameserver);
> > > +		my $rdns =3D gethostbyaddr($iaddr, AF_INET);
> > > +		if (!$rdns) { $rdns =3D $Lang::tr{'lookup failed'}; }
> > > +
> > >  		print <<END;
> > >  			<tr bgcolor=3D"$table_colour">
> > > -				<td>$nameserver</td>
> > > +				<td>
> > > +					$nameserver
> > > +				</td>
> > > +				<td align=3D"center">
> > > +					<a href=3D'country.cgi#$ccode'><img
> > > src=3D"$flag_icon" border=3D"0" alt=3D"$ccode" title=3D"$ccode" /></a>
> > > +				</td>
> > > +				<td align=3D"center">
> > > +					$rdns
> > > +				</td>
> > >  				<td bgcolor=3D"$bgcolour" align=3D"center">
> > >  					<font =20
> > > color=3D"$colour"><strong>$message</strong></font> =20
> > >  				</td>
> > > diff --git a/langs/de/cgi-bin/de.pl b/langs/de/cgi-bin/de.pl
> > > index 6dff5d781..ae87464d2 100644
> > > --- a/langs/de/cgi-bin/de.pl
> > > +++ b/langs/de/cgi-bin/de.pl
> > > @@ -1962,6 +1962,7 @@
> > >  'read bytes' =3D> 'Gelesene Bytes',
> > >  'read list' =3D> 'Liste der Leseberechtigten',
> > >  'real address' =3D> 'Reale Addresse',
> > > +'rdns' =3D> 'rDNS',
> > >  'reboot' =3D> 'Neustart',
> > >  'reboot ask' =3D> 'Neustart?',
> > >  'reboot question' =3D> 'Extra Abfrage bei neustart und herunterfahren
> > > einschalten',
> > > diff --git a/langs/en/cgi-bin/en.pl b/langs/en/cgi-bin/en.pl
> > > index 4efff6e65..3af17d5dc 100644
> > > --- a/langs/en/cgi-bin/en.pl
> > > +++ b/langs/en/cgi-bin/en.pl
> > > @@ -1997,6 +1997,7 @@
> > >  'quick playlist' =3D> 'Quick Playlist',
> > >  'ram' =3D> 'RAM',
> > >  'random number generator daemon' =3D> 'Random Number Generator Daemon',
> > > +'rdns' =3D> 'rDNS',
> > >  'read bytes' =3D> 'Read Bytes',
> > >  'read list' =3D> 'list with readonly hosts',
> > >  'real address' =3D> 'Real Address', =20
>=20
>=20

--===============9076465198362923324==
Content-Type: application/pgp-signature
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="signature.asc"
MIME-Version: 1.0

LS0tLS1CRUdJTiBQR1AgU0lHTkFUVVJFLS0tLS0KCmlRSXpCQUFCQ2dBZEZpRUU1L3JXNWwzR0dl
Mnlwa3R4Z0hudy8yK1FDUWNGQWxvUy9Pa0FDZ2tRZ0hudy8yK1EKQ1FjVmdoQUFpZitYWWN6ZHlX
bDdJNy9qbzE5QVNhaGFmTDRCMkpqME9qcjdNUjdqYS9LZUw3Nys1RVZlUWIrYwo0QlpUZUZTU3Q0
eDRzMDBFNXRhSDJsQ2d1eWhoVnRxSzYrM0E4SCtObE9Wd2NZa2tnU0RoUHdaYnJSWWRUNFl5Cmo2
bklMWFo5MDBHZ3NOYmwzV05wOE9RUThMdDJkYWNmQUVuRDFOQkdzbDJJZVQ1VmhkazdHb2VlNHpV
L3N0aE0KdnhjSmxrTW9STUx0ZVM3RC9weTdmaUliaEs2Tnc5ZDlkYklVaGlGa3hwWFE3SGoxaVg4
b0RQS3N1MmdySlQvOAplTTNkZHhEVzFTTmlSUGFrcE9yWjMycit3OHNDQnprUityL1h3Y2h4RUh2
c3l3SDdxcnFUVkFKUWNteU1SN3NtCnlRbjlqV2JWZm4ycEpyeXpwVURIdEVkcmh2U1JVS1dsNHBB
RmJWME5nL01ocE91VFhkTi9zdlBMc1JGSWUyR3IKMkZSU25lNDFwaVVvNVI4UnZNWWJDQU1aZHE2
THkrM0JhL1dBMExibFVTdUgxaWJObldxWlJROVJnL2lFczJ2ZAoxN29nSitpTUZ0L0ZCNUhINTlm
Y09aTnM0b2FZZFZSSVB2YjVaMmlzOGUwZktuNnZjWk9TMzIrVFRVRk1wTU4vCldkejAvclJmcS85
VldrcmdpNmVsVWdVOWNDZHNJcHl4SlQ3bDVzSkdSNFFnNGRIL2xSVGE4UktBSmNVSUdLT1gKdFNr
TFEzdm8vTnNJVEh4M2Iwd3VPUy9ZR0RWWnY5QnVZS1dqSUV0WjkyYnBJQ3RpY0M0dE4yNno1Wk9P
TVZTcQpnbzdzQWdBVWoxM2phL3NrQ05Qa0JwZ0cxVCtzTTF6UUc0enJjOGR2TTFNVVBRMDZlaTA9
Cj1EeGJvCi0tLS0tRU5EIFBHUCBTSUdOQVRVUkUtLS0tLQo=

--===============9076465198362923324==--