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

WebFS-FileCopy documentation Contained in the WebFS-FileCopy distribution.

Index

Code Index:

NAME

Top

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

SYNOPSIS

Top

 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";
 }

DESCRIPTION

Top

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.

METHODS

Top

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

Top

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

AUTHOR

Top

Blair Zajac <blair@akamai.com>

COPYRIGHT

Top

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.

WebFS-FileCopy documentation Contained in the WebFS-FileCopy distribution. 
package WebFS::FileCopy::Put; 

# 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.

require 5.004_04;

use strict;
use Exporter;
require WebFS::FileCopy::Put::File;
require WebFS::FileCopy::Put::FTP;

use vars qw(@ISA $VERSION);

@ISA     = qw(Exporter); 
$VERSION = substr q$Revision: 1.04 $, 10;
 
sub new {
  my ($class, $req) = @_;

  unless (ref($req) eq 'LWP::Request') {
    $@ = LWP::Request->new(400, "WebFS::FileCopy::Put given invalid request");
    return;
  }

  # We put this in so that give_response can be used.
  $req->{done_cb} = sub { $_[0]; };

  # Check that we have a URI.
  my $uri = $req->uri;
  unless ($uri) {
    $@ = $req->give_response(400, 'Missing URL in request');
    return;
  }

  my $scheme = $uri->scheme;
  if ($scheme eq 'ftp') {
    return WebFS::FileCopy::Put::FTP->new($req);
  } elsif ($scheme eq 'file') {
    return WebFS::FileCopy::Put::File->new($req);
  } else {
    $@ = $req->give_response(500,
			     "WebFS::FileCopy::Put invalid scheme $scheme");
    return; 
  }
}

sub DESTROY {
  if ($WebFS::FileCopy::WARN_DESTROY) {
    my $self = shift;
    print STDERR "DESTROYing $self\n";
  }
}

1;

__END__