blob: 38a7ac207ab89735f304bcc138c68501a19bb8dd (
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
|
#!/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 FS/) {
$suppress{$_} = $_;
}
## 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\.]+))?$/) {
next if exists($suppress{$1});
my @parts = split /::/, $1;
if (scalar @parts > 1) {
next if exists($suppress{$parts[0]});
}
if ($verbose) {
print STDERR "$1";
print STDERR " >= $3" if $3;
print STDERR "\n";
}
$mods{$1} = $3 ? $3 : undef;
}
}
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;
|
