add cleanrpmsrate

1 files changed, 19 insertions, 0 deletions

diff --git a/clean-rpmsrate b/clean-rpmsrate
new file mode 100755
index 0000000..c8b11d4
--- /dev/null
+++ b/clean-rpmsrate
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+#
+# 
+
+use strict;
+use MGATools::rpmsrate qw(cleanrpmsrate);
+
+$ARGV[0] =~ /-o/ and shift @ARGV and my $rpmsrate = shift;
+
+$ARGV[1] or print "\nUsage:
+	clean-rpmsrate [options] <rpmsrate file> <RPMs dir 1> <RPMs dir 2> ... <RPMs dir n>
+
+	options:
+		-o file: output file\n\n" and exit;
+
+my %rpm;
+my $rpmsrate_base = shift @ARGV;
+foreach my $d (@ARGV) { $rpm{$d} = [ map { s/$d\/?(.*)\.rpm$/$1/; $_ } glob "$d/*.rpm" ] };
+cleanrpmsrate($rpmsrate_base,$rpmsrate,0, \%rpm);