mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-28 11:43:25 +02:00
ipblocklist.cgi: Adjust CGI to work with backend from ipblocklist-functions.pl
* Slightly adjust code indention. * Remove Java Script code for show/hiding. * Remove unnedded functions. Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
This commit is contained in:
Stefan Schantl
@@ -22,27 +22,24 @@
|
|||||||
###############################################################################
|
###############################################################################
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use CGI qw/:standard/;
|
|
||||||
# enable the following only for debugging purposes
|
# enable the following only for debugging purposes
|
||||||
#use warnings;
|
#use warnings;
|
||||||
#use CGI::Carp 'fatalsToBrowser';
|
#use CGI::Carp 'fatalsToBrowser';
|
||||||
use Sort::Naturally;
|
|
||||||
use Socket;
|
|
||||||
|
|
||||||
require '/var/ipfire/general-functions.pl';
|
require '/var/ipfire/general-functions.pl';
|
||||||
require "${General::swroot}/lang.pl";
|
require "${General::swroot}/lang.pl";
|
||||||
require "${General::swroot}/header.pl";
|
require "${General::swroot}/header.pl";
|
||||||
|
require "${General::swroot}/ipblocklist-functions.pl";
|
||||||
|
|
||||||
|
# Import blockist sources and settings file.
|
||||||
|
require "${General::swroot}/ipblocklist/sources";
|
||||||
|
|
||||||
###############################################################################
|
###############################################################################
|
||||||
# Configuration variables
|
# Configuration variables
|
||||||
###############################################################################
|
###############################################################################
|
||||||
|
|
||||||
my $settings = "${General::swroot}/ipblacklist/settings";
|
my $settings = "${General::swroot}/ipblocklist/settings";
|
||||||
my $sources = "${General::swroot}/ipblacklist/sources";
|
|
||||||
my $getipstat = '/usr/local/bin/getipstat';
|
|
||||||
my $getipsetstat = '/usr/local/bin/getipsetstat';
|
|
||||||
my $control = '/usr/local/bin/ipblacklistctrl';
|
|
||||||
my $lockfile = '/var/run/ipblacklist.pid';
|
|
||||||
my %cgiparams = ('ACTION' => '');
|
my %cgiparams = ('ACTION' => '');
|
||||||
|
|
||||||
###############################################################################
|
###############################################################################
|
||||||
@@ -53,143 +50,95 @@ my $errormessage = '';
|
|||||||
my $updating = 0;
|
my $updating = 0;
|
||||||
my %mainsettings;
|
my %mainsettings;
|
||||||
my %color;
|
my %color;
|
||||||
my %sources;
|
|
||||||
my %stats;
|
|
||||||
|
|
||||||
# Default settings - normally overwritten by settings file
|
# Default settings - normally overwritten by settings file
|
||||||
|
my %settings = (
|
||||||
my %settings = ( 'DEBUG' => 0,
|
'DEBUG' => 0,
|
||||||
'LOGGING' => 'on',
|
'LOGGING' => 'on',
|
||||||
'ENABLE' => 'off' );
|
'ENABLE' => 'off'
|
||||||
|
);
|
||||||
|
|
||||||
# Read all parameters
|
# Read all parameters
|
||||||
|
&Header::getcgihash( \%cgiparams);
|
||||||
|
&General::readhash( "${General::swroot}/main/settings", \%mainsettings );
|
||||||
|
&General::readhash( "/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color );
|
||||||
|
|
||||||
Header::getcgihash( \%cgiparams);
|
# Get list of supported blocklists.
|
||||||
General::readhash( "${General::swroot}/main/settings", \%mainsettings );
|
my @blocklists = &IPblocklist::get_blocklists();
|
||||||
General::readhash( "/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color );
|
|
||||||
General::readhash( $settings, \%settings ) if (-r $settings);
|
|
||||||
eval qx|/bin/cat $sources| if (-r $sources);
|
|
||||||
|
|
||||||
# Show Headers
|
# Show Headers
|
||||||
|
&Header::showhttpheaders();
|
||||||
Header::showhttpheaders();
|
|
||||||
|
|
||||||
# Process actions
|
# Process actions
|
||||||
|
if ($cgiparams{'ACTION'} eq "$Lang::tr{'save'}") {
|
||||||
|
# Array to store if blocklists are missing on the system
|
||||||
|
# and needs to be downloaded first.
|
||||||
|
my @missing_blocklists = ();
|
||||||
|
|
||||||
if ($cgiparams{'ACTION'} eq "$Lang::tr{'save'}")
|
# Loop through the array of supported blocklists.
|
||||||
{
|
foreach my $blocklist (@blocklists) {
|
||||||
# Save Button
|
# Skip the blocklist if it is not enabled.
|
||||||
|
next if($cgiparams{$blocklist} ne "on");
|
||||||
|
|
||||||
my %new_settings = ( 'ENABLE' => 'off',
|
# Get the file name which keeps the converted blocklist.
|
||||||
'LOGGING' => 'off',
|
my $ipset_db_file = &IPblocklist::get_ipset_db_file($blocklist);
|
||||||
'DEBUG' => 0 );
|
|
||||||
|
|
||||||
foreach my $item ('LOGGING', 'ENABLE', keys %sources)
|
# Check if the blocklist already has been downloaded.
|
||||||
{
|
if(-f "$ipset_db_file") {
|
||||||
$new_settings{$item} = (exists $cgiparams{$item}) ? 'on' : 'off';
|
# Blocklist already exits, we can skip it.
|
||||||
|
next;
|
||||||
|
} else {
|
||||||
|
# Blocklist not present, store in array to download it.
|
||||||
|
push(@missing_blocklists, $blocklist);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
$updating = 1 if (not exists $settings{$item} or $new_settings{$item} ne $settings{$item});
|
# Check if the red device is not active and blocklists are missing.
|
||||||
}
|
if ((not -e "${General::swroot}/red/active") && (@missing_blocklists)) {
|
||||||
|
# The system is offline, cannot download the missing blocklists.
|
||||||
|
# Store an error message.
|
||||||
|
$errormessage = "$Lang::tr{'system is offline'}";
|
||||||
|
} else {
|
||||||
|
# Loop over the array of missing blocklists.
|
||||||
|
foreach my $missing_blocklist (@missing_blocklists) {
|
||||||
|
# Call the download and convert function to get the missing blocklist.
|
||||||
|
my $status = &IPblocklist::download_and_create_blocklist($missing_blocklist);
|
||||||
|
|
||||||
# Check for redundant blacklists being enabled
|
# Check if there was an error during download.
|
||||||
|
# XXX - fill with messages.
|
||||||
|
if ($status eq "dl_error") {
|
||||||
|
$errormessage = "XXX - dl_error";
|
||||||
|
} elsif ($status eq "empty_list") {
|
||||||
|
$errormessage = "XXX - empty";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
foreach my $list (keys %sources)
|
# Check if there was an error.
|
||||||
{
|
unless($errormessage) {
|
||||||
if (exists $new_settings{$list} and
|
# Write configuration hash.
|
||||||
$new_settings{$list} eq 'on' and
|
&General::writehash($settings, \%cgiparams);
|
||||||
exists $sources{$list}{'disable'})
|
|
||||||
{
|
|
||||||
my @disable;
|
|
||||||
|
|
||||||
if ('ARRAY' eq ref $sources{$list}{'disable'})
|
# XXX display firewall reload stuff
|
||||||
{
|
}
|
||||||
@disable = @{ $sources{$list}{'disable'} };
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
@disable = ( $sources{$list}{'disable'} );
|
|
||||||
}
|
|
||||||
|
|
||||||
foreach my $disable (@disable)
|
|
||||||
{
|
|
||||||
if ($new_settings{$disable} eq 'on')
|
|
||||||
{
|
|
||||||
$new_settings{$disable} = 'off';
|
|
||||||
|
|
||||||
$updating = 1;
|
|
||||||
$errormessage .= "$Lang::tr{'ipblacklist disable pre'} $disable " .
|
|
||||||
"$Lang::tr{'ipblacklist disable mid'} $list $Lang::tr{'ipblacklist disable post'}<br>\n";
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($settings{'LOGGING'} ne $new_settings{'LOGGING'})
|
|
||||||
{
|
|
||||||
if ($new_settings{'LOGGING'} eq 'on')
|
|
||||||
{
|
|
||||||
system( "$control log-on" );
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
system( "$control log-off" );
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($settings{'ENABLE'} ne $new_settings{'ENABLE'})
|
|
||||||
{
|
|
||||||
if ($new_settings{'ENABLE'} eq 'on')
|
|
||||||
{
|
|
||||||
system( "$control enable" );
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
system( "$control disable" );
|
|
||||||
}
|
|
||||||
|
|
||||||
$updating = 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
%settings = %new_settings;
|
|
||||||
|
|
||||||
if ($errormessage)
|
|
||||||
{
|
|
||||||
$updating = 0;
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
General::writehash($settings, \%new_settings);
|
|
||||||
|
|
||||||
if ($updating)
|
|
||||||
{
|
|
||||||
system( "$control update &" );
|
|
||||||
show_running();
|
|
||||||
exit 0;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if (is_running())
|
|
||||||
{
|
|
||||||
show_running();
|
|
||||||
exit 0;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
# Show site
|
# Show site
|
||||||
|
&Header::openpage($Lang::tr{'ipblocklist'}, 1, '');
|
||||||
|
&Header::openbigbox('100%', 'left');
|
||||||
|
|
||||||
Header::openpage($Lang::tr{'ipblacklist'}, 1, '');
|
# Display error message if there was one.
|
||||||
Header::openbigbox('100%', 'left');
|
&error() if ($errormessage);
|
||||||
|
|
||||||
error() if ($errormessage);
|
# Read-in ipblocklist settings.
|
||||||
|
&General::readhash( $settings, \%settings ) if (-r $settings);
|
||||||
|
|
||||||
configsite();
|
# Display configuration section.
|
||||||
|
&configsite();
|
||||||
|
|
||||||
# End of page
|
# End of page
|
||||||
|
&Header::closebigbox();
|
||||||
Header::closebigbox();
|
&Header::closepage();
|
||||||
Header::closepage();
|
|
||||||
|
|
||||||
exit 0;
|
|
||||||
|
|
||||||
|
|
||||||
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
||||||
@@ -198,266 +147,109 @@ exit 0;
|
|||||||
# Displays configuration
|
# Displays configuration
|
||||||
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
||||||
|
|
||||||
sub configsite
|
sub configsite {
|
||||||
{
|
# Find preselections
|
||||||
# Find preselections
|
my $enable = 'checked';
|
||||||
|
|
||||||
my $enable = 'checked';
|
&Header::openbox('100%', 'left', $Lang::tr{'settings'});
|
||||||
Header::openbox('100%', 'left', $Lang::tr{'settings'});
|
|
||||||
|
|
||||||
#### JAVA SCRIPT ####
|
# Enable checkbox
|
||||||
|
$enable = ($settings{'ENABLE'} eq 'on') ? ' checked' : '';
|
||||||
|
|
||||||
print<<END;
|
print<<END;
|
||||||
<script>
|
<form method='post' action='$ENV{'SCRIPT_NAME'}'>
|
||||||
\$(document).ready(function()
|
<table style='width:100%' border='0'>
|
||||||
{
|
<tr>
|
||||||
// Show/Hide elements when ENABLE checkbox is checked.
|
<td style='width:24em'>$Lang::tr{'ipblocklist use ipblocklists'}</td>
|
||||||
if (\$("#ENABLE").attr("checked"))
|
<td><input type='checkbox' name='ENABLE' id='ENABLE'$enable></td>
|
||||||
{
|
</tr>
|
||||||
\$(".sources").show();
|
</table><br>
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
\$(".sources").hide();
|
|
||||||
}
|
|
||||||
|
|
||||||
// Toggle Source list elements when "ENABLE" checkbox is clicked
|
|
||||||
\$("#ENABLE").change(function()
|
|
||||||
{
|
|
||||||
\$(".sources").toggle();
|
|
||||||
});
|
|
||||||
});
|
|
||||||
</script>
|
|
||||||
END
|
END
|
||||||
|
|
||||||
##### JAVA SCRIPT END ####
|
# The following are only displayed if the blacklists are enabled
|
||||||
|
$enable = ($settings{'LOGGING'} eq 'on') ? ' checked' : '';
|
||||||
|
|
||||||
# Enable checkbox
|
print <<END;
|
||||||
|
<div class='sources'>
|
||||||
|
<table style='width:100%' border='0'>
|
||||||
|
<tr>
|
||||||
|
<td style='width:24em'>$Lang::tr{'ipblocklist log'}</td>
|
||||||
|
<td><input type='checkbox' name="LOGGING" id="LOGGING"$enable></td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
|
||||||
$enable = ($settings{'ENABLE'} eq 'on') ? ' checked' : '';
|
<br><br>
|
||||||
|
<h2>$Lang::tr{'ipblocklist blocklist settings'}</h2>
|
||||||
print<<END;
|
|
||||||
<form method='post' action='$ENV{'SCRIPT_NAME'}'>
|
|
||||||
<table style='width:100%' border='0'>
|
|
||||||
<tr>
|
|
||||||
<td style='width:24em'>$Lang::tr{'ipblacklist use ipblacklists'}</td>
|
|
||||||
<td><input type='checkbox' name='ENABLE' id='ENABLE'$enable></td>
|
|
||||||
</tr>
|
|
||||||
</table><br>
|
|
||||||
|
|
||||||
|
<table width='100%' cellspacing='1' class='tbl'>
|
||||||
|
<tr>
|
||||||
|
<th align='left'>$Lang::tr{'ipblocklist id'}</th>
|
||||||
|
<th align='left'>$Lang::tr{'ipblocklist name'}</th>
|
||||||
|
<th align='left'>$Lang::tr{'ipblocklist category'}</th>
|
||||||
|
<th align='center'>$Lang::tr{'ipblocklist enable'}</th>
|
||||||
|
</tr>
|
||||||
END
|
END
|
||||||
|
|
||||||
# The following are only displayed if the blacklists are enabled
|
# Iterate through the list of sources
|
||||||
|
my $lines = 0;
|
||||||
|
|
||||||
$enable = ($settings{'LOGGING'} eq 'on') ? ' checked' : '';
|
foreach my $blocklist (@blocklists) {
|
||||||
|
# Display blocklist name or provide a link to the website if available.
|
||||||
|
my $website = "$blocklist";
|
||||||
|
if ($IPblocklist::List::sources{$blocklist}{info}) {
|
||||||
|
$website ="<a href='$IPblocklist::List::sources{$blocklist}{info}' target='_blank'>$blocklist</a>";
|
||||||
|
}
|
||||||
|
|
||||||
print <<END;
|
# Get the full name for the blocklist.
|
||||||
<div class='sources'>
|
my $name = &CGI::escapeHTML( $IPblocklist::List::sources{$blocklist}{'name'} );
|
||||||
<table style='width:100%' border='0'>
|
|
||||||
<tr>
|
# Get category for this blocklist.
|
||||||
<td style='width:24em'>$Lang::tr{'ipblacklist log'}</td>
|
my $category = $Lang::tr{"ipblocklist category $IPblocklist::List::sources{$blocklist}{'category'}"};
|
||||||
<td><input type='checkbox' name="LOGGING" id="LOGGING"$enable></td>
|
|
||||||
</tr>
|
# Determine if the blocklist is enabled.
|
||||||
</table>
|
my $enable = '';
|
||||||
<br><br>
|
$enable = 'checked' if ($settings{$blocklist} eq 'on');
|
||||||
<h2>$Lang::tr{'ipblacklist blacklist settings'}</h2>
|
|
||||||
<table width='100%' cellspacing='1' class='tbl'>
|
# Set colour for the table columns.
|
||||||
<tr>
|
my $col = ($lines++ % 2) ? "bgcolor='$color{'color20'}'" : "bgcolor='$color{'color22'}'";
|
||||||
<th align='left'>$Lang::tr{'ipblacklist id'}</th>
|
|
||||||
<th align='left'>$Lang::tr{'ipblacklist name'}</th>
|
|
||||||
<th align='left'>$Lang::tr{'ipblacklist category'}</th>
|
print <<END;
|
||||||
<th align='center'>$Lang::tr{'ipblacklist enable'}</th>
|
<tr $col>
|
||||||
</tr>
|
<td>$website</td>
|
||||||
|
<td>$name</td>
|
||||||
|
<td>$category</td>
|
||||||
|
<td align='center'><input type='checkbox' name="$blocklist" id="$blocklist"$enable></td>
|
||||||
|
</tr>
|
||||||
|
END
|
||||||
|
}
|
||||||
|
|
||||||
|
# The save button at the bottom of the table
|
||||||
|
print <<END;
|
||||||
|
</table>
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<table style='width:100%;'>
|
||||||
|
<tr>
|
||||||
|
<td colspan='3' display:inline align='right'><input type='submit' name='ACTION' value='$Lang::tr{'save'}'></td>
|
||||||
|
</tr>
|
||||||
|
</table>
|
||||||
|
</form>
|
||||||
END
|
END
|
||||||
|
|
||||||
# Iterate through the list of sources
|
&Header::closebox();
|
||||||
|
|
||||||
my $lines = 0;
|
|
||||||
|
|
||||||
foreach my $list (sort keys %sources)
|
|
||||||
{
|
|
||||||
my $name = escapeHTML( $sources{$list}{'name'} );
|
|
||||||
my $category = $Lang::tr{"ipblacklist category $sources{$list}{'category'}"};
|
|
||||||
$enable = '';
|
|
||||||
my $col = ($lines++ % 2) ? "bgcolor='$color{'color20'}'" : "bgcolor='$color{'color22'}'";
|
|
||||||
|
|
||||||
$enable = ' checked' if (exists $settings{$list} and $settings{$list} eq 'on');
|
|
||||||
|
|
||||||
print <<END;
|
|
||||||
<tr $col>
|
|
||||||
<td>
|
|
||||||
END
|
|
||||||
|
|
||||||
if ($sources{$list}{info})
|
|
||||||
{
|
|
||||||
print "<a href='$sources{$list}{info}' target='_blank'>$list</a>\n";
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
print "$list\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
print <<END;
|
|
||||||
</td>
|
|
||||||
<td>$name</td>
|
|
||||||
<td>$category</td>
|
|
||||||
<td align='center'><input type='checkbox' name="$list" id="$list"$enable></td>
|
|
||||||
</tr>\n
|
|
||||||
END
|
|
||||||
}
|
|
||||||
|
|
||||||
# The save button at the bottom of the table
|
|
||||||
|
|
||||||
print <<END;
|
|
||||||
</table>
|
|
||||||
</div>
|
|
||||||
<table style='width:100%;'>
|
|
||||||
<tr>
|
|
||||||
<td colspan='3' display:inline align='right'><input type='submit' name='ACTION' value='$Lang::tr{'save'}'></td>
|
|
||||||
</tr>
|
|
||||||
</table>
|
|
||||||
END
|
|
||||||
|
|
||||||
Header::closebox();
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
# sub get_ipset_stats()
|
|
||||||
#
|
|
||||||
# Gets the number of entries in each IPSet.
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
sub get_ipset_stats
|
|
||||||
{
|
|
||||||
my $name;
|
|
||||||
|
|
||||||
system( $getipsetstat );
|
|
||||||
|
|
||||||
if (-r '/var/tmp/ipsets.txt')
|
|
||||||
{
|
|
||||||
open STATS, '<', '/var/tmp/ipsets.txt' or die "Can't open IP Sets stats file: $!";
|
|
||||||
|
|
||||||
foreach my $line (<STATS>)
|
|
||||||
{
|
|
||||||
if ($line =~ m/Name: (\w+)/)
|
|
||||||
{
|
|
||||||
$name = $1;
|
|
||||||
next;
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($line =~ m/Number of entries: (\d+)/)
|
|
||||||
{
|
|
||||||
$stats{$name}{'size'} = $1;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
close STATS;
|
|
||||||
|
|
||||||
unlink( '/var/tmp/ipsets.txt' );
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
# sub is_running()
|
|
||||||
#
|
|
||||||
# Checks to see if the main script is running
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
sub is_running
|
|
||||||
{
|
|
||||||
return 0 unless (-r $lockfile);
|
|
||||||
|
|
||||||
open LOCKFILE, '<', $lockfile or die "Can't open lockfile";
|
|
||||||
my $pid = <LOCKFILE>;
|
|
||||||
close LOCKFILE;
|
|
||||||
|
|
||||||
chomp $pid;
|
|
||||||
|
|
||||||
return (-e "/proc/$pid");
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
# sub show_running
|
|
||||||
#
|
|
||||||
# Displayed when update is running.
|
|
||||||
# Shows a 'working' message plus some information about the IPSets.
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
sub show_running
|
|
||||||
{
|
|
||||||
# Open site
|
|
||||||
|
|
||||||
Header::openpage( $Lang::tr{'ipblacklist'}, 1, '<meta http-equiv="refresh" content="1;url=/cgi-bin/ipblacklist.cgi">' );
|
|
||||||
Header::openbigbox( '100%', 'center' );
|
|
||||||
error();
|
|
||||||
Header::openbox( 'Working', 'center', "$Lang::tr{'ipblacklist working'}" );
|
|
||||||
|
|
||||||
print <<END;
|
|
||||||
<table width='100%'>
|
|
||||||
<tr>
|
|
||||||
<td align='center'>
|
|
||||||
<img src='/images/indicator.gif' alt='$Lang::tr{'aktiv'}'>
|
|
||||||
<td>
|
|
||||||
</tr>
|
|
||||||
</table>
|
|
||||||
<br>
|
|
||||||
<table cellspacing='1' align='center'>
|
|
||||||
<tr><th>$Lang::tr{'ipblacklist id'}</th><th>$Lang::tr{'ipblacklist entries'}</th></tr>
|
|
||||||
END
|
|
||||||
|
|
||||||
get_ipset_stats();
|
|
||||||
|
|
||||||
foreach my $name (sort keys %stats)
|
|
||||||
{
|
|
||||||
print "<tr><td>$name</td><td align='right'>$stats{$name}{'size'}</td></tr>\n" if (exists $stats{$name}{'size'});
|
|
||||||
}
|
|
||||||
|
|
||||||
print <<END;
|
|
||||||
</table>
|
|
||||||
END
|
|
||||||
|
|
||||||
Header::closebox();
|
|
||||||
|
|
||||||
Header::closebigbox();
|
|
||||||
Header::closepage();
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
||||||
# sub error()
|
# sub error()
|
||||||
#
|
#
|
||||||
# Shows error messages
|
# Shows error messages
|
||||||
#------------------------------------------------------------------------------
|
#------------------------------------------------------------------------------
|
||||||
|
|
||||||
sub error
|
sub error {
|
||||||
{
|
&Header::openbox('100%', 'left', $Lang::tr{'error messages'});
|
||||||
Header::openbox('100%', 'left', $Lang::tr{'error messages'});
|
print "<class name='base'>$errormessage\n";
|
||||||
print "<class name='base'>$errormessage\n";
|
print " </class>\n";
|
||||||
print " </class>\n";
|
&Header::closebox();
|
||||||
Header::closebox();
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
# sub format_time( seconds )
|
|
||||||
#
|
|
||||||
# Converts time in seconds to HH:MM:SS
|
|
||||||
#------------------------------------------------------------------------------
|
|
||||||
|
|
||||||
sub format_time($) {
|
|
||||||
my $time = shift;
|
|
||||||
|
|
||||||
my $seconds = $time % 60;
|
|
||||||
my $minutes = $time / 60;
|
|
||||||
|
|
||||||
my $hours = 0;
|
|
||||||
if ($minutes >= 60) {
|
|
||||||
$hours = $minutes / 60;
|
|
||||||
$minutes %= 60;
|
|
||||||
}
|
|
||||||
|
|
||||||
return sprintf("%3d:%02d:%02d", $hours, $minutes, $seconds);
|
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user