/[smeserver]/builds_bin/update_repos
ViewVC logotype

Diff of /builds_bin/update_repos

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

Revision 1.20 by slords, Sat Nov 3 19:06:19 2007 UTC Revision 1.26 by slords, Thu Nov 8 17:12:31 2007 UTC
# Line 21  $| = 1; Line 21  $| = 1;
21    
22  my @archs = ( 'i386', 'x86_64' );  my @archs = ( 'i386', 'x86_64' );
23    
24  my $repos = { 'smeos'              => { prio => 16, inc => 1, ver => 1, rel => 1, os => 1 },  my $repos = { 'smeos'              => { prio => 17, inc => 1, ver => 1, rel => 1, os => 1 },
25                'smeupdates'         => { prio => 15, inc => 1, ver => 1, rel => 1 },                'smeupdates'         => { prio => 16, inc => 1, ver => 1, rel => 1 },
26                'smeupdates-testing' => { prio => 14, inc => 1, ver => 1, rel => 1 },                'smeupdates-testing' => { prio => 15, inc => 1, ver => 1, rel => 1 },
27                'smeextras'          => { prio => 13, inc => 0, ver => 1, rel => 1 },                'smeextras'          => { prio => 14, inc => 0, ver => 1, rel => 1 },
28                'smeaddons'          => { prio => 12, inc => 0, ver => 1, rel => 1 },                'smeaddons'          => { prio => 13, inc => 0, ver => 1, rel => 1 },
29                'smecontribs'        => { prio => 11, inc => 0, ver => 1, rel => 1 },                'smecontribs'        => { prio => 12, inc => 0, ver => 1, rel => 1 },
30                'smetest'            => { prio => 10, inc => 1, ver => 2, rel => 2, devel => 2 },                'smetest'            => { prio => 11, inc => 1, ver => 2, rel => 2, devel => 2 },
31                'smedev'             => { prio =>  9, inc => 0, ver => 2, rel => 2, devel => 1 },                'smedev'             => { prio => 10, inc => 0, ver => 2, rel => 2, devel => 1 },
32                'centos'             => { prio =>  8, inc => 0, ver => 0, rel => 0, base => 1 },                'centos'             => { prio =>  9, inc => 0, ver => 0, rel => 0, base => 1 },
33                'fedora/epel'        => { prio =>  7, inc => 0, ver => 0, rel => 0, base => 1 },                'fedora/epel'        => { prio =>  8, inc => 0, ver => 0, rel => 0, base => 1 },
34                'fedora/extras'      => { prio =>  6, inc => 0, ver => 0, rel => 0, base => 1 },                'fedora/extras'      => { prio =>  7, inc => 0, ver => 0, rel => 0, base => 1 },
35                'rpmforge'           => { prio =>  5, inc => 0, ver => 0, rel => 0, base => 1 },                'rpmforge'           => { prio =>  6, inc => 0, ver => 0, rel => 0, base => 1 },
36                'atrpms'             => { prio =>  4, inc => 0, ver => 0, rel => 0, base => 1 },                'atrpms'             => { prio =>  5, inc => 0, ver => 0, rel => 0, base => 1 },
37                'fedora/core'        => { prio =>  3, inc => 0, ver => 0, rel => 0, base => 1 },                'fedora/core'        => { prio =>  4, inc => 0, ver => 0, rel => 0, base => 1 },
38                'base'               => { prio =>  2, inc => 0, ver => 0, rel => 0, base => 1 },                'base'               => { prio =>  3, inc => 0, ver => 0, rel => 0, base => 1 },
39                'builds'             => { prio =>  1, inc => 0, ver => 0, rel => 0, builds => 1 },                'builds'             => { prio =>  2, inc => 0, ver => 0, rel => 0, builds => 1 },
40                  'stage'              => { prio =>  1, inc => 0, ver => 0, rel => 0, stage => 1, os => 1 },
41              };              };
42    
43  my $distrepo = { '7' => { active => 1,  my $distrepo = { '7' => { active => 1,
# Line 44  my $distrepo = { '7' => { active => 1, Line 45  my $distrepo = { '7' => { active => 1,
45                            fedora => 3,                            fedora => 3,
46                            repo   => '/releases/7/',                            repo   => '/releases/7/',
47                            os     => 'SME/RPMS/',                            os     => 'SME/RPMS/',
48                            builds => '/builds2/smeserver-7-core/',                            builds => '/builds/smeserver-7-core/',
49                              stage  => '/stage/7/',
50                          },                          },
51                   '8' => { active => 1,                   '8' => { active => 1,
52                            centos => 5,                            centos => 5,
53                            fedora => 6,                            fedora => 6,
54                            repo   => '/releases/testing/8/',                            repo   => '/releases/testing/8/',
55                            os     => 'SME/',                            os     => 'SME/',
56                            builds => '/builds2/smeserver-8-core/',                            builds => '/builds/smeserver-8-core/',
57                              stage  => '/stage/8/',
58                          },                          },
59                 };                 };
60    
# Line 85  $opts{r} ||= ''; Line 88  $opts{r} ||= '';
88    
89  my ($devel1, $devel2) = sort { $repos->{$a}->{devel} <=> $repos->{$b}->{devel} } grep { $repos->{$_}->{devel} } keys %$repos;  my ($devel1, $devel2) = sort { $repos->{$a}->{devel} <=> $repos->{$b}->{devel} } grep { $repos->{$_}->{devel} } keys %$repos;
90  $devel2 ||= $devel1;  $devel2 ||= $devel1;
91    my ($stage) = sort { $repos->{$a}->{stage} <=> $repos->{$b}->{stage} } grep { $repos->{$_}->{stage} } keys %$repos;
92    
93  my ($rel, @rpms, %pkgnames, %sources, $archs, $rebuild, $newline);  my ($rel, @rpms, %latest, %sources, $archs, $rebuild, $newline);
94  foreach my $smever ( sort { $a <=> $b } grep { $distrepo->{$_}->{active} } keys %$distrepo ) {  foreach my $smever ( sort { $a <=> $b } grep { $distrepo->{$_}->{active} } keys %$distrepo ) {
95      $rel = $smever;      $rel = $smever;
96      %pkgnames = ();      %latest = ();
97      %sources = ();      %sources = ();
98      @rpms = ();      @rpms = ();
99      $rebuild = ();      $rebuild = ();
100    
101      # Load distro packages      # Load distro packages
102      find( { wanted => \&loadpkg, no_chdir => 1, follow_fast => 1 }, $distrepo->{$smever}->{repo}, $distrepo->{$smever}->{builds} );      find( { wanted => \&loadpkg, no_chdir => 1, follow_fast => 1 },  map { $distrepo->{$smever}->{$_} } ('repo','builds','stage') );
103      printline('white', 0, "Distro (SME Server $rel) packages loaded.\n");      printline('white', 0, "Distro (SME Server $rel) packages loaded.\n");
104    
105      # Load base packages      # Load base packages
# Line 115  foreach my $smever ( sort { $a <=> $b } Line 119  foreach my $smever ( sort { $a <=> $b }
119      }      }
120      printline('white', 0, 'Base (Centos: ', $distrepo->{$smever}->{centos}, ', Fedora: ', $distrepo->{$smever}->{fedora}, ") packages loaded.\n");      printline('white', 0, 'Base (Centos: ', $distrepo->{$smever}->{centos}, ', Fedora: ', $distrepo->{$smever}->{fedora}, ") packages loaded.\n");
121    
122        %latest = ();
123      foreach my $name ( sort keys %{{ map { $_->{base} => 1 } @rpms }} ) {      foreach my $name ( sort keys %{{ map { $_->{base} => 1 } @rpms }} ) {
124          printline('white', 0, "Processing: $name");          printline('white', 0, "Processing: $name");
125          my @pkgs = sort pkgsrt grep { $_->{base} eq $name } @rpms;          my @pkgs = sort pkgsrt grep { $_->{base} eq $name } @rpms;
# Line 130  foreach my $smever ( sort { $a <=> $b } Line 135  foreach my $smever ( sort { $a <=> $b }
135              # Find names of packages in same or higher repos              # Find names of packages in same or higher repos
136              my %names = names($pkg, @pkgs);              my %names = names($pkg, @pkgs);
137    
138                # Stage packages should never be most current
139                if ( rprop($pkg, 'stage') ) {
140                    printline('dark blue', 1, '    - checking stage') if $opts{d};
141                    tagpkg($pkg, 'obsolete');
142                    next;
143                }
144    
145              # Move packages from base/builds to correct area              # Move packages from base/builds to correct area
146              if ( rprop($pkg, 'base') || rprop($pkg, 'builds') ) {              elsif ( rprop($pkg, 'base') || rprop($pkg, 'builds') ) {
147                  printline('dark blue', 1, '    - checking base/builds') if $opts{d};                  printline('dark blue', 1, '    - checking base/builds') if $opts{d};
148                  my $repo = $names{$pkg->{name}} && $names{$pkg->{name}} > 1 ? $devel2 : $devel1;                  my $repo = $names{$pkg->{name}} && $names{$pkg->{name}} > 1 ? $devel2 : $devel1;
149                  if ( $pkg->{nonbase} ) {                  if ( $pkg->{nonbase} ) {
150                      foreach my $up ( grep { $_->{name} eq $pkg->{name} && $_->{rpm} lt $pkg->{rpm} && $_->{obsolete} } @rpms ) {                      foreach my $up ( @pkgs ) {
151                          next if rprop($up, 'builds') || rprop($up, 'base');                          next if rprop($up, 'builds') || rprop($up, 'base');
152                            next if $up->{name} ne $pkg->{name} || ! $up->{obsolete} || $up->{rpm} ge $pkg->{rpm};
153                          $repo = $up->{repo};                          $repo = $up->{repo};
154                          last;                          last;
155                      }                      }
# Line 167  foreach my $smever ( sort { $a <=> $b } Line 180  foreach my $smever ( sort { $a <=> $b }
180                  if ( $cmp->{rpm}->is_source_package ) {                  if ( $cmp->{rpm}->is_source_package ) {
181                      if ( $cmp->{name} eq $pkg->{base} ) {                      if ( $cmp->{name} eq $pkg->{base} ) {
182                          if ( $cmp->{rpm} eq $pkg->{rpm} ) {                          if ( $cmp->{rpm} eq $pkg->{rpm} ) {
183                              $pkg->{srpm} = $cmp if ! $pkg->{srpm} || $pkg->{srpm}->{rpm} ne $pkg->{rpm} || $pkg->{srpm}->{repo} ne $pkg->{repo};                              if ( $pkg->{repo} eq $cmp->{repo} || ! $pkg->{srpm} || $pkg->{srpm}->{rpm} ne $pkg->{rpm} ) {
184                              tagpkg($cmp, 'inuse', 0) if $pkg->{repo} eq $cmp->{repo} || rprop($cmp, 'base') || rprop($cmp, 'builds');                                  delete $pkg->{srpm}->{latest} if $pkg->{latest} && $pkg->{srpm} && $pkg->{srpm}->{latest};
185                                    $pkg->{srpm} = $cmp;
186                                    $pkg->{srpm}->{latest}++ if $pkg->{latest};
187                                }
188                                if ( $pkg->{latest} && rprop($cmp, 'stage') ) {
189                                    tagpkg($cmp, 'inuse');
190                                    $pkg->{srpm}->{latest}++;
191                                }
192                                if ( $pkg->{repo} eq $cmp->{repo} || rprop($cmp, 'base') || rprop($cmp, 'builds') || ( $cmp->{oldrepo} && $pkg->{repo} eq $cmp->{oldrepo} ) ) {
193                                    tagpkg($cmp, 'inuse')
194                                }
195                          }                          }
196                          next if $pkg->{srpm} && $pkg->{srpm}->{rpm} eq $pkg->{rpm};                          next if $pkg->{srpm} && $pkg->{srpm}->{rpm} eq $pkg->{rpm};
197    
# Line 188  foreach my $smever ( sort { $a <=> $b } Line 211  foreach my $smever ( sort { $a <=> $b }
211                              $src = '';                              $src = '';
212                          }                          }
213                          if ( $src eq $source && ( ! $pkg->{srpm} || $pkg->{srpm}->{rpm} eq $cmp->{rpm} ) ) {                          if ( $src eq $source && ( ! $pkg->{srpm} || $pkg->{srpm}->{rpm} eq $cmp->{rpm} ) ) {
214                              $pkg->{srpm} = $cmp if ! $pkg->{srpm} || ( $pkg->{srpm}->{rpm} eq $pkg->{rpm} && $pkg->{srpm}->{repo} ne $pkg->{repo} );                              if ( ! $pkg->{srpm} || $pkg->{repo} eq $cmp->{repo} ) {
215                              tagpkg($cmp, 'inuse', 0) if $pkg->{repo} eq $cmp->{repo} || rprop($cmp, 'base') || rprop($cmp, 'builds');                                  delete $pkg->{srpm}->{latest} if $pkg->{latest} && $pkg->{srpm} && $pkg->{srpm}->{latest};
216                                    $pkg->{srpm} = $cmp;
217                                    $pkg->{srpm}->{latest}++ if $pkg->{latest};
218                                }
219                                if ( $pkg->{latest} && rprop($cmp, 'stage') ) {
220                                    tagpkg($cmp, 'inuse');
221                                    $pkg->{srpm}->{latest}++;
222                                }
223                                tagpkg($cmp, 'inuse') if $pkg->{repo} eq $cmp->{repo} || rprop($cmp, 'base') || rprop($cmp, 'builds');
224                          }                          }
225                      }                      }
226                  } elsif ( $cmp->{rpm} eq $pkg->{rpm} ) {                  } elsif ( $cmp->{rpm} eq $pkg->{rpm} ) {
# Line 197  foreach my $smever ( sort { $a <=> $b } Line 228  foreach my $smever ( sort { $a <=> $b }
228                          if ( $pkg->{repo} eq $cmp->{repo} ) {                          if ( $pkg->{repo} eq $cmp->{repo} ) {
229                              tagpkg($cmp, 'correct', 1);                              tagpkg($cmp, 'correct', 1);
230                              $seen{$cmp->{nvra}}++;                              $seen{$cmp->{nvra}}++;
231                            } elsif ( $seen{$cmp->{nvra}} && rprop($cmp, 'stage') && $pkg->{latest} ) {
232                                $_->{latest}++ foreach grep { $_->{nvra} eq $cmp->{nvra} && $_->{latest} && $_->{done} } @pkgs;
233                                tagpkg($cmp, 'correct', 1);
234                          } elsif ( $seen{$cmp->{nvra}} ) {                          } elsif ( $seen{$cmp->{nvra}} ) {
235                              $orig++ if rprop($cmp, 'base') || rprop($cmp, 'builds');                              $orig++ if rprop($cmp, 'base') || rprop($cmp, 'builds');
236                              movepkg($cmp, 'delete', 1);                              movepkg($cmp, 'delete', 1);
# Line 205  foreach my $smever ( sort { $a <=> $b } Line 239  foreach my $smever ( sort { $a <=> $b }
239                              $seen{$cmp->{nvra}}++;                              $seen{$cmp->{nvra}}++;
240                          }                          }
241                      } else {                      } else {
242                          tagpkg($cmp, 'nonbase', 0);                          tagpkg($cmp, 'nonbase');
243                      }                      }
244                  } elsif ( rprop($cmp, 'prio') < rprop($pkg, 'prio') ) {                  } elsif ( rprop($cmp, 'prio') < rprop($pkg, 'prio') ) {
245                      tagpkg($cmp, 'obsolete', 0);                      tagpkg($cmp, 'obsolete');
246                  }                  }
247              }              }
248              printline('dark blue', 1, '    - checking source packages') if $opts{d};              printline('dark blue', 1, '    - checking source packages') if $opts{d};
249              if ( ! $pkg->{srpm} ) {              if ( ! $pkg->{srpm} ) {
250                  printline('bold yellow on_red', 1, ' - ', $pkg->{rpm}->filename, ' (missing source ', $pkg->{rpm}->sourcerpm, ')');                  printline('bold yellow on_red', 1, ' - ', $pkg->{rpm}->filename, ' (missing source ', $pkg->{rpm}->sourcerpm, ')');
251              } elsif ( $pkg->{srpm}->{repo} ne $pkg->{repo} ) {              } elsif ( $pkg->{srpm}->{repo} ne $pkg->{repo} && ( ! $pkg->{srpm}->{oldrepo} || $pkg->{srpm}->{oldrepo} ne $pkg->{repo} ) ) {
252                  movepkg($pkg->{srpm}, $pkg->{repo}, 0);                  movepkg($pkg->{srpm}, $pkg->{repo}, 0);
253              }              }
254              unless ( $orig ) {              unless ( $orig ) {
# Line 223  foreach my $smever ( sort { $a <=> $b } Line 257  foreach my $smever ( sort { $a <=> $b }
257                  }                  }
258              }              }
259          }          }
         printline('bold black', 1, ' - obsolete packages') if $opts{d};  
         movepkg($_, 'delete') foreach grep { ! rprop($_, 'base') && ! $_->{done} && ( $_->{obsolete} || ( $_->{rpm}->is_source_package && ! $_->{inuse} ) ) } @pkgs;  
   
