As an addition to the Refereer Check mod, I have made this simple little script to tell those who steal our add.cgi's to stop doing so - my Links site (about webmasters resources) is getting a lot of additions about cheesecakes instead of cookies, green tea instead of java-beans, homebusiness administration instead of website administration, and so on ...
I tracked down SubmitEasy from http://www.fluid3d.com/ as the "sinner". I mailed the owner, but he just said he got the address from somewhere else, and wouldn't tell me where ...
So, I hacked the add.cgi to become this simple "reminder service", sending him an email each time someone uses the add.cgi. Of course, I changed the original add.cgi to another name (in the links.cfg as well as the actual filename).
#!/usr/bin/perl5
#
# John Gotze's nasty add.cgi ========================================================
$db_mail_path = "/usr/bin/sendmail -t";
print "Content-Type: text/html\n\n";
print "DON'T USE THIS SCRIPT!\n";
print "$ENV{'REMOTE_HOST'} and more has been logged, and your mom has been told!";
{
open (MAIL, "|$db_mail_path");
print MAIL "To: tommy\@fluid3d.com, john\@gotzespace.dk\n";
print MAIL "From: john\@gotzespace.dk\n";
print MAIL "Subject: \n\n";
print MAIL "This mail is sent automatically as a consequence of someone using your software.\n";
print MAIL "Someone from $ENV{'REMOTE_HOST'} has used your submit-system with an illegal site, namely mine.\n";
print MAIL "Please update your list of sites!\n";
print MAIL "A copy has been sent to john\@gotzespace.dk, the owner of http://www.gotzespace.dk/links/\n";
print MAIL "which is the site to be removed from your software - as you promised earlier.\n";
close MAIL;
}
I set it to send a copy of the mail to myself, so I can see whether someone uses it (someone did, I got a mail just an hour after setting up the script ...).
John
[This message has been edited by gotze (edited December 12, 1998).]
I tracked down SubmitEasy from http://www.fluid3d.com/ as the "sinner". I mailed the owner, but he just said he got the address from somewhere else, and wouldn't tell me where ...
So, I hacked the add.cgi to become this simple "reminder service", sending him an email each time someone uses the add.cgi. Of course, I changed the original add.cgi to another name (in the links.cfg as well as the actual filename).
#!/usr/bin/perl5
#
# John Gotze's nasty add.cgi ========================================================
$db_mail_path = "/usr/bin/sendmail -t";
print "Content-Type: text/html\n\n";
print "DON'T USE THIS SCRIPT!\n";
print "$ENV{'REMOTE_HOST'} and more has been logged, and your mom has been told!";
{
open (MAIL, "|$db_mail_path");
print MAIL "To: tommy\@fluid3d.com, john\@gotzespace.dk\n";
print MAIL "From: john\@gotzespace.dk\n";
print MAIL "Subject: \n\n";
print MAIL "This mail is sent automatically as a consequence of someone using your software.\n";
print MAIL "Someone from $ENV{'REMOTE_HOST'} has used your submit-system with an illegal site, namely mine.\n";
print MAIL "Please update your list of sites!\n";
print MAIL "A copy has been sent to john\@gotzespace.dk, the owner of http://www.gotzespace.dk/links/\n";
print MAIL "which is the site to be removed from your software - as you promised earlier.\n";
close MAIL;
}
I set it to send a copy of the mail to myself, so I can see whether someone uses it (someone did, I got a mail just an hour after setting up the script ...).
John
[This message has been edited by gotze (edited December 12, 1998).]
