Imported Upstream version 3.1.0

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

diff --git a/perl/Amanda/Script.pm b/perl/Amanda/Script.pm
index 3e96dfefcae0c583b2316ad45bdc0b994cfc906b..9500465d297ccfac80dd21b5f87f5632d6a905dc 100644 (file)
--- a/perl/Amanda/Script.pm
+++ b/perl/Amanda/Script.pm
@@ -1,21 +1,21 @@
 # vim:ft=perl
-# Copyright (c) 2005-2008 Zmanda, Inc.  All Rights Reserved.
+# Copyright (c) 2008,2009 Zmanda, Inc.  All Rights Reserved.
 #
-# This library is free software; you can redistribute it and/or modify it
-# under the terms of the GNU Lesser General Public License version 2.1 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 version 2 as published
+# by the Free Software Foundation.
 #
-# This library is distributed in the hope that it will be useful, but
+# This program is distributed in the hope that it will be useful, but
 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
-# License for more details.
+# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+# for more details.
 #
-# You should have received a copy of the GNU Lesser General Public License
-# along with this library; if not, write to the Free Software Foundation,
-# Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA.
+# You should have received a copy of the GNU General Public License along
+# with this program; if not, write to the Free Software Foundation, Inc.,
+# 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
 #
-# Contact information: Zmanda Inc., 465 S Mathlida Ave, Suite 300
-# Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
+# Contact information: Zmanda Inc., 465 S. Mathilda Ave., Suite 300
+# Sunnyvale, CA 94085, USA, or: http://www.zmanda.com
 
 package Amanda::Script;
 use base qw(Amanda::Script_App);
@@ -59,9 +59,9 @@ Amanda::Script - perl utility functions for Scripts.
 
 sub new {
     my $class = shift;
-    my $execute_where = shift;
+    my ($execute_where, $config_name) = @_;
 
-    my $self = Amanda::Script_App::new($class, $execute_where, "script", @_);
+    my $self = Amanda::Script_App::new($class, $execute_where, "script", $config_name);
 
     $self->{known_commands} = {
         support             => 1,