From 00a438c6aba88759f760dbc7959a966c8fb1e6cc Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@eb.homelinux.org>
Date: Fri, 13 Nov 2009 14:27:18 +0100
Subject: [PATCH] Add list_backup, list_restore functions

---
 gui/bweb/lib/Bconsole.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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) = @_;
-- 
2.39.5