use constant FORMATS=>{
"rpm" =>'rpm2cpio $pathname|cpio -id --quiet', #-v #FIXME: --sparse doesn't work, why?
"zip" =>'unzip -Lq $pathname',
+ "jar" =>'unzip -Lq $pathname',
"a" =>'ar x $pathname',
"deb" =>'ar x $pathname;'
.'for i in *.tar.gz;do j=`basename $i .tar.gz`;mkdir -p $j;cd $j;tar xzf ../$i;cd ..;rm -f $i;done',
$parsed[3] or die "Extension not found for archive: $fname";
my($path,$base,$ext)=@parsed[0,1,3];
my($pathname)=($parsed[2] eq "=" ? "$path$base" : $fname);
- my($cmdtry,$cmd)=($ext);
+ my($cmdtry,$cmd)=(lc $ext);
do {
$cmd=$cmdtry;
$cmdtry=FORMATS->{$cmdtry};