bweb: Add sqlite support

[bacula/bacula] / gui / bweb / cgi / bweb.pl

diff --git a/gui/bweb/cgi/bweb.pl b/gui/bweb/cgi/bweb.pl
index 251011151697af6d93fa9be256c7ea15ec82db49..08a652e7dc04b5603abaf5306fd2b5f40fc3d8f2 100755 (executable)
--- a/gui/bweb/cgi/bweb.pl
+++ b/gui/bweb/cgi/bweb.pl
@@ -41,27 +41,20 @@ my $client_re = qr/^([\w\d\.-]+)$/;
 
 my $action = CGI::param('action') || 'begin';
 
-if ($action eq 'restore') {
-    print CGI::header('text/brestore');        # specialy to run brestore.pl
-
-} else {
-    print CGI::header('text/html');
-}
-
 # loading config file
 my $conf = new Bweb::Config(config_file => $Bweb::config_file);
 $conf->load();
 
 my $bweb = new Bweb(info => $conf);
+my $arg = $bweb->get_form('jobid', 'limit', 'offset', 'age', 'new_dir');
 
 # just send data with text/brestore content
 if ($action eq 'restore') {
+    print CGI::header('text/brestore');        # specialy to run brestore.pl
     $bweb->restore();
     exit 0;
 }
 
-my $arg = $bweb->get_form('jobid', 'limit', 'offset', 'age');
-
 $bweb->display_begin();
 
 # if no configuration, we send edit_conf