Commit 6fc591a6 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Another fix for mailing DB errors.

parent 2d6f1462
......@@ -18,9 +18,6 @@ my $TB = "@prefix@";
my $SCRIPTNAME = "Unknown";
my $TBOPS = "@TBOPSEMAIL@";
# Locals
my $DBErrorString = ""; # Record last DB error string.
# Remember the DBname for subsequent reconnects.
my @DBNAMES = ();
......@@ -81,14 +78,15 @@ else {
#
my @DB;
use vars qw($DBQUERY_MAXTRIES $DBCONN_MAXTRIES
use vars qw($DBQUERY_MAXTRIES $DBCONN_MAXTRIES $DBErrorString
$DBCONN_EXITONERR $DBQUERY_RECONNECT $DBQUERY_DEBUG);
$DBQUERY_MAXTRIES = 1;
$DBQUERY_RECONNECT = 1;
$DBCONN_MAXTRIES = 5;
$DBCONN_EXITONERR = 1;
$DBQUERY_DEBUG = 0;
@EXPORT = qw($DBQUERY_MAXTRIES $DBQUERY_RECONNECT
$DBErrorString = "";
@EXPORT = qw($DBQUERY_MAXTRIES $DBQUERY_RECONNECT $DBErrorString
$DBCONN_EXITONERR $DBCONN_MAXTRIES $DBQUERY_DEBUG);
sub TBDBConnect($$)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment