mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-10 11:05:54 +02:00
66c3619872
Bumping across one of our scripts with very long trailing whitespaces, I thought it might be a good idea to clean these up. Doing so, some missing or inconsistent licence headers were fixed. There is no need in shipping all these files en bloc, as their functionality won't change. Signed-off-by: Peter Müller <peter.mueller@ipfire.org>
640 lines
19 KiB
Perl
640 lines
19 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# This code is distributed under the terms of the GPL
|
|
#
|
|
# (c) 2005,2006 marco.s
|
|
#
|
|
# $Id: calamaris.dat,v 2.1 2006/03/12 00:00:00 marco.s Exp $
|
|
#
|
|
|
|
use strict;
|
|
|
|
# enable only the following on debugging purpose
|
|
#use warnings;
|
|
#use CGI::Carp 'fatalsToBrowser';
|
|
|
|
use Time::Local;
|
|
use IO::Socket;
|
|
|
|
require '/var/ipfire/general-functions.pl';
|
|
require "${General::swroot}/lang.pl";
|
|
require "${General::swroot}/header.pl";
|
|
|
|
my $unique=time;
|
|
|
|
my $squidlogdir = "/var/log/squid";
|
|
my $reportdir = "${General::swroot}/proxy/calamaris/reports";
|
|
my $sargdir = "/var/log/sarg";
|
|
|
|
unless (-e $reportdir) { mkdir($reportdir) }
|
|
|
|
my %cgiparams=();
|
|
my %reportsettings=();
|
|
my %selected=();
|
|
my %checked=();
|
|
|
|
my $errormessage='';
|
|
|
|
my $hintcolour='#FFFFCC';
|
|
|
|
my $commandline='';
|
|
|
|
my %monthidx = (qw(Jan 0 Feb 1 Mar 2 Apr 3 May 4 Jun 5 Jul 6 Aug 7 Sep 8 Oct 9 Nov 10 Dec 11));
|
|
|
|
my @longmonths = ( $Lang::tr{'january'}, $Lang::tr{'february'}, $Lang::tr{'march'},
|
|
$Lang::tr{'april'}, $Lang::tr{'may'}, $Lang::tr{'june'}, $Lang::tr{'july'},
|
|
$Lang::tr{'august'}, $Lang::tr{'september'}, $Lang::tr{'october'},
|
|
$Lang::tr{'november'}, $Lang::tr{'december'} );
|
|
|
|
my @now = localtime(time);
|
|
my $year = $now[5]+1900;
|
|
|
|
my $day_begin=0;
|
|
my $month_begin=0;
|
|
my $year_begin=0;
|
|
my $day_end=0;
|
|
my $month_end=0;
|
|
my $year_end=0;
|
|
|
|
$reportsettings{'ACTION'} = '';
|
|
|
|
$reportsettings{'DAY_BEGIN'} = $now[3];
|
|
$reportsettings{'MONTH_BEGIN'} = $now[4];
|
|
$reportsettings{'YEAR_BEGIN'} = $now[5]+1900;
|
|
$reportsettings{'DAY_END'} = $now[3];
|
|
$reportsettings{'MONTH_END'} = $now[4];
|
|
$reportsettings{'YEAR_END'} = $now[5]+1900;
|
|
|
|
$reportsettings{'ENABLE_DOMAIN'} = 'off';
|
|
$reportsettings{'NUM_DOMAINS'} = '10';
|
|
$reportsettings{'ENABLE_PERFORMANCE'} = 'off';
|
|
$reportsettings{'PERF_INTERVAL'} = '60';
|
|
$reportsettings{'ENABLE_CONTENT'} = 'off';
|
|
$reportsettings{'NUM_CONTENT'} = '10';
|
|
$reportsettings{'ENABLE_REQUESTER'} = 'off';
|
|
$reportsettings{'ENABLE_USERNAME'} = 'off';
|
|
$reportsettings{'NUM_HOSTS'} = '10';
|
|
$reportsettings{'NUM_URLS'} = '0';
|
|
$reportsettings{'ENABLE_HISTOGRAM'} = 'off';
|
|
$reportsettings{'HIST_LEVEL'} = '10';
|
|
$reportsettings{'ENABLE_VERBOSE'} = 'off';
|
|
$reportsettings{'BYTE_UNIT'} = 'B';
|
|
$reportsettings{'SKIP_GZLOGS'} = 'off';
|
|
$reportsettings{'RUN_BACKGROUND'} = 'off';
|
|
|
|
&Header::getcgihash(\%reportsettings);
|
|
|
|
if ($reportsettings{'ACTION'} eq $Lang::tr{'calamaris create report'})
|
|
{
|
|
$cgiparams{'DAY_BEGIN'} = $reportsettings{'DAY_BEGIN'};
|
|
$cgiparams{'MONTH_BEGIN'} = $reportsettings{'MONTH_BEGIN'};
|
|
$cgiparams{'YEAR_BEGIN'} = $reportsettings{'YEAR_BEGIN'};
|
|
$cgiparams{'DAY_END'} = $reportsettings{'DAY_END'};
|
|
$cgiparams{'MONTH_END'} = $reportsettings{'MONTH_END'};
|
|
$cgiparams{'YEAR_END'} = $reportsettings{'YEAR_END'};
|
|
|
|
delete $reportsettings{'DAY_BEGIN'};
|
|
delete $reportsettings{'MONTH_BEGIN'};
|
|
delete $reportsettings{'YEAR_BEGIN'};
|
|
delete $reportsettings{'DAY_END'};
|
|
delete $reportsettings{'MONTH_END'};
|
|
delete $reportsettings{'YEAR_END'};
|
|
delete $reportsettings{'REPORT'};
|
|
|
|
&General::writehash("${General::swroot}/proxy/calamaris/settings", \%reportsettings);
|
|
|
|
$reportsettings{'DAY_BEGIN'} = $cgiparams{'DAY_BEGIN'};
|
|
$reportsettings{'MONTH_BEGIN'} = $cgiparams{'MONTH_BEGIN'};
|
|
$reportsettings{'YEAR_BEGIN'} = $cgiparams{'YEAR_BEGIN'};
|
|
$reportsettings{'DAY_END'} = $cgiparams{'DAY_END'};
|
|
$reportsettings{'MONTH_END'} = $cgiparams{'MONTH_END'};
|
|
$reportsettings{'YEAR_END'} = $cgiparams{'YEAR_END'};
|
|
|
|
$day_begin = $reportsettings{'DAY_BEGIN'};
|
|
$month_begin = $reportsettings{'MONTH_BEGIN'};
|
|
$year_begin = $reportsettings{'YEAR_BEGIN'};
|
|
$day_end = $reportsettings{'DAY_END'};
|
|
$month_end = $reportsettings{'MONTH_END'};
|
|
$year_end = $reportsettings{'YEAR_END'};
|
|
|
|
if ($reportsettings{'SKIP_GZLOGS'} eq 'on') { $commandline.='nogz '; }
|
|
|
|
$commandline.="$day_begin $month_begin $year_begin $day_end $month_end $year_end";
|
|
|
|
if ($reportsettings{'ENABLE_DOMAIN'} eq 'on')
|
|
{
|
|
$commandline.=' -d ';
|
|
$commandline.=$reportsettings{'NUM_DOMAINS'};
|
|
}
|
|
if ($reportsettings{'ENABLE_PERFORMANCE'} eq 'on')
|
|
{
|
|
$commandline.=' -P ';
|
|
$commandline.=$reportsettings{'PERF_INTERVAL'};
|
|
}
|
|
if ($reportsettings{'ENABLE_CONTENT'} eq 'on')
|
|
{
|
|
$commandline.=' -t ';
|
|
$commandline.=$reportsettings{'NUM_CONTENT'};
|
|
}
|
|
if ($reportsettings{'ENABLE_HISTOGRAM'} eq 'on')
|
|
{
|
|
$commandline.=' -D ';
|
|
$commandline.=$reportsettings{'HIST_LEVEL'};
|
|
}
|
|
if ($reportsettings{'ENABLE_REQUESTER'} eq 'on')
|
|
{
|
|
if ($reportsettings{'ENABLE_USERNAME'} eq 'on')
|
|
{
|
|
$commandline.=' -u';
|
|
}
|
|
$commandline.=' -r ';
|
|
$commandline.=$reportsettings{'NUM_HOSTS'};
|
|
|
|
unless ($reportsettings{'NUM_URLS'} eq '0')
|
|
{
|
|
$commandline.=' -R ';
|
|
$commandline.=$reportsettings{'NUM_URLS'};
|
|
}
|
|
}
|
|
unless ($reportsettings{'BYTE_UNIT'} eq 'B')
|
|
{
|
|
$commandline.=' -U ';
|
|
$commandline.=$reportsettings{'BYTE_UNIT'};
|
|
}
|
|
if ($reportsettings{'ENABLE_VERBOSE'} eq 'on')
|
|
{
|
|
$commandline.=' -s';
|
|
}
|
|
|
|
$commandline.=' < /dev/null > /dev/null 2>&1';
|
|
|
|
if ($reportsettings{'RUN_BACKGROUND'} eq 'on') { $commandline.=" &"; }
|
|
|
|
system("${General::swroot}/proxy/calamaris/bin/mkreport $commandline")
|
|
}
|
|
|
|
if ($reportsettings{'ACTION'} eq $Lang::tr{'export'})
|
|
{
|
|
print "Content-type: application/octet-stream\n";
|
|
print "Content-length: ";
|
|
print (-s "$reportdir/$reportsettings{'REPORT'}");
|
|
print "\n";
|
|
print "Content-disposition: attachment; filename=$reportsettings{'REPORT'}\n\n";
|
|
|
|
open (FILE, "$reportdir/$reportsettings{'REPORT'}");
|
|
while (<FILE>) { print; }
|
|
close (FILE);
|
|
|
|
exit;
|
|
}
|
|
|
|
if ($reportsettings{'ACTION'} eq $Lang::tr{'delete'}) { unlink("$reportdir/$reportsettings{'REPORT'}"); }
|
|
|
|
if (-e "${General::swroot}/proxy/calamaris/settings")
|
|
{
|
|
&General::readhash("${General::swroot}/proxy/calamaris/settings", \%reportsettings);
|
|
}
|
|
|
|
&Header::showhttpheaders();
|
|
|
|
$checked{'ENABLE_DOMAIN'}{'off'} = '';
|
|
$checked{'ENABLE_DOMAIN'}{'on'} = '';
|
|
$checked{'ENABLE_DOMAIN'}{$reportsettings{'ENABLE_DOMAIN'}} = "checked='checked'";
|
|
$selected{'NUM_DOMAINS'}{$reportsettings{'NUM_DOMAINS'}} = "selected='selected'";
|
|
$checked{'ENABLE_PERFORMANCE'}{'off'} = '';
|
|
$checked{'ENABLE_PERFORMANCE'}{'on'} = '';
|
|
$checked{'ENABLE_PERFORMANCE'}{$reportsettings{'ENABLE_PERFORMANCE'}} = "checked='checked'";
|
|
$selected{'PERF_INTERVAL'}{$reportsettings{'PERF_INTERVAL'}} = "selected='selected'";
|
|
$checked{'ENABLE_CONTENT'}{'off'} = '';
|
|
$checked{'ENABLE_CONTENT'}{'on'} = '';
|
|
$checked{'ENABLE_CONTENT'}{$reportsettings{'ENABLE_CONTENT'}} = "checked='checked'";
|
|
$selected{'NUM_CONTENT'}{$reportsettings{'NUM_CONTENT'}} = "selected='selected'";
|
|
$checked{'ENABLE_REQUESTER'}{'off'} = '';
|
|
$checked{'ENABLE_REQUESTER'}{'on'} = '';
|
|
$checked{'ENABLE_REQUESTER'}{$reportsettings{'ENABLE_REQUESTER'}} = "checked='checked'";
|
|
$checked{'ENABLE_USERNAME'}{'off'} = '';
|
|
$checked{'ENABLE_USERNAME'}{'on'} = '';
|
|
$checked{'ENABLE_USERNAME'}{$reportsettings{'ENABLE_USERNAME'}} = "checked='checked'";
|
|
$selected{'NUM_HOSTS'}{$reportsettings{'NUM_HOSTS'}} = "selected='selected'";
|
|
$selected{'NUM_URLS'}{$reportsettings{'NUM_URLS'}} = "selected='selected'";
|
|
$checked{'ENABLE_HISTOGRAM'}{'off'} = '';
|
|
$checked{'ENABLE_HISTOGRAM'}{'on'} = '';
|
|
$checked{'ENABLE_HISTOGRAM'}{$reportsettings{'ENABLE_HISTOGRAM'}} = "checked='checked'";
|
|
$selected{'HIST_LEVEL'}{$reportsettings{'HIST_LEVEL'}} = "selected='selected'";
|
|
$checked{'ENABLE_VERBOSE'}{'off'} = '';
|
|
$checked{'ENABLE_VERBOSE'}{'on'} = '';
|
|
$checked{'ENABLE_VERBOSE'}{$reportsettings{'ENABLE_VERBOSE'}} = "checked='checked'";
|
|
$selected{'BYTE_UNIT'}{$reportsettings{'BYTE_UNIT'}} = "selected='selected'";
|
|
$checked{'SKIP_GZLOGS'}{'off'} = '';
|
|
$checked{'SKIP_GZLOGS'}{'on'} = '';
|
|
$checked{'SKIP_GZLOGS'}{$reportsettings{'SKIP_GZLOGS'}} = "checked='checked'";
|
|
$checked{'RUN_BACKGROUND'}{'off'} = '';
|
|
$checked{'RUN_BACKGROUND'}{'on'} = '';
|
|
$checked{'RUN_BACKGROUND'}{$reportsettings{'RUN_BACKGROUND'}} = "checked='checked'";
|
|
|
|
&Header::openpage($Lang::tr{'calamaris proxy reports'}, 1, '');
|
|
|
|
&Header::openbigbox('100%', 'left', '', $errormessage);
|
|
|
|
if ($errormessage) {
|
|
&Header::openbox('100%', 'left', $Lang::tr{'error messages'});
|
|
print "<font class='base'>$errormessage </font>\n";
|
|
&Header::closebox();
|
|
}
|
|
|
|
# Link sarg reports.
|
|
if (-e $sargdir) {
|
|
&Header::openbox('100%', 'left', "$Lang::tr{'proxy reports'}:");
|
|
|
|
print <<END;
|
|
<table width="100%">
|
|
<tr>
|
|
END
|
|
|
|
# Today.
|
|
if (-e "$sargdir/today") {
|
|
print <<END;
|
|
<td width="25%" align="center">
|
|
<a href="/proxy-reports/today" target="_blank">$Lang::tr{'proxy reports today'}</a>
|
|
</td>
|
|
END
|
|
} else {
|
|
print <<END;
|
|
<td width="25%" align="center">
|
|
$Lang::tr{'proxy reports today'}
|
|
</td>
|
|
END
|
|
}
|
|
|
|
# Daily.
|
|
if (-e "$sargdir/daily") {
|
|
print <<END;
|
|
<td width="25%" align="center">
|
|
<a href="/proxy-reports/daily" target="_blank">$Lang::tr{'proxy reports daily'}</a>
|
|
</td>
|
|
END
|
|
} else {
|
|
print <<END;
|
|
<td width="25%" align="center">
|
|
$Lang::tr{'proxy reports daily'}
|
|
</td>
|
|
END
|
|
}
|
|
|
|
# Weekly.
|
|
if (-e "$sargdir/weekly") {
|
|
print <<END;
|
|
<td width="25%" align="center">
|
|
<a href="/proxy-reports/weekly" target="_blank">$Lang::tr{'proxy reports weekly'}</a>
|
|
</td>
|
|
END
|
|
} else {
|
|
print <<END;
|
|
<td width="25%" align="center">
|
|
$Lang::tr{'proxy reports weekly'}
|
|
</td>
|
|
END
|
|
}
|
|
|
|
# Monthly.
|
|
if (-e "$sargdir/monthly") {
|
|
print <<END;
|
|
<td width="25%" align="center">
|
|
<a href="/proxy-reports/monthly" target="_blank">$Lang::tr{'proxy reports monthly'}</a>
|
|
</td>
|
|
END
|
|
} else {
|
|
print <<END;
|
|
<td width="25%" align="center">
|
|
$Lang::tr{'proxy reports monthly'}
|
|
</td>
|
|
END
|
|
}
|
|
|
|
print <<END;
|
|
</tr>
|
|
</table>
|
|
|
|
<br><br>
|
|
END
|
|
|
|
&Header::closebox();
|
|
}
|
|
|
|
|
|
&Header::openbox('100%', 'left', "$Lang::tr{'settings'}:");
|
|
|
|
print <<END
|
|
<form method='post' action='$ENV{'SCRIPT_NAME'}'>
|
|
<table width='100%' border='0'>
|
|
<tr>
|
|
<td colspan='8' class='base'><b>$Lang::tr{'calamaris report period'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td width='9%' class='base'>$Lang::tr{'from'}:</td>
|
|
<td width='15%'>
|
|
<select name='MONTH_BEGIN'>
|
|
END
|
|
;
|
|
for ($month_begin = 0; $month_begin < 12; $month_begin++)
|
|
{
|
|
print "\t<option ";
|
|
if ($month_begin == $reportsettings{'MONTH_BEGIN'}) {
|
|
print 'selected="selected" '; }
|
|
print "value='$month_begin'>$longmonths[$month_begin]</option>\n";
|
|
}
|
|
print <<END
|
|
</select>
|
|
</td>
|
|
<td width='9%'>
|
|
<select name='DAY_BEGIN'>
|
|
END
|
|
;
|
|
for ($day_begin = 1; $day_begin <= 31; $day_begin++)
|
|
{
|
|
print "\t<option ";
|
|
if ($day_begin == $reportsettings{'DAY_BEGIN'}) {
|
|
print 'selected="selected" '; }
|
|
print "value='$day_begin'>$day_begin</option>\n";
|
|
}
|
|
print <<END
|
|
</select>
|
|
</td>
|
|
<td width='12%'>
|
|
<select name='YEAR_BEGIN'>
|
|
END
|
|
;
|
|
for ($year_begin = $year-2; $year_begin <= $year+1; $year_begin++)
|
|
{
|
|
print "\t<option ";
|
|
if ($year_begin == $reportsettings{'YEAR_BEGIN'}) {
|
|
print 'selected="selected" '; }
|
|
print "value='$year_begin'>$year_begin</option>\n";
|
|
}
|
|
print <<END
|
|
</select>
|
|
</td>
|
|
<td width='9%' class='base'>$Lang::tr{'to'}:</td>
|
|
<td width='15%'>
|
|
<select name='MONTH_END'>
|
|
END
|
|
;
|
|
for ($month_end = 0; $month_end < 12; $month_end++)
|
|
{
|
|
print "\t<option ";
|
|
if ($month_end == $reportsettings{'MONTH_END'}) {
|
|
print 'selected="selected" '; }
|
|
print "value='$month_end'>$longmonths[$month_end]</option>\n";
|
|
}
|
|
print <<END
|
|
</select>
|
|
</td>
|
|
<td width='9%'>
|
|
<select name='DAY_END'>
|
|
END
|
|
;
|
|
for ($day_end = 1; $day_end <= 31; $day_end++)
|
|
{
|
|
print "\t<option ";
|
|
if ($day_end == $reportsettings{'DAY_END'}) {
|
|
print 'selected="selected" '; }
|
|
print "value='$day_end'>$day_end</option>\n";
|
|
}
|
|
print <<END
|
|
</select>
|
|
</td>
|
|
<td width='22%'>
|
|
<select name='YEAR_END'>
|
|
END
|
|
;
|
|
for ($year_end = $year-2; $year_end <= $year+1; $year_end++)
|
|
{
|
|
print "\t<option ";
|
|
if ($year_end == $reportsettings{'YEAR_END'}) {
|
|
print 'selected="selected" '; }
|
|
print "value='$year_end'>$year_end</option>\n";
|
|
}
|
|
print <<END
|
|
</select>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
|
|
<hr size='1'>
|
|
|
|
<table width='100%' border='0'>
|
|
<tr>
|
|
<td colspan='4' class='base'><b>$Lang::tr{'calamaris report options'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td width='30%' class='base'>$Lang::tr{'calamaris enable domain report'}:</td>
|
|
<td width='15%'><input type='checkbox' name='ENABLE_DOMAIN' $checked{'ENABLE_DOMAIN'}{'on'} /> [-d]</td>
|
|
<td width='30%' class='base'>$Lang::tr{'calamaris number of domains'}:</td>
|
|
<td width='25%'><select name='NUM_DOMAINS'>
|
|
<option value='10' $selected{'NUM_DOMAINS'}{'10'}>10</option>
|
|
<option value='25' $selected{'NUM_DOMAINS'}{'25'}>25</option>
|
|
<option value='100' $selected{'NUM_DOMAINS'}{'100'}>100</option>
|
|
<option value='-1' $selected{'NUM_DOMAINS'}{'-1'}>$Lang::tr{'calamaris unlimited'}</option>
|
|
</select></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'calamaris enable performance report'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_PERFORMANCE' $checked{'ENABLE_PERFORMANCE'}{'on'} /> [-P]</td>
|
|
<td class='base'>$Lang::tr{'calamaris report interval (in minutes)'}:</td>
|
|
<td><select name='PERF_INTERVAL'>
|
|
<option value='30' $selected{'PERF_INTERVAL'}{'30'}>30</option>
|
|
<option value='60' $selected{'PERF_INTERVAL'}{'60'}>60</option>
|
|
<option value='120' $selected{'PERF_INTERVAL'}{'120'}>120</option>
|
|
<option value='240' $selected{'PERF_INTERVAL'}{'240'}>240</option>
|
|
<option value='480' $selected{'PERF_INTERVAL'}{'480'}>480</option>
|
|
<option value='720' $selected{'PERF_INTERVAL'}{'720'}>720</option>
|
|
<option value='1440' $selected{'PERF_INTERVAL'}{'1440'}>1440</option>
|
|
</select></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'calamaris enable content report'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_CONTENT' $checked{'ENABLE_CONTENT'}{'on'} /> [-t]</td>
|
|
<td class='base'>$Lang::tr{'calamaris number of content types'}:</td>
|
|
<td><select name='NUM_CONTENT'>
|
|
<option value='10' $selected{'NUM_CONTENT'}{'10'}>10</option>
|
|
<option value='25' $selected{'NUM_CONTENT'}{'25'}>25</option>
|
|
<option value='100' $selected{'NUM_CONTENT'}{'100'}>100</option>
|
|
<option value='-1' $selected{'NUM_CONTENT'}{'-1'}>$Lang::tr{'calamaris unlimited'}</option>
|
|
</select></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'calamaris enable requester report'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_REQUESTER' $checked{'ENABLE_REQUESTER'}{'on'} /> [-r/-R]</td>
|
|
<td class='base'>$Lang::tr{'calamaris number of requesting hosts'}:</td>
|
|
<td><select name='NUM_HOSTS'>
|
|
<option value='10' $selected{'NUM_HOSTS'}{'10'}>10</option>
|
|
<option value='25' $selected{'NUM_HOSTS'}{'25'}>25</option>
|
|
<option value='100' $selected{'NUM_HOSTS'}{'100'}>100</option>
|
|
<option value='-1' $selected{'NUM_HOSTS'}{'-1'}>$Lang::tr{'calamaris unlimited'}</option>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'calamaris show usernames'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_USERNAME' $checked{'ENABLE_USERNAME'}{'on'} /> [-u]</td>
|
|
<td class='base'>$Lang::tr{'calamaris number of requested urls'}:</td>
|
|
<td><select name='NUM_URLS'>
|
|
<option value='0' $selected{'NUM_URLS'}{'0'}>$Lang::tr{'calamaris none'}</option>
|
|
<option value='10' $selected{'NUM_URLS'}{'10'}>10</option>
|
|
<option value='25' $selected{'NUM_URLS'}{'25'}>25</option>
|
|
<option value='100' $selected{'NUM_URLS'}{'100'}>100</option>
|
|
<option value='-1' $selected{'NUM_URLS'}{'-1'}>$Lang::tr{'calamaris unlimited'}</option>
|
|
</select></td>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'calamaris enable distribution histogram'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_HISTOGRAM' $checked{'ENABLE_HISTOGRAM'}{'on'} /> [-D]</td>
|
|
<td class='base'>$Lang::tr{'calamaris histogram resolution'}:</td>
|
|
<td><select name='HIST_LEVEL'>
|
|
<option value='1000' $selected{'HIST_LEVEL'}{'1000'}>$Lang::tr{'calamaris low'}</option>
|
|
<option value='10' $selected{'HIST_LEVEL'}{'10'}>$Lang::tr{'calamaris medium'}</option>
|
|
<option value='2' $selected{'HIST_LEVEL'}{'2'}>$Lang::tr{'calamaris high'}</option>
|
|
</tr>
|
|
<tr>
|
|
<td class='base'>$Lang::tr{'calamaris enable verbose reporting'}:</td>
|
|
<td><input type='checkbox' name='ENABLE_VERBOSE' $checked{'ENABLE_VERBOSE'}{'on'} /> [-s]</td>
|
|
<td class='base'>$Lang::tr{'calamaris byte unit'}:</td>
|
|
<td><select name='BYTE_UNIT'>
|
|
<option value='B' $selected{'BYTE_UNIT'}{'B'}>Byte</option>
|
|
<option value='K' $selected{'BYTE_UNIT'}{'K'}>KByte</option>
|
|
<option value='M' $selected{'BYTE_UNIT'}{'M'}>MByte</option>
|
|
<option value='G' $selected{'BYTE_UNIT'}{'G'}>GByte</option>
|
|
</tr>
|
|
</table>
|
|
|
|
<hr size='1'>
|
|
|
|
<table width='100%' border='0'>
|
|
<tr>
|
|
<td colspan='4' class='base'><b>$Lang::tr{'calamaris performance options'}</b></td>
|
|
</tr>
|
|
<tr>
|
|
<td width='30%' class='base'>$Lang::tr{'calamaris skip archived logfiles'}:</td>
|
|
<td width='15%'><input type='checkbox' name='SKIP_GZLOGS' $checked{'SKIP_GZLOGS'}{'on'} /></td>
|
|
<td width='30%'class='base'>$Lang::tr{'calamaris run as background task'}:</td>
|
|
<td width='25%'><input type='checkbox' name='RUN_BACKGROUND' $checked{'RUN_BACKGROUND'}{'on'} /></td>
|
|
</tr>
|
|
</table>
|
|
|
|
<hr size='1'>
|
|
|
|
<table width='100%' border='0'>
|
|
<tr>
|
|
<td align='left'> </td>
|
|
<td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'calamaris create report'}' /></td>
|
|
<td width='33%' align='right'> </td>
|
|
</tr>
|
|
|
|
</table>
|
|
|
|
END
|
|
;
|
|
|
|
&Header::closebox();
|
|
|
|
&Header::openbox('100%', 'left', "$Lang::tr{'calamaris available reports'}:");
|
|
|
|
my @content=();
|
|
my @reports=();
|
|
my @reportdata=();
|
|
my $description;
|
|
|
|
undef @reports;
|
|
|
|
foreach (<$reportdir/*>)
|
|
{
|
|
open (FILE, "$_");
|
|
@content=<FILE>;
|
|
if ($content[3] =~ /^Report\speriod/)
|
|
{
|
|
$description = timelocal(
|
|
substr($content[4],31,2),
|
|
substr($content[4],28,2),
|
|
substr($content[4],25,2),
|
|
substr($content[4],15,2),
|
|
$monthidx{substr($content[4],18,3)},
|
|
"20".substr($content[4],22,2));
|
|
push(@reports,join("#",$description,substr($_,rindex($_,"/")+1),$content[3],$content[4]));
|
|
}
|
|
close FILE;
|
|
}
|
|
|
|
@reports=reverse(sort(@reports));
|
|
|
|
|
|
print <<END
|
|
|
|
<table width='100%' border='0'>
|
|
<tr>
|
|
END
|
|
;
|
|
|
|
if (@reports)
|
|
{
|
|
print "<td><select name='REPORT' size='5'>\n";
|
|
foreach (@reports)
|
|
{
|
|
@reportdata=split(/#/);
|
|
print "\t<option ";
|
|
if ($reportsettings{'REPORT'} eq $reportdata[1]) { print "selected ";}
|
|
print "value='$reportdata[1]'>$reportdata[2] - $reportdata[3]</option>\n";
|
|
}
|
|
print "</select></td>\n";
|
|
} else { print "<td><i>$Lang::tr{'calamaris no reports available'}</i></td>\n"; }
|
|
|
|
print <<END
|
|
</tr>
|
|
</table>
|
|
<hr size='1'>
|
|
<table width='100%' cellpadding='5' border='0'>
|
|
<tr>
|
|
<td><input type='submit' name='ACTION' value='$Lang::tr{'calamaris refresh list'}' /></td>
|
|
END
|
|
;
|
|
|
|
if (@reports)
|
|
{
|
|
print <<END
|
|
<td> </td>
|
|
<td> </td>
|
|
<td><input type='submit' name='ACTION' value='$Lang::tr{'calamaris view'}' /></td>
|
|
<td><input type='submit' name='ACTION' value='$Lang::tr{'export'}' /></td>
|
|
<td><input type='submit' name='ACTION' value='$Lang::tr{'delete'}' /></td>
|
|
<td width='95%'></td>
|
|
END
|
|
;
|
|
}
|
|
|
|
print <<END
|
|
</tr>
|
|
</table>
|
|
</form>
|
|
END
|
|
;
|
|
|
|
if (($reportsettings{'ACTION'} eq $Lang::tr{'calamaris view'}) && (!($reportsettings{'REPORT'} eq '')))
|
|
{
|
|
&Header::closebox();
|
|
&Header::openbox('100%', 'left', "$Lang::tr{'calamaris view report'}:");
|
|
print "<pre>\n";
|
|
open (FILE, "$reportdir/$reportsettings{'REPORT'}");
|
|
@content=<FILE>;
|
|
close FILE;
|
|
foreach (@content)
|
|
{
|
|
s/</\</;
|
|
s/>/\>/;
|
|
print;
|
|
}
|
|
print "</pre>\n";
|
|
}
|
|
|
|
&Header::closebox();
|
|
|
|
&Header::closebigbox();
|
|
|
|
&Header::closepage();
|