#!/usr/bin/perl -w

# erpm.pl: script que permite extraer los archivos de un fichero rpm sin instalarlos.
# FJA: neocipres@telefonica.net - Julio de 2006.
 
use strict;

my $frpm = "";

sub raya {
  print "\n#";
  print "=" x 78 . "#\n\n";
}

if ($#ARGV == -1) {
	system("clear");
	raya;
	print "\  erpm.pl: permite, sin instalar, extaer el contenido de un rpm. \n\n";
	print "\  Uso:\  erpm <archivo rpm> \n\n";
	print "\t Es conveniente extraer el contenido en un directorio temporal: /tmp\n\n";
	raya;
	exit;
	}
	
if ($#ARGV == 0) {
      $frpm = $ARGV[0];
      if ($frpm =~ /\.rpm/) {
        system("clear");
      	system("rpm2cpio $frpm > salida.cpio");
	system("cpio -id < salida.cpio");
	system("rm salida.cpio");	
	system("ls -l");
       }
       else {
        print "\n el argumento debe ser un fichero con extension .rpm \n\n";}	

}