From: Eric Bollengier <eric@eb.homelinux.org>
Date: Wed, 16 Aug 2006 17:37:00 +0000 (+0000)
Subject: ebl  Add mount/umount
X-Git-Tag: Release-2.0.0~616
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=c2939ed388f21235168b4375863fe34c476f8ebc;p=bacula%2Fbacula

ebl  Add mount/umount


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

diff --git a/gui/bweb/cgi/bweb.pl b/gui/bweb/cgi/bweb.pl
index 7971147bb5..0c43a237c9 100755
--- a/gui/bweb/cgi/bweb.pl
+++ b/gui/bweb/cgi/bweb.pl
@@ -140,17 +140,34 @@ if ($action eq 'begin') {		# main display
     $a->display_content();
 
 } elsif ($action eq 'ach_load') {
-    my $arg = $bweb->get_form('drive', 'slot');
-    my $a = Bweb::Autochanger::get('S1_L80', $bweb);
-    $a->status();
-    $a->load($arg->{drive}, $arg->{slot}) ;
-
+    my $arg = $bweb->get_form('ach', 'drive', 'slot');
+
+    if (defined $arg->{ach} and defined $arg->{drive} and defined $arg->{slot})
+    {
+	my $b = new Bconsole(pref => $conf, log_stdout => 1) ;
+	# TODO : use template here
+	print "<pre>\n";
+	$b->send_cmd_with_drive("mount slot=$arg->{slot} storage='$arg->{ach}'",
+				$arg->{drive});
+	print "</pre>\n";
+    } else {
+	$bweb->error("Can't get drive, slot or ach");
+    }
+    
 } elsif ($action eq 'ach_unload') {
-    my $arg = $bweb->get_form('drive', 'slot');
-    my $a = Bweb::Autochanger::get('S1_L80', $bweb);
-    $a->status();
-    $a->unload($arg->{drive}, $arg->{slot}) ;
-   
+    my $arg = $bweb->get_form('drive', 'slot', 'ach');
+    if (defined $arg->{ach} and defined $arg->{drive} and defined $arg->{slot})
+    {
+	my $b = new Bconsole(pref => $conf, log_stdout => 1) ;
+	# TODO : use template here
+	print "<pre>\n";
+	$b->send_cmd_with_drive("umount storage='$arg->{ach}'",
+				$arg->{drive});
+	print "</pre>\n";
+
+    } else {
+	$bweb->error("Can't get drive, slot or ach");
+    }   
 } elsif ($action eq 'intern_media') {
     $bweb->help_intern();