eleksir/misc
1
Fork 0
Code Activity

zip_fb2.pl: change options to safe ones

Browse Source
This commit is contained in:
eleksir
2017-02-24 15:27:38 +03:00
parent 2de32153e6
commit cdb6cea959
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
zip_fb2.pl
View File

@@ -11,9 +11,11 @@ sub zlist(@);
my @list;
opendir DIR, "." || die;
while (readdir(DIR)){
if ((-f $_) and ($_ =~ /\.fb2/)){ push @list, $_; }
}
closedir (DIR);
zlist(@list);
@@ -23,9 +25,11 @@ exit 0;
sub zlist(@){
my @list = @_;
my $item;
foreach $item (@list) {
printf ("zipping: %s to %s.zip", $item, $item);
zip [$item] => "$item.zip", -Level => Z_BEST_COMPRESSION, Minimal => 1, TextFlag => 1;
zip [$item] => "$item.zip", -Level => Z_BEST_COMPRESSION, Minimal => 1, TextFlag => 0, BinModeIn => 1, AutoClose => 1, CanonicalName => 1;
if(length($ZipError) > 0){
printf ("Warning: unable to zip %s - %s\n", $item, $ZipError);
}else{