ebl fix delete jobid

[bacula/bacula] / gui / bweb / lib / Bconsole.pm

diff --git a/gui/bweb/lib/Bconsole.pm b/gui/bweb/lib/Bconsole.pm
index 9bac7558b60a1d5fa075cb2f469f47ff205a9f53..6594384ea948b1ee5a2906cac6ee7238f2147316 100644 (file)
--- a/gui/bweb/lib/Bconsole.pm
+++ b/gui/bweb/lib/Bconsole.pm
@@ -301,6 +301,12 @@ sub list_client
     return split(/\r\n/, $self->send_cmd(".clients"));
 }
 
+sub list_pool
+{
+    my ($self) = @_;
+    return split(/\r\n/, $self->send_cmd(".pools"));
+}
+
 use Time::ParseDate qw/parsedate/;
 use POSIX qw/strftime/;
 use Data::Dumper;
@@ -392,17 +398,17 @@ package main;
 print "test sans conio\n";
 
 my $c = new Bconsole(pref => {
-    bconsole => '/usr/local/bacula/sbin/bconsole -c /usr/local/bacula/etc/bconsole.conf',
+    bconsole => '/tmp/bacula/sbin/bconsole -n -c /tmp/bacula/etc/bconsole.conf',
 },
-                    debug => 1);
+                    debug => 0);
 
 print "fileset : ", join(',', $c->list_fileset()), "\n";
 print "job : ",     join(',', $c->list_job()), "\n";
 print "storage : ", join(',', $c->list_storage()), "\n";
 #print "prune : " . $c->prune_volume('000001'), "\n";
 #print "update : " . $c->send_cmd_with_drive('update slots storage=SDLT-1-2'), "\n";
-print "label : ", join(',', $c->label_barcodes(storage => 'SDLT-1-2',
-                                              slots => 6,
-                                              drive => 0)), "\n";
+#print "label : ", join(',', $c->label_barcodes(storage => 'SDLT-1-2',
+#                                             slots => 6,
+#                                             drive => 0)), "\n";