#!/usr/bin/perl -w   
  
  
 use DBI;  
 use Net::TcpDumpLog;  
 use NetPacket::Ethernet;  
 use NetPacket::IP;  
 use NetPacket::TCP;  
 use Net::Pcap;   
  
  
 #Login to mysql  
$dbh = DBI->connect('DBI:mysql:test', 'root', 'root'  
            ) || die "Could not connect to +database: $DBI::errstr";   
  
  ####HERE TO EXIT NEEDS WORK!my $dir = 'C:\\Documents and Settings\\jordant\\Desktop\\Dump\\';   
  
    opendir(DIR, $dir) or die $!;   
  
    while (my $file = readdir(DIR)) {   
  
        # We only want files  
        next unless (-f "$dir/$file");   
  
        # Use a regular expression to find files ending in .pcap  
        next unless ($file =~ m/\.pcap$/);   
  
     my $log = Net::TcpDumpLog->new();  
      $log->read($file)  
      }  
       print $file;  
    exit 0;   
  
  
  
  
   #INFO from PCAP file  
foreach my $index ($log->indexes) {  
  my ($length_orig, $length_incl, $drops, $secs, $msecs) = $log->header($index);  
  my $data = $log->data($index);   
  
  
  
  my $eth_obj = NetPacket::Ethernet->decode($data);  
  next unless $eth_obj->{type} == NetPacket::Ethernet::ETH_TYPE_IP;   
  
  
  my $ip_obj = NetPacket::IP->decode($eth_obj->{data});  
  next unless $ip_obj->{proto} == NetPacket::IP::IP_PROTO_TCP;   
  
  my $tcp_obj = NetPacket::TCP->decode($ip_obj->{data});   
  
  
  
  
  
      #get date time stamp of packet  
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($secs + $msecs/1000);  
    $mon+=1;  
  my $time = sprintf("%02d-%02d %02d:%02d:%02d",  
    $mon, $mday, $hour, $min, $sec);   
  
  
  
  
  
  #Info in Table   
  
  $dbh->do( "INSERT INTO  test2 (Date,Source,Destination,Packets,Port)  
                        values (  
                        '$time',  
                        '$ip_obj->{src_ip}',  
                        '$ip_obj->{dest_ip}',  
                        '$ip_obj->{len}',  
                        '$tcp_obj->{dest_port}')");   
  
  
  }

$log->read($file)

$log->read($dir/$file);

$dir = 'C:\\Documents and Settings\\jordant\\Desktop\\Dump\\';

$dir = 'C:/Documents and Settings/jordant/Desktop/Dump';

use strict; 
use warnings;

  
 
#!/usr/bin/perl  
 
 
 use DBI; 
 use Net::TcpDumpLog; 
 use NetPacket::Ethernet; 
 use NetPacket::IP; 
 use NetPacket::TCP; 
 use Net::Pcap; 
 use strict; 
 use warnings;  
 
 #Login to mysql 
 my $dbh = DBI->connect('DBI:mysql:test', 'root', 'nstar' 
            ) || die "Could not connect to +database: $DBI::errstr";  
 
 
 #Pcap file to log 
 my $log = Net::TcpDumpLog->new(); 
   $log->read("C:\\Documents and Settings\\jordant\\Desktop\\Dump\\m1.pcap");  
 
 #INFO from PCAP file 
foreach my $index ($log->indexes) { 
 my ($length_orig, $length_incl, $drops, $secs, $msecs) = $log->header($index); 
 my $data = $log->data($index);  
 
   
 
 my $eth_obj = NetPacket::Ethernet->decode($data); 
   next unless $eth_obj->{type} == NetPacket::Ethernet::ETH_TYPE_IP;  
 
 
 my $ip_obj = NetPacket::IP->decode($eth_obj->{data}); 
   next unless $ip_obj->{proto} == NetPacket::IP::IP_PROTO_TCP;  
 
 my $tcp_obj = NetPacket::TCP->decode($ip_obj->{data});  
 
   
 
   
 
      #get date time stamp of packet 
 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($secs + $msecs/1000); 
    $mon+=1; 
 my $time = sprintf("%02d-%02d %02d:%02d:%02d", 
    $mon, $mday, $hour, $min, $sec);  
 
   
 
   
 
  #Info in Table  
 
        $dbh->do( "INSERT INTO  test2 (Date,Source,Destination,Packets,Port) 
                        values ( 
                        '$time', 
                        '$ip_obj->{src_ip}', 
                        '$ip_obj->{dest_ip}', 
                        '$ip_obj->{len}', 
                        '$tcp_obj->{dest_port}')"); 
  }