[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: [Debian]:Geloeschte Datei



Moin Ingo!
Ingo Saitz schrieb am Sonntag, den 19. März 2000:

> ar x /pfad/zu/squid.deb data.tar.gz
> tar xzvf data.tar.gz etc/squid.conf

unp -u /pfad/zu/squid.deb

mfG
Eduard.
-- 
=====================================================================
Eduard Bloch <eb@zombie.inka.de>; HP: http://eduard.bloch.com/edecosi
0xEDF008C5(gpg): E6EB 98E2 B885 8FF0 6C04  5C1D E106 481E EDF0 08C5
#! /usr/bin/perl
# unp, Version 0.0.2
# -----------------------------------------------------------------------
# Originaly written by André Karwath, 1997
# andre.karwath@informatik.tu-chemnitz.de
# http://www.aka-online.de
#
# Modified by Eduard Bloch <eduard@bloch.com>, 2000
# http://www.eduard.bloch.com/edecosi/
#
# "unp" runs the correct unpack program depending on the file extension
# of the given parameter.
# 
# This file is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.
#
# -----------------------------------------------------------------------
# If you make changes to this script, please feel free to forward the new 
# version to eduard@bloch.com or Andre.Karwath@informatik.tu-chemnitz.de
# -----------------------------------------------------------------------
# You need some archiver and compressor programs for extracting:
# GNU tar, gzip, bzip2, ar, rpm, unrar or rar, unarj, unzip and lha

$not_found=": not found\n";
$not_read=": not readable\n";
$unsup=": unsupported format\n";
$usage="
usage: unp file [file]...
file: compressed file(s) to expand

Use -- to pass arguments to external programs, eg. some tar options:
unp fastgl.tgz xmnt.tgz -- -C /tmp

Special option:
  -u  extract data.tar.gz after each operation (for .deb-packages),
	    then extract control.tar.gz in control/<filename>/

currently supported extensions and formats are
tar, gz, Z, tar.gz/tgz, tar.bz2, bz2, ar/deb, RPM, shar, rar, arj, zip and LHa
";
$tryfile=" - unknown extension, checking with \"file\"\n";
$testbz2=" contains bzip2-compressed data, determining data type...\n";
$testgz=" contains gzip-compressed data, determining data type...\n";
$skip=" exists allready, skipping...\n";
$is_dir=" is a directory, skipping...\n";

# localisation part (only german at the moment):
if($ENV{'LANG'}=~ "^de"){
$not_found=" wurde nicht gefunden!\n";
$not_read=" konnte nicht gelesen werden!\n";
$unsup=": dieses Format wird nicht unterstützt!\n";
$usage="
Aufruf: unp Datei [Datei] ...
Datei: eine oder mehrere komprimierte Datei(en) zum entpacken

Optionen:
  -u  Nach jeder Operation data.tar.gz entpacken (z.B. für .deb-Pakete),
	    sowie control.tar.gz nach control/<Achiv-Name>/

Optionen nach -- werden an externe Programme übergeben, z.B. tar-Optionen:
unp fastgl.tgz xmnt.tgz -- -C /tmp

Derzeit unterstützte Erweiterungen und Formate:
tar, gz, Z, tar.gz/tgz, tar.bz2, bz2, ar/deb, RPM, shar, rar, arj, zip und LHa
";
$tryfile=" - Endung unbekannt, überprüfe mit \"file\"...
";
$testbz2=" enthält bzip2-komprimierte Daten, überprüfe den Datentyp...\n";
$testgz=" enthält gzip-komprimierte Daten, überprüfe den Datentyp...\n";
$skip=" existiert bereits, überspringe...\n";
$is_dir=" ist ein Verzeichnis\n";
}

&print_usage if ($#ARGV<0);
	
arglabel: foreach $arg (@ARGV){
	if("$arg" eq "-u"){$dataunp=1 ; next arglabel};
	if("$arg" eq "--"){$argvalue=1; next arglabel};
	if($argvalue){
		$ARGS="$ARGS $arg";
	}else{
		push(@FILES,$arg);
	}
}

LOOP: foreach $file (@FILES) {
  if (!-e $file) {
     print $file.$not_found;
     next LOOP;
  }

  if (!-r $file) {
     print $file.$not_read;
     next LOOP;
  }
  
	if (-d $file) {
     print $file.$is_dir;
     next LOOP;
  }
	undef $command;

  # not just gunzip, create new file with uncompressed data in the current
	# directory, same for bz2
	if ($file =~ /([^\/]*)\.(gz|Z)$/i) {if (-f $1){ print $1.$skip; next LOOP;}; $command="gunzip < \"$file\" > $1"; }
  if ($file =~ /([^\/]*)\.(bz2$)/i) {if (-f $1){ print $1.$skip; next LOOP;}; $command="bunzip2 < \"$file\" > $1"; }
	
	# check also for _tar, because of broken filenames
  if ($file =~ /(\.|_)tar$/i) { $command="tar -xvf \"$file\" $ARGS"; }
	if ($file =~ /(\.|_)rpm$/i) { $command="rpm2cpio < \"$file\" | cpio -i -d	--verbose $ARGS";}
	if ($file =~ /(\.|_)tar\.gz$/i) { $command="tar -xvzf \"$file\" $ARGS"; }
  if ($file =~ /(\.|_)tar\.bz2$/i) { $command="bunzip2 -c \"$file\" | tar -xvf - $ARGS"; }
	
	if ($file =~ /\.tgz$/i) { $command="tar -xvzf \"$file\" $ARGS"; }
  if ($file =~ /\.rar$/i) { $command="rar x \"$file\" $ARGS || unrar x \"$file\" $ARGS"; }
  if ($file =~ /\.(ar|deb)$/i) { $command="ar xv \"$file\" $ARGS"; }
  if ($file =~ /\.l(ha|zh)$/i) { $command="lha x $ARGS \"$file\""; }
  if ($file =~ /\.arj$/i) { $command="unarj x \"$file\""; }
  if ($file =~ /\.zip$/i) { $command="unzip \"$file\" $ARGS"; }
	
	# assume that exe is just an arcive with executable header and try
	# some programs
	if ($file =~ /\.exe$/i) { $command="unzip \"$file\" || unrar x \"$file\" || rar x \"$file\" || unarj x \"$file\" || lha x \"$file\"";}
	
  if ($command eq "") {
		print $file.$tryfile;
		$filestr=`file \"$file\"`;
			if ($filestr =~ /(gzip)/gi){
				print $file.$testgz;
				$file=~/([^\/]*)$/i; $target="$1.unp";
				if (-f $target){ print $target.$skip; next LOOP;}
				$command=(`zcat \"$file\" | file -`=~/tar/i) ? "zcat \"$file\" | tar -xvf - $ARGS" : "zcat < \"$file\" > $target";
			};
			
			if ($filestr =~ /(bzip2)/gi){
				print $file.$testbz2; 
				$file=~/([^\/]*)$/i; $target="$1.unp";
				if (-f $target){ print $target.$skip; next LOOP;}
				$command=(`bzcat \"$file\" | file -`=~/tar/i) ? "bzcat \"$file\" | tar -xvf - $ARGS" : "bzcat < \"$file\" > $target";
			};
			
			if ($filestr =~ /RAR.*archive/i) { $command="rar x $ARGS \"$file\" || unrar x $ARGS \"$file\""; }
			if ($filestr =~ /tar.*archive/i) { $command="tar -xvf \"$file\" $ARGS"; }
			if ($filestr =~ /(Debian binary package|\ ar.*archive)/i) { $command="ar xv \"$file\" $ARGS"; }
			if ($filestr =~ /LHa.*archive/i) { $command="lha x $ARGS \"$file\""; }
			if ($filestr =~ /ARJ.*archive/i) { $command="unarj x \"$file\""; }
			if ($filestr =~ /Zip.*archive/i) { $command="unzip \"$file\" $ARGS "; }
			if ($filestr =~ /shell.*archive/i) { $command="unshar $ARGS \"$file\""; }
			if ($filestr =~ /RPM/) { $command="rpm2cpio < \"$file\" | cpio -i -d	--verbose $ARGS";}
			# RAR can also create executables
			if ($filestr =~ /executable/i){$command="unrar x \"$file\" || rar x $file";}

			# if still nothing could be found, print an error message
			if ($command eq "") {
				print $file.$unsup;
				next LOOP;
			}
  }

  system ($command);
	if ($dataunp){
	 $file =~ /([^\/]*)\.deb$/i;
	 system ("tar zxvf data.tar.gz; mkdir -p control/$1; cd control/$1; tar zxvf ../../control.tar.gz");
	}
}

die "\n";

# -----------------------------------------------------------------------------
sub print_usage {
  print $usage;
	die "\n";
}
# -----------------------------------------------------------------------------

Reply to: