/[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.24 by slords, Wed Nov 7 19:31:20 2007 UTC Revision 1.25 by slords, Wed Nov 7 21:14:58 2007 UTC
# Line 137  foreach my $smever ( sort { $a <=> $b } Line 137  foreach my $smever ( sort { $a <=> $b }
137    
138              # Stage packages should never be most current              # Stage packages should never be most current
139              if ( rprop($pkg, 'stage') ) {              if ( rprop($pkg, 'stage') ) {
140                    printline('dark blue', 1, '    - checking stage') if $opts{d};
141                  tagpkg($pkg, 'obsolete');                  tagpkg($pkg, 'obsolete');
142                  next;                  next;
143              }              }
# Line 254  foreach my $smever ( sort { $a <=> $b } Line 255  foreach my $smever ( sort { $a <=> $b }
255                  }                  }
256              }              }
257          }          }
         printline('bold black', 1, ' - missing stage packages') if $opts{d};  
         movepkg($_, $stage, 0) foreach grep { $_->{latest} && $_->{latest} == 1 } @pkgs;  
   
         printline('bold black', 1, ' - obsolete packages') if $opts{d};  
         movepkg($_, 'delete') foreach grep { ! rprop($_, 'base') && ! $_->{done} && ( $_->{obsolete} || ( $_->{rpm}->is_source_package && ! $_->{inuse} ) ) } @pkgs;  
   
258          printline('bold black', 1, ' - arch count check') if $opts{d};          printline('bold black', 1, ' - arch count check') if $opts{d};
259          foreach my $r ( keys %$archs ) {          foreach my $r ( keys %$archs ) {
260              foreach my $p ( keys %{$archs->{$r}} ) {              foreach my $p ( keys %{$archs->{$r}} ) {
# Line 273  foreach my $smever ( sort { $a <=> $b } Line 268  foreach my $smever ( sort { $a <=> $b }
268                  }                  }
269              }              }
270          }          }
271    
272            printline('bold black', 1, ' - missing stage packages') if $opts{d};
273            movepkg($_, $stage, 0) foreach grep { $_->{latest} && $_->{latest} == 1 } @pkgs;
274    
275            printline('bold black', 1, ' - obsolete packages') if $opts{d};
276            movepkg($_, 'delete') foreach grep { ! rprop($_, 'base') && ! $_->{done} && ( $_->{obsolete} || ( $_->{rpm}->is_source_package && ! $_->{inuse} ) ) } @pkgs;
277      }      }
278      printline('white', 0, "Finished processing.\n");      printline('white', 0, "Finished processing.\n");
279    

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