bloat

Bloat is a basic Perl script to allow you to easily decompress files from many formats.

#!/usr/bin/env perl 

#### WARNING ###################################################################
# This code is pretty sucky. I started writing it back in 2002 when I was      #
# fairly new to Perl.                                                          #
# Some of it's still in here.                                                  #
# As such, it's pretty sucky.                                                  #
# I could do with rewriting it, but I can't be arsed yet.                      #
# Anyway, there's yer warning; this code may scar you for life.                #
# Oh, you could also do with a UTF-8 compatible editor for some of the         #
# translations.                                                                #
################################################################################

use strict;
require 5.6.0;	# No, I don't know what version it really requires...
#use warnings;
# Don't uncomment the above line unless you want to - it is for testing.
# If it is uncommented, bloat -may- give annoying warnings. I uncomment it every
# so often to see if I'm doing something really stupid.
# UPDATE: 2003-10-13 - This is now uncommented all the time.
# UPDATE: And again, it's commented again, yay
#
# Bloat is distributed under the GNU GPL, Version 2 or later.
# See `LICENCE` for details.
#
# The original maker of this stupid script is Dave Wickham <[e-mail]>
# Written in vim over telnet =) - Now written over SSH ;)
#
# Excessively commented for your ease of use/debugging/code ste^H^H^Hreuse ;-)
# (Yes, I'm only joking, use whatever code you like as long as you stick to the
# GPL.)
#

##### INIT VARS #####
my $filename;
my $filetype;
my $version = "1.5";				# What version of bloat is this?
my $verbose = 0;				# Not verbose by default...
my $bloatsign = "\x1b[01;31mBLOAT:\x1b[00m ";	# Do YOU want to have to type "\x1b[01;31mBLOAT:\x1b[00m" all the time? Thought not ;-)
my $stop = 0;
my $check = 0;
my $gofortar = 0;				# We want a safer default...
my $nowarn = 0;					# For "utility missing warning" stuff...
my $dontusemimetypedetection = 0;		# Don't want mime-type detection?
my $dodgyresult = 0;				# Dodgy result?
my $nooptions = 0;				# In the options checking sub...
my $checkforsubdirs = 1;			# Automatically check Zip/Tar files for subdirectories.
my $workingdir = $ENV{PWD};			# Working directory
my $getcontents;
my $type;
my $longtype;
my $devnull;
my $extractcmd;
my $fileext;
my $checksdir;
my $custcmd;
my $mknewdir;
my $teststring;
my $getutils;
my $conferror;
my $util;
my $utilurl;
my $locale;

##### ARRAYS/HASHES #####
my %loc = (
         "7za" => "7za",
            ar => "ar", 
       bunzip2 => "bunzip2",
           cat => "cat",
          file => "file",
        gunzip => "gunzip",
           lha => "lha",
      msexpand => "msexpand",
           pax => "pax",
      rpm2cpio => "rpm2cpio",
           tar => "tar", 
         unace => "unace",
         unarj => "unarj",
          umod => "umod",
         unrar => "unrar",
         unzip => "unzip",
         unzoo => "unzoo",
     uz2unpack => "uz2unpack"
          );

my @files;					# List of filenames; @files[x][0] = filename; @files[x][1] = filetype.
my @filearray;

### LOCALISATION.
# Woo. i18n, l10n.
# Except for the comments.
# And the code itself.
my %strings;

