#!/usr/local/bin/perl
##########################################################################
#################### read info for this year: ############################
do "../INFO.pl";
##########################################################################
$bodystmt='bgcolor="#009ebe"';
$title="Bulletin Board for Copper Mountain Conference";
$ThisDir="/www/faculty/copper/$Year/Messages";
$CopperMtHome="/faculty/copper/$Year/";
$addmesgfile="add.html";
$readmesgfile="read.cgi";
$mesgdir="$ThisDir/messages";
# the month and year you started the bulletin board
$startyear=($Year-1);
$startmonth=10;
##########################################################################
@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@months = qw(January February March April May June July August
September October November December);
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
$year += 1900;
print "Content-type: text/html\n\n";
print "\n";
print "\n\n$title\n";
chdir($ThisDir);
@VarNames=();
%VarValues=();
if (($ENV{"REQUEST_METHOD"} eq "GET") && ($ENV{"QUERY_STRING"} eq ""))
{
# when we'll start looking from
$m = $startmonth;
$y = $startyear;
# a little html code
print "\n";
print "Select what you want
\n";
print "Please fill out the form below to choose which messages\n";
print "you would like to scan.
\n";
print "
Post a message to the bulletin board.
Return to main page
EOR
exit 0;
}
# this will get the url-encoded data string (all the stuff the
# user-entered into netscape) and put it in variable called $buffer
if ($ENV{"REQUEST_METHOD"} eq "POST")
{
read (STDIN,$buffer,$ENV{"CONTENT_LENGTH"});
}
else
{
$buffer=$ENV{"QUERY_STRING"};
}
# decode it and put stuff in array VarValues and hashtable VarValues
&DecodeUrl($buffer);
# give 'em easier to type names
@names = @VarNames;
%values = %VarValues;
# we don't need all that memory anymore
@VarNames=();
%VarValues=();
# get the month and year from the url-encoded string
($m,$y)= split(/:/,$values{"month"});
# start the html code
print "
\n";
# bad month
# 1. $m is not "all" and it's not a number
# 2. $m is a number but the year is not a number
# 3. $m is a number but it's larger than 12 or less than 1
if ( (($m !~ /^all$/) && ($m !~ /^\d+$/)) || (($m =~ /^\d+/) && ($y !~ /^\d+/))
|| (($m =~ /^\d+$/) &&($m > 12 || $m < 1)) )
{
print "Bad Format
\n";
print "The month field isn't in the correct format, which means\n";
print "that you're doing something you shouldn't be.\n";
print "\n";
print "Try using the offical search page\n";
print "
\n";
print "Post a message to the bulletin\n";
print "board\n
\n";
print "Return to main page\n";
print "\n";
exit 1;
}
# so now month should be either number (1-12) or "all" and year should be good
# if we are not supposed to looking through all months, and the url-encoded
# string contained a "number=..." field
if (($m !~ /^all$/) && ($values{"number"} =~ /^\d+$/))
{
# this is the mesgno we want to look for
$number=$values{"number"};
# the name of the message file
$filename=sprintf("%s/mesg%d.%02d.html",$mesgdir,$y,$m);
# if that file's unavailible, give a message
&MessageUnavailable($number,$m,$y) if (!open(MESG,$filename));
$_ = ; # get header
# go through each line of the file
while ()
{
chop;
# found a new message in the file
if (//)
{
next if ($1 != $number); # not our message number
}
# if not new message line, get next line
else
{
next;
}
# if we get here, it means we found the appropiate message in
# the file
# html code
print "Message #$number
\n";
# read in the whole message
($date,$homepage,$name,$email,$subject,$message) =
&readmessage(MESG);
# print out date, header, and message
print "Date Posted: ",$months[$m-1]," $date, ",$y,"
\n";
&printheader($homepage,$name,$email,$subject);
print "\nMessage:
$message
\n";
print "Post a message to the\n";
print "bulleting board.\n
\n";
print "Return to main page\n";
print "