Imported Upstream version 3.2.0

[debian/amanda] / perl / Amanda / Script_App.pm

diff --git a/perl/Amanda/Script_App.pm b/perl/Amanda/Script_App.pm
index 3b6ff69a0e5d378728e26ee01753828720d4061f..2e6026185da7247892a7027cd70051fb738b66cd 100644 (file)
--- a/perl/Amanda/Script_App.pm
+++ b/perl/Amanda/Script_App.pm
@@ -120,7 +120,7 @@ sub print_to_server {
             print {$self->{mesgout}} "? $msg\n";
        }
     } elsif ($self->{action} eq "restore") {
-        print STDOUT "$msg\n";
+        print STDERR "$msg\n";
     } elsif ($self->{action} eq "validate") {
         print STDERR "$msg\n";
     } else {
@@ -180,6 +180,10 @@ sub do {
        $self->{action} = 'validate';
     }
 
+    if ($action eq 'backup') {
+       $self->_set_mesgout();
+    }
+
     # now convert it to a function name and see if it's
     # defined
     my $function_name = "command_$command";