#!/usr/local/bin/perl $len= $ENV{CONTENT_LENGTH}; read(STDIN, $query, $len); $vals{image}= "http://..."; @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 2001 signup

If memory serves me right...
It's time to sign up for the Iron Chef Olympics!

$oops
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, but highly encouraged)
Briefly state your
cooking background.
(This is optional)

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 = "iron-chefs-"; $minteam=~ tr/A-Z/a-z/; $mailalias .= $minteam; if (open (MAIL, ">>/com/mailer/olympics2001/$mailalias")) { print MAIL "$email\n"; close MAIL; } #open (OUT2, ">>/com/web/docs/people/calvarad/olympics/people"); #print OUT2 "$myline\n"; #close OUT2; open (OUT, ">>people"); print OUT "$myline\n"; close OUT; print "Location: team.cgi?name=$minteam&$mailalias&newjoin=1\n\n"; #print "Location: index.cgi\n\n";