# This is a simple reformatter for converting
# text files of regional results into HTML.
#
# the input format is:
# tournament
# date
#
# event
#
# 1 pair
# 2 pair
# 3 pair
# etc.
# Build header
print "\n";
print "
\n";
print "";
$_ = <>;
print "Winners: $_";
print "\n";
print "\n";
print "\n";
print "Winners!
\n";
print "$_
\n";
$_ = <>;
print "$_\n";
print "\n";
print "\n";
# Start list of events
print "
\n";
$top = 1;
while(<>)
{
s/^ *//;
if (/\(.*\)/)
{
#if (!$top) {print "\n\n";}
$top = 0;
print "\n";
print "
- ";
print "$_";
print "\n";
#print "
\n";
}
elsif (m|^[1-9] | || m|^[1-9]/[1-9]|)
{
print "- \n";
$hold = $_;
split; chop;
$num = shift(@_);
$rest = join(" ",@_);
print "$num";
print '. ';
print " $rest\n";
}
else
{
print;
}
}
print "\n";
print "
\n";
# Print Trailer
print "
\n";
print "\n";
print 'Jeff Goldsmith, ',"\n";
print 'jeff@tintin.jpl.nasa.gov, ',"\n";
&printdate;
print "\n";
print "\n";
print "\n";
sub printdate
{
$_ = `date`;
split;
print "$_[1]. $_[2], $_[5]\n";
}