#!/usr/bin/perl $HOME = (getpwuid( $< ))[7]; $SRC="/home/web/ranulf.net/docs/britdisc/britdisc"; $DST="/home/web/ranulf.net/docs/britdisc/old"; $art=0000; open (fSRC,$SRC); open (fDST,">/dev/null"); open (fIDX,">$DST/index.html"); print fIDX "BritDisc Archive". "

BritDisc Archive

". "Please choose one of the following articles:

) { # if (/^From britdisc-owner\@csv.warwick.ac.uk/) { if (/^From\s*(\S*)\s*(.*)/) { if ($gotblank) { print fDST "\n"; close(fDST); $art++; open(fDST,">$DST/$art.html"); $gotsubject=0; print fDST "BritDisc article #$art". "

\n";
			$date=$2;
		}
	}
	if (/^$/) {
		$gotblank=1;
	} else {
		$gotblank=0;
	}
	if (/^Subject:[ \t]*(.*)/) {
		$subj=$1;
		$subj=~s//>/g;
		push @indexList,"#$art - $subj $date\n" if ($gotsubject==0);
#		print fIDX "
#$art - $1 $date\n" if ($gotsubject==0);
		$gotsubject=1;
	}
	s//>/g;
	print fDST $_;
}

while ($_=pop @indexList) {
	print fIDX $_;
}

print fIDX "

\n"; print fIDX <

27/3/01 - end of old list

EOF print fIDX "BritDisc archive
(c) 1996 Ranulf Doswell". "\n"; print fDST "\n"; close(fSRC); close(fDST); close(fIDX);