1 # This file was automatically generated by SWIG (http://www.swig.org).
4 # Don't modify this file, modify the SWIG interface instead.
6 package Amanda::Application;
9 @ISA = qw(Exporter DynaLoader);
10 package Amanda::Applicationc;
11 bootstrap Amanda::Application;
12 package Amanda::Application;
15 # ---------- BASE METHODS -------------
17 package Amanda::Application;
20 my ($classname,$obj) = @_;
21 return bless $obj, $classname;
31 my ($self,$field) = @_;
32 my $member_func = "swig_${field}_get";
33 $self->$member_func();
37 my ($self,$field,$newval) = @_;
38 my $member_func = "swig_${field}_set";
39 $self->$member_func($newval);
48 # ------- FUNCTION WRAPPERS --------
50 package Amanda::Application;
52 *run_calcsize_C = *Amanda::Applicationc::run_calcsize_C;
54 # ------- VARIABLE STUBS --------
56 package Amanda::Application;
62 push @ISA, qw(Amanda::Script_App);
63 require Amanda::Script_App;
70 Amanda::Application - perl utility functions for Applications.
74 package Amanda::Application::my_application;
75 use base qw(Amanda::Application);
80 my $self = $class->SUPER::new();
82 $self->{'foo'} = $foo;
83 $self->{'bar'} = $bar;
88 # Define all command_* subs that you need, e.g.,
96 # .. parse arguments ..
98 my $application = Amanda::Application::my_application->new($opt_foo, $opt_bar);
99 $application->do($cmd);
106 my $self = Amanda::Script_App::new($class, "client", "application", @_);
108 $self->{known_commands} = {
123 run_calcsize_C($self->{config}, $program, $self->{disk}, $self->{device}, $self->{level}, undef, undef);