List of Chefs

#!/usr/local/bin/perl5 if ($ENV{QUERY_STRING}=~ /name=(france|italy|japan|china)/) { $search= $1; } else { print("Location: index.cgi\n\n"); exit(0); } $new= $ENV{QUERY_STRING}=~ /newjoin/; if ($new) { $desc= "Welcome!"; } else { $desc="Introducing..."; } open(POP, "people"); $count= 1; $totalcount= 1; $list= ""; while () { ($name, $email, $effort, $team, $img, $haiku)= split(/\#\#\#/); if (($team eq $search) && ($totalcount > 4)) { $haiku=~ s!///!
!g; $list.= "\n"; if ($img ne "") { $list.= "

"; } else { $list.= "

"; } $list.= "\n"; $list.= "$name\n"; $list.="$haiku"; $list.="\n"; $count++; } elsif ($team eq $search) { $capmail = $email; } $totalcount++; } $pic = $search._pic; $n = $search._name; if ($search eq "japan") { if ($new) { $teamstr = "has chosen you to join her team of sous chefs..."; } else { $teamstr = "and her team of sous chefs..."; } } else { if ($new) { $teamstr = "has chosen you to join his team of sous chefs..."; } else { $teamstr = "and his team of sous chefs..."; } } print < List of Chefs $desc

$teamstr

$list

EOF ;