## EN.
$strings{en}{nofile} = qq/${bloatsign}No file name specified.\n/;
$strings{en}{noexist} = sub { return qq/${bloatsign}Error - "$_[0]" does not exist.\n/ };
$strings{en}{help} = <<HELPEND;
${bloatsign}bloat version $version - Usage Instructions:
${bloatsign}Simply type "bloat <file name>" - bloat will choose the programs to use
${bloatsign}automatically.
${bloatsign}
${bloatsign}The following options are also available:
${bloatsign}         --check          Check for required utilities.
${bloatsign}    -c   --checksubdir    Enable sub-directory checking with tar-based,
${bloatsign}                          ace-based and zip-based archives.
${bloatsign}    -dp  --dont-prefix    Witholds the "BLOAT:" messages output by
${bloatsign}                          default.
${bloatsign}    -nc  --nochecksubdir  Disable sub-directory checking with tar-based,
${bloatsign}                          ace-based and zip-based archives.
${bloatsign}         --verbose        Display everything that you would see
${bloatsign}                          from "manual extraction".
${bloatsign}         --version        Prints the version of bloat, and licence info.
HELPEND
$strings{en}{cantopenconfig} = qq/Can't open configuration file: /;
$strings{en}{configerror} = sub { return <<CONFIGERROREND
${bloatsign}Configuration error in "$_[0]" line.
${bloatsign}Option neither set to true nor false; using default.
CONFIGERROREND
};
$strings{en}{cantcloseconfig} = qq/Can't close configuration file: /;
$strings{en}{versioninfo} = qq/${bloatsign}bloat version $version, released under the GPL v. 2 or later, of your choice.
${bloatsign}Bloat's home page is <http:\/\/bloat.sourceforge.net\/>.
${bloatsign}Copyright (c)2002-2005 Dave Wickham <dave\@allaboutgames.co.uk>.\n/;
$strings{en}{invalidopt} = sub { return qq/${bloatsign}$_[0] is not a recognised option.\n/ };
$strings{en}{checkingarchive} = qq/${bloatsign}Checking archive... this may take some time (disable with -nc).\n/;
$strings{en}{custcmdnewdirextract} = sub { return qq!${bloatsign}$_[2]: $_[0] file - using some custom commands to extract to "./$_[1]/".\n! };
$strings{en}{newdirextract} = sub { return qq!${bloatsign}$_[3]: $_[0] file - using "$_[2]" to extract to "./$_[1]/".\n! };
$strings{en}{custcmdextract} = sub { return qq/${bloatsign}$_[1]: $_[0] file - using some custom commands to extract.\n/ };
$strings{en}{extract} = sub { return qq/${bloatsign}$_[2]: $_[0] file - using "$_[1]" to extract.\n/ };
$strings{en}{cmdnotfound} = sub { return qq/${bloatsign}*WARNING* - $_[0] could not be found.\n/ };
$strings{en}{cmdlocdontknow} = sub { return qq/${bloatsign}I have no idea where to find $_[0].\n/ };
$strings{en}{cmdloc} = sub { return qq/${bloatsign}Find $_[0] at <$_[1]>.\n/ };
$strings{en}{error} = qq/${bloatsign}Uh-oh, an error has occured. Most likely the file format isn't supported
${bloatsign}or the extension isn't standard (e.g. a gzip file with a bz2 extension).
${bloatsign}If you KNOW this is a valid archive, please e-mail
${bloatsign}<dave\@allaboutgames.co.uk> with the lines below:\n/;
$strings{en}{allutils} = qq/${bloatsign}All utilities are present!\n/;

