#!/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&nbsp;</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'>&nbsp;</td>
<td width='33%' align='center'><input type='submit' name='ACTION' value='$Lang::tr{'calamaris create report'}' /></td>
<td width='33%' align='right'>&nbsp;</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] &nbsp;-&nbsp; $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>&nbsp;</td>
<td>&nbsp;</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/</\&lt;/;
		s/>/\&gt;/;
		print;
	}
	print "</pre>\n";
}

&Header::closebox();

&Header::closebigbox();

&Header::closepage();
