#!/usr/bin/perl

$x="1000";
$line_break="\n";

($servername, $domain, $extension) = (split /\./, $hostname);
#if ($servername eq "saturn) {

$config_file="/ibin/conf/iptables.block-ip.asian.conf";
   $map_file="/ibin/conf/iptables.block-ip.asian.map";

#system("iptables --flush\n");

open(MAP_FILE,">$map_file")    or die($!);
open(CONFIG_FILE,$config_file) or die($!);

while($line = <CONFIG_FILE>) {

	chomp($line);
	next if $line =~ /#/;

  (
        $ip,
        $country


  ) = split(/ /, $line);



#print $ip ."\n";

#exit;

	$x++;
#print $ip ." -- " . $country . "\n";
#iptables -A INPUT -p tcp -s 58.14.0.0/15 --dport 25 -j DROP

	$prefixM   = "iptables -A INPUT -p tcp -s ";
	$suffix_1M = " -j LOG --log-prefix SPAM-BLOCK-ASIAN"; 
	$suffix_2M = " --dport 25 -j DROP";

#	print $prefixM . $ip . $suffix_1M . "\n";
#	print $prefixM . $ip . $suffix_2M . "\n";

	system($prefixM . $ip . $suffix_1M . "\n");
	system($prefixM . $ip . $suffix_2M . "\n");


	print MAP_FILE $ip . "\t\t\tSPAM-BLOCK-ASIAN " . $x . $line_break;




}

close(CONFIG_FILE);
close(MAP_FILE);
exit;