## DE, thanks to Andreas "Ebola" Habeland
$strings{de}{nofile} = qq/${bloatsign}Kein Datei Name angegeben.\n/;
$strings{de}{noexist} = sub { return qq/${bloatsign}Error - "$_[0]" existiert nicht.\n/ };
$strings{de}{help} = <<HELPEND;
${bloatsign}bloat version $version - Betriebs Anleitung:
${bloatsign}Geben sie einfach "bloat <datei name>" ein - bloat wird die Programme die
${bloatsign}benutzt werden automatisch ausw盲hlen.
${bloatsign}
${bloatsign}Die folgenden optionen sind auch verf眉gbar:
${bloatsign}         --check          Sucht nach erforderlichen Dienstprogrammen.
${bloatsign}    -c   --checksubdir    Aktiviert Unterverzeichniss 眉berpr眉fung mit
${bloatsign}                          tar-basierten, ace-masierten und zip-basierten
${bloatsign}                          Archieven.
${bloatsign}    -dp  --dont-prefix    Verhindert standardm盲脽ig den "BLOAT"
${bloatsign}                          Nachrichten output.
${bloatsign}    -nc  --nochecksubdir  Deaktiviert Unterverzeichniss 眉berpr眉fung mit
${bloatsign}                          tar-basierten, ace-masierten und zip-basierten
${bloatsign}                          Archieven.
${bloatsign}         --verbose        Zeigt alles an das Sie w盲hrend einer "manuellen
${bloatsign}                          Extrahierung" sehen w眉rden.
${bloatsign}         --version        Zeigt die Bloat Version und Lizens Information
${bloatsign}                          an.
HELPEND
$strings{de}{cantopenconfig} = qq/Kann die Konfiguration Datei nicht 枚ffnen: /;
$strings{de}{configerror} = sub { return <<CONFIGERROREND
${bloatsign}Konfiguration fehler in Linie "$_[0]".
${bloatsign}Option weder auf richtig noch falsch; benutzt standard.
CONFIGERROREND
};
$strings{de}{cantcloseconfig} = qq/Kann die Konfigurations Datei nicht schlie脽en: /;
$strings{de}{versioninfo} = qq/${bloatsign}bloat version $version, under der GPL v. 2 oder sp盲ter, nach ihrer wahl\n${bloatsign}entlassen.
${bloatsign}Die Bloat homepage ist <http:\/\/bloat.sourceforge.net\/>.
${bloatsign}Copyright (c)2002-2005 Dave Wickham <dave\@allaboutgames.co.uk>.\n/;
$strings{de}{invalidopt} = sub { return qq/${bloatsign}$_[0] ist keine erkannte M枚glichkeit.\n/ };
$strings{de}{checkingarchive} = qq/${bloatsign}Archiv wird 眉berpr眉ft... es k枚nnte eine Zeit lang dauern (mit -nc\n${bloatsign}abschalten).\n/;
$strings{de}{custcmdnewdirextract} = sub { return qq!${bloatsign}$_[2]: $_[0] datei - benutzt spezielle befehle um "./$_[1]/" zu extrahieren.\n! };
$strings{de}{newdirextract} = sub { return qq!${bloatsign}$_[3]: $_[0] datei - benutzt "$_[2]" um nach "./$_[1]/" zu extrhieren.\n! };
$strings{de}{custcmdextract} = sub { return qq/${bloatsign}$_[1]: $_[0] datei - benutzt spezielle befehle zum extrahieren.\n/ };
$strings{de}{extract} = sub { return qq/${bloatsign}$_[2]: $_[0] datei - benutzt "$_[1]" zum extrahieren.\n/ };
$strings{de}{cmdnotfound} = sub { return qq/${bloatsign}*WARNUNG* - $_[0] wurde nicht gefunden.\n/ };
$strings{de}{cmdlocdontknow} = sub { return qq/${bloatsign}Ich habe keine Ahnung wo $_[0] ist.\n/ };
$strings{de}{cmdloc} = sub { return qq/${bloatsign}$_[0] wurde in <$_[1]> gefunden.\n/ };
$strings{de}{error} = qq/${bloatsign}Uh-oh, es gab einen Fehler. Das Dateiformat ist wahrscheinlich nicht
${bloatsign}unterst眉tzt oder die Dateiendung ist non standard (z.B. eine gzip datei
${bloatsign}mit einer bz2 Dateiendung).
${bloatsign}Falls sie wissen das ein G眉ltiges Archiv ist, bitte emailen sie:
${bloatsign}<dave\@allaboutgames.co.uk> mit der folgenden Linie:\n/;
$strings{de}{allutils} = qq/${bloatsign}Alle Dienstprogramme sind vorhanden!\n/;

