I figured out it wasn't working because form name doesn't have a value attached to it. One way to write the script is to send a hidden name and verify that the value is the same thereby making sure no one can run the program without using the form.
>I don't see enough of the code to have a clue - maybe other list subscribers >are lacking the information required to help. >Dave > >"Teresa Raymond" <[EMAIL PROTECTED]> wrote in message >news:<p0510030bb8bd4f4fb8b3@[67.36.188.151]>... >> The following script was working last night. But now only puts up my >> error msg. It was putting up the error msg when I tried to run the >> script via file path >> (http://www.mariposanet.com/cgi-bin/contactnn.cgi) and continuing to >> run the rest of the program if not. No longer... >> >> Any thoughts? >> >> my $form=$q->param('contactform'); >> >> #CHECK FOR FORM >> unless (-e $form) >> {print <<"PrintTag"; >> <html> >> <head> >> <title>Error!</title> >> <STYLE type="text/css"> >> <!-- >> BODY { >> background-color: #ffffcc; >> font-size: 12pt; >> color: #000066; >> text-align: center >> } >> H1 { >> font-size: 14pt >> } >> --> >> </STYLE> >> </head> >> <body bgcolor="#ffffff"> >> <center> >> <h2>Alert!</h2> >> <h3>I'm sorry but you are forbidden to run this program without >> filling out the form.</h3> >> <p><a href="http://www.mariposanet.com/contactnn.html";>Contact >Form</a></p> >> </center> >> </body> >> </html> >> PrintTag >> exit(0); >> } >> >> >> -- >> ------------------------------- >> - Teresa Raymond - >> - Mariposa Net - > > - http://www.mariposanet.com - > > ------------------------------- -- ------------------------------- - Teresa Raymond - - Mariposa Net - - http://www.mariposanet.com - ------------------------------- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
