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.
