|
|
|
Insure yourself from spam! The Anti Spam Insurance Company - ProtectWebForm!
Forum - protect BigNoseBird.Com guestbook
maryclaire |
2006-11-18 15:22:53 |
|
I have added the ProtectWebForm supplement (copied below) to my cgi
script and now receive internal server errors. Have I selected the
wrong supplement? Has anyone been able to protect this guestbook? I
am at a loss what to do.
Thank you so much for any replies. If it's of any help, the guestbook
is located at www.bruceguernsey.com/gbook.html. It isn't writing to
the page right now (SPAM overload, I think) but does send email
notification. I am testing (but not using) the file bnbbook.cgi
Again, Thank You!
Mary Claire
#!/usr/bin/perl
###################################################
# Code provided by http://www.protectwebform.com
use LWP::Simple; use CGI; use URI::Escape;
CGI::ReadParse();
my $pwf_message = "The image code you have provided does not match the
actual one. Hit the 'back' button of your browser and input the
correct code please.";
if(length($in{'protectwebformcode'}) > 30) {
print "Content-type: text/html\n\n".$pwf_message;
die;
}
my $protectwebformresult =
get("http://protectwebform.com/verify01?vui=3510&vp=m04dn9p2tr6w&ri="
. uri_escape($ENV{'REMOTE_ADDR'}) . "&vs=" .
uri_escape($in{'protectwebformcode'}));
if($protectwebformresult =~ m/<authorization status="0"/) {
print "Content-type: text/html\n\nWarning. You are not authorithed
to use image protection provided by http://www.protectwebform.com.
Read http://www.protectwebform.com FAQ for more information";
}
if($protectwebformresult !~ m/<verification result="yes"/) {
print "Content-type: text/html\n\n".$pwf_message;
die;
}
# End of code provided by http://www.protectwebform.com
#################################################### |
Post Reply:
You must be logged in to reply.
|
Post message
|
Registered users: 88084
Forms protected: 48551
Further Reading & Anti Spam Resources:
Directory
|
|