#!/usr/local/bin/perl 

use strict;
use DBI;

$ENV{VSIFAX} = "/usr/vsifax3";
system("/usr/vsifax3/bin/vfxolog > fax.t ");

open(INFILE, "fax.t") ||
            die "Cant open in file";            

$ENV{ORACLE_HOME} = "/de/data02/app/oracle/oas";

my $dbuser = "mfs_alchemy";
my $dbpass = "zztops";
my $dbconnect = $dbuser . "/" . $dbpass . "\@alchemy";

my $dbh = DBI->connect('DBI:Oracle:', $dbconnect, '')
        || die "alc_output: unable to connect to Oracle: ($dbconnect): $DBI::err
str";


while(<INFILE>) {
 my @words = split(/\W*\s+\W*/, $_);
 printf("ID: $words[0] Status: $words[6] \n");

 my $sql = "update t\$output_tracking
            set status = '$words[6]'
          where destination_id = '$words[0]'
            and OUTPUT_FORMAT = 'FAX' ";

 my $sth = $dbh->prepare($sql)
        || die "alc_output: SQL prepare error: ($sql) $DBI::errstr";

 my $return = $sth->execute
        || die "alc_output: SQL execute error: ($sql) $DBI::errstr";

}

close(INFILE);