#!/usr/bin/perl

#$DIR=$ENV{DOCUMENT_ROOT};


#require("$DIR/old/lib/head_tailnew.lib");
require("head_tailnew.lib");
&clean_parse();
&print_header();

print &head('News');
#open(DAT,"<$DIR/old/data/news/news.dat");
open(DAT,"<../web/data/news/news.dat");
@data = <DAT>;
close(DAT);


@data = reverse @data;
$news4page = 3;

if ($in{start}){
	$start = $in{start};
	$p = $start-$news4page;
	$prev = "<a href=\"indexstampa.cgi?start=$p\">notizie precedenti</a>";
}else{
	$start = 0;
	$prev = '&nbsp;'
}

$end = $start + $news4page;
if ($end > $#data) {
	$end = $#data +1;
	$next = '&nbsp;'
}else{
	$n = $start+$news4page;
	$next = "<a href=\"indexstampa.cgi?start=$n\">notizie successive</a>"
}

for ($i=$start;$i<$end;$i++) {
	($quando,$titolo,$testo) = split(/\|/,$data[$i]);
#	($quando,$testo) = split(/\|/,$data[$i]);
	$quando=~/(\d\d\d\d)(\d\d)(\d\d)\d./;
        $anno  = $1;
        $mese = $2;
        $giorno = $3;
	print <<END;
<div class="news">
	<em>$giorno/$mese/$anno</em><br><b>$titolo</b><br>
	<p>$testo</p>
	</div>
END

}

print<<END;
<div class="naviga">$prev $next <a href="javascript:doit()">Stampa la pagina</a>
</div>
END

print &tail();

1;