/[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.16 by slords, Tue May 22 22:14:43 2007 UTC Revision 1.20 by slords, Tue Oct 16 21:36:23 2007 UTC
# Line 6  use RPM2; Line 6  use RPM2;
6  use Data::Dumper;  use Data::Dumper;
7  use Getopt::Std;  use Getopt::Std;
8    
 my %opts;  
 getopts( "als:", \%opts );  
 my $src = $opts{s} || '/builds/RPMS';  
   
9  my $centosrel = '4';  my $centosrel = '4';
10  my $fedorarel = '3';  my $fedorarel = '3';
11  my $builds = '/builds/rpms';  my $builds = '/builds/rpms';
12  my $arch = `uname -i`;  my $arch = `uname -i`;
13  chomp $arch;  chomp $arch;
14    
15    my %opts;
16    getopts( "als:", \%opts );
17    my $src = $opts{s} || "/builds/RPMS-$arch";
18    
19  my $rpm_flags = RPM2->vsf_nodsaheader | RPM2->vsf_nodsa;  my $rpm_flags = RPM2->vsf_nodsaheader | RPM2->vsf_nodsa;
20  my @repos = (  my @repos = (
21                "/mirrors/centos/$centosrel/fasttrack/$arch/RPMS",                "/mirrors/centos/$centosrel/fasttrack/$arch/RPMS",
22                "/mirrors/centos/$centosrel/updates/$arch/RPMS",                "/mirrors/centos/$centosrel/updates/$arch/RPMS",
23                "/mirrors/centos/$centosrel/os/$arch/CentOS/RPMS",                "/mirrors/centos/$centosrel/os/$arch/CentOS/RPMS",
               "/mirrors/centos/$centosrel/os/$arch/SME/RPMS",  
               "/mirrors/centos/$centosrel/os/$arch/RPMS",  
24                "/mirrors/centos/$centosrel/os/$arch/CentOS",                "/mirrors/centos/$centosrel/os/$arch/CentOS",
               "/mirrors/centos/$centosrel/os/$arch/SME",  
25                "/mirrors/centos/$centosrel/extras/$arch/RPMS",                "/mirrors/centos/$centosrel/extras/$arch/RPMS",
26                "/mirrors/fedora/epel/$centosrel/$arch",                "/mirrors/fedora/epel/$centosrel/$arch",
27                  "/mirrors/fedora/epel/testing/$centosrel/$arch",
28                "/mirrors/rpmforge/dag/redhat/el$centosrel/en/$arch/dag/RPMS",                "/mirrors/rpmforge/dag/redhat/el$centosrel/en/$arch/dag/RPMS",
29                "/mirrors/atrpms/el$centosrel-$arch/atrpms/stable",                "/mirrors/atrpms/el$centosrel-$arch/atrpms/stable",
30                  "/mirrors/atrpms/el$centosrel-$arch/atrpms/testing",
31                "/mirrors/fedora/core/updates/$fedorarel/$arch",                "/mirrors/fedora/core/updates/$fedorarel/$arch",
32                "/mirrors/fedora/core/$fedorarel/$arch/os/Fedora/RPMS",                "/mirrors/fedora/core/$fedorarel/$arch/os/Fedora/RPMS",
33                "/mirrors/fedora/extras/$fedorarel/$arch",                "/mirrors/fedora/extras/$fedorarel/$arch",
# Line 67  foreach my $rpm ( sort keys %rpms ) Line 66  foreach my $rpm ( sort keys %rpms )
66      }      }
67      @headers = reverse sort { $a cmp $b } @headers;      @headers = reverse sort { $a cmp $b } @headers;
68      if (grep { $_->filename =~ m#/centos/[\d.]+/(os|updates|fasttrack|extras)/#i } @headers)      if (grep { $_->filename =~ m#/centos/[\d.]+/(os|updates|fasttrack|extras)/#i } @headers)
69        {
70          @headers = grep { $_->filename !~ m#/fedora/#i || $_->filename =~ m#/epel/#i || $_ eq $rpms{$rpm} } @headers;          @headers = grep { $_->filename !~ m#/fedora/#i || $_->filename =~ m#/epel/#i || $_ eq $rpms{$rpm} } @headers;
71      }      }
72      unless ($opts{a}) {      unless ($opts{a}) {
# Line 96  foreach my $rpm ( sort keys %rpms ) Line 96  foreach my $rpm ( sort keys %rpms )
96                  $path =~ s@^(.*)/.*@$1@;                  $path =~ s@^(.*)/.*@$1@;
97                  my $filename = $rpms{$rpm}->filename;                  my $filename = $rpms{$rpm}->filename;
98                  $filename =~ s@^.*/(.*)@$1@;                  $filename =~ s@^.*/(.*)@$1@;
99                  print " " . ( $header eq $rpms{$rpm} ? "** " : ( $path =~ m#/centos/# ? "-- " : ".. " ) ) . $header->as_nvre . " ($path)\n";                  print " " . ( $header eq $rpms{$rpm} ? "** " : ( $path =~ m#/centos/# ? "-- " : ".. " ) ) . $header->filename . "\n";
                 #print "     - rm -f $src/$filename; cp ". $header->filename . " $src\n";  
100                  last if $header eq $rpms{$rpm}  && $opts{l};                  last if $header eq $rpms{$rpm}  && $opts{l};
101              }              }
102          }          }

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