3 # Attempt to build RPMs for Freeside from a tarball or module
5 # Contains portions of "cpanspec" http://cpanspec.sourceforge.net/
9 enrpm - Attempt to build RPMs for Freeside from a tarball or a module
13 enrpm [options] [tarball|module-name [...]]
16 --help -h Help message
20 B<enrpm> will generate a spec file to build a rpm from a CPAN-style
21 Perl module distribution, then try to build RPMs from that spec file
22 under mock, and update the repositories if successful.
24 B<enrpm> uses the file extension of the tarball or module-name specified
25 on the command line to determine if the argument is a tarball or a module name.
27 Modules are downloaded from the CPAN. You must have initialized CPAN on the machine
28 for B<enrpm> to be able to do this.
30 For tarballs B<enrpm> attempts to build a usable .spec file using cpanflute2, and then builds
31 an SRPM from the .spec file and the tarball.
33 Once an SRPM has been built, B<enrpm> uses an external script to build binary RPMs under "mock".
34 It then uses a second script to update the repositories.
42 Print a brief help message and exit.
46 Specify the name and e-mail address of the packager. This winds up in auto-generated .spec files.
50 Specify the host name or IP address of the server on which the SRPM will be built. This server must be
51 set up for SRPM building, which means it must have both B<ovid> and B<cpanflute2> installed on it.
55 Just print out commands, don't actually run them.
61 Currently has little in the way of error detection and diagnostics.
63 The back-end should be replaced with an existing build system such as koji.
67 Richard Siddall <richard.siddall@elirion.net>
71 L<perl(1)>, L<cpan2rpm(1)>, L<cpanflute2(1)>
77 use Cwd qw/getcwd abs_path/;
79 use Sys::Hostname; # False laziness to get around a real config file...
83 GetOptions(\%opts, 'packager=s', 'release=s', 'server=s', 'dryrun');
85 $ENV{PATH} = "/bin:/usr/bin";
88 print STDERR "usage: enrpm --packager <Your Name <you\@example.com>> [--release=<rpm-release-string>] --server <server-name> [--dryrun] tarball|module-name\n";
89 print STDERR "where:\n\t--packager is the name and e-mail address of the packager for the .spec file\n\t--release is the rpm release number for the .spec file\n\t--server is the server to build the SRPM on\n\t--dryrun means do not actually run the commands\n\n";
90 print STDERR "\ttarball is the name of a tarball containing the Perl module to be packaged\n";
91 print STDERR "\tmodule-name is the name of a CPAN Perl module to be packaged\n";
95 # Feeble excuse for not having a real configuration file
96 my $user = 'rsiddall';
97 my $buildsys = '/home/rsiddall/work';
98 my $rembuild = '/home/rsiddall/work/cvs';
99 my $remdeps = '/home/rsiddall';
100 my $rpmtopdir = '/home/rsiddall/work/redhat';
101 my $packager = 'Richard Siddall <richard.siddall@elirion.net>';
102 my $server = 'grosbeak';
104 if (hostname =~ /wavetail/i) {
105 $buildsys = '/home/rsiddall/buildsys';
106 $rembuild = '/home/rsiddall/buildsys/ref';
107 $remdeps = '/home/rsiddall';
108 $rpmtopdir = '/home/rsiddall/redhat';
109 $packager = 'Ivan Kohler <ivan@freeside.biz>';
110 $server = '10.5.4.5';
113 $server = $opts{server} if defined($opts{server});
114 $user = $1 if $server =~ /(\w+)\@[\w\d\.]+/;
116 $packager = $opts{packager} if defined($opts{packager});
118 # Go ahead and build an SRPM...
120 my $ovidignore = '--ignore ' . join ('--ignore ', qw/libwww/);
123 for my $file (@ARGV) {
124 my ($name,$version,$type);
126 if ($file =~ /^(?:.*\/)?(.*)-(?:v\.?)?([^-]+)\.(tar)\.(?:gz|bz2)$/) {
130 } elsif ($file =~ /^(?:.*\/)?(.*)-(?:v\.?)?([^-]+)\.tgz$/) {
134 } elsif ($file =~ /^(?:.*\/)?(.*)-(?:v\.?)?([^-]+)\.(zip)$/) {
139 # keep things happy if we get "Foo-Bar" instead of "Foo::Bar"
146 if ($type eq 'module') {
148 $fluteopts .= "--packager='$packager' " if defined($packager);
149 $fluteopts .= "--release='$opts{release}' " if defined($opts{release});
150 do_cmd("ssh $user\@$server \"ovid --deps $ovidignore $name | tail -1 | $remdeps/ovid2flute $fluteopts | /bin/sh\"");
152 my $absfile = abs_path($file);
153 my $fname = basename($file);
154 die "Packager name and e-mail required" if !defined($packager);
155 die "RPM release string required" if !defined($opts{release});
156 do_cmd("scp $absfile $user\@$server:/home/$user/$fname");
157 # do_cmd("ssh $user\@$server 'cpanflute2 --just-spec --noperlreqs --email=\\\"$packager\\\" --release=$opts{release} /home/$user/$fname > /home/$user/work/redhat/SPECS/$name.spec;'");
158 # do_cmd("ssh $user\@$server 'perl -pi -e \\\"s/perl\(perl\)/perl/g\\\" /home/$user/work/redhat/SPECS/$name.spec;'");
159 # do_cmd("ssh $user\@$server 'rpmbuild -bs --nodeps --define \\\"_sourcedir /home/$user/\\\" --define \\\"_srcrpmdir /home/$user/work/redhat/SRPMS\\\" /home/$user/work/redhat/SPECS/$name.spec'");
160 open SCRIPT, ">/home/$user/makesrpm" or die "Can't create SRPM construction script: ", $!;
161 print SCRIPT "#!/bin/sh\n\n";
162 print SCRIPT "cpanflute2 --just-spec --noperlreqs --email='$packager' --release=$opts{release} /home/$user/$fname > $rpmtopdir/SPECS/$name.spec;\n";
163 print SCRIPT "perl -pi -e 's/perl(perl)/perl/g' $rpmtopdir/SPECS/$name.spec\n";
164 print SCRIPT "rpmbuild -bs --nodeps --define '_sourcedir /home/$user/' --define '_srcrpmdir $rpmtopdir/SRPMS' $rpmtopdir/SPECS/$name.spec\n";
165 close SCRIPT or die "Can't close SRPM construction script: ", $!;
166 chmod(0711, "/home/$user/makesrpm");
167 do_cmd("scp /home/$user/makesrpm $user\@$server:/home/$user/makesrpm");
168 do_cmd("ssh $user\@$server /home/$user/makesrpm");
170 my $olddir = getcwd();
171 do_cmd("$buildsys/build-freeside");
172 if (-x "$buildsys/refresh-repo") {
173 do_cmd("$buildsys/refresh-repo");
175 do_cmd("ssh $user\@$server $rembuild/refresh-repo");
183 `$cmd` if !exists($opts{dryrun});