[jbossnative-commits] JBoss Native SVN: r1578 - trunk/build/unix/util.
Author: mladen.turk(a)jboss.com
Date: 2008-05-02 02:36:03 -0400 (Fri, 02 May 2008)
New Revision: 1578
Added:
trunk/build/unix/util/rpm2cpio
Log:
Add rpm2cpio
Added: trunk/build/unix/util/rpm2cpio
===================================================================
--- trunk/build/unix/util/rpm2cpio (rev 0)
+++ trunk/build/unix/util/rpm2cpio 2008-05-02 06:36:03 UTC (rev 1578)
@@ -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>\n";
+ 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;
Property changes on: trunk/build/unix/util/rpm2cpio
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:eol-style
+ LF