Amanda::Script - perl utility functions for Scripts.
package Amanda::Script::my_script;
use base qw(Amanda::Script);
sub new {
my $class = shift;
my ($execute_where, $foo, $bar) = @_;
my $self = $class->SUPER::new($execute_where);
$self->{'execute_where'} = $execute_where;
$self->{'foo'} = $foo;
$self->{'bar'} = $bar;
return $self;
}
# Define all command_* subs that you need, e.g.,
sub command_pre_dle_amcheck {
my $self = shift;
# ...
}
package main;
# .. parse arguments ..
my $script = Amanda::Script::my_script->new($opt_execute_where, $opt_foo, $opt_bar);
$script->do($cmd);
This page was automatically generated Tue Mar 19 07:08:17 2019 from the Amanda source tree, and documents the most recent development version of Amanda. For documentation specific to the version of Amanda on your system, use the 'perldoc' command.