This is the piece of code that is giving me the problem I believe. It is
the one that is supposed to check to make sure that a user enters a valid
email address. When I comment it out, it works in both IE and NN.
if ($FORM{'email'} !~ /[\w\-]+\@[\w\-]+\.[\w\-]+/) {
dienice(Please enter a valid email address);
}
Thanks for your patience with my beginner faux pas. I will be a better
member of this list from here on out.
Andrew
-Original Message-
From: John Brooking [mailto:[EMAIL PROTECTED]]
Sent: Thursday, May 23, 2002 1:24 PM
To: Hughes, Andrew; [EMAIL PROTECTED]
Subject: Re: Mail script not working for Netscape (was real beginner
help needed)
Can you post some of the relevant code? (If it's long,
please consider putting it up as an HTML page and just
sending us the URL.)
Not that I'm promising I personally will have time to
look at it or know the answer...
--- Hughes, Andrew [EMAIL PROTECTED]
wrote:
I need help. I inherited this script that adds
people to a text file for
our mailing list. It works in Explorer. However,
it does not work in
Netscape. Valid email addresses are blocked and the
subroutine dienice is
called in Netscape. It is pretty short and simple.
I do not have time to
rewrite it right now. Could anyone make any
suggestions?
Thanks in advance,
Andrew
#!/usr/bin/perl
print Content-type:text/html\n\n;
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split (//, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(C,
hex($l))/eg;
$FORM{$name} = $value;
}
chdir '../../discounts/ia/';
$DESTINATION=http://www.website.com/eclub_thankyou.adp;;
$f_name=$FORM{'f_name'};
$l_name=$FORM{'l_name'};
$company=$FORM{'company'};
$email=$FORM{'email'};
$us_state=$FORM{'us_state'};
$birth_month=$FORM{'birth_month'};
$birth_year=$FORM{'birth_year'};
$country=$FORM{'country'};
$salary=$FORM{'salary'};
$home=$FORM{'home'};
$clothing=$FORM{'clothing'};
$jewelry=$FORM{'jewelry'};
$air=$FORM{'air'};
$food=$FORM{'food'};
$hotel=$FORM{'hotel'};
$entertainment=$FORM{'entertainment'};
$auto=$FORM{'auto'};
$household=$FORM{'household'};
$electronic=$FORM{'electronic'};
$vacation=$FORM{'vacation'};
$tm = time;
$now = localtime($tm);
if ($FORM{'email'} !~ /[\w\-]+\@[\w\-]+\.[\w\-]+/) {
dienice(Please enter a valid email address);
}
open(OUTF,eclub.xls);
flock(OUTF,2);
seek(OUTF,0,2);
print OUTF
$f_name\t$l_name\t$company\t$email\t$us_state\t$birth_month\t$birth_year\t$
country\t$salary\t$home\t$clothing\t$jewelry\t$air\t$food\t$hotel\t$entertai
nment\t$auto\t$household\t$electronic\t$vacation\t$now\n;
close(OUTF);
print EndHTML;
HEAD
meta http-equiv=Refresh content=0;
URL=$DESTINATION
/HEAD
EndHTML
sub dienice {
my($msg) = @_;
print h2Error/h2\n;
print $msg;
exit;
}
--
To unsubscribe, e-mail:
[EMAIL PROTECTED]
For additional commands, e-mail:
[EMAIL PROTECTED]
=
When you're following an angel, does it mean you have to throw your body
off a building? - They Might Be Giants, http://www.tmbg.com
Word of the week: Serendipity, see
http://www.bartleby.com/61/93/S0279300.html
__
Do You Yahoo!?
LAUNCH - Your Yahoo! Music Experience
http://launch.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
