diff -r 0315e75a049d -r a8495233e04c lib/Imager.pm --- a/lib/Imager.pm Wed Aug 17 12:10:51 2011 +0200 +++ b/lib/Imager.pm Wed Aug 17 16:16:23 2011 +0200 @@ -5,11 +5,22 @@ use IO::Uncompress::Gunzip qw(gunzip $GunzipError); use autodie qw(:all); +our $VERSION = "0.1"; + use constant CIPHER => "aes-128-cbc"; +sub get_file { + my ($base) = @_; + foreach (map { "$base$_" } "", qw/.gz .x .gz.x/) { + return $_ if -f; + } +} + sub get_block { my ($file, $buffer) = @_; + $file = get_file($1) if $file =~ /(.*)\*$/; + given ($file) { when (/\.gz\.x$/) { open(my $fh => "openssl @{[CIPHER]} -d -pass $::o{pass} -in $file|");