#!/usr/bin/perl
# AntiSpamBot.pl  --  V1.0 7/2003  --  www.sugarscript.com/antispam
# Anti spam bot script. Converts html "mailto" and email address hotlinks to JavaScript,
# so that spambots can't gather email addresses from your website. Goes through each
# directory recursively and changes emails within .htm .html .php and .dwt (Dreamweaver template) files.
# (try it on a test directory first).
#
# Note: Use www.sugarscript.com/antispam  to create online email addresses, one at a time.
#
# ******** Please let me know of any problems with this script:  jodybrabec{{at}}gmail.com *********
# Disclaimer: Use at own risk.

# An email address of the form <a href="mailto:webmanager@pcmail.maricopa.edu">Webmanager</a> will be converted to:
# <!--
# // Anti-Spam email -
# var prefix1 = "webmanager";
# var postfix1 = "pcmail.maricopa.edu";
# var mto = "to:";
# var mmail = "mail";
# document.write('<a href="' + mmail + mto + prefix1 + '@' + postfix1 + '">')
# //-->
# Webmanager
# <!--
# document.write('</a>')
# //-->

# An email address of the form <a href="mailto:iceMan21@aol.com">iceMan21@aol.com</a> will be converted to:
# <!--
# var prefix1 = "iceMan21";
# var postfix1 = "aol.com";
# var prefix2 = "iceMan21";
# var postfix2 = "aol.com";
# var mto = "to:";
# var mmail = "mail";
# document.write('<a href="' + mmail + mto + prefix1 + '@' + postfix1 + '">' + prefix2 + '@' + postfix2 + '</a>')
# //-->

# For some reason, STDIN needs to be near the top, or else when running this program you need to hit RETURN twice followed by CTRL+D
print "Enter the root directory (include trailing slash): ";
chomp ($dirRoot = <STDIN>);

# Log file to record just the names of each file that was changed.
open (BULOG, ">>~jbrabec/antispam.log");

# Let the server know what we are sending back
# print "Content-type: text/html\n\n";

local $/; # slurp - this reads entire file into $_

use File::Find;

# Recursively goes through each directory
find (\&ChangePath, "$dirRoot");

sub ChangePath {
#Get current directory name
#my $curdir = $File::Find::dir;

#Get full pathname of curdir and file
my $full = $File::Find::name;

#If the current name is a directory
if (-d $full) {
   ;
}else{ # Not a directory
   if ( -f and (/\.html?$/ || /\.php$/ || /\.dwt$/) ) {
      $total = "";
      $changed = 0;
      open (HTMLFILE, "$full");
      while (<HTMLFILE>){
         # this is to scramble emails of the form:
         # <a href="mailto:blabla@gmail.com">blabla@gmail.com.com</a>
         # Note: You can take out my url (www.sugarscript.com/antispam) but I would like to become famous some day.
         if (s/<a\s+href=\"mailto:([^\@\">]+)\@([^\">]+)\"\s*>\s*([^<\@\"\n]{1,45})\@([^<\"\n]{0,70}?)\s*<\/a>/<script language=\"javascript\"> \n<\!-- \n\/\/ Anti Spam Email \(http:\/\/www\.sugarscript\.com\/\) \n var prefix1 = \"$1\"; \n var postfix1 = \"$2\"; \n var prefix2 = \"$3\"; \n var postfix2 = \"$4\"; \n var mto = \"to:\"; \n var mmail = \"mail\"; \n document.write\(\'<a href=\"\' + mmail + mto + prefix1 + \'\@\' + postfix1 + \'\">\' + prefix2 + \'\@\' + postfix2 + \'<\/a>\'\) \n\/\/--> \n<\/script>/gi){
            $changed = 1;
         }
         # this is to scramble emails of the form:
         # <a href="mailto:blabla@gmail.com">ANYTHING</a>
         # note the trailing gsi - the s is for ignoring all types of spaces and newline (for the "." operator)
         if (s/<a\s+href=\"mailto:([^\@\">]+)\@([^\">]+)\"\s*>(.{0,500}?)<\/a>/<script language=\"javascript\"> \n<\!-- \n\/\/ Anti Spam Email \(http:\/\/www\.sugarscript\.com\/\) \n var prefix1 = \"$1\"; \n var postfix1 = \"$2\"; \n var mto = \"to:\"; \n var mmail = \"mail\"; \n document.write\(\'<a href=\"\' + mmail + mto + prefix1 + \'\@\' + postfix1 + \'\">\'\) \n\/\/--> \n<\/script>$3<script language=\"javascript\"> \n<\!-- \n document.write\(\'<\/a>\'\) \n\/\/--> \n<\/script>/gsi){
            $changed = 1;
         }
         $total .= $_;
      }
      close (HTMLFILE);
         if ($changed){
            open (OUT, ">$full");
            print OUT "$total";
            close (OUT);
            if (BULOG){
               print BULOG "$full\n"; # make a record of all files changed.
            }
         }
      } #if
   } #else
} #ChangePath

if (BULOG){
   print BULOG "\n";
   close (BULOG);
}

exit;