>Delivered-To: [EMAIL PROTECTED] >Mailing-List: contact [EMAIL PROTECTED]; run by ezmlm >List-Post: <mailto:[EMAIL PROTECTED]> >List-Help: <mailto:[EMAIL PROTECTED]> >List-Unsubscribe: <mailto:[EMAIL PROTECTED]> >List-Subscribe: <mailto:[EMAIL PROTECTED]> >Delivered-To: mailing list [EMAIL PROTECTED] >X-Sender: [EMAIL PROTECTED]@mail.portland.co.uk >Date: Tue, 19 Mar 2002 14:30:41 -0600 >To: [EMAIL PROTECTED] >From: Teresa Raymond <[EMAIL PROTECTED]> >Subject: script was working now doesn't > >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 - >------------------------------- > >-- >To unsubscribe, e-mail: [EMAIL PROTECTED] >For additional commands, e-mail: [EMAIL PROTECTED]
-- ------------------------------- - Teresa Raymond - - Mariposa Net - - http://www.mariposanet.com - ------------------------------- -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
