1 |
gordonr |
1.1 |
#!/usr/bin/perl |
2 |
|
|
|
3 |
|
|
use strict; |
4 |
|
|
use warnings; |
5 |
|
|
use RPM2; |
6 |
|
|
use Data::Dumper; |
7 |
slords |
1.6 |
use Getopt::Std; |
8 |
|
|
|
9 |
|
|
my %opts; |
10 |
|
|
getopts( "s:", \%opts ); |
11 |
|
|
my $src = $opts{s} || '/builds/RPMS'; |
12 |
gordonr |
1.1 |
|
13 |
slords |
1.9 |
my $centosrel = '4'; |
14 |
|
|
my $fedorarel = '3'; |
15 |
|
|
my $builds = '/builds/rpms'; |
16 |
slords |
1.14 |
my $arch = `uname -i`; |
17 |
|
|
chomp $arch; |
18 |
slords |
1.9 |
|
19 |
slords |
1.8 |
my $rpm_flags = RPM2->vsf_nodsaheader | RPM2->vsf_nodsa; |
20 |
slords |
1.9 |
my @repos = ( |
21 |
|
|
"/mirrors/centos/$centosrel/fasttrack/$arch/RPMS", |
22 |
|
|
"/mirrors/centos/$centosrel/updates/$arch/RPMS", |
23 |
|
|
"/mirrors/centos/$centosrel/os/$arch/CentOS/RPMS", |
24 |
slords |
1.11 |
"/mirrors/centos/$centosrel/os/$arch/SME/RPMS", |
25 |
|
|
"/mirrors/centos/$centosrel/os/$arch/RPMS", |
26 |
slords |
1.12 |
"/mirrors/centos/$centosrel/os/$arch/CentOS", |
27 |
slords |
1.11 |
"/mirrors/centos/$centosrel/os/$arch/SME", |
28 |
slords |
1.9 |
"/mirrors/centos/$centosrel/extras/$arch/RPMS", |
29 |
slords |
1.10 |
"/mirrors/fedora/epel/$centosrel/$arch", |
30 |
slords |
1.9 |
"/mirrors/rpmforge/dag/redhat/el$centosrel/en/$arch/dag/RPMS", |
31 |
|
|
"/mirrors/atrpms/el$centosrel-$arch/atrpms/stable", |
32 |
|
|
"/mirrors/fedora/core/updates/$fedorarel/$arch", |
33 |
|
|
"/mirrors/fedora/core/$fedorarel/$arch/os/Fedora/RPMS", |
34 |
|
|
"/mirrors/fedora/extras/$fedorarel/$arch", |
35 |
|
|
"$builds/RPMS/i686", |
36 |
|
|
"$builds/RPMS/i586", |
37 |
|
|
"$builds/RPMS/$arch", |
38 |
|
|
"$builds/RPMS/noarch", |
39 |
|
|
); |
40 |
gordonr |
1.1 |
|
41 |
slords |
1.6 |
opendir RPMS, $src or die "Couldn't opendir $src"; |
42 |
|
|
my %rpms = map { my $x = RPM2->open_package("$src/$_", $rpm_flags); $x->tag('NAME') => $x; } grep { /\.rpm$/ } readdir RPMS; |
43 |
gordonr |
1.1 |
closedir RPMS; |
44 |
|
|
|
45 |
|
|
my %repos; |
46 |
slords |
1.9 |
foreach my $repo (reverse @repos) |
47 |
gordonr |
1.1 |
{ |
48 |
|
|
my %temp_repo = map { $_ => $repo } grep { /\.rpm$/ } readdir RPMS if ( opendir RPMS, $repo ); |
49 |
|
|
closedir RPMS; |
50 |
|
|
%repos = (%repos, %temp_repo); |
51 |
|
|
} |
52 |
|
|
|
53 |
|
|
foreach my $rpm ( sort keys %rpms ) |
54 |
|
|
{ |
55 |
|
|
my (@headers, $header); |
56 |
|
|
|
57 |
|
|
my $rpmfix = $rpm; |
58 |
|
|
$rpmfix =~ s@\+@\\+@g; |
59 |
|
|
@headers = (); |
60 |
|
|
foreach my $file ( grep { /^$rpmfix-[0-9].*\.rpm$/ } keys %repos ) |
61 |
|
|
{ |
62 |
|
|
$header = RPM2->open_package("$repos{$file}/$file", $rpm_flags); |
63 |
slords |
1.7 |
if ($header ge $rpms{$rpm} || $header->filename =~ m#/centos/[\d.]+/(os|updates|fasttrack|extras)/#i) |
64 |
gordonr |
1.1 |
{ |
65 |
|
|
push @headers, $header; |
66 |
|
|
} |
67 |
|
|
} |
68 |
|
|
@headers = reverse sort { $a cmp $b } @headers; |
69 |
slords |
1.7 |
if (grep { $_->filename =~ m#/centos/[\d.]+/(updates|fasttrack)/#i } @headers) |
70 |
gordonr |
1.1 |
{ |
71 |
slords |
1.7 |
@headers = grep { $_->filename !~ m#/centos/[\d.]+/os/#i || $_ eq $rpms{$rpm} } @headers; |
72 |
gordonr |
1.1 |
} |
73 |
slords |
1.13 |
if (grep { $_->filename =~ m#/centos/[\d.]+/(os|updates|fasttrack|extras)/#i || $_->filename =~ m#/(dag|epel)/[^d]#i } @headers) |
74 |
gordonr |
1.1 |
{ |
75 |
slords |
1.7 |
@headers = grep { $_->filename !~ m#/atrpms/#i || $_ eq $rpms{$rpm} } @headers; |
76 |
|
|
@headers = grep { $_->filename !~ m#/fedora/#i || $_ eq $rpms{$rpm} } @headers; |
77 |
gordonr |
1.1 |
} |
78 |
|
|
if ($#headers < 0) |
79 |
|
|
{ |
80 |
|
|
print "$rpm\n"; |
81 |
|
|
print " ***** can't find $rpm in any repository *****\n"; |
82 |
|
|
} |
83 |
slords |
1.7 |
elsif ( $headers[0]->filename !~ m#/centos/[\d.]+/(os|updates|fastrrack|extras)/#i || $headers[0] ne $rpms{$rpm} ) |
84 |
gordonr |
1.1 |
{ |
85 |
|
|
if (grep { $_ ne $rpms{$rpm} } @headers) |
86 |
|
|
{ |
87 |
|
|
print "$rpm\n"; |
88 |
|
|
foreach $header ( @headers) |
89 |
|
|
{ |
90 |
|
|
my $path = $header->filename; |
91 |
|
|
$path =~ s@^(.*)/.*@$1@; |
92 |
slords |
1.4 |
my $filename = $rpms{$rpm}->filename; |
93 |
|
|
$filename =~ s@^.*/(.*)@$1@; |
94 |
gordonr |
1.1 |
print " " . ($header eq $rpms{$rpm} ? "** " : "-- ") . $header->as_nvre . " ($path)\n"; |
95 |
slords |
1.7 |
#print " - rm -f $src/$filename; cp ". $header->filename . " $src\n"; |
96 |
gordonr |
1.1 |
} |
97 |
|
|
} |
98 |
|
|
} |
99 |
|
|
} |