3 # Convert the output from ovid --deps into a list of modules to run through cpanflute2 to get
4 # better .spec files, and generate SRPMs from these.
9 # Need to fix up modules where Ovid parses the name incorrectly
11 'Crypt-PasswdMD-5' => 'Crypt-PasswdMD5',
12 'IPC-Run-3' => 'IPC-Run3',
13 'Digest-SHA-1' => 'Digest-SHA1',
14 'Digest-MD-4' => 'Digest-MD4',
18 'File-Rsync' => [ qw/rsync/ ],
19 'MIMETools' => [ qw/perl(Mail::Header) perl(Mail::Internet) perl(Mail::Field) perl(IO::Stringy) perl(File::Temp)/ ],
20 'HTML::Scrubber' => [ qw/perl(HTML::Parser) perl(HTML::Tagset)/ ],
21 # 'Time::Duration' => [ qw/perl(Test::Pod) perl(Test::Pod::Coverage)/ ],
25 'File-Rsync' => [ qw/rsync/ ],
30 GetOptions(\%opts, 'packager=s', 'release=s');
32 $opts{packager} = 'Richard Siddall <richard.siddall@elirion.net>' if !defined($opts{packager});
34 # Need to process modules that cause Ovid to crash
35 #my @extramods= qw/Text::CSV_XS Pod::Simple Crypt::SSLeay/;
36 #my @extramods= qw/Crypt::SSLeay/;
37 my @extramods= qw/IPC::ShareLite/;
39 my $specfiledir="/home/rsiddall/work/redhat/SPECS";
40 my $srpmdir="/home/rsiddall/work/redhat/SRPMS";
42 foreach (reverse <STDIN>) {
45 last if $_ !~ /^([-\w:]+) perl-([-\w\.]+)(-\d+[\w\.]+?)$/;
47 my ($name, $rpm, $ver) = ($1, $2, $3);
48 print "# $name ($rpm - $ver)\n";
49 foreach my $cand (keys %badparse) {
50 if ($rpm =~ /^$cand/) {
51 $rpm =~ s/^$cand/$badparse{$cand}/;
52 print "# Fixed up $rpm\n";
56 printcmds($name, "$rpm$ver");
57 #print "cpanspec -v --packager 'Unknown <nobody\@example.com>' $name\n";
59 #print "repoquery perl-$rpm\n";
60 #touchsrpms($name, "$rpm$ver");
65 foreach my $name (@extramods) {
68 my $tarball = `find ~/.cpan/sources -name '$rpm-*' -print | tail -1`;
69 #print "$name (Extra!)\n"
70 if ($tarball =~ /\/($rpm-.*?)(\.tar\.gz|\.tgz)\s*$/) {
72 printcmds($name, $rpm);
74 die "Can't find full rpm name for $name in \"$tarball\"\n";
79 my ($name, $rpm) = @_;
80 my $repofolder ="/var/www/html/repo/sles/10/freeside-1.9/stable/x86_64";
81 my $srpmfolder ="/home/rsiddall/work/redhat/SRPMS";
82 my @files = glob "$repofolder/perl-$rpm-*.rpm";
83 if (! scalar(@files)) {
84 print "Can't find $rpm in $repofolder\n";
85 @files = glob "$srpmfolder/perl-$rpm-*.src.rpm\n";
87 my $file = pop @files;
88 print "touch $file\n";
90 print STDERR "No corresponding SRPM: $srpmfolder/perl-$rpm-*.src.rpm\n";
91 printcmds($name, $rpm);
97 my ($name, $rpm) = @_;
99 my $tarball = `find ~/.cpan -name '$rpm.tar.gz' -print`;
100 $tarball = `find ~/.cpan -name '$rpm.tgz' -print` if ! $tarball;
102 # my $specfile = "$specfiledir/$name.spec";
104 $rpmname = $1 if $rpm =~ /^(?:.*\/)?(.*)-(?:v\.?)?([^-]+)$/;
105 my $specfile = "$specfiledir/perl-$rpmname.spec";
106 $specfile =~ s/::/-/g;
107 # Work out which version of the SRPM we're going to generate.
109 if (!defined($opts{release})) {
110 for ($rel = 1; ; $rel++) {
111 my $srpm = "$srpmdir/perl-$rpm-$rel.src.rpm";
113 print "# File exists: $srpm\n";
116 $rel = $opts{release};
119 foreach my $cand (keys %extra_buildreqs) {
120 if ($rpm =~ /^$cand/) {
121 $fluteopts .= join "", map { "--buildrequires $_ " } @{$extra_buildreqs{$cand}};
125 foreach my $cand (keys %extra_reqs) {
126 if ($rpm =~ /^$cand/) {
127 $fluteopts .= join "", map { "--requires $_ " } @{$extra_reqs{$cand}};
131 print "cpanflute2 --just-spec --noperlreqs --email='$opts{packager}' --release=$rel $fluteopts $tarball > $specfile;\n";
132 # Should fix up the .spec file
133 print "perl -pi -e 's/perl\\(perl\\)/perl/g' $specfile;\n";
134 my $tarballdir = `dirname $tarball` or die "Can't find tarball for $name: $tarball\n";
136 print "rpmbuild -bs --nodeps --define '_sourcedir $tarballdir' --define '_srcrpmdir $srpmdir' $specfile\n";
137 print "# Generates: $srpmdir/perl-$rpm-$rel.src.rpm\n";