Annotation of /builds_bin/checkrpms

#!/usr/bin/perl

use strict;
use warnings;
use RPM2;
use Data::Dumper;
use Getopt::Std;

my %opts;
getopts( "s:", \%opts );
my $src = $opts{s} || '/builds/RPMS';

my $arch = 'i386';
my $centosrel = '4';
my $fedorarel = '3';
my $builds = '/builds/rpms';

my $rpm_flags = RPM2->vsf_nodsaheader | RPM2->vsf_nodsa;
my @repos = (
              "/mirrors/centos/$centosrel/fasttrack/$arch/RPMS",
              "/mirrors/centos/$centosrel/updates/$arch/RPMS",
              "/mirrors/centos/$centosrel/os/$arch/CentOS/RPMS",
              "/mirrors/centos/$centosrel/extras/$arch/RPMS",
              "/mirrors/fedora/epel/$centosrel/$arch",
              "/mirrors/rpmforge/dag/redhat/el$centosrel/en/$arch/dag/RPMS",
              "/mirrors/atrpms/el$centosrel-$arch/atrpms/stable",
              "/mirrors/fedora/core/updates/$fedorarel/$arch",
              "/mirrors/fedora/core/$fedorarel/$arch/os/Fedora/RPMS",
              "/mirrors/fedora/extras/$fedorarel/$arch",
              "$builds/RPMS/i686",
              "$builds/RPMS/i586",
              "$builds/RPMS/$arch",
              "$builds/RPMS/noarch",
            );

opendir RPMS, $src or die "Couldn't opendir $src";
my %rpms = map { my $x = RPM2->open_package("$src/$_", $rpm_flags); $x->tag('NAME') => $x; } grep { /\.rpm$/ } readdir RPMS;
closedir RPMS;

my %repos;
foreach my $repo (reverse @repos)
{
    my %temp_repo = map { $_ => $repo } grep { /\.rpm$/ } readdir RPMS if ( opendir RPMS, $repo );
    closedir RPMS;
    %repos = (%repos, %temp_repo);
}

foreach my $rpm ( sort keys %rpms )
{
    my (@headers, $header);

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