Contents of /mgatools/trunk/clean-rpmsrate

#!/usr/bin/perl
#
# 

use strict;
use MGATools::rpmsrate qw(cleanrpmsrate);

my $output_file;
$ARGV[0] =~ /-o/ and shift @ARGV and $output_file = 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, $output_file, \%rpm);
1	#!/usr/bin/perl
2	#
3	#
4
5	use strict;
6	use MGATools::rpmsrate qw(cleanrpmsrate);
7
8	my $output_file;
9	$ARGV[0] =~ /-o/ and shift @ARGV and $output_file = shift;
10
11	$ARGV[1] or print "\nUsage:
12	clean-rpmsrate [options] <rpmsrate file> <RPMs dir 1> <RPMs dir 2> ... <RPMs dir n>
13
14	options:
15	-o file: output file\n\n" and exit();
16
17	my %rpm;
18	my $rpmsrate_base = shift @ARGV;
19	foreach my $d (@ARGV) {
20	$rpm{$d} = [ map { s!$d/?(.)\.rpm$!$1!; $_ } glob "$d/.rpm" ];
21	}
22	cleanrpmsrate($rpmsrate_base, $output_file, \%rpm);