#!/usr/local/bin/perl5 if ($ENV{QUERY_STRING}=~ /name=(love|peace|truth|plenty)/) { $search= $1; } else { print("Location: main.html\n\n"); exit(0); } $new= $ENV{QUERY_STRING}=~ /newjoin/; if ($new) { $desc= "Welcome..."; } else { $desc=""; } open(POP, "enlist/people"); $count= 1; $totalcount= 1; $list= ""; if ($search eq "plenty") { $fontcolor="black"; } else { $color = "black"; } while () { ($name, $email, $effort, $team, $img, $quotation)= split(/\#\#\#/); if( $team eq $search ) { $list.= "\n

!g; # Make the cell with the quotation: $list.= "$quotation"; $list.= "\n"; $count++; } elsif ($team eq $search) { $capmail = $email; } $totalcount++; } $pic = $search._pic; $n = $search._name; if ($search eq "love") { $ministry = "Ministry of Love"; $color = "red"; } elsif ($search eq "plenty") { $ministry = "Ministry of Plenty"; $color = "#666666"; } elsif ($search eq "peace") { $ministry = "Ministry of Peace"; $color = "white"; } else { $ministry = "Ministry of Truth"; $color = "#CCCCCC"; } print < $ministry $desc

$ministry

$list

[Back] EOF ;