Set up enhanced logging of transactions.

Note that now, all transactions are logged, whether they
fail or not.  Failed transactions are logged with status
canceled.  ITransact transactions have additional data
logged.
This commit is contained in:
Colin Kuskie 2008-01-30 15:59:09 +00:00
parent 215914590a
commit d2e55307ed
6 changed files with 140 additions and 3 deletions

View file

@ -23,6 +23,7 @@ my $quiet; # this line required
my $session = start(); # this line required
removeOldPhotoGallery($session);
speedUp($session);
enhanceITransactLogging($session);
finish($session); # this line required
@ -33,6 +34,17 @@ sub speedUp {
$session->db->write("alter table assetData add index assetId_status (assetId,status)");
}
#----------------------------------------------------------------------------
# Add more data to the transaction table
sub enhanceITransactLogging {
my $session = shift;
print "\tAdd additional ITransact data to the transaction table..." unless $quiet;
$session->db->write('alter table transaction add column XID varchar(100) default null');
$session->db->write('alter table transaction add column authcode varchar(100) default null');
$session->db->write('alter table transaction add column message text default null');
print "DONE!\n" unless $quiet;
}
#-------------------------------------------------
sub removeOldPhotoGallery {
my $session = shift;