webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-10 02:55:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

remote.cgi: Use location-functions.pl

Browse Source 
Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
This commit is contained in:
Stefan Schantl
2020-06-12 18:52:19 +02:00
parent e2e270e1db
commit 69d431e41a
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
html/cgi-bin/remote.cgi
View File

@@ -28,7 +28,7 @@ use strict;
use IO::Socket;
require '/var/ipfire/general-functions.pl';
require "${General::swroot}/geoip-functions.pl";
require "${General::swroot}/location-functions.pl";
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";
@@ -279,7 +279,7 @@ sub printactivelogins()
# list active logins...
# Libloc database handle.
my $libloc_db_handle = &GeoIP::init();
my $libloc_db_handle = &Location::Functions::init();
foreach my $line (@output)
{
@@ -291,8 +291,8 @@ sub printactivelogins()
$remoteip =~ s/[()]//g;
# display more information about that IP adress...
my $ccode = &GeoIP::lookup_country_code($libloc_db_handle, $remoteip);
my $flag_icon = &GeoIP::get_flag_icon($ccode);
my $ccode = &Location::Functions::lookup_country_code($libloc_db_handle, $remoteip);
my $flag_icon = &Location::Functions::get_flag_icon($ccode);
# get rDNS...
my $iaddr = inet_aton($remoteip);