1 # This file was automatically generated by SWIG (http://www.swig.org).
4 # Do not make changes to this file unless you know what you are doing--modify
5 # the SWIG interface file instead.
7 package Amanda::XferServer;
9 use base qw(DynaLoader);
11 require Amanda::MainLoop;
12 require Amanda::Device;
13 require Amanda::Header;
14 package Amanda::XferServerc;
15 bootstrap Amanda::XferServer;
16 package Amanda::XferServer;
19 # ---------- BASE METHODS -------------
21 package Amanda::XferServer;
24 my ($classname,$obj) = @_;
25 return bless $obj, $classname;
35 my ($self,$field) = @_;
36 my $member_func = "swig_${field}_get";
37 $self->$member_func();
41 my ($self,$field,$newval) = @_;
42 my $member_func = "swig_${field}_set";
43 $self->$member_func($newval);
52 # ------- FUNCTION WRAPPERS --------
54 package Amanda::XferServer;
56 *xfer_source_device = *Amanda::XferServerc::xfer_source_device;
57 *xfer_dest_device = *Amanda::XferServerc::xfer_dest_device;
58 *xfer_source_holding = *Amanda::XferServerc::xfer_source_holding;
59 *xfer_dest_taper_splitter = *Amanda::XferServerc::xfer_dest_taper_splitter;
60 *xfer_dest_taper_directtcp = *Amanda::XferServerc::xfer_dest_taper_directtcp;
61 *xfer_dest_taper_start_part = *Amanda::XferServerc::xfer_dest_taper_start_part;
62 *xfer_dest_taper_use_device = *Amanda::XferServerc::xfer_dest_taper_use_device;
63 *xfer_dest_taper_cache_inform = *Amanda::XferServerc::xfer_dest_taper_cache_inform;
64 *xfer_dest_taper_get_part_bytes_written = *Amanda::XferServerc::xfer_dest_taper_get_part_bytes_written;
65 *xfer_source_recovery = *Amanda::XferServerc::xfer_source_recovery;
66 *xfer_source_recovery_start_part = *Amanda::XferServerc::xfer_source_recovery_start_part;
67 *xfer_source_recovery_use_device = *Amanda::XferServerc::xfer_source_recovery_use_device;
69 # ------- VARIABLE STUBS --------
71 package Amanda::XferServer;
80 Amanda::XferServer - server-only parts of Amanda::Xfer
82 This package is automatically imported into L<Amanda::Xfer> if it
83 exists; it is completely documented there.
89 package Amanda::Xfer::Source::Device;
92 @ISA = qw( Amanda::Xfer::Element );
98 Amanda::XferServer::xfer_source_device(@_);
101 package Amanda::Xfer::Dest::Device;
104 @ISA = qw( Amanda::Xfer::Element );
110 Amanda::XferServer::xfer_dest_device(@_);
113 package Amanda::Xfer::Source::Holding;
116 @ISA = qw( Amanda::Xfer::Element );
122 Amanda::XferServer::xfer_source_holding(@_);
125 package Amanda::Xfer::Dest::Taper;
128 @ISA = qw( Amanda::Xfer::Element );
129 *use_device = *Amanda::XferServer::xfer_dest_taper_use_device;
130 *start_part = *Amanda::XferServer::xfer_dest_taper_start_part;
131 *cache_inform = *Amanda::XferServer::xfer_dest_taper_cache_inform;
132 *get_part_bytes_written = *Amanda::XferServer::xfer_dest_taper_get_part_bytes_written;
134 package Amanda::Xfer::Dest::Taper::Splitter;
137 @ISA = qw( Amanda::Xfer::Dest::Taper );
143 Amanda::XferServer::xfer_dest_taper_splitter(@_);
146 package Amanda::Xfer::Dest::Taper::DirectTCP;
149 @ISA = qw( Amanda::Xfer::Dest::Taper );
155 Amanda::XferServer::xfer_dest_taper_directtcp(@_);
158 package Amanda::Xfer::Source::Recovery;
161 @ISA = qw( Amanda::Xfer::Element );
167 Amanda::XferServer::xfer_source_recovery(@_);
169 *start_part = *Amanda::XferServer::xfer_source_recovery_start_part;
170 *use_device = *Amanda::XferServer::xfer_source_recovery_use_device;