Amanda::Application - perl utility functions for Applications.
package Amanda::Application::my_application;
use base qw(Amanda::Application);
sub new {
my ($class, $config, $foo) = @_;
my $self = $class->SUPER::new($config);
$self->{'foo'} = $foo;
$self->{'bar'} = $bar;
return $self;
}
# Define all command_* subs that you need, e.g.,
sub command_support {
my $self = shift;
# ...
}
package main;
# .. parse arguments ..
my $application = Amanda::Application::my_application->new($opt_foo, $opt_bar);
$application->do($cmd);
$self->write_magic_block($type)
Write a 512 bytes magic block to STDOUT.
$type = $self->read_magic_block()
Read the 512 bytes magic block from STDIN and return the type.
This page was automatically generated Tue Mar 19 07:08:15 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.