try to reconnect to the DB if rebuildLineage.pl takes a long time

This commit is contained in:
Doug Bell 2011-03-21 21:04:52 -05:00
parent b13064b912
commit 906fa4aa97
2 changed files with 3 additions and 0 deletions

View file

@ -42,6 +42,8 @@ pod2usage() unless (defined($configFile) && $configFile ne '');
print "Starting..." unless ($quiet);
my $session = WebGUI::Session->open($webguiRoot,$configFile);
# We might take a while, reconnect if we get disconnected for inactivity
$session->db->dbh->{mysql_auto_reconnect} = 1;
print "OK\n" unless ($quiet);
print "Looking for descendant replationships...\n" unless ($quiet);