#!/usr/bin/perl -w use strict; my $archive = "/home/www/html/ccp/archive.txt"; print "Content-type: text/html\n\n"; print "The CVS Continuity Project Mail Archive\n\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "\n"; print "

\n"; print "

CCP Mailing List Archive

\n"; print "
\n"; print "\n

\n

\n

\n"; print "

    \n"; open (ARCHIVE, "<$archive") or die ("unable to open $archive ($!)\n"); my $date = ""; my $sender = ""; my $subject = ""; my $count = 0; while () { chomp; if (/^From [^\s]+\s+([a-zA-Z]{3} [a-zA-Z]{3} [0-9]{2} [0-9]{2}:[0-9]{2}:[0-9]{2} [0-9]{4})/) { $date = $1; } if (/^From: (.*)/) { $sender = $1; } if (/^Subject: (.*)/) { $subject = $1; } if ($date and $sender and $subject) { $count++; print "
  1. Subject: " . "${subject}" . "\n
    \n($sender, $date)
    2. \n

    \n"; $date = ""; $sender = ""; $subject = ""; } } close (ARCHIVE); print "\n"; print "

\n"; print "\n"; print "\n"; print "\n";