WebFS::FileCopy::Put - Object for putting data to either file or ftp URI

 use WebFS::FileCopy::Put;

 my $req = HTTP::Request->new(PUT => 'file:/tmp/zzz');
 my $put = WebFS::FileCopy::Put->new($req);
 if ($put) {
   $put->print "Content goes here\n";
   my $res = $put->close;
   print $res->as_string, "\n";
 } else {
   my $res = $@;
   print $res->message, "\n";
 }

An WebFS::FileCopy::Put object is used to put data to a remote file on an FTP server or a local file. The location is specified by using a LWP::Request object.

The following methods are available:

new request

Returns either an WebFS::FileCopy::Put::FTP or WebFS::FileCopy::PUT::File object if a file or FTP put request is passed. If invalid arguments are passed to new or if the put cannot be created, then undef is returned and $@ will contain a valid HTTP::Response.

print buffer

Put the contents of buffer to the PUT file.

close

Close the PUT file and return a LWP::Response, which can be used to test for the success or failure of the close using the is_success method.

See also the WebFS::FileCopy and LWP::Simple manual pages.

Blair Zajac <blair@akamai.com>

Copyright (C) 1998-2001 by Blair Zajac. All rights reserved. This package is free software; you can redistribute it and/or modify it under the same terms as Perl itself.