## ES, thanks to David Piniella
$strings{es}{nofile} = qq/${bloatsign}Ningun nombre de archivo especificado.\n/;
$strings{es}{noexist} = sub { return qq/${bloatsign}Error - "$_[0]" no existe.\n/ };
$strings{es}{help} = <<HELPEND;
${bloatsign}bloat version $version - Instrucciones de uso:
${bloatsign}Simplemente entre "bloat <nombre de archivo>" - bloat escogera los
${bloatsign}programas que usar automaticamente.
${bloatsign}
${bloatsign}Las siguente opciones tambien son disponibles:
${bloatsign}         --check          Comprueba por las utilidades requeridas.
${bloatsign}    -c   --checksubdir    Comprueba verificacion de directorios en archivos
${bloatsign}                          basados en tar, ace y zip.
${bloatsign}    -dp  --dont-prefix    Inhabilite los mensajes de "BLOAT" imprimidos por
${bloatsign}                          normal.
${bloatsign}    -nc  --nochecksubdir  Inhabilite el sub-directorio que comprueba con
${bloatsign}                          archivos basados en tar, ace y zip.
${bloatsign}         --verbose        Exhiba todo que usted ver铆a de la "extracci贸n
${bloatsign}                          manual".
${bloatsign}         --version        Imprime la versi贸n de bloat y la informaci贸n de
${bloatsign}                          la licencia.
HELPEND
$strings{es}{cantopenconfig} = qq/No se puede abrir el archivo de la configuraci贸n: /;
$strings{es}{configerror} = sub { return <<CONFIGERROREND
${bloatsign}Error de configuracion en la linea "$_[0]".
${bloatsign}Opcion no esta fijo ni a verdadero o falso; usando defecto.
CONFIGERROREND
};
$strings{es}{cantcloseconfig} = qq/No se puede cerrar el archivo de la configuraci贸n: /;
$strings{es}{versioninfo} = qq/${bloatsign}bloat version $version, lanzado bajo de el GPL version 2 o despues, de su
${bloatsign}opci贸n.
${bloatsign}El Home Page de Bloat es <http:\/\/bloat.sourceforge.net\/>.
${bloatsign}Copyright -- propiedad literaria -- (c)2002-2005 Dave Wickham
${bloatsign}<dave\@allaboutgames.co.uk>.\n/;
$strings{es}{invalidopt} = sub { return qq/${bloatsign}$_[0] no es una opcion reconocida.\n/ };
$strings{es}{checkingarchive} = qq/${bloatsign}Verificando archivo....esto puede tardar un tiempo (inhabilite con -nc).\n/;
$strings{es}{custcmdnewdirextract} = sub { return qq!${bloatsign}$_[2]: $_[0] archivo - usando algunos programas costumbre para extraer a "./$_[1]/".\n! };
$strings{es}{newdirextract} = sub { return qq!${bloatsign}$_[3]: $_[0] archivo - usando "$_[2]" para extraer a "./$_[1]/".\n! };
$strings{es}{custcmdextract} = sub { return qq!${bloatsign}$_[1]: $_[0] archivo - usando algunos programas custombre para extraer.\n! };
$strings{es}{extract} = sub { return qq/${bloatsign}$_[2]: $_[0] archivo - usando "$_[1]" para extraer.\n/ };
$strings{es}{cmdnotfound} = sub { return qq/${bloatsign}*CUIDADO* - $_[0] no se pudo encontrar.\n/ };
$strings{es}{cmdlocdontknow} = sub { return qq/${bloatsign}No se donde encontrar $_[0].\n/ };
$strings{es}{cmdloc} = sub { return qq/${bloatsign}Encuentre $_[0] en <$_[1]>.\n/ };
$strings{es}{error} = qq/${bloatsign}Uh-oh, un error ocurio. Probablement el tipo de archivo no es apoyado o la
${bloatsign}extension no es comun (por ejemplo, un archivo de gzip con extension de
${bloatsign}bz2).
${bloatsign}Si SABE que es un archivo valido, por favor mande correo electronico a
${bloatsign}<dave\@allaboutgames.co.uk> con las lineas estas:\n/;
$strings{es}{allutils} = qq/${bloatsign}Todas utilidades presente!\n/;