260          printline('bold black', 1, ' - arch count check') if $opts{d};          printline('bold black', 1, ' - arch count check') if $opts{d};
261          foreach my $r ( keys %$archs ) {          foreach my $r ( keys %$archs ) {
262              foreach my $p ( keys %{$archs->{$r}} ) {              foreach my $p ( keys %{$archs->{$r}} ) {
# Line 239  foreach my $smever ( sort { $a <=> $b } Line 270  foreach my $smever ( sort { $a <=> $b }
270                  }                  }
271              }              }
272          }          }
273    
274            printline('bold black', 1, ' - missing stage packages') if $opts{d};
275            movepkg($_, $stage, 0) foreach grep { $_->{latest} && $_->{latest} == 1 } @pkgs;
276    
277            printline('bold black', 1, ' - obsolete packages') if $opts{d};
278            movepkg($_, 'delete') foreach grep { ! rprop($_, 'base') && ! $_->{done} && ( $_->{obsolete} || ( $_->{rpm}->is_source_package && ! $_->{inuse} ) ) } @pkgs;
279      }      }
280      printline('white', 0, "Finished processing.\n");      printline('white', 0, "Finished processing.\n");
281    
# Line 252  foreach my $smever ( sort { $a <=> $b } Line 289  foreach my $smever ( sort { $a <=> $b }
289              qx(cat $HOME/.rpmpass | setsid rpm --addsign $src >& /dev/null) if $pkg->{nosig};              qx(cat $HOME/.rpmpass | setsid rpm --addsign $src >& /dev/null) if $pkg->{nosig};
290              if ( $pkg->{repos} ) {              if ( $pkg->{repos} ) {
291                  foreach my $dest ( dest($pkg, @{$pkg->{repos}}) ) {                  foreach my $dest ( dest($pkg, @{$pkg->{repos}}) ) {
292                      qx(cp --preserve=timestamps $src $dest) unless -f $dest;                      qx(cp --preserve=timestamps $src $dest) unless -f "$dest";
293                  }                  }
294                  $repochg{$_}++ foreach @{$pkg->{repos}};                  $repochg{$_}++ foreach @{$pkg->{repos}};
295              }              }
# Line 265  foreach my $smever ( sort { $a <=> $b } Line 302  foreach my $smever ( sort { $a <=> $b }
302          printline('white', 0, "Finished copying/moving.\n");          printline('white', 0, "Finished copying/moving.\n");
303    
304          foreach my $repo ( sort keys %repochg ) {          foreach my $repo ( sort keys %repochg ) {
305              next if ! $repos->{$repo} || $repos->{$repo}->{base} || $repos->{$repo}->{builds};              next if ! $repos->{$repo} || $repos->{$repo}->{base} || $repos->{$repo}->{builds} || $repos->{$repo}->{stage};
306              foreach my $arch ( @archs ) {              foreach my $arch ( @archs ) {
307                  my $dir = $distrepo->{$rel}->{repo} . "$repo/$arch";                  my $dir = $distrepo->{$rel}->{repo} . "$repo/$arch";
308                  $dir = qx(readlink -f $dir);                  $dir = qx(readlink -f $dir);
# Line 285  foreach my $smever ( sort { $a <=> $b } Line 322  foreach my $smever ( sort { $a <=> $b }
322  }  }
323    
324  sub pkgsrt {  sub pkgsrt {
325      return $b->{rpm} cmp $a->{rpm} || rprop($b, 'prio') <=> rprop($a, 'prio') || $a->{arch} cmp $b->{arch} || $a->{name} cmp $b->{name};      return $a->{rpm}->is_source_package <=> $b->{rpm}->is_source_package || $b->{rpm} cmp $a->{rpm} || rprop($b, 'prio') <=> rprop($a, 'prio');
326  }  }
327    
328  sub rprop {  sub rprop {
# Line 308  sub dest { Line 345  sub dest {
345      my ($pkg, @repos) = @_;      my ($pkg, @repos) = @_;
346      my @d = ();      my @d = ();
347      foreach my $repo ( @repos ) {      foreach my $repo ( @repos ) {
348            my $base = $distrepo->{$rel}->{repo} . $repo;
349            $base = $distrepo->{$rel}->{stage} if $repos->{$repo}->{stage};
350          if ( $pkg->{arch} eq 'noarch' ) {          if ( $pkg->{arch} eq 'noarch' ) {
351              push @d, $distrepo->{$rel}->{repo} .              push @d, "$base/i386/" .
                      "$repo/i386/" .  
352                       ( $repos->{$repo}->{os} ? $distrepo->{$rel}->{os} : 'RPMS/' ) .                       ( $repos->{$repo}->{os} ? $distrepo->{$rel}->{os} : 'RPMS/' ) .
353                       basename $pkg->{rpm}->filename;                       basename $pkg->{rpm}->filename;
354              push @d, $distrepo->{$rel}->{repo} .              push @d, "$base/x86_64/" .
                      "$repo/x86_64/" .  
355                       ( $repos->{$repo}->{os} ? $distrepo->{$rel}->{os} : 'RPMS/' ) .                       ( $repos->{$repo}->{os} ? $distrepo->{$rel}->{os} : 'RPMS/' ) .
356                       basename $pkg->{rpm}->filename;                       basename $pkg->{rpm}->filename;
357          } elsif ( $pkg->{arch} =~ m{^(i[356]86)$} ) {          } elsif ( $pkg->{arch} =~ m{^(i[356]86)$} ) {
358              push @d, $distrepo->{$rel}->{repo} .              push @d, "$base/i386/" .
                      "$repo/i386/" .  
359                       ( $repos->{$repo}->{os} ? $distrepo->{$rel}->{os} : 'RPMS/' ) .                       ( $repos->{$repo}->{os} ? $distrepo->{$rel}->{os} : 'RPMS/' ) .
360                       basename $pkg->{rpm}->filename;                       basename $pkg->{rpm}->filename;
361          } elsif ( $pkg->{arch} eq 'x86_64' ) {          } elsif ( $pkg->{arch} eq 'x86_64' ) {
362              push @d, $distrepo->{$rel}->{repo} .              push @d, "$base/x86_64/" .
                      "$repo/x86_64/" .  
363                       ( $repos->{$repo}->{os} ? $distrepo->{$rel}->{os} : 'RPMS/' ) .                       ( $repos->{$repo}->{os} ? $distrepo->{$rel}->{os} : 'RPMS/' ) .
364                       basename $pkg->{rpm}->filename;                       basename $pkg->{rpm}->filename;
365          } elsif ( $pkg->{arch} eq 'zsrc' ) {          } elsif ( $pkg->{arch} eq 'zsrc' ) {
366              push @d, $distrepo->{$rel}->{repo} .              push @d, "$base/SRPMS/" .
                      "$repo/SRPMS/" .  
367                       basename $pkg->{rpm}->filename;                       basename $pkg->{rpm}->filename;
368          } else {          } else {
369              printline('bold yellow on_red', 1, ' - ', $pkg->{rpm}->filename, ' (bad arch: ', $pkg->{arch}, ')');              printline('bold yellow on_red', 1, ' - ', $pkg->{rpm}->filename, ' (bad arch: ', $pkg->{arch}, ')');
# Line 364  sub movepkg { Line 398  sub movepkg {
398    
399  sub tagpkg {  sub tagpkg {
400      my ($pkg, $tag, $done) = @_;      my ($pkg, $tag, $done) = @_;
401        defined $done or $done = 0;
402    
403      printline('bold magenta', 1, "       - ($tag) ", $pkg->{rpm}->filename) if $opts{d};      printline('bold magenta', 1, "       - ($tag) ", $pkg->{rpm}->filename) if $opts{d};
404      delete $pkg->{obsolete} if $pkg->{obsolete};      delete $pkg->{obsolete} if $pkg->{obsolete};
# Line 378  sub done { Line 413  sub done {
413      delete $pkg->{obsolete} if $pkg->{obsolete};      delete $pkg->{obsolete} if $pkg->{obsolete};
414    
415      if ( $repos->{$pkg->{repo}} && ! rprop($pkg, 'base') && ! rprop($pkg, 'builds') ) {      if ( $repos->{$pkg->{repo}} && ! rprop($pkg, 'base') && ! rprop($pkg, 'builds') ) {
416            # FIXME: Nasty hack for comps package
417            if ( $pkg->{name} eq 'comps' ) {
418                if ( ! $latest{$pkg->{name}.'.'.$pkg->{arch}} || $latest{$pkg->{name}.'.'.$pkg->{arch}}->{rpm} eq $pkg->{rpm} ) {
419                    if ( rprop($pkg, 'inc') && ! $pkg->{rpm}->is_source_package ) {
420                        $latest{$pkg->{name}.'.'.$pkg->{arch}} = $pkg if ! $latest{$pkg->{name}.'.'.$pkg->{arch}};
421                        $pkg->{latest}++;
422                    }
423                }
424            } elsif ( ! $latest{$pkg->{name}} || $latest{$pkg->{name}}->{rpm} eq $pkg->{rpm} ) {
425                if ( rprop($pkg, 'inc') && ! $pkg->{rpm}->is_source_package ) {
426                    $latest{$pkg->{name}} = $pkg if ! $latest{$pkg->{name}};
427                    $pkg->{latest}++;
428                }
429            }
430          unless ( $pkg->{oldrepo} ) {          unless ( $pkg->{oldrepo} ) {
431              my $goodarch = 0;              my $goodarch = 0;
432              $goodarch++ if $pkg->{rpm}->filename =~ m{/(i386|x86_64)/.*\.noarch\.rpm$};              $goodarch++ if $pkg->{rpm}->filename =~ m{/(i386|x86_64)/.*\.noarch\.rpm$};
# Line 416  sub loadpkg { Line 465  sub loadpkg {
465      if ($@) { printline('bold yellow on_red', 1, "Corrupt package $_"); return; }      if ($@) { printline('bold yellow on_red', 1, "Corrupt package $_"); return; }
466      eval { my $sig = $pkg->siggpg };      eval { my $sig = $pkg->siggpg };
467      my $nosig = ! $@;      my $nosig = ! $@;
     if ( $nosig && ! -f "$HOME/.rpmpass" ) {  
         printline('bold yellow on_red', 1, ' - ', $pkg->filename, ' (missing signature)');  
         return;  
     }  
468            
469      my ($srcname, $version, $release) = ($pkg->is_source_package ? basename $pkg->filename : $pkg->sourcerpm) =~ m{^([^/]*)-([^-]+)-([^-]+)\.\w+.rpm};      my ($srcname, $version, $release) = ($pkg->is_source_package ? basename $pkg->filename : $pkg->sourcerpm) =~ m{^([^/]*)-([^-]+)-([^-]+)\.\w+.rpm};
470      foreach my $repo ( keys %{$skippkg->{$rel}} ) { return if (dirname $pkg->filename) =~ m{/$repo/} && grep { $_ eq $srcname } @{$skippkg->{$rel}->{$repo}}; }      foreach my $repo ( keys %{$skippkg->{$rel}} ) { return if (dirname $pkg->filename) =~ m{/$repo/} && grep { $_ eq $srcname } @{$skippkg->{$rel}->{$repo}}; }
471      (my $reponame = dirname $pkg->filename) =~ s{^.*\d/(sme[^/]+)/.*$}{$1};      my $reponame = 'unknown';
472      $reponame = 'builds' if ( dirname $pkg->filename) =~ m{/smeserver-\d+-core/};      if ( substr($_, 0, length($distrepo->{$rel}->{builds})) eq $distrepo->{$rel}->{builds} ) {
473            $reponame = 'builds';
474        } elsif ( substr($_, 0, length($distrepo->{$rel}->{stage})) eq $distrepo->{$rel}->{stage} ) {
475            $reponame = 'stage';
476        } elsif ( (dirname $pkg->filename) =~ m{\d/(sme[^/]+)/} ) {
477            $reponame = $1;
478        }
479        if ( $nosig && ( ! -f "$HOME/.rpmpass" || $reponame eq 'builds' ) ) {
480            printline('bold yellow on_red', 1, ' - ', $pkg->filename, ' (missing signature)');
481            return;
482        }
483      push @rpms, { base    => $srcname,      push @rpms, { base    => $srcname,
484                    name    => $pkg->name,                    name    => $pkg->name,
485                    repo    => $reponame,                    repo    => $reponame,
486                    nvra    => $pkg->as_nvre . '.' . ( $pkg->is_source_package ? 'src' : $pkg->tag('ARCH') ),                    nvra    => $pkg->name.'-'.$pkg->version.'-'.$pkg->release.'.'.( $pkg->is_source_package ? 'src' : $pkg->tag('ARCH') ),
487                    arch    => $pkg->is_source_package ? 'zsrc' : $pkg->tag('ARCH'),                    arch    => $pkg->is_source_package ? 'zsrc' : $pkg->tag('ARCH'),
488                    version => $version,                    version => $version,
489                    release => $release,                    release => $release,
# Line 437  sub loadpkg { Line 491  sub loadpkg {
491                    nosig   => $nosig,                    nosig   => $nosig,
492                  };                  };
493      $sources{$srcname}++;      $sources{$srcname}++;
494      $pkgnames{$pkg->name} = $rpms[$#rpms] if ! $pkg->is_source_package && ( ! $pkgnames{$pkg->name} || $pkg gt $pkgnames{$pkg->name}->{rpm} );      if ( ! $pkg->is_source_package && ! $repos->{$reponame}->{stage} ) {
495            $latest{$pkg->name} = $rpms[$#rpms] if ! $latest{$pkg->name} || $pkg gt $latest{$pkg->name}->{rpm};
496        }
497  }  }
498    
499  sub loadbase {  sub loadbase {
500      printline('white', 0, "Loading: $_") if -d _;      printline('white', 0, "Loading: $_") if -d _;
501      return unless m{/([^/]*)-[^-]+-[^-]+\.\w+.rpm} && ($pkgnames{$1} || $sources{$1});      return unless m{/([^/]*)-[^-]+-[^-]+\.\w+.rpm} && ($latest{$1} || $sources{$1});
502    
503      my $pkg;      my $pkg;
504      eval { $pkg = RPM2->open_package($_, $rpm_flags); };      eval { $pkg = RPM2->open_package($_, $rpm_flags); };
# Line 450  sub loadbase { Line 506  sub loadbase {
506      eval { my $sig = $pkg->siggpg };      eval { my $sig = $pkg->siggpg };
507      unless ($@) { printline('bold yellow on_red', 1, ' - ', $pkg->filename, ' (missing signature)'); return; }      unless ($@) { printline('bold yellow on_red', 1, ' - ', $pkg->filename, ' (missing signature)'); return; }
508    
509      my $cmp = $pkgnames{$pkg->name};      my $cmp = $latest{$pkg->name};
510      my ($srcname, $version, $release) = ($pkg->is_source_package ? basename $pkg->filename : $pkg->sourcerpm) =~ m{^([^/]*)-([^-]+)-([^-]+)\.\w+.rpm};      my ($srcname, $version, $release) = ($pkg->is_source_package ? basename $pkg->filename : $pkg->sourcerpm) =~ m{^([^/]*)-([^-]+)-([^-]+)\.\w+.rpm};
511      my $pkgrepo = 'base';      my $pkgrepo = 'base';
512      foreach my $repo ( keys %{$skippkg->{$rel}} ) {      foreach my $repo ( keys %{$skippkg->{$rel}} ) {
# Line 458  sub loadbase { Line 514  sub loadbase {
514              return if grep { $_ eq $srcname } @{$skippkg->{$rel}->{$repo}};              return if grep { $_ eq $srcname } @{$skippkg->{$rel}->{$repo}};
515              $pkgrepo = $repo;              $pkgrepo = $repo;
516              return unless $pkg->is_source_package || $cmp;              return unless $pkg->is_source_package || $cmp;
517              return if ! $pkg->is_source_package && $pkg gt $cmp->{rpm} && rprop($cmp, 'base') && rprop($cmp, 'prio') > $repos->{$pkgrepo}->{prio};              return if ! $pkg->is_source_package && $pkg ge $cmp->{rpm} && rprop($cmp, 'base') && rprop($cmp, 'prio') > $repos->{$pkgrepo}->{prio};
518              last;              last;
519          }          }
520      }      }
# Line 466  sub loadbase { Line 522  sub loadbase {
522      push @rpms, { base    => $srcname,      push @rpms, { base    => $srcname,
523                    name    => $pkg->name,                    name    => $pkg->name,
524                    repo    => $pkgrepo,                    repo    => $pkgrepo,
525                    nvra    => $pkg->as_nvre . '.' . ( $pkg->is_source_package ? 'src' : $pkg->tag('ARCH') ),                    nvra    => $pkg->name.'-'.$pkg->version.'-'.$pkg->release.'.'.( $pkg->is_source_package ? 'src' : $pkg->tag('ARCH') ),
526                    arch    => $pkg->is_source_package ? 'zsrc' : $pkg->tag('ARCH'),                    arch    => $pkg->is_source_package ? 'zsrc' : $pkg->tag('ARCH'),
527                    version => $version,                    version => $version,
528                    release => $release,                    release => $release,
# Line 474  sub loadbase { Line 530  sub loadbase {
530                    nosig   => 0,                    nosig   => 0,
531                  };                  };
532      if ( ! $pkg->is_source_package && $pkg ge $cmp->{rpm} && ( $repos->{$pkgrepo}->{prio} >= rprop($cmp, 'prio') || ! rprop($cmp, 'base') ) ) {      if ( ! $pkg->is_source_package && $pkg ge $cmp->{rpm} && ( $repos->{$pkgrepo}->{prio} >= rprop($cmp, 'prio') || ! rprop($cmp, 'base') ) ) {
533          $pkgnames{$pkg->name} = $rpms[$#rpms];          $latest{$pkg->name} = $rpms[$#rpms];
534      }      }
535  }  }
536    


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