Author: mladen.turk(a)jboss.com Date: 2008-05-02 03:01:08 -0400 (Fri, 02 May 2008) New Revision: 1580 Added: trunk/build/unix/util/rpm2cpio.pl Removed: trunk/build/unix/util/rpm2cpio Log: Use correct file name Deleted: trunk/build/unix/util/rpm2cpio =================================================================== --- trunk/build/unix/util/rpm2cpio 2008-05-02 06:37:23 UTC (rev 1579) +++ trunk/build/unix/util/rpm2cpio 2008-05-02 07:01:08 UTC (rev 1580) @@ -1,86 +0,0 @@ -#!/usr/bin/perl - -# Why does the world need another rpm2cpio? Because the existing one -# won't build unless you have half a ton of things that aren't really -# required for it, since it uses the same library used to extract RPMs. -# In particular, it won't build on the HPsUX box I'm on. - -# -# Expanded quick-reference help by Rick Moen (not the original author -# of this script). -# - -# add a path if desired -$gzip = "gzip"; - -sub printhelp { - print "\n"; - print "rpm2cpio, perl version by orabidoo <odar\(a)pobox.com&gt;\n&quot;; - print "\n"; - print "use: rpm2cpio [file.rpm]\n"; - print "dumps the contents to stdout as a GNU cpio archive\n"; - print "\n"; - print "In case it's non-obvious, you'll need to redirect output\n"; - print "from this script, e.g., './rpm2cpio package.rpm > package.cpio'.\n"; - print "Then, unpack in, say, /tmp with a cpio incantation like this one:\n"; - print "'cpio -ivd < package.cpio'\n"; - print "\n"; - print "You can optionally combine both steps:\n"; - print "'rpm2cpio package.rpm | cpio -iduv'\n"; - print "\n"; - print "In either event, you will also need the 'cpio' utility available\n"; - print "on your system. If you can't find it elsewhere, source code for\n"; - print "GNU cpio is always available at ftp://ftp.gnu.org/gnu/cpio/.)\n"; - print "You'll also, of course, need Perl, and will want this Perl script\n"; - print "set as executable, i.e., by doing 'chmod 775 rpm2cpio'\n"; - print "\n"; - print "Be aware that this script works ONLY on version 3 or 4-format RPM\n"; - print "archives. You can check an archive's RPM-format version using\n"; - print "the Unix 'file' utility. Also, be aware that the 'cpio'\n"; - print "incantations above will unpack files at the current directory\n"; - print "level.\n"; - print "\n"; - exit 0; -} - -if ($#ARGV == -1) { - printhelp if -t STDIN; - $f = "STDIN"; -} elsif ($#ARGV == 0) { - open(F, "< $ARGV[0]") or die "Can't read file $ARGV[0]\n"; - $f = 'F'; -} else { - printhelp; -} - -printhelp if -t STDOUT; - -# gobble the file up -undef $/; -$|=1; -$rpm = <$f>; -close ($f); - -($magic, $major, $minor, $crap) = unpack("NCC C90", $rpm); - -die "Not an RPM\n" if $magic != 0xedabeedb; -die "Not a version 3 or 4 RPM\n" if $major != 3 and $major != 4; - -$rpm = substr($rpm, 96); - -while ($rpm ne '') { - $rpm =~ s/^\c@*//s; - ($magic, $crap, $sections, $bytes) = unpack("N4", $rpm); - $smagic = unpack("n", $rpm); - last if $smagic eq 0x1f8b; - die "Error: header not recognized\n" if $magic != 0x8eade801; - $rpm = substr($rpm, 16*(1+$sections) + $bytes); -} - -die "bogus RPM\n" if $rpm eq ''; - -open(ZCAT, "|gzip -cd") || die "can't pipe to gzip\n"; -print STDERR "CPIO archive found!\n"; - -print ZCAT $rpm; -close ZCAT; Copied: trunk/build/unix/util/rpm2cpio.pl (from rev 1578, trunk/build/unix/util/rpm2cpio) =================================================================== --- trunk/build/unix/util/rpm2cpio.pl (rev 0) +++ trunk/build/unix/util/rpm2cpio.pl 2008-05-02 07:01:08 UTC (rev 1580) @@ -0,0 +1,86 @@ +#!/usr/bin/perl + +# Why does the world need another rpm2cpio? Because the existing one +# won't build unless you have half a ton of things that aren't really +# required for it, since it uses the same library used to extract RPMs. +# In particular, it won't build on the HPsUX box I'm on. + +# +# Expanded quick-reference help by Rick Moen (not the original author +# of this script). +# + +# add a path if desired +$gzip = "gzip"; + +sub printhelp { + print "\n"; + print "rpm2cpio, perl version by orabidoo <odar\(a)pobox.com&gt;\n&quot;; + print "\n"; + print "use: rpm2cpio [file.rpm]\n"; + print "dumps the contents to stdout as a GNU cpio archive\n"; + print "\n"; + print "In case it's non-obvious, you'll need to redirect output\n"; + print "from this script, e.g., './rpm2cpio package.rpm > package.cpio'.\n"; + print "Then, unpack in, say, /tmp with a cpio incantation like this one:\n"; + print "'cpio -ivd < package.cpio'\n"; + print "\n"; + print "You can optionally combine both steps:\n"; + print "'rpm2cpio package.rpm | cpio -iduv'\n"; + print "\n"; + print "In either event, you will also need the 'cpio' utility available\n"; + print "on your system. If you can't find it elsewhere, source code for\n"; + print "GNU cpio is always available at ftp://ftp.gnu.org/gnu/cpio/.)\n"; + print "You'll also, of course, need Perl, and will want this Perl script\n"; + print "set as executable, i.e., by doing 'chmod 775 rpm2cpio'\n"; + print "\n"; + print "Be aware that this script works ONLY on version 3 or 4-format RPM\n"; + print "archives. You can check an archive's RPM-format version using\n"; + print "the Unix 'file' utility. Also, be aware that the 'cpio'\n"; + print "incantations above will unpack files at the current directory\n"; + print "level.\n"; + print "\n"; + exit 0; +} + +if ($#ARGV == -1) { + printhelp if -t STDIN; + $f = "STDIN"; +} elsif ($#ARGV == 0) { + open(F, "< $ARGV[0]") or die "Can't read file $ARGV[0]\n"; + $f = 'F'; +} else { + printhelp; +} + +printhelp if -t STDOUT; + +# gobble the file up +undef $/; +$|=1; +$rpm = <$f>; +close ($f); + +($magic, $major, $minor, $crap) = unpack("NCC C90", $rpm); + +die "Not an RPM\n" if $magic != 0xedabeedb; +die "Not a version 3 or 4 RPM\n" if $major != 3 and $major != 4; + +$rpm = substr($rpm, 96); + +while ($rpm ne '') { + $rpm =~ s/^\c@*//s; + ($magic, $crap, $sections, $bytes) = unpack("N4", $rpm); + $smagic = unpack("n", $rpm); + last if $smagic eq 0x1f8b; + die "Error: header not recognized\n" if $magic != 0x8eade801; + $rpm = substr($rpm, 16*(1+$sections) + $bytes); +} + +die "bogus RPM\n" if $rpm eq ''; + +open(ZCAT, "|gzip -cd") || die "can't pipe to gzip\n"; +print STDERR "CPIO archive found!\n"; + +print ZCAT $rpm; +close ZCAT;