/[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.14 by slords, Sat May 19 21:55:09 2007 UTC Revision 1.16 by slords, Tue May 22 22:14:43 2007 UTC
# Line 7  use Data::Dumper; Line 7  use Data::Dumper;
7  use Getopt::Std;  use Getopt::Std;
8    
9  my %opts;  my %opts;
10  getopts( "s:", \%opts );  getopts( "als:", \%opts );
11  my $src = $opts{s} || '/builds/RPMS';  my $src = $opts{s} || '/builds/RPMS';
12    
13  my $centosrel = '4';  my $centosrel = '4';
# Line 60  foreach my $rpm ( sort keys %rpms ) Line 60  foreach my $rpm ( sort keys %rpms )
60      foreach my $file ( grep { /^$rpmfix-[0-9].*\.rpm$/ } keys %repos )      foreach my $file ( grep { /^$rpmfix-[0-9].*\.rpm$/ } keys %repos )
61      {      {
62          $header = RPM2->open_package("$repos{$file}/$file", $rpm_flags);          $header = RPM2->open_package("$repos{$file}/$file", $rpm_flags);
63          if ($header ge $rpms{$rpm} || $header->filename =~ m#/centos/[\d.]+/(os|updates|fasttrack|extras)/#i)          if ($header ge $rpms{$rpm} || $header->filename =~ m#/centos/[\d.]+/(os|updates|fasttrack|extras)/#i || $opts{a})
64          {          {
65              push @headers, $header;              push @headers, $header;
66          }          }
67      }      }
68      @headers = reverse sort { $a cmp $b } @headers;      @headers = reverse sort { $a cmp $b } @headers;
69      if (grep { $_->filename =~ m#/centos/[\d.]+/(updates|fasttrack)/#i } @headers)      if (grep { $_->filename =~ m#/centos/[\d.]+/(os|updates|fasttrack|extras)/#i } @headers)
70      {          @headers = grep { $_->filename !~ m#/fedora/#i || $_->filename =~ m#/epel/#i || $_ eq $rpms{$rpm} } @headers;
         @headers = grep { $_->filename !~ m#/centos/[\d.]+/os/#i || $_ eq $rpms{$rpm} } @headers;  
71      }      }
72      if (grep { $_->filename =~ m#/centos/[\d.]+/(os|updates|fasttrack|extras)/#i || $_->filename =~ m#/(dag|epel)/[^d]#i } @headers)      unless ($opts{a}) {
73      {          if (grep { $_->filename =~ m#/centos/[\d.]+/(updates|fasttrack)/#i } @headers)
74          @headers = grep { $_->filename !~ m#/atrpms/#i || $_ eq $rpms{$rpm} } @headers;          {
75          @headers = grep { $_->filename !~ m#/fedora/#i || $_ eq $rpms{$rpm} } @headers;              @headers = grep { $_->filename !~ m#/centos/[\d.]+/os/#i || $_ eq $rpms{$rpm} } @headers;
76            }
77            if (grep { $_->filename =~ m#/centos/[\d.]+/(os|updates|fasttrack|extras)/#i || $_->filename =~ m#/(dag|epel)/[^d]#i } @headers)
78            {
79                @headers = grep { $_->filename !~ m#/atrpms/#i || $_ eq $rpms{$rpm} } @headers;
80            }
81      }      }
82      if ($#headers < 0)      if ($#headers < 0)
83      {      {
# Line 82  foreach my $rpm ( sort keys %rpms ) Line 86  foreach my $rpm ( sort keys %rpms )
86      }      }
87      elsif ( $headers[0]->filename !~ m#/centos/[\d.]+/(os|updates|fastrrack|extras)/#i  || $headers[0] ne $rpms{$rpm} )      elsif ( $headers[0]->filename !~ m#/centos/[\d.]+/(os|updates|fastrrack|extras)/#i  || $headers[0] ne $rpms{$rpm} )
88      {      {
89            next if $headers[0] eq $rpms{$rpm} && $opts{l};
90          if (grep { $_ ne $rpms{$rpm} } @headers)          if (grep { $_ ne $rpms{$rpm} } @headers)
91          {          {
92              print "$rpm\n";              print "$rpm\n";
# Line 91  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} ? "** " : "-- ") . $header->as_nvre . " ($path)\n";                  print " " . ( $header eq $rpms{$rpm} ? "** " : ( $path =~ m#/centos/# ? "-- " : ".. " ) ) . $header->as_nvre . " ($path)\n";
100                  #print "     - rm -f $src/$filename; cp ". $header->filename . " $src\n";                  #print "     - rm -f $src/$filename; cp ". $header->filename . " $src\n";
101                    last if $header eq $rpms{$rpm}  && $opts{l};
102              }              }
103          }          }
104      }      }


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