#!/usr/bin/perl
use CGI qw(:standard);
print header();
$ipsearchEmail = $FORM{'searchEmail'};
print "";
print "";
print "Search Result";
print "
";
print "
";
print "Email search for : $ipsearchEmail ";
dbmopen %paricipant,"data/dbparicipant",0666;
@keys=keys %paricipant;
$noOfKeys=$#keys+1; # last index + 1
print "
";
print "";
print "| Email OF PARTICANT (Parameter Name) | Values(Parameter Value(s))";
foreach $email(keys %paricipant) {
if ( $ipsearchEmail == $email ) {
$value = $paricipant{$email};
@field = split(/&/,$value);
print " |
| $email | ";
print"";
foreach $field (@field) {
#print "Field --> $field";print "
";
($name, $value) = split(/=/, $field);
print "- $name = $value";
#print "NAME VALUE PAIRS --> $name = $value. "; print"
";
}
print" ";
}
else
{
print "result not found.. Check the email address";
}
}
dbmclose %paricipant;
print " |
";
print "";
print "";