GO::DebugUtils
Miscellaneous debugging utilities
usage: use GO::DebugUtils qw(:sql); open(MYLOGFILE, ">x.log"); $ENV{SQL_TRACE} = 1; setdblog(\*MYLOGFILE); # ... main code here close(MYLOGFILE); defaults to STDERR
usage: use GO::DebugUtils qw(:db); open(MYLOGFILE, ">x.log"); $ENV{DBLOGGING} = 1; setdblog(\*MYLOGFILE); # ... main code here close(MYLOGFILE); defaults to STDERR
usage: use GO::DebugUtils qw(:general); open(MYLOGFILE, ">x.log"); $ENV{MSGLOGGING} = 1; setdblog(\*MYLOGFILE); # ... main code here close(MYLOGFILE); defaults to STDERR
outputs a log message. if the environment variable MSGLOGGING is not set, this function will do nothing.
use the function setlog to set a logging file; otherwise output will default to STDERR
this is for general logging messages
usage:
msglog("logging message");
outputs a db log message. if the environment variable DBLOGGING is not set, this function will do nothing.
use the function setdblog to set a logging file; otherwise output will default to STDERR
for consistency, this should be used to a produce a high level description of operations performed to modify the database
usage:
dblog("add the clone and associated data");
outputs an sql log message. if the environment variable SQL_TRACE is not set, this function will do nothing.
use the function setsqllog to set a logging file; otherwise output will default to STDERR
this should be used to produce an output of SQL commands executed
usage:
sqllog("$sql_command");