## FI, thanks to Sauli Raivio
$strings{fi}{nofile} = qq/${bloatsign}Ei tiedoston nime盲.\n/;
$strings{fi}{noexist} = sub { return qq/${bloatsign}Virhe - "$_[0]" ei ole olemassa.\n/ };
$strings{fi}{help} = <<HELPEND;
${bloatsign}bloat versio $version - K盲ytt枚ohjeet:
${bloatsign}Kirjoita "bloat <tiedostonnimi>" - bloat valitsee k盲ytett盲v盲t ohjelmat
${bloatsign}automaattisesti.
${bloatsign}
${bloatsign}Seuraavat valitsimet ovat my枚s valittavissa:
${bloatsign}         --check          Tarkista tarvittavat apuohjelmat.
${bloatsign}    -c   --checksubdir    Tarkista alihakemistot tar-, ace- ja
${bloatsign}                          zip-paketoiduissa tiedostoissa.
${bloatsign}    -dp  --dont-prefix    Ei "BLOAT:" viesti盲 oletuksena.
${bloatsign}    -nc  --nochecksubdir  脛l盲 tarkista alihakemistoja tar-, ace- ja
${bloatsign}                          zip-paketoiduissa tiedostoissa.
${bloatsign}         --verbose        N盲yt盲 kaikki mik盲 n盲kyisi "manuaalisessa
${bloatsign}                          purussa".
${bloatsign}         --version        N盲ytt盲盲 ohjelman version ja lisenssitiedot.
HELPEND
$strings{fi}{cantopenconfig} = qq/Asetustiedosta ei voi avata: /;
$strings{fi}{configerror} = sub { return <<CONFIGERROREND;
${bloatsign}Asetusvirhe rivill盲 $_[0].
${bloatsign}Vaihtoehtoa ei ole asetettu todeksi eik盲 ep盲todeksi; k盲ytet盲盲n oletusasetusta.
CONFIGERROREND
};
$strings{fi}{cantcloseconfig} = qq/Asetustiedostoa ei voi sulkea: /;
$strings{fi}{versioninfo} = <<VERINFO;
${bloatsign}bloat versio $version, julkaistu GPL v. 2 lisenssill盲. Voit my枚s valita
${bloatsign}GPL:n my枚hemm盲n version, mik盲li sellainen julkaistaan.
${bloatsign}Bloat ohjelman kotisvut: <http://bloat.sourceforge.net/>.
${bloatsign}Copyright (c)2002-2005 Dave Wickham <dave\@allaboutgames.co.uk>.
VERINFO
$strings{fi}{invalidopt} = sub { return qq/${bloatsign}Virheellinen valitsin: $_[0]\n/ };
$strings{fi}{checkingarchive} = qq/${bloatsign}Tarkistetaan pakattua tiedostoa... t盲m盲 voi vied盲 hieman aikaa (tarkistus\n${bloatsign}pois valitsimella -nc).\n/;
$strings{fi}{custcmdnewdirextract} = sub { return qq!${bloatsign}$_[2]:  $_[0]-tiedosto - k盲ytet盲盲 erikoiskomentoja purkamaan hakemistoon "./$_[1]/".\n! };
$strings{fi}{newdirextract} = sub { return qq!${bloatsign}$_[3]: $_[0]-tiedosto - k盲ytet盲盲n komentoa "$_[2]" purkamiseen hakemistoon "./$_[1]/".\n! };
$strings{fi}{custcmdextract} = sub { return qq!${bloatsign}$_[1]: $_[0]-tiedosto - k盲ytet盲盲n erikoiskomentoja purkamiseen.\n! };
$strings{fi}{extract} = sub { return qq!${bloatsign}$_[2]: $_[0]-tiedosto - k盲ytet盲盲n komentoa "$_[1]" purkamiseen.\n! };
$strings{fi}{cmdnotfound} = sub { return qq/${bloatsign}*VAROITUS* - komentoa $_[0] ei l枚ytynyt.\n/ };
$strings{fi}{cmdlocdontknow} = sub { return qq/${bloatsign}En tied盲 mist盲 l枚ytyy komento $_[0].\n/ };
$strings{fi}{cmdloc} = sub { return qq/${bloatsign}$_[0] l枚ytyy linkist盲 <$_[1]>.\n/ };
$strings{fi}{error} = qq/
${bloatsign}Voi-voi, tapahtui virhe. Todenn盲k枚isesti tiedostotyyppi ei ole tuettu
${bloatsign}tai p盲盲te ei ole standardi (esim. gzip tiedosto bz2 -p盲盲tteell盲).
${bloatsign}Jos TIED脛T, ett盲 t盲m盲 on oikea tiedosto, ole hyv盲 ja l盲het盲 s盲hk枚postia
${bloatsign}osoitteeseen <dave\@allaboutgames.co.uk> ja kirjoita allaolevat rivit:\n/;
$strings{fi}{allutils} = qq/${bloatsign}Kaikki apuohjelmat l枚ytyiv盲t!\n/;

## NL, thanks to Peter Bootsma 
$strings{nl}{nofile} = qq/${bloatsign}Geen bestandsnaam opgegeven.\n/;
$strings{nl}{noexist} = sub { return qq/${bloatsign}Fout - "$_[0]" bestaat niet.\n/ };
$strings{nl}{help} = <<HELPEND;
${bloatsign}bloat versie $version - Gebruiksinstructies:
${bloatsign}Type simpelweg "bloat <file name>" - bloat zal automatisch de te
${bloatsign}gebruiken programma's kiezen.
${bloatsign}
${bloatsign}De volgende opties zijn ook beschikbaar:
${bloatsign}         --check          Controleer op benodigde programma's.
${bloatsign}    -c   --checksubdir    Controleer ook onderliggende directories bij
${bloatsign}                          tar-, ace- en zip-archieven.
${bloatsign}    -dp  --dont-prefix    Laat "BLOAT:" voor elke regel weg.
${bloatsign}    -nc  --nochecksubdir  Controleer geen onderliggende directories bij
${bloatsign}                          tar-, ace- en zip-archieven.
${bloatsign}         --verbose        Geef alles weer wat zichtbaar zou zijn bij het
${bloatsign}                          "handmatig uitpakken" van archieven.
${bloatsign}         --version        Geeft de versie van bloat weer, en de licentie.
HELPEND
$strings{nl}{cantopenconfig} = qq/Kan configuratiebestand niet openen: /;
$strings{nl}{configerror} = sub { return <<CONFIGERROREND;
${bloatsign}Configuratiefout in "$_[0]" regel.
${bloatsign}Optie staat niet aan of uit; standaardinstelling wordt gebruikt.
CONFIGERROREND
};