#!/bin/sh
lynx -source http://libertas.wirehub.net/spamlist.txt | perl -n -e 'if (/IP/) {next;}; s/\t.*//; if(!/@/) {$_ = "@".$_;}; print;' > /var/qmail/control/badmailfrom.external

cat /var/qmail/control/badmailfrom.internal > /var/qmail/control/badmailfrom
cat /var/qmail/control/badmailfrom.external >> /var/qmail/control/badmailfrom

chmod a+rw /var/qmail/control/badmailfrom*

lynx -source http://libertas.wirehub.net/spamlist.txt | perl -n -e 'unless (/\tIP/) {exit;}; s/\t.*//; chomp; print; print ":allow,RBLSMTPD=\"You are in http://libertas.wirehub.net/spamlist.txt\"\n";' > /etc/tcpcontrol/smtp.rules.external

cat /etc/tcpcontrol/smtp.rules.internal > /etc/tcpcontrol/smtp.rules
cat /etc/tcpcontrol/smtp.rules.external >> /etc/tcpcontrol/smtp.rules

tcprules /etc/tcpcontrol/smtp.cdb /etc/tcpcontrol/smtp.tmp < /etc/tcpcontrol/smtp.rules