+<:
+
+ if (opendir (NEWS, "News/")) {
+ @news = reverse (sort (grep (/^news-.*\.txt$/,readdir (NEWS))));
+ closedir (NEWS);
+ }
+
+ my ($date_sec,$date_min,$date_hour,$date_mday,$date_mon,$date_year,$date_wday,$date_isdst)
+ = localtime(time-24*60*60*10);
+ my $pivot = sprintf ("%04d-%d-%02d", $date_year+1900, $date_mon+1, $date_mday);
+
+ my @top = ();
+ foreach my $fname (@news) {
+ $fname =~ /news-(\d+-\d+-\d+).*/;
+ push (@top, $fname) if ($1 gt $pivot);
+ }
+
+ if ($#top > -1) {
+:>
+<center>
+<border width=90% color=0000ff>
+<:
+ while (my $news = shift @top) {
+ $news =~ /news-(\d+)-(\d+)-(\d+).txt/;
+ $date = "$3.$2.$1";
+ if (open (NEWS, "News/$news")) {
+ printf "<b>%s</b><br>", $date;
+ while (<NEWS>) {
+ if (/\\$/) {
+ s,\\$,,;
+ chomp;
+ }
+ print;
+ }
+ close (NEWS);
+ print "<hr>" if ($#top > -1);
+ }
+ }
+:>
+</border>
+</center>
+<:
+ }
+
+:>
+<p>
+