-
Notifications
You must be signed in to change notification settings - Fork 561
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Update IO-Compress to CPAN version 2.089
[DELTA]
2.089 3 November 2019
* bin/streamzip
Add zipstream to EXE_FILES
pmqs/IO-Compress#5
7f5ed78e5652125c9ba78aab720e18d384d59c00
fb8cd6480af6303f58fd2e12d4999cd1830f0c5f
2.088 31 October 2019
* t/105oneshot-zip-only.t
Fix reset of CompSize
6034da95f1dc5a594edc0d26e6add8d86990ad56
* Add Support Details
ad66b6ec4cf175a70e53f74572eed5f403648f11
* Update site for Bzip2 to sourceware
77497aeb2a234889a2b2c4ac7ea2f620895b16a9
* Fix number of tests
bc4e234449a82fb00f66af752dfc4c96097b2a4d
* Add streamzip script to bin
76d2795d0587bafb0cc398e97142740acba82a42
* zipdetails
* Update zipdetails to version 1.11
8958cb3aa90745a4b3369479846846fdca6b4f76
* Zip64 extra field typo
f186380d701fe5257f9fc92d69160dc6382cfc24
* t/105oneshot-zip-only.t
test with deflated directory
16bfffcf5089af67cb7f68685cc61d06409cba73
* t/105oneshot-zip-only.t
Add test for encrypted Zip files
5ad813115aed000f88d7df28261b43c00ae56525
2c64e255feb5a1ee33d033f7eccb6feca12ebe97
* Documentation Updates
pmqs/IO-Compress#2
e1fd0d4eda0a8496981cbd83ad06906f4ae586a5
* Mention xz, lzma etc
pmqs/IO-Compress#4
126f7b9da97b572d0fb89a9bdcc190c5405c72b8- Loading branch information
Showing
43 changed files
with
956 additions
and
335 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,212 @@ | ||
| #!/usr/bin/perl | ||
|
|
||
| # Streaming zip | ||
|
|
||
| use strict; | ||
| use warnings; | ||
|
|
||
| use IO::Compress::Zip qw(zip | ||
| ZIP_CM_STORE | ||
| ZIP_CM_DEFLATE | ||
| ZIP_CM_BZIP2 | ||
| ZIP_CM_LZMA ); | ||
| use Getopt::Long; | ||
|
|
||
| my $VERSION = '1.0'; | ||
|
|
||
| my $compression_method = ZIP_CM_DEFLATE; | ||
| my $stream = 0; | ||
| my $zipfile = '-'; | ||
| my $memberName = '-' ; | ||
| my $zip64 = 0 ; | ||
|
|
||
| GetOptions("zip64" => \$zip64, | ||
| "method=s" => \&lookupMethod, | ||
| "stream" => \$stream, | ||
| "zipfile=s" => \$zipfile, | ||
| "member-name=s" => \$memberName, | ||
| 'version' => sub { print "$VERSION\n"; exit 0 }, | ||
| 'help' => \&Usage, | ||
| ) | ||
| or Usage(); | ||
|
|
||
| Usage() | ||
| if @ARGV; | ||
|
|
||
|
|
||
| zip '-' => $zipfile, | ||
| Name => $memberName, | ||
| Zip64 => $zip64, | ||
| Method => $compression_method, | ||
| Stream => $stream | ||
| or die "Error creating zip file '$zipfile': $\n" ; | ||
|
|
||
| exit 0; | ||
|
|
||
| sub lookupMethod | ||
| { | ||
| my $name = shift; | ||
| my $value = shift ; | ||
|
|
||
| my %valid = ( store => ZIP_CM_STORE, | ||
| deflate => ZIP_CM_DEFLATE, | ||
| bzip2 => ZIP_CM_BZIP2, | ||
| lzma => ZIP_CM_LZMA, | ||
| ); | ||
|
|
||
| my $method = $valid{ lc $value }; | ||
|
|
||
| Usage("Unknown method '$value'") | ||
| if ! defined $method; | ||
|
|
||
| # If LZMA was rquested, check that it is available | ||
| if ($method == ZIP_CM_LZMA) | ||
| { | ||
| eval ' use IO::Compress::Adapter::Lzma'; | ||
| die "Method =. LZMA needs IO::Compress::Adapter::Lzma\n" | ||
| if ! defined $IO::Compress::Lzma::VERSION; | ||
| } | ||
|
|
||
| $compression_method = $method; | ||
| } | ||
|
|
||
| sub Usage | ||
| { | ||
| die <<EOM; | ||
| streamzip [OPTIONS] | ||
| Stream data from stdin, compress into a Zip container, and stream to stdout. | ||
| OPTIONS | ||
| -zipfile=F Write zip container to the filename F | ||
| -member-name=M member name [Default '-'] | ||
| -zip64 Create a Zip64-compliant zip file [Default: No] | ||
| Use Zip64 if input is greater than 4Gig. | ||
| -stream Write a streamed zip file | ||
| Only applies when 'zipfile' option is used. [Default: No] | ||
| Always enabled when writing to stdout. | ||
| -method=M Compress using method "M". | ||
| Valid methods are | ||
| store Store without compression | ||
| deflate Use Deflate compression [Deflault] | ||
| bzip2 Use Bzip2 compression | ||
| lzma Use LZMA compression [needs IO::Compress::Lzma] | ||
| Lzma needs IO::Compress::Lzma to be installed. | ||
| -version Display version number [$VERSION] | ||
| Copyright (c) 2019 Paul Marquess. All rights reserved. | ||
| This program is free software; you can redistribute it and/or | ||
| modify it under the same terms as Perl itself. | ||
| EOM | ||
| } | ||
|
|
||
|
|
||
| __END__ | ||
| =head1 NAME | ||
| streamzip - create a zip file from stdin | ||
| =head1 SYNOPSIS | ||
| producer | streamzip [opts] | comsumer | ||
| producer | streamzip [opts] -zipfile=output.zip | ||
| =head1 DESCRIPTION | ||
| This program will read data from stdin, compress it into a zip container and, | ||
| by default, write a I<streamed> zip file to stdout. No temporary files are created. | ||
| The zip container written to stdout is, by necessity, written in streaming | ||
| format. Most programs that read Zip files can cope with a streamed zip file, | ||
| but if interoperability is important, and your workflow allows you to write the | ||
| zip file directly to disk you can create a non-streamed zip file using the C<zipfile> option. | ||
| =head2 OPTIONS | ||
| =over 5 | ||
| =item -zip64 | ||
| Create a Zip64-compliant zip container. | ||
| Use this option if the input is greater than 4Gig. | ||
| Default is disabled. | ||
| =item -zipfile=F | ||
| Write zip container to the filename F. | ||
| Use the C<Stream> option to enable the creation of a streamed zip file. | ||
| =item -member-name=M | ||
| This option is used to name the "file" in the zip container. | ||
| Default is '-'. | ||
| =item -stream | ||
| Ignored when writing to stdout. | ||
| If the C<zipfile> option is specified, including this option | ||
| will trigger the creation of a streamed zip file. | ||
| Default: Always enabled when writing to stdout, otherwise disabled. | ||
| =item -method=M | ||
| Compress using method "M". | ||
| Valid method names are | ||
| * store Store without compression | ||
| * deflate Use Deflate compression [Deflault] | ||
| * bzip2 Use Bzip2 compression | ||
| * lzma Use LZMA compression | ||
| Note that Lzma compress needs IO::Compress::Lzma to be installed. | ||
| Default is deflate. | ||
| =item -version | ||
| Display version number [$VERSION] | ||
| =item -help | ||
| Display help | ||
| =back | ||
| =head2 When to use a Streamed Zip File | ||
| A Zip file created with streaming mode enabled allows you to create a zip file | ||
| in situations where you cannot seek backwards/forwards in the file. | ||
| A good examples is when you are | ||
| serving dynamic content from a Web Server straight into a socket | ||
| without needing to create a temporary zip file in the filesystsm. | ||
| Similarly if your workfow uses a Linux pipelined commands. | ||
| =head1 SUPPORT | ||
| General feedback/questions/bug reports should be sent to | ||
| L<https://github.com/pmqs/IO-Compress/issues> (preferred) or | ||
| L<https://rt.cpan.org/Public/Dist/Display.html?Name=IO-Compress>. | ||
| =head1 AUTHOR | ||
| Paul Marquess F<[email protected]>. | ||
| =head1 COPYRIGHT | ||
| Copyright (c) 2019 Paul Marquess. All rights reserved. | ||
| This program is free software; you can redistribute it and/or modify it | ||
| under the same terms as Perl itself. | ||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.