bloat

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

		if (`$loc{"7za"} 2>&1` =~ /7-zip/i) {
		} elsif (`/usr/local/bin/7za 2>&1` =~ /7-zip/i) {
			$loc{"7za"} = "/usr/local/bin/7za";
		} elsif (!$nowarn || $check) {
			if ($getutils eq "linux") {
				my $url = "http://unc.dl.sourceforge.net/sourceforge/p7zip/p7zip_4.12_x86_linux_bin.tar.bz2";
				my $extractcmd = "tar xjvf";
				my $filenamewhoo = "p7zip_4.12_x86_linux_bin.tar.bz2";
				&installUtil($url,$extractcmd,$filenamewhoo);
				$loc{"7za"} = "$ENV{HOME}/.bloat-utils/p7zip_4.12/bin/7za";
			} else {	
				$loc{"7za"} = "/bin/true";
				$stop = 1;
				$util = "p7zip";
				$utilurl = "http://p7zip.sourceforge.net/";
				print STDERR $strings{$locale}{cmdnotfound}->($util);
				print STDERR $strings{$locale}{cmdloc}->($util,$utilurl);
			}	
		}
	}

	### A ###
	# Ar
	if (($filetype =~ /^ar$/is) || ($filetype =~ /^deb$/is) || ($check)) {
		if ((`$loc{ar} --version 2> /dev/null`) || (`$loc{ar} 2>&1` =~ /usage/)) {
		} elsif ((`/usr/bin/ar --version 2> /dev/null`) || (`/usr/bin/ar 2>&1` =~ /usage/)) {
			$loc{ar} = "/usr/bin/ar";
		} elsif (!$nowarn || $check) {
			$loc{ar} = "/bin/true";
			$stop = 1;
			$util = "binutils";
			$utilurl = "http://www.gnu.org/software/binutils/";
			print STDERR $strings{$locale}{cmdnotfound}->($util);
			print STDERR $strings{$locale}{cmdloc}->($util,$utilurl);
		}
	}

	### B ###
	# Bunzip2
	if (($filetype =~ /bzip2$/is) || ($filetype =~ /^webmin$/is) || ($check)) {
		### `hexdump` output for use... ###################
		# 0000000 5a42 3968 4131 2659 5953 277e 6de9 0000 #
		# 0000010 4101 0080 3a10 844c 2000 3100 3000 0320 #
		# 0000020 69d2 812b bc84 c95d e114 4142 9ff8 b4a5 #
		###################################################


		$teststring = "\\x42\\x5a\\x68\\x39\\x31\\x41\\x59\\x26\\x53\\x59\\x7e\\x27\\xe9\\x6d\\x00\\x00\\x01\\x41\\x80\\x00\\x10\\x3a\\x4c\\x84\\x00\\x20\\x00\\x31\\x00\\x30\\x20\\x03\\xd2\\x69\\x2b\\x81\\x84\\xbc\\x5d\\xc9\\x14\\xe1\\x42\\x41\\xf8\\x9f\\xa5\\xb4";

		if (`echo -ne "$teststring" | $loc{bunzip2}` eq "bloatcheck\n") {
		} elsif (`echo -ne "$teststring" | /usr/bin/bunzip2` eq "bloatcheck\n") {
			$loc{bunzip2} = "/usr/bin/bunzip2";
		} elsif (!$nowarn || $check) {
			$loc{bunzip2} = "/bin/true";
			$stop = 1;
			$util = "bunzip2";
			$utilurl = "http://sources.redhat.com/bzip2/";
			print STDERR $strings{$locale}{cmdnotfound}->($util);
			print STDERR $strings{$locale}{cmdloc}->($util,$utilurl);
		}
	}

	### C ###

	### D ###

	### E ###

	### F ###

	### G ###
	# GZip
	if (($filetype =~ /compress/is) || ($filetype =~ /gzip/is) || ($filetype =~ /^webmin$/is) || ($check)) {
		### `hexdump` output for use... ###################
		# 0000000 8b1f 0008 a27a 418f 0300 ca4b 4fc9 492c #
		# 0000010 48ce ce4d 02e6 c100 cf08 0b28 0000 0000 #
		###################################################
		$teststring = "\\\\x1f\\\\x8b\\\\x08\\\\x00\\\\x7a\\\\xa2\\\\x8f\\\\x41\\\\x00\\\\x03\\\\x4b\\\\xca\\\\xc9\\\\x4f\\\\x2c\\\\x49\\\\xce\\\\x48\\\\x4d\\\\xce\\\\xe6\\\\x02\\\\x00\\\\xc1\\\\x08\\\\xcf\\\\x28\\\\x0b\\\\x00\\\\x00\\\\x00";
		if (`echo -ne "$teststring" | $loc{gunzip} -c` eq "bloatcheck\n") {
		} elsif (`echo -ne "$teststring" | /usr/bin/gunzip -c` eq "bloatcheck\n") {
			$loc{gunzip} = "/usr/bin/gunzip";
		} elsif (!$nowarn || $check) {
			$loc{gunzip} = "/bin/true";
			$stop = 1;
			$util = "gzip";
			$utilurl = "http://www.gnu.org/software/gzip/";
			print STDERR $strings{$locale}{cmdnotfound}->($util);
			print STDERR $strings{$locale}{cmdloc}->($util,$utilurl);
		}
	}

	### H ###

	### I ###

	### J ###

	### K ###

	### L ###
	# LHA
	if (($filetype =~ /^lha$/is) || ($check)) {
		if (`$loc{lha} 2>&1` =~ /usage/i) {
		} elsif (`/usr/bin/lha 2>&1` =~ /usage/i) {
			$loc{lha} = "/usr/bin/lha";
		} elsif (`$ENV{HOME}/.bloat-utils/lha 2>&1` =~ /usage/i) {
			$loc{lha} = "$ENV{HOME}/.bloat-utils/lha";
		} elsif (!$nowarn || $check) {
			if ($getutils eq "linux") {
				my $url = "http://www.infor.kanazawa-it.ac.jp/~ishii/lhaunix/linux/lha117.tar.gz";
				my $extractcmd = "tar xzvf";
				my $filenamewhoo = "lha117.tar.gz";
				&installUtil($url, $extractcmd, $filenamewhoo);
				$loc{lha} = "$ENV{HOME}/.bloat-utils/lha";
			} else {
				$loc{lha} = "/bin/true";
				$stop = 1;
				$util = "LHA";
				$utilurl = "http://www.infor.kanazawa-it.ac.jp/~ishii/lhaunix/";
				print STDERR $strings{$locale}{cmdnotfound}->($util);
				print STDERR $strings{$locale}{cmdloc}->($util,$utilurl);
			}
		}
	}

	### M ###
	# MSCompress
	if (($filetype =~ /^mscompress$/is) || ($check)) {
		if (`$loc{msexpand} -h 2> /dev/null`) {
		} elsif (`/usr/local/bin/msexpand -h 2> /dev/null`) {
			$loc{msexpand} = "/usr/local/bin/msexpand";
		} elsif (`$ENV{HOME}/.bloat-utils/msexpand -h 2>/dev/null`) {
			$loc{msexpand} = "$ENV{HOME}/.bloat-utils/msexpand";
		} elsif (!$nowarn || $check) {
			if ($getutils eq "linux") {
				my $url = "http://bloat.sourceforge.net/downloads/binaries/msexpand.tar.gz";
				my $extractcmd = "tar xzvf";
				my $filenamewhoo = "msexpand.tar.gz";
				&installUtil($url,$extractcmd,$filenamewhoo);
				$loc{msexpand} = "$ENV{HOME}/.bloat-utils/msexpand";
			} else {
				$loc{msexpand} = "/bin/true";
				$stop = 1;
				$util = "MSExpand";
				$utilurl = "ftp://ftp.penguin.cz/pub/users/mhi/mscompress/";
				print STDERR $strings{$locale}{cmdnotfound}->($util);
				print STDERR $strings{$locale}{cmdloc}->($util,$utilurl);
			}
		}
	}

	### N ###

	### O ###

	### P ###
	# It's Paxman!</dead_ringers_reference>
	if (($filetype =~ /^rpm$/is) || ($check)) {
		if (`$loc{pax} -invalidoption 2>&1` =~ /invalid/i) {
		} elsif (`/usr/bin/pax -invalidoption 2>&1` =~ /invalid/i) {
			$loc{pax} = "/usr/bin/pax";
		} elsif (`$ENV{HOME}/.bloat-utils/pax --help`) {
			$loc{pax} = "$ENV{HOME}/.bloat-utils/pax";
		} elsif (!$nowarn || $check) {
			if ($getutils eq "linux") {	
				my $url = "http://bloat.sourceforge.net/downloads/binaries/pax.tar.gz";
				my $extractcmd = "tar xzvf";
				my $filenamewhoo = "pax.tar.gz";
				&installUtil($url,$extractcmd,$filenamewhoo);
				$loc{pax} = "$ENV{HOME}/.bloat-utils/pax";
			} else {
				$loc{pax} = "/bin/true";
				$stop = 1;
				$util = "pax";
				$utilurl = "http://mirror.mcs.anl.gov/suse-people/kukuk/pax/";
				print STDERR $strings{$locale}{cmdnotfound}->($util);
				print STDERR $strings{$locale}{cmdloc}->($util,$utilurl);
			}
		}
	}

	### Q ###

	### R ###
	# rpm2cpio
	if (($filetype =~ /^rpm$/is) || ($check)) {
		if ((`echo "stupidkludge" | $loc{rpm2cpio} 2>&1` =~ /Success/) || (`echo "stupidkludge" | $loc{rpm2cpio} 2>&1` =~ /argument is not a/))  {	# It may not be a kludge, but it is stupid! Updated to fix RH9 - thanks to Robert Loomans for that
		} elsif ((`echo "stupidkludge" | /usr/bin/rpm2cpio 2>&1` =~ /Success/) || (`echo "stupidkludge" | /usr/bin/rpm2cpio 2>&1` =~ /argument is not a/)) {
			$loc{rpm2cpio} = "/usr/bin/rpm2cpio";
		} elsif (!$nowarn || $check) {
			$loc{rpm2cpio} = "/bin/true";
			$stop = 1;
			$util = "rpm2cpio/RPM";
			$utilurl = "ftp://ftp.rpm.org/pub/rpm/dist/";
			print STDERR $strings{$locale}{cmdnotfound}->($util);
			print STDERR $strings{$locale}{cmdloc}->($util,$utilurl);	# Yes, I _DO_ understand the irony in telling people to download an RPM to be able to use RPMs, thankyouverymuch.
		}
	}

	### S ###

	### T ###
	# Tar
	if (($filetype =~ /tar/is) || ($filetype =~ /webmin/is) || ($check)) {
		if (`$loc{tar} --version 2> /dev/null`) {
		} elsif (`/bin/tar --version 2> /dev/null`) {
			$loc{tar} = "/bin/tar";
		} elsif (!$nowarn || $check) {
			$loc{tar} = "/bin/true";
			$stop = 1;
			$util = "tar";
			$utilurl = "http://www.gnu.org/software/tar/";
			print STDERR $strings{$locale}{cmdnotfound}->($util);
			print STDERR $strings{$locale}{cmdloc}->($util,$utilurl);
		}
	}

	### U ###
	#
	if (($filetype =~ /^u1mod$/is) || ($check)) {
		if (`$loc{umod} --help`) {
		} elsif (`/usr/local/bin/umod --help`) {
			$loc{umod} = "/usr/local/bin/umod";
#		} elsif (`$ENV{HOME}/.bloat-utils/umodpack-0.5b16/umod --help`) {
#			$loc{umod} = "$ENV{HOME}/.bloat-utils/umodpack-0.5b16/umod";
		} elsif (!$nowarn || $check) {
#			if ($getutils eq "linux") {
#				my $url = "http://umodpack.sourceforge.net/umodpack-0.5b16-nogui.tar.gz";
#				my $extractcmd = "tar xzvf";
#				my $filenamewhoo = "umodpack-0.5b16-nogui.tar.gz";
#				&installUtil($url,$extractcmd,$filenamewhoo);
#				$loc{unod} = "$ENV{HOME}/.bloat-utils/umodpack-0.5b16/umod";
#			} else {
			$loc{umod} = "/bin/true";
			$stop = 1;
			$util = "umodpack";
			$utilurl = "http://umodpack.sourceforge.net/";
			print STDERR $strings{$locale}{cmdnotfound}->($util);
			print STDERR $strings{$locale}{cmdloc}->($util,$utilurl);
#			}
		}
	}

	# UnACE
	if (($filetype =~ /^ace$/is) || ($check)) {
		if (`$loc{unace} 2> /dev/null`) {
		} elsif (`/usr/local/bin/unace 2> /dev/null`) {
			$loc{unace} = "/usr/local/bin/unace";
		} elsif (`$ENV{HOME}/.bloat-utils/unace 2>/dev/null`) {
			$loc{unace} = "$ENV{HOME}/.bloat-utils/unace";
		} elsif (!$nowarn || $check) {
			if ($getutils eq "linux") {
				my $url = "http://www.shedz.com/winace/linunace22.tgz";
				my $extractcmd = "tar xzvf";
				my $filenamewhoo = "linunace22.tgz";
				&installUtil($url, $extractcmd, $filenamewhoo);
				$loc{unace} = "$ENV{HOME}/.bloat-utils/unace";
			} else {
				$loc{unace} = "/bin/true";
				$stop = 1;
				$util = "unace";
				$utilurl = "http://www.winace.com/";
				print STDERR $strings{$locale}{cmdnotfound}->($util);
				print STDERR $strings{$locale}{cmdloc}->($util,$utilurl);
			}
		}
	}

	# UnARJ
	if (($filetype =~ /^arj$/is) || ($check)) {
		if (`$loc{unarj} 2> /dev/null`) {
		} elsif (`/usr/local/bin/unarj 2> /dev/null`) {
			$loc{unarj} = "/usr/local/bin/unarj";
		} elsif (`$ENV{HOME}/.bloat-utils/unarj 2> /dev/null`) {
			$loc{unarj} = "$ENV{HOME}/.bloat-utils/unarj";
		} elsif (!$nowarn || $check) {
			if ($getutils eq "linux") {
				my $url = "http://bloat.sourceforge.net/downloads/binaries/unarj.tar.gz";
				my $extractcmd = "tar xzvf";
				my $filenamewhoo = "unarj.tar.gz";
				&installUtil($url,$extractcmd,$filenamewhoo);
				$loc{unarj} = "$ENV{HOME}/.bloat-utils/unarj";
			} else {
				$loc{unarj} = "/bin/true";
				$stop = 1;
				$util = "unarj";
				$utilurl = "ftp://metalab.unc.edu/pub/Linux/utils/compress/";
				print STDERR $strings{$locale}{cmdnotfound}->($util);
				print STDERR $strings{$locale}{cmdloc}->($util,$utilurl);
			}
		}
	}

	# UnRAR
	if (($filetype =~ /^rar$/is) || ($check)) {
		if (`$loc{unrar} 2> /dev/null`) {
		} elsif (`/usr/local/bin/unrar 2> /dev/null`) {
			$loc{unrar} = "/usr/local/bin/unrar";
		} elsif (`$ENV{HOME}/.bloat-utils/rar/unrar 2>/dev/null`) {
			$loc{unrar} = "$ENV{HOME}/.bloat-utils/rar/unrar";
		} elsif (!$nowarn || $check) {
			if ($getutils eq "linux") {
				my $url = "http://www.rarlabs.com/rar/rarlinux-3.4.1.tar.gz";
				my $extractcmd = "tar xzvf";
				my $filenamewhoo = "rarlinux-3.4.1.tar.gz";
				&installUtil($url, $extractcmd, $filenamewhoo);
				$loc{unrar} = "$ENV{HOME}/.bloat-utils/rar/unrar";
			} else {
				$loc{unrar} = "/bin/true";
				$stop = 1;
				$util = "unrar";