Your form validation script appears to have some validation issues. As of this writing, this link to it causes an internal server error. I tried using a single quote in the email field as single quotes often break sites using a database. I'd be surprised if such a simple script is using any SQL, but if it is, I'd be careful. It's trivial to embed malicious SQL in a URL if the single quote is interfering with the SQL. It's a relatively common attack (and ridiculously easy).

Cheers,
Ovid

Vote for paco!

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

FATAL: Cannot find xml file /usr/home/princepawn/.cpan/build/Apache-Pa
+geKit-1.05/eg/Content/form_validation_done.xml or
      template file Default/form_validation_done.tmpl at /home/princep
+awn/install/lib/perl5/site_perl/5.6.1/Apache/PageKit/Content.pm line 
+39.
        Apache::ErrorReport::fatal('Cannot find xml file /usr/home/pri
+ncepawn/.cpan/build/Apache-Pag...') called at /home/princepawn/instal
+l/lib/perl5/site_perl/5.6.1/Apache/PageKit.pm line 138
        Apache::PageKit::fatal_error('Apache::PageKit=HASH(0x89024c0)'
+, 'Cannot find xml file /usr/home/princepawn/.cpan/build/Apache-Pag..
+.') called at /home/princepawn/install/lib/perl5/site_perl/5.6.1/Apac
+he/PageKit.pm line 119
        Apache::PageKit::handler('Apache::PageKit', 'Apache=SCALAR(0x8
+8f9884)') called at /dev/null line 0
        eval {...} called at /dev/null line 0


HTTP/1.1 500 Internal Server Error Date: Wed, 25 Jul 2001 19:27:52 GMT
+ Server: Apache/1.3.20 (Unix) mod_perl/1.25 Content-Type: text/html;
charset=iso-8859-1 

Internal Server Error

The server encountered an internal error or misconfiguration and was u
+nable to complete your request.

Please contact the server administrator, [no address given] and inform
+ them of the time the error occurred, and anything you might have don
+e that may have caused the
error.

More information about this error may be available in the server error
+ log.
[download]

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"