Commit 9fb61440 authored by Ian Longden's avatar Ian Longden
Browse files

set_disconnect_when_inactive method added which will disconnect ALL...

set_disconnect_when_inactive method added which will disconnect ALL DBConnections and set the flag for disconnect_when_inactive to 1
parent d0de498f
......@@ -603,6 +603,20 @@ sub alias_exists{
return 0;
}
sub set_disconnect_when_inactive{
foreach my $dba ( @{get_all_DBAdaptors()}){
my $dbc = $dba->dbc;
#disconnect if connected
if($dbc->connected()){
$dbc->disconnect();
$dbc->connected(undef);
}
$dbc->disconnect_when_inactive(1);
}
}
=head2 change_access
Will change the username and password for a set of databases.
......
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