#!/usr/bin/perl use CGI; $in=new CGI; print "Content-type:text/html\n\n"; $class = $in->param('class'); $name = $in->param('name') if $in->param('name'); $email = $in->param('email') if $in->param('email'); $notes = $in->param('notes') if $in->param('notes'); $major = $in->param('major') if $in->param('major'); $year = $in->param('year') if $in->param('year'); $status = $in->param('status') if $in->param('status'); if ($in->param('init')) { buildform($class,"",""); exit(); } if (!$name) { buildform($class,"Need Name", "Please enter your name.", $name,$email,$notes); exit(); } if (!($email =~ /[@]/)) { buildform($class,"Need Email", "I cannot process the form without an email address.", $name,$email,$notes); exit(); } if (!$major) { buildform($class,"Need Major","Please specify your major.", $name,$email,$notes); exit(); } if (!$year) { buildform($class,"Need Year", "Please specify your student status.", $name,$email,$notes); exit(); } if (!$status) { buildform($class,"Need status", "Please specify your probable registration status.", $name,$email,$notes); exit(); } if ($major=~/O/) { $major .= "/" . $in->param('othermajor'); } if ($in->param('6041')) { $prereq = "1"; } else { $prereq = "0"; } if ($in->param('6046')) { $prereq .= "1"; } else { $prereq .= "0"; } if ($in->param('6854')) { $prereq .= "1"; } else { $prereq .= "0"; } $date = `date`; open(DATAFILE, ">>/afs/csail.mit.edu/proj/courses/$class/current/Classlist/classlist"); flock(DATAFILE, 2); print DATAFILE <Registered

Done

You are now registered. WEB_PAGE sub buildform { local ($class,$head,$message,$name,$email,$note) = @_; $classname=$class; $classname=~s/^6/6\./; $name= "VALUE=" . '"' . $name . '"' if $name; $email="VALUE=" . '"' . $email . '"' if $email; print <$head $message

$classname Registration Form