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