#die(Dumper(\%Conf));
my $dsn = $Conf{SearchDSN} || die "need searchdsn in config.pl\n";
my $user = $Conf{SearchUser} || '';
my $dbh = DBI->connect($dsn, $user, "", { raiseerror => 1, autocommit => 0 });
#die(Dumper(\%Conf));
my $dsn = $Conf{SearchDSN} || die "need searchdsn in config.pl\n";
my $user = $Conf{SearchUser} || '';
my $dbh = DBI->connect($dsn, $user, "", { raiseerror => 1, autocommit => 0 });