X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=lib%2FBackupPC%2FCGI%2FBurnMedia.pm;fp=lib%2FBackupPC%2FCGI%2FBurnMedia.pm;h=bf4dfaffa3cc4e085ece872f4004df66acfd645d;hp=1dc83a13abbea434e900cdfef5844fbcb0bb9e96;hb=aff621b091597104904eafcb4ad6d9fabc2bf7bb;hpb=6e361dfbcfd712fd68d507a90cf3a0b5f7a089cd

diff --git a/lib/BackupPC/CGI/BurnMedia.pm b/lib/BackupPC/CGI/BurnMedia.pm
index 1dc83a1..bf4dfaf 100644
--- a/lib/BackupPC/CGI/BurnMedia.pm
+++ b/lib/BackupPC/CGI/BurnMedia.pm
@@ -4,10 +4,7 @@ use strict;
 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 = "";
@@ -15,7 +12,10 @@ sub action() {
 	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);