Imported Upstream version 3.3.3

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

diff --git a/perl/Amanda/Script.pm b/perl/Amanda/Script.pm
index 9500465d297ccfac80dd21b5f87f5632d6a905dc..9d88393c36c8917b149547372c572313dce2aa34 100644 (file)
--- a/perl/Amanda/Script.pm
+++ b/perl/Amanda/Script.pm
@@ -1,9 +1,10 @@
 # vim:ft=perl
-# Copyright (c) 2008,2009 Zmanda, Inc.  All Rights Reserved.
+# Copyright (c) 2008-2012 Zmanda, Inc.  All Rights Reserved.
 #
-# This program is free software; you can redistribute it and/or modify it
-# under the terms of the GNU General Public License version 2 as published
-# by the Free Software Foundation.
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
 #
 # This program is distributed in the hope that it will be useful, but
 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
@@ -65,17 +66,23 @@ sub new {
 
     $self->{known_commands} = {
         support             => 1,
+        pre_amcheck         => 1,
         pre_dle_amcheck     => 1,
         pre_host_amcheck    => 1,
+        post_amcheck        => 1,
         post_dle_amcheck    => 1,
         post_host_amcheck   => 1,
         pre_dle_estimate    => 1,
+        pre_estimate        => 1,
         pre_host_estimate   => 1,
+        post_estimate       => 1,
         post_dle_estimate   => 1,
         post_host_estimate  => 1,
+        pre_backup          => 1,
         pre_dle_backup      => 1,
         pre_host_backup     => 1,
         post_dle_backup     => 1,
+        post_backup         => 1,
         post_host_backup    => 1,
         pre_recover         => 1,
         post_recover        => 1,
@@ -86,5 +93,12 @@ sub new {
     return $self;
 }
 
+sub _set_mesgout {
+    my $self = shift;
+
+    my $mesgout_fd;
+    open ($mesgout_fd, '>&=1') || die("Can't open mesgout_fd: $!");
+    $self->{mesgout} = $mesgout_fd;
+}
 
 1;