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 "<h2>Error</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]
