From cd59554a1bd73e414ba89ec526965ed03ee58d09 Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@eb.homelinux.org>
Date: Thu, 24 Aug 2006 19:00:40 +0000
Subject: [PATCH] ebl  add list_pool function

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@3361 91ce42f0-d328-0410-95d8-f526ca767f89
---
 gui/bweb/lib/Bconsole.pm | 6 ++++++
 1 file changed, 6 insertions(+)

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;
-- 
2.39.5