#!/usr/bin/perl


use strict;
use File::Copy;

my $FileName; #Contenitore del nome del file di partenza
my $startValue; #ci metti il valore di partenza
my $pattern;
#$FileName = "D:\\opt\\perl_eclipse\\workspace\\ParseSID\\elenco_siti_inibiti.rtf";
$FileName = "/root/list.txt";

my $bExec = 0;

my @ArrayFinal;
my @files; #Array che contiene i files che vengono elencati nel folder
my @FILEAPP;

my $pre = 'drop tcp $HOME_NET any -> $EXTERNAL_NET $HTTP_PORTS (msg: "SNORTATTACK AAMS ITALIAN LAW"; flow: to_server,established; content:"';
#aams-casino.awardspace.com
my $post = '"; reference:url,www.aams.it; classtype:policy-violation;sid:'; 
my $sid = 5002003;
my $last = ';)';

processFile($FileName);

sub processFile()
{

	my $lfilename  = @_[0];
	print("$lfilename \n");	
	my $input;
	
	  if (-e $lfilename){
  	
  	  	
      open (FILETCL, $lfilename) or die "Hai messo il path dei file `$lfilename' sbagliato$!.";
       lineinTC: while (<FILETCL>) {
        chomp;
        
        $input = $_;
        my $rule = "$pre"."$input"."$post"."$sid"."$last";
        push(@FILEAPP,"$rule\n");
        $sid = $sid + 1;
        }

        close(FILECTL);
       	
	   }
	   
	 
	   
	   
	  #foreach my $valIP (@FILEAPP) {
	  	
	  	#my $rule = "$pre"."$valIP"."$post"."$sid"."$last";
	  	
	  	
	  	#print("$valIP\n");
	  	#print("$rule\n");
        
     # }
      
         open(FILE_RESULT, ">$lfilename.result") or die "incorrect_name!";
   		 print(FILE_RESULT @FILEAPP);
         close(FILE_RESULT);
	
}