X-Git-Url: https://git.gag.com/?a=blobdiff_plain;ds=sidebyside;f=perl%2FAmanda%2FXferServer.pm;h=9ab00da0cebc30af6ff22ebc6d1718813c150b00;hb=b116e9366c7b2ea2c2eb53b0a13df4090e176235;hp=859b2ec7213f19bdcf79f3b468e05ee53f096954;hpb=fd48f3e498442f0cbff5f3606c7c403d0566150e;p=debian%2Famanda

diff --git a/perl/Amanda/XferServer.pm b/perl/Amanda/XferServer.pm
index 859b2ec..9ab00da 100644
--- a/perl/Amanda/XferServer.pm
+++ b/perl/Amanda/XferServer.pm
@@ -57,6 +57,7 @@ package Amanda::XferServer;
 *xfer_dest_device = *Amanda::XferServerc::xfer_dest_device;
 *xfer_source_holding = *Amanda::XferServerc::xfer_source_holding;
 *xfer_dest_taper_splitter = *Amanda::XferServerc::xfer_dest_taper_splitter;
+*xfer_dest_taper_cacher = *Amanda::XferServerc::xfer_dest_taper_cacher;
 *xfer_dest_taper_directtcp = *Amanda::XferServerc::xfer_dest_taper_directtcp;
 *xfer_dest_taper_start_part = *Amanda::XferServerc::xfer_dest_taper_start_part;
 *xfer_dest_taper_use_device = *Amanda::XferServerc::xfer_dest_taper_use_device;
@@ -143,6 +144,18 @@ sub new {
     Amanda::XferServer::xfer_dest_taper_splitter(@_);
 }
 
+package Amanda::Xfer::Dest::Taper::Cacher;
+
+use vars qw(@ISA);
+@ISA = qw( Amanda::Xfer::Dest::Taper );
+
+sub new { 
+    my $pkg = shift;
+
+
+    Amanda::XferServer::xfer_dest_taper_cacher(@_);
+}
+
 package Amanda::Xfer::Dest::Taper::DirectTCP;
 
 use vars qw(@ISA);