source: soft/build_system/build_system/mkcd/tags/V3_3_6_1mdk/clean-rpmsrate @ 1

Last change on this file since 1 was 1, checked in by fasma, 12 years ago

Initial Import from Mandriva's soft revision 224062 and package revision 45733

File size: 483 bytes
Line 
1#!/usr/bin/perl -I /home/warly/files/cvs/mdk/soft/mkcd/pm
2#
3#
4
5use strict;
6use Mkcd::Tools qw(cleanrpmsrate);
7use RPM::Header;
8
9$ARGV[0] =~ /-o/ and shift @ARGV and my $rpmsrate = 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
17my %rpm;
18foreach (@ARGV) { $rpm{$_} = [ map { s/\.rpm$//; $_ } glob "$_/*.rpm" ] };
19cleanrpmsrate(shift @ARGV,$rpmsrate,0, \%rpm);
Note: See TracBrowser for help on using the repository browser.