#!/usr/bin/perl $version = "CoolSoft's Archive Viewer v1.0"; print < Cornwall Sports Hall Athletics - Newsletter Archive

Newsletter Archive

EOF open (MSGINDEX, "/home/server/cornwallsportshall.org.uk/sportsnews/subjects.txt"); @readdata = ; close (MSGINDEX); foreach $line (@readdata) { ($id, $subject) = split (/%/, $line); $subjects{$id} = $subject; } $id = $ENV{QUERY_STRING}; if ( exists($subjects{$id})) { print "

Previous Newsletter

\n"; $id = $ENV{QUERY_STRING}; $date = &finddate ($id); print "

\n"; print "
Subject: $subjects{$id}
Date: $date
\n"; print "
\n";
    open (MESSAGE, "/home/server/cornwallsportshall.org.uk/sportsnews/${id}.msg");
    print ;
    print "
\n"; print "

\n"; print "

Back to Newsletter Archive Index

\n"; } else { print "

Index to Past Newsletters

($date) - $subjects{$id}\n"; } print "

\n"; } print < www.CornwallSportsHall.org.uk EOF sub finddate { $date = substr (@_[0], 6,2)."/" . substr (@_[0], 4,2)."/".substr(@_[0],0,4); }