%BackupPC::Search::Conf = %Conf;
#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 });
%BackupPC::Search::Conf = %Conf;
#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 });
my $sql = q{
SELECT hosts.name AS host, shares.name AS share, backups.num AS num, MAX(archive_burned.copy)
FROM backups
my $sql = q{
SELECT hosts.name AS host, shares.name AS share, backups.num AS num, MAX(archive_burned.copy)
FROM backups