#!/usr/bin/perl
use Vallet5;
use CGI;
$form = new CGI;
print $form->header('text/html');
print <<'ENDHTML';
Elenco delle fatture registrate.
I documenti registrati, possono essere esaminati, cliccando sul riferimento:
ENDHTML
open (FAT, "riepilogo") or die "Can't open riepilogo: $!\en";
while () {
chomp($_);
if ($i) {
print "" if !(($i-1)/5 - int(($i-1)/5));
print "| Fattura n°
ENDHTML
print $i;
print <<'ENDHTML';
ENDHTML
}
$i++;
}
print <<'ENDHTML';
|
Data ultimo aggiornamento
ENDHTML
print &adesso();
print <<'ENDHTML';
Riepilogo fatture.
ENDHTML
# /box/y_2005/r_elenco.cgi