$Teamname

#!/usr/local/bin/perl5 if ($ENV{QUERY_STRING}=~ /name=(gryffindor|slytherin|hufflepuff|ravenclaw)/) { $teamname= $1; } else { print("Location: index.html\n\n"); exit(0); } $new= $ENV{QUERY_STRING}=~ /newjoin/; if ($new) { $desc= "

"; } else { $desc=""; } open(POP, "enroll/people"); $count= 1; $totalcount= 1; $list= ""; if ($teamname eq "gryffindor") { $Teamname = "Gryffindor"; $color = "#CC0000"; $fontcolor = "#FFCC00"; } elsif ($teamname eq "slytherin") { $Teamname = "Slytherin"; $color = "#114E11"; $fontcolor = "#D0D0D0"; } elsif ($teamname eq "hufflepuff") { $Teamname = "Hufflepuff"; # $color = "#FFEE66"; $color = "#ffee44"; # $fontcolor = "#6655cc"; $fontcolor = "#111166"; } else { $Teamname = "Ravenclaw"; $color = "#000080"; # $fontcolor = "#CCDDFF"; $fontcolor = "#ffa500"; # $fontcolor = "#AC9873"; } while () { ($name, $email, $effort, $team, $img, $quotation)= split(/\#\#\#/); if( $team eq $teamname ) { $list.= "\n"; # Make the cell with the image: if ($img && $img ne "http://") { $list.= "

!g; # Make the cell with the quotation: $list.= "$quotation"; $list.= "\n"; $count++; } elsif ($team eq $teamname) { $capmail = $email; } $totalcount++; } $pic = $teamname._pic; $n = $teamname._name; $email = $teamname . "\@ai.mit.edu"; print < $Teamname $desc

$Teamname

Email all your team members at: $email

$list

EOF ;