#!/usr/local/bin/perl5 -w # schedule.pl.cgi # This script generates an empty presentation schedule and a signup # form. ### The thing it does: ### 1. generate an empty schedule as a hash with times as keys done ### 2. display current schedule from file (save.txt or schedule.txt) done ### 3. display the rest of the form done ### 4. upon submit ### 4.1. if any required fields are missing ### -> display error message ### 4.2. else ### -> calculate required time length from # of participants ### 4.3. if time (+ length) is not available ### -> display error message ### 4.4. else ### -> save new entry to file done ### 4.5. go back to the beginning (1.) done $| = 1; #flush output $data_file = 'schedule.txt'; use CGI qw(:standard); use POSIX; $query = new CGI; print $query->header; print $query->start_html("Presentation Schedule - Spring 2003"); ################ Action to Save on Submit ####################### &save_parameters($query) if $query->param('action') eq 'Submit'; ######### Body of page ################# print <<"EndOfText";

Presentation Schedule - May 7 and 8, 2003

To sign up for a presentation slot:
  1. Hit the refresh button to see the latest signups
  2. Check the schedule and select an available time slot
  3. Enter your name, title and a very very short abstract (optional) below and submit the form
You should see your presentation next to your chosen time now. Good luck!

Note: Unfortunately multi-person presentations cannot be entered as one at the moment. Please choose time slots adjacent to each other and enter your names separately. Please only write the abstract, if any, once for every multi-person presentation.

Note 2: If you can't sign up, it may be that your time slot has already been taken. Choose another one and try again.

This form hasn\'t been tested extensively. If there are any problems with it please email paulina.

EndOfText ############### Start signup form ########################## print $query->startform; print <<"EndOfText";
Wed, May 7 in 2-190 Thu, May 8 in 4-370
EndOfText ####print "
"; ################ Empty form generation ##################### $day1 = "7"; #"Wed, May 7"; $day2 = "8"; #"Thu, May 8"; @times = (); %time_entries = (); ###print "\ntimes are: @times, time_entries are: %time_entries\n"; for ($i=0; $i<=20; $i++) { $t = floor($i/6); $hr = 6+$t; if ($i) { $mn = $i%6; } else { $mn = 0; } ## maybe it should be just one index: day:time $time_index = "$hr:$mn"."0pm"; # print "\ntime_index = $time_index
"; push(@times, $time_index); $time_entries{$day1,$time_index} = (); $time_entries{$day2,$time_index} = (); } ##print "\n
times are: @times
\n"; ############# Read File and update time_entries ################ &restore_schedule; ###print "\n
times are: @times
\n"; ################ Form entry generation ##################### my $ti; foreach $ti (@times) { print "\n"; if (! defined $time_entries{$day1,$ti}) { print <<"EndOfText1" ; EndOfText1 } else { $blah = $time_entries{$day1,$ti}; if ($blah =~ /([\w\W\s]+):([\w\W\s]+):([\w\W\s]*)/) { print <<"EndOfText1" ; EndOfText1 } elsif ($blah eq "") { print "Empty string in entry format, but defined \n
"; } else { print "Something is wrong in the entry format... $blah \n
"; die ; } } if (! defined $time_entries{$day2,$ti}) { print <<"EndOfText2" ; EndOfText2 } else { $blah = $time_entries{$day2,$ti}; if ($blah =~ /([\w\W\s]+):([\w\W\s]+):([\w\W\s]*)/) { print <<"EndOfText2" ; EndOfText2 } elsif ($blah eq "") { print "Empty string in entry format, but defined \n
"; } else { print "Something is wrong in the entry format... $blah \n
"; die ; } } print "\n\n"; } #end foreach $ti of @times print <<"EndOfText3";
Time Participants Title Extremely short abstract Time Participants Title Extremely short abstract
What's going on?
$ti
Sign up
 $ti $1 $2 $3$ti
Sign up
 $ti $1 $2 $3

Presentation Details

Name
Title
Very Short Abstract
EndOfText3 print $query->end_html; #----------------------------- auxiliaries -------------------------# sub save_parameters { local ($query) = @_; local ($filename) = $data_file; ## all error handling here # - a time, a name and a title? my $time = $query->param('time'); my $name1 = $query->param('name1'); my $title = $query->param('title'); my $day; my $realtime; if (!$time or !$name1 or !$title) { print "\n
You must choose a time and provide one" . " name and a title of your presentation. Try again.
\n"; } else { if ($time =~ /^(\d):(\d:\d\dpm)/) { $day = $1; $realtime = $2; if (defined $time_entries{$day,$realtime}) { print "\n
This time slot has already been" . "taken, probably by someone submitting their request at the" . "same time as you. Please choose another one and try again.
"; } else { ### at this point everything is good with the entry if (open(FILE,">>$filename")) { $query->save(FILE); close FILE; # print "State has been saved to file $filename\n"; } else { print "Error: couldn't write to file $filename: $!\n"; } } } } # end else (if everything is present in the form) } sub restore_parameters { local ($query) = @_; #not needed local ($filename) = $data_file; if (open(FILE,$filename)) { #generate new query from file, but wait - there's many of them while (!eof(FILE)) { my $q = new CGI(FILE); push (@genpage, $q); } close FILE; } else { print "Error: couldn't restore from file $filename: $!\n"; } return @genpage; } sub restore_schedule { ### call to regenerate webpage from the saved file local (@updatedpage) = &restore_parameters; my ($day,$time); ### restore the full schedule foreach $entry (@updatedpage) { # what day and time? if ($entry->param('time') =~ /^(\d):(\d:\d\dpm)/) { $day = $1; $time = $2; ### print "
$day $time
"; } else { print "I read: "; print $entry->param('time'); print "
Bad date and time formatting in file
\n"; die; } ### assuming one name per query my ($n,$t,$ab) = ($entry->param('name1'),$entry->param('title'),$entry->param('abstract')); if (! defined $time_entries{$day,$time}) { $time_entries{$day,$time} = "$n:$t:$ab"; } else { $ohdear = $time_entries{$day,$time}; # print "
Time entry already taken.
\n"; # die; } } ## print the whole hash # foreach $key (keys %time_entries) { # print "
$key -> $time_entries{$key}
\n"; # } }