X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FTaper%2FController.pm;h=f6c839f66da731da28fa5369408588b1ff02e4ca;hb=c6f0a88c567f8536c498f554285aed1f8150da18;hp=1cf014187f7907a3232c5a410011405dcf4e5751;hpb=cd0b924f27312d57bd42f6c4fae2b795139e2d0b;p=debian%2Famanda

diff --git a/perl/Amanda/Taper/Controller.pm b/perl/Amanda/Taper/Controller.pm
index 1cf0141..f6c839f 100644
--- a/perl/Amanda/Taper/Controller.pm
+++ b/perl/Amanda/Taper/Controller.pm
@@ -104,7 +104,7 @@ sub start {
 	} else {
 	    $msg = $params{'error'};
 	}
-	log_add($L_ERROR, $msg);
+	log_add($L_ERROR, "$msg");
 	print STDERR "$msg\n";
 	$self->{'proto'}->send(Amanda::Taper::Protocol::BAD_COMMAND,
 	    message => $msg);
@@ -265,6 +265,14 @@ sub msg_FAILED {
     $worker->FAILED(@_);
 }
 
+sub msg_CLOSE_VOLUME {
+    my $self = shift;
+    my ($msgtype, %params) = @_;
+
+    my $worker = $self->{'worker'}->{$params{'worker_name'}};
+    $worker->CLOSE_VOLUME(@_);
+}
+
 sub msg_TAKE_SCRIBE_FROM {
     my $self = shift;
     my ($msgtype, %params) = @_;