#!/usr/bin/perl
use DBI;
use File::Tail;
use Proc::Daemon;
my $dbh =
DBI->connect('DBI:Sybase:server=192.168.111.110:1433;database=kannelDATA','sa',
'123');


Proc::Deamon::Init;

  $file=File::Tail->new("/var/log/kannel/access.log");
  while (defined($line=$file->read)) {
if ($line=~ /Receive SMS/) 
{
#      print "$line\n";
         $fecha=substr($line,0,19);
#	print "Date:\t$fecha\n";
$result=$line;
if ($result =~ /(SMSC:\/[^\s]*\])/ )
{
$mto=$1;
$mto=~s/SMSC://g;
$mto=~s/\]//g;
#print "SMSC:\t$mto\n";
}
if ($result =~ /(from:[\S]*\])/ )
{
$from=$1;
$from=~s/from://g;
$from=~s/\]//g;
$from=~s/\+//g;
#print "from:\t$from\n";
}
if ($result =~ /(to:[\S]*\])/ )
{
$to=$1;
$to=~s/to://g;
$to=~s/\]//g;
#print "to:\t$to\n";
}

if ($result =~ /(msg:\d*:[^\]]*)/ )
{
$msg=$1;
$msg=~s/msg:\d*://g;
$msg=~s/\]//g;
#print "msg:\t$msg\n";
}

if ($result =~ /(MSGIX:[^\]]*)/ )
{
$msgix=$1;
$msgix=~s/MSGIX://g;
$msg=~s/\]//g;
#print "msgix:\t$msgix\n\n\n";
}

$sql="insert into smsDATA(dateCreated,svcNumber,phoneNumber,message,ConnectionName,msgIndex) values(\"$fecha\",\"$to\",\"$from\",\"$msg\",\"$mto\",\"$msgix\")";
my $sth = $dbh->prepare("$sql");
$sth->execute();
    $sth->finish();
#print "$sql\n";



  }}