/[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.11 by slords, Sun Jun 3 04:13:57 2007 UTC Revision 1.13 by slords, Mon Jun 4 16:39:15 2007 UTC
# Line 43  my @srcrepos = ( Line 43  my @srcrepos = (
43                   "/mirrors/centos/$centosrel/extras/SRPMS",                   "/mirrors/centos/$centosrel/extras/SRPMS",
44                   "/mirrors/rpmforge/dag/source",                   "/mirrors/rpmforge/dag/source",
45                   "/mirrors/atrpms/src/el$centosrel-$arch/atrpms/stable",                   "/mirrors/atrpms/src/el$centosrel-$arch/atrpms/stable",
46                     "/mirrors/atrpms/src/el$centosrel-$arch/atrpms/testing",
47                   "/mirrors/fedora/epel/$centosrel/SRPMS",                   "/mirrors/fedora/epel/$centosrel/SRPMS",
48                   "/mirrors/fedora/core/updates/$fedorarel/SRPMS",                   "/mirrors/fedora/core/updates/$fedorarel/SRPMS",
49                   "/mirrors/fedora/core/$fedorarel/source/SRPMS",                   "/mirrors/fedora/core/$fedorarel/source/SRPMS",
# Line 200  foreach my $repo ( keys %srpms ) { Line 201  foreach my $repo ( keys %srpms ) {
201    
202  print "\n";  print "\n";
203  foreach my $repo ( sort keys %copy ) {  foreach my $repo ( sort keys %copy ) {
204          foreach my $rpm ( @{$copy{$repo}} ) {          foreach my $rpm ( keys %{{ map { $_ => 1 } @{$copy{$repo}} }} ) {
205                  print "copying $rpm to $repo/\n";                  print "copying $rpm to $repo/\n";
206                  system(qw(cp --preserve=timestamps), $rpm, "$repo/");                  system(qw(cp --preserve=timestamps), $rpm, "$repo/");
207          }          }
208  }  }
209    
210  print "\n";  print "\n";
211  foreach my $rpm ( @remove, map { $_->{rpm}->filename } grep { $_->{repo} eq 'deleted' } @rpms ) {  foreach my $rpm ( keys %{{ map { $_ => 1 } (@remove, map { $_->{rpm}->filename } grep { $_->{repo} eq 'deleted' } @rpms) }} ) {
212          print "removing $rpm\n";          print "removing $rpm\n";
213          unlink $rpm;          unlink $rpm;
214  }  }

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