2 # The master SQL module
6 # Copyright (c) 2006 Dirk Koopman G1TLH
17 return $active if $active;
37 return undef unless $active;
39 eval {$dbh = DBI->connect($dsn, $user, $passwd); };
40 $self = bless {dbh => $dbh}, $class if $dbh;
47 $self->{dbh}->disconnect;