Parent Directory | Revision Log
only cleanrpmsrate() is exported and we don't call anything else anyway
1 | #!/usr/bin/perl |
2 | # |
3 | # |
4 | |
5 | use strict; |
6 | use MGATools::rpmsrate; |
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); |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.30 |