#!/usr/bin/perl

$tcp_smtp_template = './adlmake.template';
$adl_home = 'http://akionweb.com/myobjects/adl/qmail/';

open (IN, $tcp_smtp_template);
while (<IN>) {
	if (/^<ADL_DENY_COUNTRYS=(.*)>/) {
		@c = split(/,/,$1);
		foreach $e (@c) {
			open (WGET, "wget -q -O - " . $adl_home . uc($e) . ".txt |");
			while (<WGET>){
				# Remove the following comment(#) if you want notify to sender. 
				# $_=~ s/:deny/:allow,RBLSMTPD="(\L$e\E)We are refusing your subnet."/g;
				print;
			}
			close (WGET);
			print "\n";
		}
	} else {
		print;
	}
};
close(IN);