/[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.1.1.1 by gordonr, Thu Sep 15 23:55:09 2005 UTC Revision 1.3 by gordonr, Fri Jun 30 00:18:36 2006 UTC
# Line 8  use Data::Dumper; Line 8  use Data::Dumper;
8  my $rpm_flags =  RPM2->vsf_nodsa;  my $rpm_flags =  RPM2->vsf_nodsa;
9  my $build_dir  = "/builds/RPMS";  my $build_dir  = "/builds/RPMS";
10  my @repositories = qw(  my @repositories = qw(
11          /mirrors/centos/4/updates/i386/RPMS/          /mirrors/centos/4/updates/i386/RPMS/
12          /mirrors/centos/4/os/i386/CentOS/RPMS/          /mirrors/centos/4/os/i386/CentOS/RPMS/
13          /mirrors/centos/4/dag/i386/RPMS.dag/          /mirrors/dag/redhat/el4/en/i386/dag/RPMS/
14          /mirrors/centos/4/atrpms/i386/RPMS.stable/          /mirrors/atrpms/el4-i386/atrpms/stable/
15          /mirrors/centos/4/dries/i386/RPMS.dries/          /mirrors/dries/redhat/el3/en/i386/RPMS.dries
16          /mirrors/fedora/updates/3/i386/          /mirrors/fedora/updates/3/i386/
17          /mirrors/fedora/3/i386/os/Fedora/RPMS/          /mirrors/fedora/3/i386/os/Fedora/RPMS/
18          /mirrors/mitel/devel/repo/RPMS/          /builds/rpms/RPMS/i686/
19          /builds/rpms/RPMS/i686/          /builds/rpms/RPMS/i586/
20          /builds/rpms/RPMS/i586/          /builds/rpms/RPMS/i386/
21          /builds/rpms/RPMS/i386/          /builds/rpms/RPMS/noarch/
22          /builds/rpms/RPMS/noarch/          );
         );  
23    
24  opendir RPMS, $build_dir or die "Couldn't opendir $build_dir";  opendir RPMS, $build_dir or die "Couldn't opendir $build_dir";
25  my %rpms = map { my $x = RPM2->open_package("$build_dir/$_", $rpm_flags); $x->tag('NAME') => $x; } grep { /\.rpm$/ } readdir RPMS;  my %rpms = map { my $x = RPM2->open_package("$build_dir/$_", $rpm_flags); $x->tag('NAME') => $x; } grep { /\.rpm$/ } readdir RPMS;
# Line 50  foreach my $rpm ( sort keys %rpms ) Line 49  foreach my $rpm ( sort keys %rpms )
49          }          }
50      }      }
51      @headers = reverse sort { $a cmp $b } @headers;      @headers = reverse sort { $a cmp $b } @headers;
52      if (grep { $_->filename =~ m#/centos.*/updates/# } @headers)      if (grep { $_->filename =~ m#/centos/[\d.]+/updates/# } @headers)
53      {      {
54          @headers = grep { $_->filename !~ m#/centos.*/os/# } @headers;          @headers = grep { $_->filename !~ m#/centos/[\d.]+/os/# } @headers;
55      }      }
56      if (grep { $_->filename =~ m#/centos.*/(updates|os|dag)/# } @headers)      if (grep { $_->filename =~ m#/centos/[\d.]+/(updates|os)/# || $_->filename =~ m#/dag/# } @headers)
57      {      {
58          @headers = grep { $_->filename !~ m#/fedora.*/(updates|os)/# } @headers;          @headers = grep { $_->filename !~ m#/fedora/# } @headers;
59          @headers = grep { $_->filename !~ m#/centos.*/atrpms/# } @headers;          @headers = grep { $_->filename !~ m#/atrpms/# } @headers;
60      }      }
61      if ($#headers < 0)      if ($#headers < 0)
62      {      {
63          print "$rpm\n";          print "$rpm\n";
64          print "  ***** can't find $rpm in any repository *****\n";          print "  ***** can't find $rpm in any repository *****\n";
65      }      }
66      elsif ( $headers[0]->filename !~ m#/centos.*/(updates|os)/#  || $headers[0] ne $rpms{$rpm} )      elsif ( $headers[0]->filename !~ m#/centos/[\d.]+/(updates|os)/#  || $headers[0] ne $rpms{$rpm} )
67      {      {
68          if (grep { $_ ne $rpms{$rpm} } @headers)          if (grep { $_ ne $rpms{$rpm} } @headers)
69          {          {

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