1# This file was automatically generated by SWIG (http://www.swig.org). 2# Version 3.0.7 3# 4# Do not make changes to this file unless you know what you are doing--modify 5# the SWIG interface file instead. 6 7package Amanda::XferServer; 8use base qw(Exporter); 9use base qw(DynaLoader); 10require Amanda::Xfer; 11require Amanda::MainLoop; 12require Amanda::Device; 13require Amanda::Header; 14package Amanda::XferServerc; 15bootstrap Amanda::XferServer; 16package Amanda::XferServer; 17@EXPORT = qw(); 18 19# ---------- BASE METHODS ------------- 20 21package Amanda::XferServer; 22 23sub TIEHASH { 24 my ($classname,$obj) = @_; 25 return bless $obj, $classname; 26} 27 28sub CLEAR { } 29 30sub FIRSTKEY { } 31 32sub NEXTKEY { } 33 34sub FETCH { 35 my ($self,$field) = @_; 36 my $member_func = "swig_${field}_get"; 37 $self->$member_func(); 38} 39 40sub STORE { 41 my ($self,$field,$newval) = @_; 42 my $member_func = "swig_${field}_set"; 43 $self->$member_func($newval); 44} 45 46sub this { 47 my $ptr = shift; 48 return tied(%$ptr); 49} 50 51 52# ------- FUNCTION WRAPPERS -------- 53 54package Amanda::XferServer; 55 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_source_holding_get_bytes_read = *Amanda::XferServerc::xfer_source_holding_get_bytes_read; 60*xfer_dest_taper_splitter = *Amanda::XferServerc::xfer_dest_taper_splitter; 61*xfer_dest_taper_cacher = *Amanda::XferServerc::xfer_dest_taper_cacher; 62*xfer_dest_taper_directtcp = *Amanda::XferServerc::xfer_dest_taper_directtcp; 63*xfer_dest_taper_start_part = *Amanda::XferServerc::xfer_dest_taper_start_part; 64*xfer_dest_taper_use_device = *Amanda::XferServerc::xfer_dest_taper_use_device; 65*xfer_dest_taper_cache_inform = *Amanda::XferServerc::xfer_dest_taper_cache_inform; 66*xfer_dest_taper_get_part_bytes_written = *Amanda::XferServerc::xfer_dest_taper_get_part_bytes_written; 67*xfer_source_recovery = *Amanda::XferServerc::xfer_source_recovery; 68*xfer_source_recovery_start_part = *Amanda::XferServerc::xfer_source_recovery_start_part; 69*xfer_source_recovery_use_device = *Amanda::XferServerc::xfer_source_recovery_use_device; 70*xfer_source_recovery_get_bytes_read = *Amanda::XferServerc::xfer_source_recovery_get_bytes_read; 71 72# ------- VARIABLE STUBS -------- 73 74package Amanda::XferServer; 75 76 77@EXPORT_OK = (); 78%EXPORT_TAGS = (); 79 80 81=head1 NAME 82 83Amanda::XferServer - server-only parts of Amanda::Xfer 84 85This package is automatically imported into L<Amanda::Xfer> if it 86exists; it is completely documented there. 87 88=cut 89 90 91 92package Amanda::Xfer::Source::Device; 93 94use vars qw(@ISA); 95@ISA = qw( Amanda::Xfer::Element ); 96 97sub new { 98 my $pkg = shift; 99#The C function adds the proper blessing -- this function 100#just gets $pkg out of the way. 101 Amanda::XferServer::xfer_source_device(@_); 102} 103 104package Amanda::Xfer::Dest::Device; 105 106use vars qw(@ISA); 107@ISA = qw( Amanda::Xfer::Element ); 108 109sub new { 110 my $pkg = shift; 111#The C function adds the proper blessing -- this function 112#just gets $pkg out of the way. 113 Amanda::XferServer::xfer_dest_device(@_); 114} 115 116package Amanda::Xfer::Source::Holding; 117 118use vars qw(@ISA); 119@ISA = qw( Amanda::Xfer::Element ); 120 121sub new { 122 my $pkg = shift; 123#The C function adds the proper blessing -- this function 124#just gets $pkg out of the way. 125 Amanda::XferServer::xfer_source_holding(@_); 126} 127 *get_bytes_read = *Amanda::XferServer::xfer_source_holding_get_bytes_read; 128 129package Amanda::Xfer::Dest::Taper; 130 131use vars qw(@ISA); 132@ISA = qw( Amanda::Xfer::Element ); 133 *use_device = *Amanda::XferServer::xfer_dest_taper_use_device; 134 *start_part = *Amanda::XferServer::xfer_dest_taper_start_part; 135 *cache_inform = *Amanda::XferServer::xfer_dest_taper_cache_inform; 136 *get_part_bytes_written = *Amanda::XferServer::xfer_dest_taper_get_part_bytes_written; 137 138package Amanda::Xfer::Dest::Taper::Splitter; 139 140use vars qw(@ISA); 141@ISA = qw( Amanda::Xfer::Dest::Taper ); 142 143sub new { 144 my $pkg = shift; 145#The C function adds the proper blessing -- this function 146#just gets $pkg out of the way. 147 Amanda::XferServer::xfer_dest_taper_splitter(@_); 148} 149 150package Amanda::Xfer::Dest::Taper::Cacher; 151 152use vars qw(@ISA); 153@ISA = qw( Amanda::Xfer::Dest::Taper ); 154 155sub new { 156 my $pkg = shift; 157#The C function adds the proper blessing -- this function 158#just gets $pkg out of the way. 159 Amanda::XferServer::xfer_dest_taper_cacher(@_); 160} 161 162package Amanda::Xfer::Dest::Taper::DirectTCP; 163 164use vars qw(@ISA); 165@ISA = qw( Amanda::Xfer::Dest::Taper ); 166 167sub new { 168 my $pkg = shift; 169#The C function adds the proper blessing -- this function 170#just gets $pkg out of the way. 171 Amanda::XferServer::xfer_dest_taper_directtcp(@_); 172} 173 174package Amanda::Xfer::Source::Recovery; 175 176use vars qw(@ISA); 177@ISA = qw( Amanda::Xfer::Element ); 178 179sub new { 180 my $pkg = shift; 181#The C function adds the proper blessing -- this function 182#just gets $pkg out of the way. 183 Amanda::XferServer::xfer_source_recovery(@_); 184} 185 *start_part = *Amanda::XferServer::xfer_source_recovery_start_part; 186 *use_device = *Amanda::XferServer::xfer_source_recovery_use_device; 187 *get_bytes_read = *Amanda::XferServer::xfer_source_recovery_get_bytes_read; 1881; 189