commit 1984e072cf726aff5d4347ec3c21a3db1d267c22 Author: Bernard Johnson <bjohnson@xxxxxxxxxxxx> Date: Wed Jul 20 11:58:32 2011 -0600 initial import .gitignore | 1 + perl-Net-FTP-RetrHandle.spec | 81 ++++++++++++++++++++++++++++++++++++++++++ sources | 1 + 3 files changed, 83 insertions(+), 0 deletions(-) --- diff --git a/.gitignore b/.gitignore index e69de29..da37058 100644 --- a/.gitignore +++ b/.gitignore @@ -0,0 +1 @@ +/Net-FTP-RetrHandle-0.2.tar.gz diff --git a/perl-Net-FTP-RetrHandle.spec b/perl-Net-FTP-RetrHandle.spec new file mode 100644 index 0000000..29e04b8 --- /dev/null +++ b/perl-Net-FTP-RetrHandle.spec @@ -0,0 +1,81 @@ +%global _module_name Net-FTP-RetrHandle + +Name: perl-%{_module_name} +Version: 0.2 +Release: 2%{?dist} +Summary: Provides a file reading interface for reading files on a remote FTP server + +Group: Development/Libraries +License: GPL+ or Artistic +URL: http://search.cpan.org/~giff/%{_module_name}-%{version}/ +Source0: http://search.cpan.org/CPAN/authors/id/G/GI/GIFF/%{_module_name}-%{version}.tar.gz +BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) + +BuildArch: noarch +BuildRequires: perl(ExtUtils::MakeMaker), perl(Test::More) +Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) + +%{?perl_default_filter} + +%description +Support for skipping the beginning of the file is implemented with the FTP REST +command, which starts a retrieval at any point in the file. Support for +skipping the end of the file is implemented with the FTP ABOR command, which +stops the transfer. With these two commands and some careful tracking of the +current file position, we're able to reliably emulate a seek/read pair, and get +only the parts of the file that are actually read. + +This was originally designed for use with Archive::Zip; it's reliable enough +that the table of contents and individual files can be extracted from a remote +ZIP archive without downloading the whole thing. + +An interface compatible with IO::Handle is provided, along with a tie-based +%prep +%setup -q -n %{_module_name}-%{version} + +# remove any CVS static +find t -type d -name CVS | xargs rm -rf + +%build +%{__perl} Makefile.PL INSTALLDIRS=vendor +make %{?_smp_mflags} + + +%install +rm -rf $RPM_BUILD_ROOT +make pure_install DESTDIR=$RPM_BUILD_ROOT +find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';' +find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null ';' +%{_fixperms} $RPM_BUILD_ROOT/* + + +%check +# We can't allow tests that access the network under koji, so remove those +# unless specified on the command line +%{?!_with_net_tests: rm -f t/10remote.t} +%{?!_with_net_tests: rm -f t/11tie.t} + +make test + + +%clean +rm -rf $RPM_BUILD_ROOT + + +%files +%defattr(-,root,root,-) +# For noarch packages: vendorlib +%{perl_vendorlib}/* +%{_mandir}/man3/*.3* +%doc TODO NEWS t + + +%changelog +* Wed Jul 20 2011 Bernard Johnson <bjohnson@xxxxxxxxxxxx> - 0.2-3 +- remove extraneous doc section + +* Sun Jul 17 2011 Bernard Johnson <bjohnson@xxxxxxxxxxxx> - 0.2-2 +- add additional documentation files including test cases + +* Fri Jul 08 2011 Bernard Johnson <bjohnson@xxxxxxxxxxxx> - 0.2-1 +- initial package diff --git a/sources b/sources index e69de29..0afbdf2 100644 --- a/sources +++ b/sources @@ -0,0 +1 @@ +f95c6ae7cff3a5823338be41f1cf6fa8 Net-FTP-RetrHandle-0.2.tar.gz -- Fedora Extras Perl SIG http://www.fedoraproject.org/wiki/Extras/SIGs/Perl perl-devel mailing list perl-devel@xxxxxxxxxxxxxxxxxxxxxxx https://admin.fedoraproject.org/mailman/listinfo/perl-devel