sub printTop { # Print the top of the document # &printTop($outfile, $version, $by); # $outfile = output file handle # $version = kind of listing # $by = what we'll be listing by local($outfile, $version, $by) = @_; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "MIT Community Home Pages ($version)\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "

\"[fireplace]\"\n"; print $outfile "MIT Community Home Pages

\n"; print $outfile "

$version

\n"; print $outfile "\n"; print $outfile "
\n"; print $outfile "

To link your own home page into this document, please\n"; print $outfile "read the instructions\n"; print $outfile "on how to add your home page to our server.

\n"; print $outfile "\n"; print $outfile "

This listing is alphabetical by $by. Electronic mail addresses\n"; print $outfile "are at mit.edu unless otherwise specified.

\n"; print $outfile "\n"; print $outfile "
\n"; print $outfile "\n"; print $outfile "
\n"; print $outfile "Give me the home page for: \n"; print $outfile "
\n"; print $outfile "\n"; print $outfile "
\n"; print $outfile "\n"; print $outfile "
    \n"; print $outfile "\n"; } sub printBottom { # Print the bottom of the document # &printBottom($$outfile); # $$outfile = output file handle local($outfile) = @_; print $outfile "
\n"; print $outfile "\n"; print $outfile "
\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\"What's\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\"SIPB\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\"Other\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\"Activities\"\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\"Documents\"\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\"Fun\n"; print $outfile "\n"; print $outfile "
\n"; print $outfile "Last updated: ", `date`; print $outfile "\n"; print $outfile "
\n"; print $outfile "MIT Student Information Processing Board |\n"; print $outfile "webmaster\@mit.edu\n"; print $outfile "
\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; print $outfile "\n"; }