Adjusted scripts (Score 2)

This is a quickie script to straighten out VBA, VBS, and JS attachments. Happy Hacking:

#This goes in procmailrc:
:0 Bf
*!^X-Loop: viruscheck
*^Content-Disposition:.+
|/sbin/noiloveyou | /usr/bin/formail -i "X-Loop:viruscheck"
:0:
$ORGMAIL

#!/usr/bin/perl
#This is "/sbin/noiloveyou"

while() {
$temp=$_;
if ($temp =~ /^content-disposition\:/i) {
print $temp;
$temp = ;
$temp =~ s/\.vbs/_vbs\.txt/i;
$temp =~ s/\.vba/_vba\.txt/i;
$temp =~ s/\.js/_js\.txt/i;
print $temp;
next;
}
if ($temp =~ /^content-type\:/i) {
$temp =~ s/application\/x-javascript/text\/plain; charset\=us-ascii/;
print $temp;
$temp = ;
$temp =~ s/\.vbs/_vbs\.txt/i;
$temp =~ s/\.vba/_vba\.txt/i;
$temp =~ s/\.js/_js\.txt/i;
print $temp;
next;
}
print $temp;
}

#This should at least slow it down a little #bit....
# Jacques Richer -- [e-mail]