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_cacher = *Amanda::XferServerc::xfer_dest_taper_cacher;
61 *xfer_dest_taper_directtcp = *Amanda::XferServerc::xfer_dest_taper_directtcp;
62 *xfer_dest_taper_start_part = *Amanda::XferServerc::xfer_dest_taper_start_part;
63 *xfer_dest_taper_use_device = *Amanda::XferServerc::xfer_dest_taper_use_device;
64 *xfer_dest_taper_cache_inform = *Amanda::XferServerc::xfer_dest_taper_cache_inform;
65 *xfer_dest_taper_get_part_bytes_written = *Amanda::XferServerc::xfer_dest_taper_get_part_bytes_written;
66 *xfer_source_recovery = *Amanda::XferServerc::xfer_source_recovery;
67 *xfer_source_recovery_start_part = *Amanda::XferServerc::xfer_source_recovery_start_part;
68 *xfer_source_recovery_use_device = *Amanda::XferServerc::xfer_source_recovery_use_device;
70 # ------- VARIABLE STUBS --------
72 package Amanda::XferServer;
81 Amanda::XferServer - server-only parts of Amanda::Xfer
83 This package is automatically imported into L<Amanda::Xfer> if it
84 exists; it is completely documented there.
90 package Amanda::Xfer::Source::Device;
93 @ISA = qw( Amanda::Xfer::Element );
99 Amanda::XferServer::xfer_source_device(@_);
102 package Amanda::Xfer::Dest::Device;
105 @ISA = qw( Amanda::Xfer::Element );
111 Amanda::XferServer::xfer_dest_device(@_);
114 package Amanda::Xfer::Source::Holding;
117 @ISA = qw( Amanda::Xfer::Element );
123 Amanda::XferServer::xfer_source_holding(@_);
126 package Amanda::Xfer::Dest::Taper;
129 @ISA = qw( Amanda::Xfer::Element );
130 *use_device = *Amanda::XferServer::xfer_dest_taper_use_device;
131 *start_part = *Amanda::XferServer::xfer_dest_taper_start_part;
132 *cache_inform = *Amanda::XferServer::xfer_dest_taper_cache_inform;
133 *get_part_bytes_written = *Amanda::XferServer::xfer_dest_taper_get_part_bytes_written;
135 package Amanda::Xfer::Dest::Taper::Splitter;
138 @ISA = qw( Amanda::Xfer::Dest::Taper );
144 Amanda::XferServer::xfer_dest_taper_splitter(@_);
147 package Amanda::Xfer::Dest::Taper::Cacher;
150 @ISA = qw( Amanda::Xfer::Dest::Taper );
156 Amanda::XferServer::xfer_dest_taper_cacher(@_);
159 package Amanda::Xfer::Dest::Taper::DirectTCP;
162 @ISA = qw( Amanda::Xfer::Dest::Taper );
168 Amanda::XferServer::xfer_dest_taper_directtcp(@_);
171 package Amanda::Xfer::Source::Recovery;
174 @ISA = qw( Amanda::Xfer::Element );
180 Amanda::XferServer::xfer_source_recovery(@_);
182 *start_part = *Amanda::XferServer::xfer_source_recovery_start_part;
183 *use_device = *Amanda::XferServer::xfer_source_recovery_use_device;