#!/usr/local/bin/perl5 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); $year+=1900; $mon++; @months=("January","February","March","April","May","June","July","August", "September","October","November","December"); print "Content-type: text/html\n\n"; $text = < Add an Event

Add an event to the MIT event listings

PAGETOP print "$text\n"; $cal=`cal`; print "

\n";
print "$cal\n";
print "

\n"; $text= <

*Event Title:
*Date:	\n"; print "
*Time:	:
*Primary Category:

Additional Categories:

Social	Party	Concert
Film	Performance	Dance
Academic	Lecture	Symposium/Colloquim
Career Related	Meeting

*Sponsor Organization/Individual:
*E-mail contact:
URL:
Location:
Fees:
Intended Audience:
Attire:

Description:

END_OF_PAGE print "$text\n";