#!/usr/local/bin/perl $len= $ENV{CONTENT_LENGTH}; read(STDIN, $query, $len); $vals{image}= "http://..."; $vals{haiku}= "Haikus have 3 lines:\nFive syllables, then seven,\nthen five once again."; @parts= split(/&/, $query); foreach $part (@parts) { ($name, $val)= split(/=/, $part); $val=~ tr/+/ /; $val=~ s/%(..)/pack("H2", $1)/eg; $vals{$name}= $val; } $fail= ""; $name= $vals{name}; $email= $vals{email}; $commit= $vals{commitment}; $pic= $vals{image}; $haiku= $vals{haiku}; $haiku=~ tr/\r/\n/; $haiku=~ s!\n+!///!g; $submitted= $vals{signup}; $fail= "You haven't noted how many events you'll attend\n" if ($commit eq ""); $fail.= "You haven't entered your email address\n" if ($email eq ""); $fail.= "You haven't entered your name\n" if ($name eq ""); $pic="" if ($pic=~/\.\.\./); open(IN, "people"); while() { ($rname, $remail, $reffort, $rteam, $rimg, $rhaiku)= split(/\#\#\#/); $fullness{$rteam}+= ($reffort+1); $fail.= "You have already been signed up to the $rteam team\n" if ($remail eq $email); } close IN; if ($fail ne "") { if ($submitted ne "") { $fail=~ s/\n/
/g; $oops= "

Oops!: $fail

"; } print < Olympics 2000 signup

Sign up for a campaign!

$oops EOF ; exit(0); } # find the team with the lowest commitment $mincommit= 999999999; foreach $cteam (keys %fullness) { if ($fullness{$cteam} < $mincommit) { $mincommit= $fullness{$cteam}; $minteam= $cteam; } } $myline= join("###", ($name, $email, $commit, $minteam, $pic, $haiku)); ($mailalias= $minteam)=~ tr/A-Z/a-z/; #if (open (MAIL, ">>/com/mailer/olympics2000/$mailalias")) { # print MAIL "$email\n"; # close MAIL; #} #open (OUT2, ">>/com/web/docs/people/wessler/olympics/people"); #print OUT2 "$myline\n"; #close OUT2; #open (OUT, ">>people"); #print OUT "$myline\n"; #close OUT; #print "Location: team.cgi?name=$minteam&newjoin=1\n\n"; print "Location: index.cgi\n\n";

Your name:
Full e-mail address:
How many events do you think you will attend? (Be honest)	Very few About 1/4 About half About 3/4 All of them!
URL of a picture of you (optional)
Enter a Haiku about this year's election (This is optional)	$vals{haiku}