0
|
1 |
#!/usr/perl5/bin/perl
|
|
2 |
|
|
3 |
# Copyright (C) 1997,1998,1999, Roger Espel Llima
|
|
4 |
#
|
|
5 |
# Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
6 |
# of this software and any associated documentation files (the "Software"), to
|
|
7 |
# deal in the Software without restriction, including without limitation the
|
|
8 |
# rights to use, copy, modify, merge, publish, distribute, sublicense,
|
|
9 |
# and/or sell copies of the Software, and to permit persons to whom the
|
|
10 |
# Software is furnished to do so, subject to the following conditions:
|
|
11 |
#
|
|
12 |
# The above copyright notice and this permission notice shall be included in
|
|
13 |
# all copies or substantial portions of the Software.
|
|
14 |
#
|
|
15 |
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
16 |
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
17 |
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
18 |
# SOFTWARE'S COPYRIGHT HOLDER(S) BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
19 |
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
20 |
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
|
21 |
# THE SOFTWARE
|
|
22 |
|
|
23 |
# (whew, that's done!)
|
|
24 |
|
|
25 |
# why does the world need another rpm2cpio? because the existing one
|
|
26 |
# won't build unless you have half a ton of things that aren't really
|
|
27 |
# required for it, since it uses the same library used to extract RPM's.
|
|
28 |
# in particular, it won't build on the HPsUX box i'm on.
|
|
29 |
|
|
30 |
|
|
31 |
# add a path if desired
|
|
32 |
$gzip = "gzip";
|
|
33 |
|
|
34 |
sub printhelp {
|
|
35 |
print <<HERE;
|
|
36 |
rpm2cpio, perl version by orabidoo <odar\@pobox.com>
|
|
37 |
dumps the contents to stdout as a cpio archive
|
|
38 |
|
|
39 |
use: rpm2cpio [file.rpm] > file.cpio
|
|
40 |
|
|
41 |
Here's how to use cpio:
|
|
42 |
list of contents: cpio -t -i < /file/name
|
|
43 |
extract files: cpio -d -i < /file/name
|
|
44 |
HERE
|
|
45 |
|
|
46 |
exit 0;
|
|
47 |
}
|
|
48 |
|
|
49 |
if ($#ARGV == -1) {
|
|
50 |
printhelp if -t STDIN;
|
|
51 |
$f = "STDIN";
|
|
52 |
} elsif ($#ARGV == 0) {
|
|
53 |
open(F, "< $ARGV[0]") or die "Can't read file $ARGV[0]\n";
|
|
54 |
$f = 'F';
|
|
55 |
} else {
|
|
56 |
printhelp;
|
|
57 |
}
|
|
58 |
|
|
59 |
printhelp if -t STDOUT;
|
|
60 |
|
|
61 |
# gobble the file up
|
|
62 |
undef $/;
|
|
63 |
$|=1;
|
|
64 |
$rpm = <$f>;
|
|
65 |
close ($f);
|
|
66 |
|
|
67 |
($magic, $major, $minor, $crap) = unpack("NCC C90", $rpm);
|
|
68 |
|
|
69 |
die "Not an RPM\n" if $magic != 0xedabeedb;
|
|
70 |
die "Not a version 3 or 4 RPM\n" if $major != 3 && $major != 4;
|
|
71 |
|
|
72 |
$rpm = substr($rpm, 96);
|
|
73 |
|
|
74 |
while ($rpm ne '') {
|
|
75 |
$rpm =~ s/^\c@*//s;
|
|
76 |
($magic, $crap, $sections, $bytes) = unpack("N4", $rpm);
|
|
77 |
$smagic = unpack("n", $rpm);
|
|
78 |
last if $smagic eq 0x1f8b;
|
|
79 |
die "Error: header not recognized\n" if $magic != 0x8eade801;
|
|
80 |
$rpm = substr($rpm, 16*(1+$sections) + $bytes);
|
|
81 |
}
|
|
82 |
|
|
83 |
die "bogus RPM\n" if $rpm eq '';
|
|
84 |
|
|
85 |
open(ZCAT, "|gzip -cd") || die "can't pipe to gzip\n";
|
|
86 |
print STDERR "CPIO archive found!\n";
|
|
87 |
|
|
88 |
print ZCAT $rpm;
|
|
89 |
close ZCAT;
|
|
90 |
|