git.gag.com Git - debian/amanda/blob - perl/Amanda/XferServer.pm

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