/[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.4 by slords, Mon Apr 30 03:23:48 2007 UTC Revision 1.8 by slords, Sat May 12 16:43:49 2007 UTC
# Line 19  my $stagedir = '/builds'; Line 19  my $stagedir = '/builds';
19    
20  my @repos = (  my @repos = (
21                "$releasedir/$smerel/smeos/$arch/CentOS/RPMS",                "$releasedir/$smerel/smeos/$arch/CentOS/RPMS",
22                  "$releasedir/$smerel/smeos/$arch/SME/RPMS",
23                  "$releasedir/$smerel/smeos/$arch/RPMS",
24                  "$releasedir/$smerel/smeos/$arch/SME",
25                "$releasedir/$smerel/smeupdates/$arch/RPMS",                "$releasedir/$smerel/smeupdates/$arch/RPMS",
26                "$releasedir/$smerel/smeupdates-testing/$arch/RPMS",                "$releasedir/$smerel/smeupdates-testing/$arch/RPMS",
27                "$releasedir/$smerel/smeextras/$arch/RPMS",                "$releasedir/$smerel/smeextras/$arch/RPMS",
# Line 124  foreach my $pkg ( keys %repohash ) { Line 127  foreach my $pkg ( keys %repohash ) {
127                                          @{$repohash{$pkg}{$pos}} = grep { $_ gt $repohash{$pkg}{latest} } @{$repohash{$pkg}{$pos}};                                          @{$repohash{$pkg}{$pos}} = grep { $_ gt $repohash{$pkg}{latest} } @{$repohash{$pkg}{$pos}};
128                                          delete $repohash{$pkg}{$pos};                                          delete $repohash{$pkg}{$pos};
129                                  }                                  }
130                          } else {                          } elsif ( ref($repohash{$pkg}{$pos}) eq 'ARRAY' ) {
131                                  my ($latest, @rest) = sort { $b cmp $a } @{$repohash{$pkg}{$pos}};                                  my ($latest, @rest) = sort { $b cmp $a } @{$repohash{$pkg}{$pos}};
132                                  delete $repohash{$pkg}{$pos};                                  delete $repohash{$pkg}{$pos};
133                                  if ( $repohash{$pkg}{latest} && $repohash{$pkg}{latest} ge $latest ) {                                  if ( $repohash{$pkg}{latest} && $repohash{$pkg}{latest} ge $latest ) {
# Line 190  foreach my $repo ( sort keys %srcrepohas Line 193  foreach my $repo ( sort keys %srcrepohas
193                          push @sources, $src if ($src =~ s/\.el\d\.at\./\.at\./);                          push @sources, $src if ($src =~ s/\.el\d\.at\./\.at\./);
194                          push @sources, $src if ($src =~ s/\.fc\d\.at\./\.at\./);                          push @sources, $src if ($src =~ s/\.fc\d\.at\./\.at\./);
195                          push @sources, $src if ($src =~ s/\.rf\./\.dag\./);                          push @sources, $src if ($src =~ s/\.rf\./\.dag\./);
196                            push @sources, $src if ($src =~ s/\.0\.el\d+\./\.at\./);
197                            push @sources, $src if ($src =~ s/\.el\d+\./\.at\./);
198    
199    
200                          my $found = 0;                          my $found = 0;
201                          foreach my $source ( @sources ) {                          foreach my $source ( @sources ) {
# Line 237  print "\n"; Line 243  print "\n";
243  foreach my $repo ( sort keys %changed ) {  foreach my $repo ( sort keys %changed ) {
244          next if $repo =~ m{^$stagedir};          next if $repo =~ m{^$stagedir};
245    
246          print "rebuilding $repo/$arch...\n";          my $dir=`readlink -f $repo/$arch`;
247          system(qw(createrepo), "$repo/$arch");          chomp $dir;
248          system(qw(repoview), "$repo/$arch");          print "rebuilding $dir...\n";
249            system(qw(createrepo), "$dir");
250            system(qw(repoview), "$dir");
251  }  }
252    

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