Campaign Roster

#!/usr/local/bin/perl5 if ($ENV{QUERY_STRING}=~ /name=(Sounds|Cannons|Bodies|Donalds)/) { $search= $1; } else { print("Location: index.cgi\n\n"); exit(0); } $new= $ENV{QUERY_STRING}=~ /newjoin/; if ($search eq "Sounds") { if ($new) { $desc= "Welcome to the Giant Sucking Sounds!"; } else { $desc="Now here's the deal:"; } } elsif ($search eq "Cannons") { if ($new) { $desc= "Welcome to the Loose Cannons!"; } else { $desc="Don't you dare tell us to shut up!"; } } elsif ($search eq "Bodies") { if ($new) { $desc= "Welcome to the Bodies!"; } else { $desc="What're you lookin' at?"; } } elsif ($search eq "Donalds") { if ($new) { $desc= "Welcome to the Donalds!"; } else { $desc="We've already put our down payment on the White House."; } } open(POP, "people"); $count= 1; $list= ""; while () { ($name, $email, $effort, $team, $img, $haiku)= split(/\#\#\#/); if ($team eq $search) { $haiku=~ s!///!
!g; $list.= "\n"; if ($img ne "") { $list.= "

"; } else { $list.= "

"; } $list.= "\n"; $list.= "$name\n"; $list.="$haiku"; $list.="\n"; $count++; } } $podium= $count*75-160; $podium= 0 if ($podium<0); print < Campaign Roster $list

	$desc

EOF ;