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 2.0.4
   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_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
  74 package Amanda::XferServer;
  75
  76
  77 @EXPORT_OK = ();
  78 %EXPORT_TAGS = ();
  79
  80
  81 =head1 NAME
  82
  83 Amanda::XferServer - server-only parts of Amanda::Xfer
  84
  85 This package is automatically imported into L<Amanda::Xfer> if it
  86 exists; it is completely documented there.
  87
  88 =cut
  89
  90
  91
  92 package Amanda::Xfer::Source::Device;
  93
  94 use vars qw(@ISA);
  95 @ISA = qw( Amanda::Xfer::Element );
  96
  97 sub new {
  98     my $pkg = shift;
  99
 100
 101     Amanda::XferServer::xfer_source_device(@_);
 102 }
 103
 104 package Amanda::Xfer::Dest::Device;
 105
 106 use vars qw(@ISA);
 107 @ISA = qw( Amanda::Xfer::Element );
 108
 109 sub new {
 110     my $pkg = shift;
 111
 112
 113     Amanda::XferServer::xfer_dest_device(@_);
 114 }
 115
 116 package Amanda::Xfer::Source::Holding;
 117
 118 use vars qw(@ISA);
 119 @ISA = qw( Amanda::Xfer::Element );
 120
 121 sub new {
 122     my $pkg = shift;
 123
 124
 125     Amanda::XferServer::xfer_source_holding(@_);
 126 }
 127 *get_bytes_read = *Amanda::XferServer::xfer_source_holding_get_bytes_read;
 128
 129 package Amanda::Xfer::Dest::Taper;
 130
 131 use 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
 138 package Amanda::Xfer::Dest::Taper::Splitter;
 139
 140 use vars qw(@ISA);
 141 @ISA = qw( Amanda::Xfer::Dest::Taper );
 142
 143 sub new {
 144     my $pkg = shift;
 145
 146
 147     Amanda::XferServer::xfer_dest_taper_splitter(@_);
 148 }
 149
 150 package Amanda::Xfer::Dest::Taper::Cacher;
 151
 152 use vars qw(@ISA);
 153 @ISA = qw( Amanda::Xfer::Dest::Taper );
 154
 155 sub new {
 156     my $pkg = shift;
 157
 158
 159     Amanda::XferServer::xfer_dest_taper_cacher(@_);
 160 }
 161
 162 package Amanda::Xfer::Dest::Taper::DirectTCP;
 163
 164 use vars qw(@ISA);
 165 @ISA = qw( Amanda::Xfer::Dest::Taper );
 166
 167 sub new {
 168     my $pkg = shift;
 169
 170
 171     Amanda::XferServer::xfer_dest_taper_directtcp(@_);
 172 }
 173
 174 package Amanda::Xfer::Source::Recovery;
 175
 176 use vars qw(@ISA);
 177 @ISA = qw( Amanda::Xfer::Element );
 178
 179 sub new {
 180     my $pkg = shift;
 181
 182
 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;
 188 1;