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