#!/usr/bin/perl
#use it as ./<script name> <sig_ids file>
use DBI;
#use strict;
#use Data::Dumper;
#use warnings;
$host="localhost";
$database="snortII";
$tablename="acid_event";
$user="root";
$pw="snort";
	my $mydb=DBI->connect("DBI:mysql:$database:$host", "$user", "$pw");
	my $myquery3="SELECT DISTINCT ip_dst FROM $tablename WHERE sig_name=2006402 and ip_src=1928024711";
	#my $myquery3="SELECT DISTINCT ip_dst FROM $tablename WHERE sig_name=2006402 and ip_src=996213321";
	my $sth3 = $mydb->prepare($myquery3) or die $mydb->errstr();
        $sth3->execute() or die $mydb->errstr();
	$name3="dist_ipdst.txt";
        while (my @ary = $sth3->fetchrow_array ())
        {
            print $sigid . " " . $ipsrc . "\n"; 
	    #print join("\n",@ary),"\n";
	     print "@ary\n";
	    #$rows=$sth3->dump_results();
	    open (MYFILE, ">> $name3") or die("Could not open file."); 
	    print MYFILE "@ary\n";
	   	
        }
	
	  open(FILE3,$name3) or die("Could not open file.");
	  foreach my $line(<FILE3>)
          {   
		chomp($line);
           	$ipdst=$line;
           	print "ipdst1 is: " . $ipdst . "\n";
	  }
	

        


	$sth3->finish ();