blob: 1bc877124b228074be82ff2b63d48a037c4db497 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
#!/usr/bin/perl -Tw
#
# Make a bundle file from an RPM
#
use strict;
$ENV{PATH} = '/bin:/usr/bin/';
my $verbose = 0;
# These are Perl dependencies that should be ignored/suppressed
my %suppress;
foreach (qw/strict subs vars base lib warnings FS/) {
$suppress{$_} = $_;
}
# These are Perl modules corresponding to RPM names.
# Add entries when the mapping isn't simply "remove leading 'perl-' and replace - with ::"
my %rpm2mod=(
'DBD-MySQL' => 'DBD::mysql',
);
## These are root packages that shouldn't be cited multiple times
## Should figure this out with CPAN
#my %rootpkgs;
#
#foreach (qw/FS/) {
# $rootpkgs{$_} = 1;
#}
foreach my $rawrpm (@ARGV) {
$rawrpm =~ /^([-\.a-z0-9\/]+)\s*$/i;
my $rpm = $1 or next;
my @parts = split '/', $rpm;
my $name = pop @parts;
my $version = 0.01;
if ($name =~ m<([^/]+?)[-._]?v?-?([-_.\d]+[a-z]*?\d*)\.\w+\.rpm$>) {
$name = $1;
$version = $2;
}
print STDERR "rpm: $rpm ($name, $version)\n";
my @deps = sort `rpm -qp --requires $rpm`;
my %mods;
foreach (@deps) {
if (/^perl\((.*?)\)\s*((>=|=|<=)\s+([\d\.]+))?$/
|| /^perl-(.*?)\s*((>=|=|<=)\s+([\d\.]+))?$/) {
my ($mod, $rel, $ver) = ($1, $3, $4);
if (/^perl-/) {
print STDERR "\"$mod\"\n" if $verbose;
$mod = $rpm2mod{$mod} if exists($rpm2mod{$mod});
$mod =~ s/-/::/g
}
next if exists($suppress{$mod});
my @parts = split /::/, $mod;
if (scalar @parts > 1) {
next if exists($suppress{$parts[0]});
}
if ($verbose) {
print STDERR "$mod";
print STDERR " $rel $ver" if $ver;
print STDERR "\n";
}
$mods{$mod} = $ver ? $ver : undef; # Should also save $rel
}
}
my $hdr =<<END;
# -*- perl -*-
package Bundle::$name;
\$VERSION = '$version';
1;
__END__
=head1 NAME
Bundle::$name - A bundle to install prerequisites for the $name package
=head1 SYNOPSIS
C<perl -MCPAN -e 'install Bundle::$name'>
=head1 CONTENTS
END
my $ftr =<<END;
=head1 DESCRIPTION
This bundle includes all prerequisites needed by the $name package.
=cut
END
print $hdr;
foreach (sort keys %mods) {
print "$_";
print " $mods{$_}" if exists($mods{$_}) && $mods{$_};
print " -\n\n";
}
print $ftr;
}
1;
|
