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.0
[debian/amanda]
/
perl
/
Amanda
/
Script_App.pm
diff --git
a/perl/Amanda/Script_App.pm
b/perl/Amanda/Script_App.pm
index 2e6026185da7247892a7027cd70051fb738b66cd..0b8c3f992875f8db344be241ad0b6200de847639 100644
(file)
--- a/
perl/Amanda/Script_App.pm
+++ b/
perl/Amanda/Script_App.pm
@@
-23,6
+23,7
@@
no warnings;
no strict;
$GOOD = 0;
$ERROR = 1;
no strict;
$GOOD = 0;
$ERROR = 1;
+$FAILURE = 2;
use strict;
use warnings;
use strict;
use warnings;
@@
-116,8
+117,10
@@
sub print_to_server {
} elsif ($self->{action} eq "backup") {
if ($status == $Amanda::Script_App::GOOD) {
print {$self->{mesgout}} "| $msg\n";
} elsif ($self->{action} eq "backup") {
if ($status == $Amanda::Script_App::GOOD) {
print {$self->{mesgout}} "| $msg\n";
- } els
e
{
+ } els
if ($status == $Amanda::Script_App::ERROR)
{
print {$self->{mesgout}} "? $msg\n";
print {$self->{mesgout}} "? $msg\n";
+ } else {
+ print {$self->{mesgout}} "sendbackup: error $msg\n";
}
} elsif ($self->{action} eq "restore") {
print STDERR "$msg\n";
}
} elsif ($self->{action} eq "restore") {
print STDERR "$msg\n";