#!/usr/bin/perl

# this program loads the daily appealcode tracking text file
# into the database, so it can be accessed by the appealcode
# tracking php program.

#-------------- Define Variables ----------------#

$fileroot = "/usr/local/apache/htdocs/intra/appealcodes";

#------------------------------------------------#

print "now moving current appealcode_log.txt to workfile...\n";
rename("$fileroot/appealcode_log.txt","$fileroot/appealcode_workfile.txt") || die("error in renaming appealcode workfile");

print "now opening database connection...\n";
use DBI;
$DBConnectMethod = "mysql";
$DB = "appealcode_db";
$HOST = "data.changewave.com";
$MYSQL_USER = 'USERNAME';
$MYSQL_PASS = 'PASSWORD';

$DBConnectString = DBI->connect("dbi:$DBConnectMethod:$DB;host=$HOST", $MYSQL_USER, $MYSQL_PASS) || die $DBI::errstr;
$loadDataQuery = "LOAD DATA LOCAL INFILE '$fileroot/appealcode_workfile.txt' INTO TABLE appealcode_tbl";
print "$fileroot/appealcode_workfile.txt\n";
#$loadDataQuery = "INSERT INTO appealcode_tbl VALUES (NULL,'4AHAUG6','2001-08-29 13:07:05','64.12.97.7')";
$sth=$DBConnectString->prepare($loadDataQuery);
$sth->execute();