##### config.txt #####
$firstname = qq(Sara);
$lastname = qq(Perlfreak);
$email = q([EMAIL PROTECTED]);
### end config.txt ###
-----------------------------------------------------------------
#!/usr/bin/perl -w
use CGI;
require q(/path/to/config.txt);
my $query = new CGI;
# Let's say there's a field on your form called "name_to_search"
my $namesearch = $query->param('name_to_search');
print $query->header(); # print Content-type header to browser
if ($namesearch eq $firstname) {
print "That name was found in the config file. ";
}
else {
print "Sorry, could not find that name. ";
}
1;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
