--- builds_bin/checkrpms 2007/04/27 21:40:19 1.8 +++ builds_bin/checkrpms 2007/04/28 16:38:04 1.9 @@ -10,29 +10,34 @@ 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 @repositories = qw( - /mirrors/centos/4/fasttrack/i386/RPMS/ - /mirrors/centos/4/updates/i386/RPMS/ - /mirrors/centos/4/os/i386/CentOS/RPMS/ - /mirrors/centos/4/extras/i386/RPMS/ - /mirrors/rpmforge/dag/redhat/el4/en/i386/dag/RPMS/ - /mirrors/atrpms/el4-i386/atrpms/stable/ - /mirrors/rpmforge/dag/dries/redhat/el4/en/i386/RPMS.dries/ - /mirrors/fedora-legacy/fedora/3/updates/i386/ - /mirrors/fedora-legacy/fedora/3/os/i386/ - /builds/rpms/RPMS/i686/ - /builds/rpms/RPMS/i586/ - /builds/rpms/RPMS/i386/ - /builds/rpms/RPMS/noarch/ - ); +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/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 @repositories) +foreach my $repo (reverse @repos) { my %temp_repo = map { $_ => $repo } grep { /\.rpm$/ } readdir RPMS if ( opendir RPMS, $repo ); closedir RPMS;