use BackupPC::CGI::Lib qw(:all);
use BackupPC::Search;
use Data::Dumper;
-use vars qw($Cgi %In $MyURL $User %Conf $TopDir $BinDir $bpc);
-
-my $dsn = $Conf{SearchDSN};
-my $db_user = $Conf{SearchUser} || '';
+use vars qw($Cgi %In $MyURL $User $TopDir $BinDir $bpc);
sub action() {
my $cont = "";
my $subtitle;
my @files;
- my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 0 } );
+ $bpc->ConfigRead('_search_archive');
+ my %Conf = $bpc->Conf;
+
+ my $dbh = DBI->connect($Conf{SearchDSN}, $Conf{SearchUser}, "", { RaiseError => 1, AutoCommit => 0 } );
BackupPC::CGI::Lib::NewRequest();
# $cont = Dumper(%In);