WebFS-FileCopy
view release on metacpan or search on metacpan
Update the test script to match the new error codes from
www.perl.com and ftp.gps.caltech.edu.
Fri Feb 2 16:28:18 PST 2001
Release version 1.03.
Fri Feb 2 16:17:40 PST 2001
Include two patches to apply to LWPng-alpha-0.24 to improve
portibility to newer versions of Perl and Win32 platforms.
The test script was failing in one test since the FTP site
being used for testing was slightly modified. Change the
script to hopefully do the same test in a location that will
not change.
Thu Nov 2 11:00:13 PST 2000
Release version 1.02.
Thu Nov 2 10:44:11 PST 2000
Require and use the latest versions of all the HTTP related
Perl modules, since the error messages from the modules appear
to have changed and this will make sure that the test scripts
in the test directory pass. This means using the following
new modules:
Net::FTP 2.56
LWPng 0.24
LWP 5.48
URI 1.09
Thu Nov 2 10:25:34 PST 2000
Change all of the email addresses in all of the documentation
from blair@geostaff.com to blair@akamai.com.
In WebFS::FileCopy::Put::File, when opening the output file
call binmode() on the file handle so that binary files are
Mon Jun 28 16:19:44 PDT 1999
Fix a typo in Makefile.PL as noted by Roland Bauer
<roland.bauer@fff.at>.
Tue Apr 13 09:29:13 PDT 1999 <bzajac@akamai.com> (Blair Zajac)
Update the module to use URI instead of URI::URL. Check for
URI 1.02 in Makefile.PL.
Update to use LWPng-alpha 0.24 which now uses URI instead of
URI::URL.
Increase the number of tests in t/01copy.t to check the return
from any WebFS::FileCopy command for a defined values.
Check for Digest::MD5 version 2.06 instead of MD5 version 1.7
in Makefile.PL.
Release version 1.00.
Thu Jul 9 12:45:01 PDT 1998 <blair@gps.caltech.edu> (Blair Zajac)
Release version 0.03.
Wed Jul 8 10:05:41 PDT 1998 <blair@gps.caltech.edu> (Blair Zajac)
Update Makefile.PL to require HTML::Parser 2.20.
Tue Jul 7 10:25:39 PDT 1998 <blair@gps.caltech.edu> (Blair Zajac)
Update Makefile.PL to require LWPng_alpha 0.23, LWP 5.34, and
HTML::Parser 2.19.
Rename all gen_response to give_response after LWPng changed the
name of LWP::Request->gen_response to LWP::Request->give_response.
Sat Jul 4 09:59:33 PDT 1998 <blair@gps.caltech.edu> (Blair Zajac)
Replace occurrences of EGADS with WebFS::FileCopy in Makefile.PL.
Noted by Lupe Christoph <lupe@alanya.m.isar.de>.
Rename the WebFS::UA package to WebFS::FileCopy::UA and
WebFS::Response to WebFS::FileCopy::Response to keep the name
space cleaner.
Thu Jul 2 10:45:31 PDT 1998 <blair@gps.caltech.edu> (Blair Zajac)
Per Gisle's request, put _start_read_request and
_start_transfer_request in a new WebFS::UA package and
_read_content in a new WebFS::Response package.
Update t/01copy.t to pass all tests on Windows NT.
Sun Jun 28 11:22:57 PDT 1998 <blair@gps.caltech.edu> (Blair Zajac)
Have WebFS::FileCopy use version 0.21 of LWPng or greater.
Add warning note in README regarding the alpha LWPng code.
Release version 0.02.
Fri Jun 26 13:47:48 PDT 1998 <blair@gps.caltech.edu> (Blair Zajac)
Rename URI::Copy to WebFS::FileCopy.
Sun Jun 21 11:14:07 PDT 1998 <blair@gps.caltech.edu> (Blair Zajac)
Rename URI::File::Copy to URI::Copy.
Makefile.PL view on Meta::CPAN
. " HTML::Parser from CPAN/authors/id/G/GA/GAAS/HTML-Parser-x.x.tar.gz.\n\n";
check_version('LWP' => '5.48') or
warn "\n"
. "*** For WebFS::FileCopy you require version 5.48, or later, of\n"
. " LWP from CPAN/authors/id/G/GA/GAAS/libwww-perl-x.x.tar.gz.\n\n";
check_version('LWP::Version' => '0.24') or
warn "\n"
. "*** For WebFS::FileCopy you require version 0.24, or later, of\n"
. " LWP::Version from CPAN/authors/id/G/GA/GAAS/LWPng-alpha-x.x.tar.gz.\n\n";
check_version('URI' => '1.09') or
warn "\n"
. "*** For WebFS::FileCopy you require version 1.09, or later, of\n"
. " URI from CPAN/authors/id/G/GA/GAAS/URI-x.x.tar.gz.\n\n";
WriteMakefile(
'NAME' => 'WebFS::FileCopy',
'VERSION_FROM' => 'lib/WebFS/FileCopy.pm', # finds $VERSION
'dist' => {
This is the WebFS::FileCopy package. This module provides subroutines
for the getting, putting, copying, moving and deleting of files
located by URIs. It also supports listing directories identified by
URI. Currently, files for getting can use any URI protocol, such as
file, FTP, HTTP, etc. For putting, only the file and FTP protocols
are currently supported.
Notable features:
* Uses LWPng for simultaneous file transfers.
* Get the contents of multiple URIs simultaneously.
* Put content into multiple URIs simultaneously.
* Copy multiple files located by URIs to multiple locations
simultaneously.
* Delete a file located by a URI.
* Move a file located from located at one URI to another location.
* List the contents of a URI directory.
WARNINGS AND LWPng PATCHES
This package is based on Gisle Aas's LWPng-alpha module, which is
still alpha code. Because the LWPng interface may change in the
future, this module may break if LWPng is updated in the future
without updating WebFS::FileCopy.
There are two available patches to LWPng in the patches subdirectory:
1) patches/LWPng-0.24-patch-1
The first guesses the content type and try to determine if a file
to be read from disk should be read in binary or text mode. Go
into binary mode unless the content type is some form of text.
This is really only useful in Win32 platforms.
2) patches/LWPng-0.24-patch-2
With at least Perl version 5.6.0, you will need to apply the
following patch to LWPng to prevent a 'Prototype mismatch: sub
IO::Handle::blocking ($;$) vs none at ../lib/LWP/Conn/_Connect.pm
line 43' warning.
REQUIREMENTS
* Perl 5.004_04 or greater.
* LWPng-alpha 0.24 or greater.
* URI 1.09 or greater.
* Net::FTP 2.56 or greater.
SUPPORTED PLATFORMS
I have built and tested the WebFS::FileCopy package on both Solaris
and Windows NT machines.
or from my FTP site:
ftp://ftp.gps.caltech.edu/pub/blair/Perl/
INSTALLATION
In order to use this package you will need Perl version 5.004_04 or
better.
You will need a LWPng-alpha version 0.24 or greater. Versions older
than this one will not work with WebFS::FileCopy. Get LWPng-alpha
from CPAN as CPAN/authors/id/G/GA/GAAS/LWPng-alpha-?.??.tar.gz.
If you do not have Net::FTP installed, use CPAN to install Net::FTP.
If you want to install a private copy of this package in some other
directory, then you should try to produce the initial Makefile with
something like this command:
perl Makefile.PL LIB=~/perl
DOCUMENTATION
patches/LWPng-0.24-patch-1 view on Meta::CPAN
diff -rc ../LWPng-alpha-0.24/lib/LWP/Conn/FILE.pm ./lib/LWP/Conn/FILE.pm
*** ../LWPng-alpha-0.24/lib/LWP/Conn/FILE.pm Mon Apr 12 04:29:36 1999
--- ./lib/LWP/Conn/FILE.pm Tue Apr 13 10:07:17 1999
***************
*** 84,89 ****
--- 84,99 ----
local(*FILE);
if (sysopen(FILE, $path, 0)) {
my $res = $req->new_response(200, "OK");
+
+ # Guess the content type and try to determine if the file
+ # should be read in binary or text mode. Go into binary
patches/LWPng-0.24-patch-2 view on Meta::CPAN
diff -ru ../LWPng-alpha-0.24-orig/lib/LWP/Conn/_Connect.pm ./lib/LWP/Conn/_Connect.pm
--- ../LWPng-alpha-0.24-orig/lib/LWP/Conn/_Connect.pm Tue Jul 7 14:36:55 1998
+++ ./lib/LWP/Conn/_Connect.pm Fri Feb 2 16:07:49 2001
@@ -24,6 +24,7 @@
my $O_NONBLOCK = Fcntl::O_NONBLOCK();
my $F_GETFL = Fcntl::F_GETFL();
my $F_SETFL = Fcntl::F_SETFL();
+ undef *IO::Handle::blocking;
*IO::Handle::blocking = sub {
my $fh = shift;
my $dummy = '';
( run in 0.616 second using v1.01-cache-2.11-cpan-0a6323c29d9 )