Holiday greetings,
I would like to be able to test for either of the two secret words
but it seems to fail, what am I missing?
Thanks
Dave
#!/usr/bin/perl
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $qs = $ENV{'QUERY_STRING'};
my $secret_word = 'one';
my $secret_word_guest = 'two';
if (($qs ne $secret_word_guest) or ($qs ne $secret_word)) {
print "Bad password";
exit;
}
# I also tried
if ($qs ne $secret_word_guest or $secret_word)) {
print "Bad password";
exit;
}
# this did not work as I thought it would
__END__
====================================================
Cora Connection: Your West African Music Source
Resources, Recordings, Instruments & More!
<http://www.coraconnection.com/>
====================================================
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
