###############################################################################
# #
# IPFire.org - A linux based firewall #
-# Copyright (C) 2007-2019 IPFire Team <info@ipfire.org> #
+# Copyright (C) 2007-2020 IPFire Team <info@ipfire.org> #
# #
# 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 #
my $counter = 0;
&General::readhash("${General::swroot}/main/settings", \%mainsettings);
-&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
+&General::readhash("/srv/web/ipfire/html/themes/ipfire/include/colors.txt", \%color);
&Header::showhttpheaders();
&Header::openbox('100%', 'center', $Lang::tr{'ssh host keys'});
-print "<table class='tbl'>\n";
+print "<table class='tbl' width='100%'>\n";
print <<END
<thead>
&Header::openbox('100%', 'center', $Lang::tr{'ssh active sessions'});
print <<END;
- <table class="tbl" width='66%'>
+ <table class="tbl" width="100%">
<thead>
<tr>
<th align="center">
if ( scalar(@output) == 0 )
{
# no logins appeared
- my $table_colour = ($id++ % 2) ? $color{'color22'} : $color{'color20'};
+ my $table_colour = ($id++ % 2) ? $color{'color20'} : $color{'color22'};
print "<tr bgcolor='$table_colour'><td colspan='5'>$Lang::tr{'ssh no active logins'}</td></tr>\n";
} else {
# list active logins...
-
- # Libloc database handle.
- my $libloc_db_handle = &Location::Functions::init();
-
foreach my $line (@output)
{
my @arry = split(/\ +/, $line);
$remoteip =~ s/[()]//g;
# display more information about that IP adress...
- my $ccode = &Location::Functions::lookup_country_code($libloc_db_handle, $remoteip);
+ my $ccode = &Location::Functions::lookup_country_code($remoteip);
my $flag_icon = &Location::Functions::get_flag_icon($ccode);
# get rDNS...
my $iaddr = inet_aton($remoteip);
my $rdns = gethostbyaddr($iaddr, AF_INET);
- if (!$rdns) { $rdns = $Lang::tr{'lookup failed'}; };
+ if (!$rdns) { $rdns = $Lang::tr{'ptr lookup failed'}; };
- my $table_colour = ($id++ % 2) ? $color{'color22'} : $color{'color20'};
+ my $table_colour = ($id++ % 2) ? $color{'color20'} : $color{'color22'};
print <<END;
<tr bgcolor='$table_colour'>