information download history screenshots documentation contacts
Gtk+LICQ

CVS News

#!/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 $_; }