#!/usr/bin/perl

# archery v0.1
# 2007.07.10
# pturing@firehead.org
#
# Put it in your ~/bin and chmod +x it 
#
# Usage:
# archery YOURFILEHERE

use strict;
use Cwd;
use Cwd 'abs_path';
use Switch;
use File::Basename;
use File::Spec;
use File::Temp qw/ tempdir /;


my($file) = $ARGV[0];
my($basename) = basename($file);
my($fullpath) = abs_path($file);
my($orig_dir) = getcwd();
my($type) = `file -b $file`;
my($in, $out) = '';


#determine a command to extract the file. exit if we can't figure one out
sub extract_command {
  my($type) = $_[0];
  my($test) = '';
  switch($type) {
    case /^Zip/ {
      $test = `unzip -v`;
      if ($test =~ /UnZip/) {
        return 'unzip';
      }
    }
    case /^RAR/ {
      $test = `unrar --help | head -n 2 | tail -n 1`;
      if ($test =~ /UNRAR/) {
        return 'unrar x';
      }      
      $test = `unrar --help`;
      if ($test =~ /UNRAR/) {
        return 'unrar x';
      }      
      $test = `rar --help`;
      if ($test =~ /UNRAR/) {
        return 'rar x';
      }      
    }
    # Really I should use recursion on this function when encountering .bz2 or .gz files
    # and I should test for the presence of tar
    # but anyone that doesn't have tar or is dealing with a .zip.bz2 file is clearly insane
    case /^bzip2 compressed data/ {
      return 'tar xjf';
    }
    case /^gzip compressed data/ {
      return 'tar xzf';
    }
    else {
      print "type not supported - $type\n";
      exit;
    }
  }
  print "No program found for type $type\n";
  exit;
}



#extract the archive to a temporary directory
my($cmd) = extract_command($type) . " " . $fullpath;
my($tempdir) = tempdir('archery_XXXXXXX');
chdir($tempdir);
my($result) = `$cmd`;
chdir('..');
opendir(DIR, $tempdir);
my(@extracted) = readdir(DIR);
closedir DIR;

#this should be updated to keep trying to find a new name when the one we want is taken
if ($#extracted > 2) {
  $in = $tempdir;
  if (-e $basename) { $out = $basename."_extracted"; }
  else { $out = $basename; }
} 
else {
  $in = $tempdir."/".$extracted[2];
  if (-e $extracted[2]) {
    $out = $extracted[2] . "_extracted";
  } 
  else {
    $out = $extracted[2];
  }
}

`mv $in $out`;

my($out_type) = `file -b $out`;
chomp($out_type);
print "extracted to $out ($out_type)\n";
rmdir($tempdir);