#
#---------------------------------------------------------
# DO NOT MODIFY THIS FILE! It is updated automatically 
# by the naat/backend. Modify the template file instead
# in /usr/share/naat/templates/etc/shorewall
#---------------------------------------------------------
#
# Copyright (C) 2002 Mandrakesoft
# Author Florin Grad
#
#---------------------------------------------------------
{
my $file_name = "blacklist";
$OUT .= "\# Shorewall /etc/shorewall/$file_name\n";
$OUT .= "\n";
	if (eval('$'."\u$file_name"."List")) {
		my @list = split( ',', eval('$'."\u$file_name"."List"));
		my $string = "";
		my $separator = "";

		for (my $i = 0; $i <= scalar(@list) -1; ++$i) {
			$string .= $separator.$list[$i];
			$separator = "\n";
		}
	
		# coloumn titles entries
		$OUT .="\#IPs/subnets\n"; 
		$OUT .= $string; 
	}
				
}
#LAST LINE - ADD YOUR ENTRIES ABOVE THIS ONE - DO NOT REMOVE
