projects
/
debian
/
amanda
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Imported Upstream version 3.3.1
[debian/amanda]
/
perl
/
Amanda
/
Taper
/
Controller.pm
diff --git
a/perl/Amanda/Taper/Controller.pm
b/perl/Amanda/Taper/Controller.pm
index 1cf014187f7907a3232c5a410011405dcf4e5751..f6c839f66da731da28fa5369408588b1ff02e4ca 100644
(file)
--- a/
perl/Amanda/Taper/Controller.pm
+++ b/
perl/Amanda/Taper/Controller.pm
@@
-104,7
+104,7
@@
sub start {
} else {
$msg = $params{'error'};
}
} 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);
print STDERR "$msg\n";
$self->{'proto'}->send(Amanda::Taper::Protocol::BAD_COMMAND,
message => $msg);
@@
-265,6
+265,14
@@
sub msg_FAILED {
$worker->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) = @_;
sub msg_TAKE_SCRIBE_FROM {
my $self = shift;
my ($msgtype, %params) = @_;