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;
+$FAILURE = 2;
 
 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";
-       } else {
+       } elsif ($status == $Amanda::Script_App::ERROR) {
             print {$self->{mesgout}} "? $msg\n";
+       } else {
+            print {$self->{mesgout}} "sendbackup: error $msg\n";
        }
     } elsif ($self->{action} eq "restore") {
         print STDERR "$msg\n";