/[smeserver]/builds_bin/checkrpms
ViewVC logotype

Diff of /builds_bin/checkrpms

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

Revision 1.8 by slords, Fri Apr 27 21:40:19 2007 UTC Revision 1.9 by slords, Sat Apr 28 16:38:04 2007 UTC
# Line 10  my %opts; Line 10  my %opts;
10  getopts( "s:", \%opts );  getopts( "s:", \%opts );
11  my $src = $opts{s} || '/builds/RPMS';  my $src = $opts{s} || '/builds/RPMS';
12    
13    my $arch = 'i386';
14    my $centosrel = '4';
15    my $fedorarel = '3';
16    my $builds = '/builds/rpms';
17    
18  my $rpm_flags = RPM2->vsf_nodsaheader | RPM2->vsf_nodsa;  my $rpm_flags = RPM2->vsf_nodsaheader | RPM2->vsf_nodsa;
19  my @repositories = qw(  my @repos = (
20          /mirrors/centos/4/fasttrack/i386/RPMS/                "/mirrors/centos/$centosrel/fasttrack/$arch/RPMS",
21          /mirrors/centos/4/updates/i386/RPMS/                "/mirrors/centos/$centosrel/updates/$arch/RPMS",
22          /mirrors/centos/4/os/i386/CentOS/RPMS/                "/mirrors/centos/$centosrel/os/$arch/CentOS/RPMS",
23          /mirrors/centos/4/extras/i386/RPMS/                "/mirrors/centos/$centosrel/extras/$arch/RPMS",
24          /mirrors/rpmforge/dag/redhat/el4/en/i386/dag/RPMS/                "/mirrors/rpmforge/dag/redhat/el$centosrel/en/$arch/dag/RPMS",
25          /mirrors/atrpms/el4-i386/atrpms/stable/                "/mirrors/atrpms/el$centosrel-$arch/atrpms/stable",
26          /mirrors/rpmforge/dag/dries/redhat/el4/en/i386/RPMS.dries/                "/mirrors/fedora/core/updates/$fedorarel/$arch",
27          /mirrors/fedora-legacy/fedora/3/updates/i386/                "/mirrors/fedora/core/$fedorarel/$arch/os/Fedora/RPMS",
28          /mirrors/fedora-legacy/fedora/3/os/i386/                "/mirrors/fedora/extras/$fedorarel/$arch",
29          /builds/rpms/RPMS/i686/                "$builds/RPMS/i686",
30          /builds/rpms/RPMS/i586/                "$builds/RPMS/i586",
31          /builds/rpms/RPMS/i386/                "$builds/RPMS/$arch",
32          /builds/rpms/RPMS/noarch/                "$builds/RPMS/noarch",
33          );              );
34    
35  opendir RPMS, $src or die "Couldn't opendir $src";  opendir RPMS, $src or die "Couldn't opendir $src";
36  my %rpms = map { my $x = RPM2->open_package("$src/$_", $rpm_flags); $x->tag('NAME') => $x; } grep { /\.rpm$/ } readdir RPMS;  my %rpms = map { my $x = RPM2->open_package("$src/$_", $rpm_flags); $x->tag('NAME') => $x; } grep { /\.rpm$/ } readdir RPMS;
37  closedir RPMS;  closedir RPMS;
38    
39  my %repos;  my %repos;
40  foreach my $repo (reverse @repositories)  foreach my $repo (reverse @repos)
41  {  {
42      my %temp_repo = map { $_ => $repo } grep { /\.rpm$/ } readdir RPMS if ( opendir RPMS, $repo );      my %temp_repo = map { $_ => $repo } grep { /\.rpm$/ } readdir RPMS if ( opendir RPMS, $repo );
43      closedir RPMS;      closedir RPMS;

Legend:
Removed lines/characters  
Changed lines/characters
  Added lines/characters
admin@koozali.org
 ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed