#! /usr/bin/perl $junk = "/etc/postfix/junk"; $bcd = "/etc/postfix/body_checks.domains"; if ($ARGV[0] =~ /^-b/i) { $BODY = 1; shift ; } ; open(JUNK,"<$junk") ; while() { chomp; s/#.*//; s/\s.*//; next if /(^$)/; tr/A-Z/a-z/; $J{$_}++; } ; close(JUNK); if ($BODY) { open(BODY,"<$bcd") ; while() { chomp; s/#.*//; next if /(^$)/; tr/A-Z/a-z/; $B{$_}++; } ; close(BODY); }; open(JUNK,">>$junk"); open(BODY,">>$bcd") if ($BODY); foreach $domain (@ARGV) { $domain =~ tr/A-Z/a-z/; print JUNK "$domain REJECT\n" unless $J{$domain}; $J{$domain}++; next unless $BODY; print BODY "$domain\n" unless $B{$domain}; $B{$domain}++; #print "JUNK += $domain REJECT\n"; #print "BODY += $domain\n" if ($BODY) ; }; close(JUNK); close(BODY) if ($BODY);