30 |
tmp => '/dev/shm/comp', |
tmp => '/dev/shm/comp', |
31 |
}; |
}; |
32 |
|
|
33 |
my $skip_extensions_regex = qr/\.(?:sw[a-z]|gif|png|jpeg|jpg|avi|rar|zip|bz2|gz|tgz|avi|mpeg|mpg|tmp|temp)$/i; |
my $skip_extensions_regex = qr/gz|gz%|\.(?:sw[a-z]|gif|png|jpeg|jpg|avi|rar|zip|bz2|tgz|avi|mpeg|mpg|tmp|temp)$/i; |
34 |
|
|
35 |
# don't compress files smaller than this |
# don't compress files smaller than this |
36 |
my $min_compress_size = 512; |
my $min_compress_size = 512; |
50 |
confess "ASSERT: unexpected $dir/$name exists" if -e "$dir/$name"; |
confess "ASSERT: unexpected $dir/$name exists" if -e "$dir/$name"; |
51 |
return "${name}.gz"; |
return "${name}.gz"; |
52 |
} |
} |
53 |
return $name; |
if ( $name =~ m/\.gz$/ ) { |
54 |
|
return $name . '%'; # protect (mingle) compressed files |
55 |
|
} else { |
56 |
|
return $name; |
57 |
|
} |
58 |
} |
} |
59 |
|
|
60 |
sub fixup { |
sub fixup { |
65 |
sub original_name { |
sub original_name { |
66 |
my $p = shift; |
my $p = shift; |
67 |
$p =~ s/\.gz$//; |
$p =~ s/\.gz$//; |
68 |
|
$p =~ s/\.gz%$/.gz/; # demungle compressed .gz files |
69 |
return $p; |
return $p; |
70 |
}; |
}; |
71 |
|
|