#!/usr/bin/perl
$color{F}="ff4444";
$color{R}="00aa88";
$color{C}="eeee00";
$color{E}="0000ff";
#get the query string
if($ENV{REQUEST_METHOD} eq 'GET')
{
$query=$ENV{QUERY_STRING};
}
if($ENV{REQUEST_METHOD} eq 'POST')
{
read(STDIN,$query,$ENV{CONTENT_LENGTH});
}
$query=~s/\+/ /g;
$query=~ s/%(..)/chr(hex($1))/ge ;
#decode query string into variable list
##### set defalt values #####
##### get query #########
if (defined($query))
{
@list=split('&', $query);
foreach (@list)
{
my ($key,$value) = split /=/;
$var{$key}=$value;
}
}
$s=160;
print "Content-type: text/html\n\n";
print 'Employee listings
';
###############
### help bar ##
###############
open(HELP, ")
{
chomp;
if(!($_=~m/emplist/)or !($_=~m/href/))
{
print"$_";
}
elsif($_ =~m/emplist/)
{
($first,$second)=split('>',$_);
print"$first >$second >";
}
}
close(HELP);
print'
';
############ Display Personal Info
print'"The Usual Suspects:"
';
open(EMPL, "<../private/workfiles/emplist");
$len = 0;
foreach()
{
my($intl,$name,$career,$citizenship,$location,$email,$comment)=split('#',$_);
if(($intl ne "Initials")and!($_=~m//)and($intl ne "NH"))
{
if($var{intl} eq $intl)
{
print("| $intl | $name | ',"$career | ',"$citizenship | ',"$location | ',"$email | ',"$comment |
\n");
}
else
{
print("| $intl | $name | ',"$career | ',"$citizenship | ',"$location | ',"$email | ',"$comment |
\n");
}
}
if($intl eq "Initials")
{
print(" | $name | ',"$career | ',"$citizenship | ',"$location | ',"$email | ',"$comment |
\n");
print"
|
";
}
if($_=~m//)
{
print"
\n";
}
}
close(EMPL);
print'
';