Add list_backup, list_restore functions

diff --git a/gui/bweb/lib/Bconsole.pm b/gui/bweb/lib/Bconsole.pm
index 6f8d2ffa11c2f0cefda7f4549f714ea27de9f87e..91bd06567e3903e3959b5e45460c43d53fd40772 100644 (file)
--- 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) = @_;