#!/usr/local/bin/perl5 use MITEvents; require 'parseform.pl'; require 'categories.pl'; $ae = substr($ENV{'SCRIPT_NAME'}, 5); $link = ($ae=~/link/); $le = $link ? "listevents.link":"listevents"; if($link){ $override = 1 if(-e "/afs/sipb/user/mkgray/project/mitevents/security/$ENV{'REMOTE_HOST'}"); } if((substr($ENV{'REMOTE_HOST'},0,3) ne "18.") && 1){ print("Content-type: text/html\n\n"); print "\n"; &mit_only; print "
\n"; &footer; exit; } if($ENV{'REQUEST_METHOD'} eq "GET") { if($ENV{'PATH_INFO'} =~/edit/){ %form = &parseform($ENV{'QUERY_STRING'}); $dbfile = "/var/local/www/data/eventsdb"; loadDB($dbfile); $ev = getEvent($form{'id'}); @ee = @$ev; ($cnf, $host) = split("/", $ee[$CONFIRMATION]); if(($host ne $ENV{'REMOTE_HOST'}) && !$override){ print("Content-type: text/html\n\n"); print "\n"; &cant_edit; &footer; exit; } (@dinfo) = split(/\//, $ee[$DATE]); $vmon = $dinfo[0]; $vday = $dinfo[1]; $vyear = $dinfo[2]; (@tinfo) = split(/:/, $ee[$TIME]); $vhour = $tinfo[0]; $vminute = $tinfo[1]; if($vhour > 12){ $vhour-=12; $vpm = "SELECTED"; $ampm="pm"; } elsif($vhour == 0){ $vhour = 12; $vam = "SELECTED"; $ampm="am"; } else{ $vam = "SELECTED"; $ampm="am"; } $vtitle = $ee[$TITLE]; $pcat = substr($ee[$CATEGORIES], 0, 1); $vpcat{$pcat} = "SELECTED"; @ocat = split(//, substr($ee[$CATEGORIES], 1)); foreach $oc (@ocat){ $vcat{$oc} = "CHECKED"; } $vsponsor = $ee[$SPONSOR]; $vemail = $ee[$EMAIL]; $vlocation = $ee[$LOCATION]; $vurl = $ee[$URL]; $vfees = $ee[$FEES]; $vaud = $ee[$AUDIENCE]; $vattire = $ee[$ATTIRE]; $vdesc = $ee[$DESCRIPTION]; $veform = "\n"; $editing = 1; &show_form; &footer; exit; } else{ $vpm="SELECTED"; $vpcat{p} = "SELECTED"; &show_form; &footer; exit; } } read(STDIN, $pdata, $ENV{'CONTENT_LENGTH'}); %form = &parseform($pdata); $dbfile = "/var/local/www/data/eventsdb"; loadDB($dbfile); # Massage form data into an event array $confirmation = "y/$ENV{'REMOTE_HOST'}"; $date = $form{'month'}."/".$form{'day'}."/".$form{'year'}; $hour = $form{'hour'}; $minute = $form{'minute'}; &bogus("time") if (!$hour || !$minute); if(($form{'ampm'} eq "pm") && ($hour < 12)){ $hour+=12; } if(($form{'ampm'} eq "am") && ($hour == 12)){ $hour = 0; } $time = "$hour:$minute"; $title = $form{'title'}; $categories = $form{'prim_cat'}.join("", split("\n", $form{'other_cat'})); $sponsor = $form{'sponsor'}; $email = $form{'email'}; $url = $form{'url'}; $location = $form{'location'}; $fees = $form{'fees'}; $audience = $form{'aud'}; $attire = $form{'attire'}; $description = $form{'desc'}; &bogus("title") if !$title; &bogus("sponsor") if !$sponsor; &bogus("email") if !$email; &bogus("location") if !$location; @e = ($date, $time, $title, $categories, $sponsor, $email, $url, $location, $fees, $audience, $attire, $description, $confirmation); if($form{'id'}){ $myev = getEvent($form{'id'}); ($cnf, $host) = split("/", ${$myev}[$CONFIRMATION]); if(($host ne $ENV{'REMOTE_HOST'}) && !$override){ print("Content-type: text/html\n\n"); print "\n"; &cant_edit; &footer; exit; } push(@e, $form{'id'}); @{$myev} = @e; } else{ newEvent(\@e); } writeDB($dbfile); print("Content-type: text/html\n\n"); print "\n"; print "The calendar has been updated.
\n"; &footer; exit; sub bogus{ my $what = shift; print("Content-type: text/html\n\n"); print "\n"; print("You need to fill out the \"$what\" entry on the form. Please go back and resubmit the form.
\n"); &footer; exit; } sub show_form { if($editing) { $year = $vyear; $mon = $vmon; $mday = $vday; } else{ ($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=`/usr/bin/cal`; print "
\n";
#print "$cal\n";
print "
\n"; $text= <* are required.
$veform END_OF_SEC1 print "\n\n
*Event Title:
*Date: \n"; print " 
$cal
*Time::
*Primary Category:
\n\nAdditional Categories:\n\n"; foreach $categ (@categories) { $ctgct++; print("\n" if($ctgct%3 == 0); } print "
"); print(" $categ\n"); print "
"; print <
*Sponsor Organization/Individual:
*E-mail contact:
*Location:
URL:
Fees:
Intended Audience:
Attire:

Description:


END_OF_PAG2 if($editing){ print < $veform END_OF_PAGE @cats=split(//,$categories); for ($i=0;$i<$#cats;$i++) { print "\n"; } print <
END_OF_PAGE } } sub footer { print("[List Events] [Add Event] [Today's Events] [Parties this weekend] [Help/Instructions]\n"); } sub mit_only { print("Only users at MIT (on net 18) may add events to the list.\n"); } sub cant_edit { print("Events are only editable from the same host which originally added them.
\n"); }