#! /usr/bin/perl

print "# this file is generated from bodychecks.source\n" ;
print "# do not edit directly.  edit the source file instead\n\n" ;

print "# don't bother checking attachment bodies.  this will greatly speed\n";
print "# up processing of large messages.\n";
# base64 only
#print '/^[0-9a-zA-Z+\/=]{60,}\s*$/i		OK', "\n\n";
print '/^[0-9a-z+\/=]{60,}\s*$/		OK', "\n\n";

# base64 and uuencoded.
#print '/^(?:[0-9a-zA-Z+\/=]{60,}|M[\x20-\x60]{60})\s*$/i		OK', "\n\n";
#print '/^(?:[0-9a-zA-Z+\/=]{60,}|M[ -`]{60})[[:space:]]*$/i		OK', "\n\n";

while (<>) {
	s/^#.*// ;
	next if (/^$/) ;
	chomp ;
	s=/=\/=g ;
	print "/$_/	REJECT\n" ;
} ;