From: Eric Bollengier <eric@eb.homelinux.org>
Date: Thu, 24 Aug 2006 19:00:40 +0000 (+0000)
Subject: ebl  add list_pool function
X-Git-Tag: Release-2.0.0~554
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=cd59554a1bd73e414ba89ec526965ed03ee58d09;p=bacula%2Fbacula

ebl  add list_pool function


git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@3361 91ce42f0-d328-0410-95d8-f526ca767f89
---

diff --git a/gui/bweb/lib/Bconsole.pm b/gui/bweb/lib/Bconsole.pm
index a23b6f7876..6594384ea9 100644
--- 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;