Hi Justin,
I'm having a hard time understanding your script. What's the deal with
'Q' and import_data ?
__BEGIN_REWRITE__
#!/usr/bin/perl -w
use strict; # helps ; must declare varibles
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
my $OUTPAGE = '/thankyou.html';
my $ERR = '/error.html';
my $DATAFILE = 'bla.txt';
# define $q as an instance of an CGI object:
# ORIGINAL: my $cgi = new CGI;
my $q = CGI->new();
# I didn't see this in the man page, but if you're trying to get
# parameters from the query string then use param as in from
# <form method="GET"><input type="text" name="name"/></form>
# or POST - both work for param
# ORIGINAL:
# $cgi->import_data('Q');
my $name = $q->param("name");
my $email = $q->param("email");
my $menu = $q->param("menu");
my $remote_address = $ENV{REMOTE_ADDR};
open (DATA, ">> $DATAFILE");
print DATA $name, $email, $menu, $remote_address, "\n";
close DATA;
if(defined($name) && $name ne "") {
print $q->redirect(-location=>$ERR);
} else {
print $q->redirect(-location=>$OUTPAGE);
}
__END_REWRITE__
hth Elizabeth
"justin cunningham" <[EMAIL PROTECTED]> writes:
> Hello, I'm trying to get this script to do error checking but it prints
> the error page every time regardless if there is or isn't input data.
> It works ok without the if statement but I wanted it to do the
> errorchecking. I spent a good amount of time trying to figure this out
> on my own before emailing the list but I've learned perl is pretty
> unforgiving when you have a misplace character or two.
>
> Thanks for any help on this.
>
> justin
>
> #!/usr/bin/perl
> use CGI;
>
> $OUTPAGE = '/thankyou.html';
> $DATAFILE = 'bla.txt';
> $ERR = '/error.html';
>
> my $cgi = new CGI;
> $cgi->import_data('Q');
>
> open (DATA, ">> $DATAFILE");
> print DATA qq|$Q::name, $Q::email, $Q::menu, $ENV{REMOTE_ADDR}\n|; close
> DATA;
>
> if ($Q::{"name"} ne "") {
> print $cgi->redirect(-location=>$ERR= '/error.html');
> }
>
> else {
> print $cgi->redirect(-location=>$OUTPAGE= '/thanks.html');
> }
>
>
>
> --
> To UNSUBSCRIBE, email to [EMAIL PROTECTED]
> with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
