#!/usr/bin/perl

use DBI;
my $dbase = "DBI:mysql:traffic";
my $user = "test";
my $password = "test";
my $iface = "<int_1>";
my $tablename = "traffic";
my $tempfile = "/usr/local/var/bpft/traflog.tmp";
# =========================================
$day_short = `date "+%d"`;
chomp $day_short;

$tablename = "traffic_$day_short$iface";

my $tablename = "traffic_$day_short$iface";
my $db = DBI->connect($dbase,$user,$password);

`/usr/local/bin/traflog -i $iface -n -o def02 >$tempfile`;
#`/usr/local/bin/traflog -i $iface -n -o def02`;
$cday =`date "+%Y-%m-%d"`;
chomp $cday;

#open temporary file
if(!open(III,$tempfile)){
  print "$0: cannot open temp file \"$tempfile\"\n\n";
  exit;
}

#oppurtunity to rewrite mysql tables
#$delete = "delete from $tablename;";
#$rows_affected = $rows_affected + $db->do($delete);

# read data from tempfile to array
while( <III> ){

  next if( /^ / );
  chomp;
  next if( /^$/ );
  s/ +/ /g;

  @current = split / /;


# $current[0] - ip_from
# $current[1] - sport
# $current[2] - ip_to
# $current[3] - dport
# $current[4] - proto
# $current[5] - data
# $current[6] - alldata
# $current[7] - first date
# $current[8] - last date
# old:
# $current[9] - first date
# $current[10] - first time


# insert data in to selected table

$insert = "insert into $tablename 
(ip_from,sport,ip_to,dport,proto,bytes,psize,ftime,ltime) 
values 
('$current[0]','$current[1]','$current[2]','$current[3]','$current[4]'
,'$current[5]','$current[6]','$current[7]','$current[8]')";

$rows_affected = $rows_affected + $db->do($insert);

}
close III;
unlink $tempfile;
#exit;
