/[smeserver]/builds_bin/checkrpms
ViewVC logotype

Annotation of /builds_bin/checkrpms

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.14 - (hide annotations) (download)
Sat May 19 21:55:09 2007 UTC (17 years ago) by slords
Branch: MAIN
Changes since 1.13: +2 -1 lines
Tools update

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     }

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed