This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9

1 files changed, 0 insertions, 111 deletions

diff --git a/rpm/rpm2Bundle b/rpm/rpm2Bundle
deleted file mode 100755
index 1bc877124..000000000
--- a/rpm/rpm2Bundle
+++ /dev/null
@@ -1,111 +0,0 @@
-#!/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;
-