--- /dev/null
+#!/usr/bin/perl -w
+
+
+# Take a perl tarball and make a specfile for it. Now with bundles.
+#
+# Copyright 2000,2001 Simon Wilkinson. All rights reserved.
+#
+# 10/18/2001 - <jesse@bestpractical.com>
+# Added resolution of prereq_pm modules
+#
+# This program is free software; you can redistribute it
+# and/or modify it under the same terms as Perl itself.
+#
+
+use strict;
+
+use CPAN;
+use POSIX;
+use Sys::Hostname;
+use File::Basename;
+use Getopt::Long;
+
+use vars qw ($DEBUG $ARCH $builddir $seen @report);
+
+$ARCH = 'i386';
+
+$DEBUG = 0;
+# Icky globals
+
+my $release;
+my $package;
+
+$seen = {};
+
+
+sub usage
+{
+ print STDERR <<EOM;
+
+Usage: cpan2rpm [--release <release>] [--builddir <rpm build dir>] <Perl::Module>
+
+Where:
+<release> is the release number of the RPM you wish to produce
+<Perl::Module> is the name of the module to build
+EOM
+ exit(1);
+}
+
+
+my $ret=GetOptions("release" => \$release,
+ "builddir=s" => \$builddir);
+
+$package=$ARGV[0];
+usage() if !$package;
+$release=1 if !$release;
+
+
+$builddir=ExtractRpmMacro($ENV{HOME}."/.rpmmacros","_topdir") if !$builddir;
+$builddir=ExtractRpmMacro("/etc/rpm/macros","_topdir") if !$builddir;
+$builddir=getcwd() if !$builddir;
+
+die "Build directory $builddir doesn't look like an RPM build root\n"
+ if ((! -d "$builddir/SPECS") || (! -d "$builddir/SOURCES"));
+
+process($package,$release);
+
+print join("\n",@report)."\n";
+
+sub process {
+ my ($infile,$release)=@_;
+
+
+
+# Convert our installation list into an unbundled one
+ unbundle($infile);
+
+ print "Building $infile\n";
+
+ cpan2rpm($infile,$builddir,$release);
+
+}
+
+# Given a Module, try to split it into its required components - this
+# currently only handles Bundles, but could also be extended to deal with
+# prereqs as well.
+
+sub unbundle {
+ my ($item) = @_;
+
+ if ($item=~/Bundle::/) {
+ my $obj=CPAN::Shell->expand('Bundle',$item);
+
+ foreach my $kid ($obj->contains) {
+ process($kid,$release);
+ }
+ }
+}
+
+
+sub cpan2rpm($$$) {
+ my ($infile,$builddir,$release) = @_;
+
+ my $ret;
+
+ my $obj=CPAN::Shell->expand('Module',$infile);
+
+ print "CPAN tells us the following about $infile:\n",$obj->as_string if ($DEBUG);
+
+ $ret=fetch_source($obj,$builddir);
+ $ret=build_specfile($obj,$builddir,$release) if !$ret;
+
+ return $ret;
+}
+
+# FIXME: Some error handling in the function below wouldn't go amiss ...
+sub fetch_source {
+ my ($obj,$builddir)=@_;
+
+ # Minor Sanity checks
+ my $id=$obj->{ID};
+
+ return "Error: No file for $id\n"
+ if $obj->cpan_file eq "N/A";
+ return "Error: $id says 'Contact Author'\n"
+ if $obj->cpan_file =~ /^Contact Author/;
+ return "Error: $id is contained within Perl itself!\n"
+ if ($obj->cpan_file =~/perl-5\.\d?\.\d?\.tar\.gz/xo);
+
+ # We do this so we can take advantage of CPAN's object caching. This is
+ # pinched from the CPAN::Distribution::get method, which we can't use
+ # directly, as it untars the package as well - which we let RPM do.
+
+ my $dist = $CPAN::META->instance('CPAN::Distribution',$obj->cpan_file);
+
+
+ my($local_wanted) =
+ MM->catfile($CPAN::Config->{keep_source_where},
+ "authors",
+ "id",
+ split("/",$dist->{ID})
+ );
+
+ my $local_file = CPAN::FTP->localize("authors/id/$dist->{ID}", $local_wanted);
+
+ $dist->{localfile} = $local_file;
+
+ $dist->verifyMD5 if ($CPAN::META->has_inst('MD5'));
+
+
+ # Find all the prereqs for this distribution, then build em.
+ # TODO this should be somewhere else
+
+ $dist->make;
+ build_prereqs( $dist->prereq_pm());
+
+
+
+ my $infile=basename($obj->cpan_file);
+
+ File::Copy::copy($local_file,"$builddir/SOURCES/$infile");
+
+ return undef;
+}
+
+
+sub build_prereqs($) {
+ my ($prereqs) = @_;
+
+ foreach my $prereq (keys %{$prereqs}) {
+ process ($prereq, $release);
+ }
+}
+sub build_specfile($$$) {
+ my ($obj,$builddir,$release) = @_;
+
+ my $source=basename($obj->cpan_file);
+
+ # don't go through dependencies on something we've already dealt with
+ return() if ($seen->{$source});
+ $seen->{$source} = 1;
+
+my ($name,$version)=($source=~/(.*)-(.*)\.tar\.gz/);
+ return "Couldn't get a name for $source\n" if !$name;
+ return "Couldn't get a version for $source\n" if !$version;
+
+ my $summary="$name module for perl";
+ my $description=$obj->{description};
+ $description= $summary if !$description;
+
+ open(SPEC, ">$builddir/SPECS/perl-$name.spec")
+ or die "Couldn't open perl-$name.spec for writing.";
+ print SPEC <<EOF;
+
+Summary: $summary
+Name: perl-$name
+Version: $version
+Release: $release
+Copyright: distributable
+Group: Applications/CPAN
+Source0: $source
+Url: http://www.cpan.org
+BuildRoot: /var/tmp/perl-${name}-buildroot/
+Requires: perl
+
+%description
+This is a perl module, autogenerated by cpan2rpm. The original package's
+description was:
+
+$description
+
+%prep
+%setup -q -n $name-%{version}
+
+%build
+CFLAGS="\$RPM_OPT_FLAGS" perl Makefile.PL
+make
+
+%clean
+rm -rf \$RPM_BUILD_ROOT
+
+%install
+rm -rf \$RPM_BUILD_ROOT
+eval `perl '-V:installarchlib'`
+mkdir -p \$RPM_BUILD_ROOT/\$installarchlib
+make PREFIX=\$RPM_BUILD_ROOT/usr install
+/usr/lib/rpm/brp-compress
+find \$RPM_BUILD_ROOT/usr -type f -print | sed "s\@^\$RPM_BUILD_ROOT\@\@g" | grep -v perllocal.pod > $name-$version-filelist
+
+%files -f ${name}-${version}-filelist
+%defattr(-,root,root)
+
+%changelog
+EOF
+ print SPEC "* ",POSIX::strftime("%a %b %d %Y",localtime()), " ",$ENV{USER}," <",$ENV{USER},"\@",hostname(),">\n";
+ print SPEC "- Spec file automatically generated by cpan2rpm\n";
+
+ close(SPEC);
+
+ system("rpm -ba $builddir/SPECS/perl-$name.spec >/dev/null") == 0
+ or push (@report, "RPM of $source failed with : $!\n");
+
+ system("rpm -Uvh $builddir/RPMS/$ARCH/perl-$name-$version-$release.$ARCH.rpm") == 0
+ or warn "RPM of $source could not be installed: $!\n";
+
+ push (@report, "Built perl-$name-$version-$release.$ARCH.rpm");
+}
+
+sub ExtractRpmMacro {
+ my ($file,$macro) = @_;
+
+ my $handle=new IO::File;
+
+ if (!$handle->open($file)) {
+ return undef;
+ }
+
+ while(<$handle>) {
+ if (/\%$macro (.*)/) {
+ return $1;
+ }
+ }
+
+ return undef;
+}
+
+=head1 NAME
+
+cpan2rpm - fetch and convert CPAN packages to RPMs
+
+=head1 SYNOPSIS
+
+cpan2rpm --release <release> <package>
+
+=head1 DESCRIPTION
+
+cpan2rpm provides a quick way of creating RPM packages from perl modules
+published on CPAN. It interfaces with the perl CPAN module to fetch the
+file from the selected mirror, and then creates a spec file from the
+information in CPAN, and invokes RPM on that spec file.
+
+Files are created in the users RPM build root.
+
+=head1 OPTIONS
+
+=over 4
+
+=item release
+
+Sets the release number of the created RPMs.
+
+=back
+
+=head1 SEE ALSO
+
+rpm(1)
+
+=head1 AUTHOR
+
+Simon Wilkinson <sxw@sxw.org.uk>
projects / freeside.git / blobdiff