 |
#!/usr/local/bin/perl
use Data::Dumper;
print "Content-type: text/html\n\n";
open(DB, "../cvsnews.db") || die "../cvsnews.db: $!";
$lastmsg='BOLL';
$lastdate='NOLL';
while( ) {
chomp;
if(/^-!-/) {
s/^-!- //;
if(defined $msg) {
$msg=~s/\&/&/g;
$msg=~s/\/>/g;
}
if(defined $msg && $msg ne $lastmsg) {
$entry.="\t\t$msg";
}
if($_ ne $lastdate) {
if(defined $entry) {
$entry.="\t\n";
push @out, $entry;
}
$entry="\t$_\n\t\n";
}
$lastmsg=$msg;
$msg='';
$lastdate=$_;
}else {
$msg.="$_\n";
}
}
if(defined $entry) {
if(defined $msg) {
$msg=~s/\&/&/g;
$msg=~s/\/>/g;
}
if(defined $msg && $msg ne $lastmsg) {
$entry.="\t\t- $msg";
}
$entry.="\t
\n";
push @out, $entry;
}
close DB;
#print Dumper(\@out);
while( $_ = pop @out ) {
print $_;
}
|
