From: Eric Bollengier <eric@eb.homelinux.org>
Date: Fri, 13 Nov 2009 13:27:18 +0000 (+0100)
Subject: Add list_backup, list_restore functions
X-Git-Tag: Release-5.0.0~246^2~4
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=00a438c6aba88759f760dbc7959a966c8fb1e6cc;p=bacula%2Fbacula

Add list_backup, list_restore functions
---

diff --git a/gui/bweb/lib/Bconsole.pm b/gui/bweb/lib/Bconsole.pm
index 6f8d2ffa11..91bd06567e 100644
--- a/gui/bweb/lib/Bconsole.pm
+++ b/gui/bweb/lib/Bconsole.pm
@@ -338,6 +338,18 @@ sub get_fileset
     return $ret;
 }
 
+sub list_backup
+{
+    my ($self) = @_;
+    return sort split(/\r?\n/, $self->send_cmd(".jobs type=B"));
+}
+
+sub list_restore
+{
+    my ($self) = @_;
+    return sort split(/\r?\n/, $self->send_cmd(".jobs type=R"));
+}
+
 sub list_job
 {
     my ($self) = @_;