/[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.78 by slords, Sat Oct 11 16:43:16 2014 UTC Revision 1.79 by unnilennium, Sat Mar 5 15:57:15 2016 UTC
# Line 129  foreach my $ver ( sort { $a <=> $b } key Line 129  foreach my $ver ( sort { $a <=> $b } key
129      %sources = ();      %sources = ();
130      %base = ();      %base = ();
131    
132      @{$distrepo->{$ver}->{all_archs}} = ('noarch', @{$distrepo->{$ver}->{archs}});      @{$distrepo->{$ver}->{all_archs}} = ('noarch', @{$distrepo->{$ver}->{'archs'}});
133      if ( grep $_ eq 'i386', @{$distrepo->{$ver}->{archs}} ) {      if ( grep $_ eq 'i386', @{$distrepo->{$ver}->{'archs'}} ) {
134          push @{$distrepo->{$ver}->{all_archs}}, ('i586', 'i686');          push @{$distrepo->{$ver}->{all_archs}}, ('i586', 'i686');
135      }      }
136    
# Line 139  foreach my $ver ( sort { $a <=> $b } key Line 139  foreach my $ver ( sort { $a <=> $b } key
139          $bdir =~ s/~S/$distrepo->{$ver}->{repo}/;          $bdir =~ s/~S/$distrepo->{$ver}->{repo}/;
140          $bdir =~ s/~s/$ver/;          $bdir =~ s/~s/$ver/;
141          $bdir =~ s/~C/$distrepo->{$ver}->{centos}/;          $bdir =~ s/~C/$distrepo->{$ver}->{centos}/;
142          for my $arch ( @{$distrepo->{$ver}->{archs}}, 'SRPMS/' ) {          for my $arch ( @{$distrepo->{$ver}->{'archs'}}, 'SRPMS/' ) {
143              my $adir = $bdir;              my $adir = $bdir;
144              if ( $arch eq 'SRPMS/' ) {              if ( $arch eq 'SRPMS/' ) {
145                  $adir =~ s/~A.*//;                  $adir =~ s/~A.*//;
# Line 167  foreach my $ver ( sort { $a <=> $b } key Line 167  foreach my $ver ( sort { $a <=> $b } key
167              last unless $dir =~ m{~A};              last unless $dir =~ m{~A};
168          }          }
169      }      }
170      find( { wanted => sub { process_rpm($_, $ver, 'builds'); }, no_chdir => 1, follow_fast => 1 }, "$_" ) foreach @{$distrepo->{$ver}->{builds}};      find( { wanted => sub { process_rpm($_, $ver, 'builds'); }, no_chdir => 1, follow_fast => 1 }, "$_" ) foreach @{$distrepo->{$ver}->{'builds'}};
171      find( { wanted => sub { process_rpm($_, $ver, 'community'); }, no_chdir => 1, follow_fast => 1 }, $distrepo->{$ver}->{community} ) if $distrepo->{$ver}->{community};      find( { wanted => sub { process_rpm($_, $ver, 'community'); }, no_chdir => 1, follow_fast => 1 }, $distrepo->{$ver}->{'community'} ) if $distrepo->{$ver}->{'community'};
172    
173      foreach my $base ( sort keys %$rpms ) {      foreach my $base ( sort keys %$rpms ) {
174          next unless $rpms->{$base}->{rpms};          next unless $rpms->{$base}->{rpms};
# Line 394  foreach my $ver ( sort { $a <=> $b } key Line 394  foreach my $ver ( sort { $a <=> $b } key
394                  foreach my $a ( keys %{$acnt->{$r}->{$p}} ) {                  foreach my $a ( keys %{$acnt->{$r}->{$p}} ) {
395                      if ( $a eq 'noarch' ) {                      if ( $a eq 'noarch' ) {
396                          my $p2 = ${$acnt->{$r}->{$p}->{$a}}[0];                          my $p2 = ${$acnt->{$r}->{$p}->{$a}}[0];
397                          if ( ! $p2->{repos} && scalar @{$acnt->{$r}->{$p}->{$a}} != scalar @{$distrepo->{$ver}->{archs}} ) {                          if ( ! $p2->{repos} && scalar @{$acnt->{$r}->{$p}->{$a}} != scalar @{$distrepo->{$ver}->{'archs'}} ) {
398                              $p2->{oldrepo} = $p2->{repo};                              $p2->{oldrepo} = $p2->{repo};
399                              push @{$p2->{repos}}, $p2->{repo};                              push @{$p2->{repos}}, $p2->{repo};
400                          }                          }
# Line 452  foreach my $ver ( sort { $a <=> $b } key Line 452  foreach my $ver ( sort { $a <=> $b } key
452                      if ( $pkg->{src} ) {                      if ( $pkg->{src} ) {
453                          push @d, "${head}SRPMS/" . basename($pkg->{rpm}->filename);                          push @d, "${head}SRPMS/" . basename($pkg->{rpm}->filename);
454                      } elsif ( $pkg->{rpm}->arch eq 'noarch' ) {                      } elsif ( $pkg->{rpm}->arch eq 'noarch' ) {
455                          push @d, map { "${head}$_/$tail" . basename($pkg->{rpm}->filename) } @{$distrepo->{$ver}->{archs}};                          push @d, map { "${head}$_/$tail" . basename($pkg->{rpm}->filename) } @{$distrepo->{$ver}->{'archs'}};
456                      } elsif ( $pkg->{rpm}->arch =~ m{^(i[356]86)$} ) {                      } elsif ( $pkg->{rpm}->arch =~ m{^(i[356]86)$} ) {
457                          push @d, "${head}i386/$tail" . basename($pkg->{rpm}->filename);                          push @d, "${head}i386/$tail" . basename($pkg->{rpm}->filename);
458                      } else {                      } else {
# Line 496  foreach my $ver ( sort { $a <=> $b } key Line 496  foreach my $ver ( sort { $a <=> $b } key
496      }      }
497      foreach my $repo ( sort { $repos->{$b}->{prio} <=> $repos->{$a}->{prio} } keys %repochg ) {      foreach my $repo ( sort { $repos->{$b}->{prio} <=> $repos->{$a}->{prio} } keys %repochg ) {
498          next if $repos->{$repo}->{orig} || $repos->{$repo}->{stage};          next if $repos->{$repo}->{orig} || $repos->{$repo}->{stage};
499          foreach my $arch ( @{$distrepo->{$ver}->{archs}} ) {          foreach my $arch ( @{$distrepo->{$ver}->{'archs'}} ) {
500              my $dir = $distrepo->{$ver}->{repo} . "$repo/$arch";              my $dir = $distrepo->{$ver}->{repo} . "$repo/$arch";
501              $dir = qx(readlink -f $dir);              $dir = qx(readlink -f $dir);
502              if ( $dir ) {              if ( $dir ) {
# Line 527  foreach my $ver ( sort { $a <=> $b } key Line 527  foreach my $ver ( sort { $a <=> $b } key
527          }          }
528      }      }
529      unless ( $opts{t} ) {      unless ( $opts{t} ) {
530          foreach (@{$distrepo->{$ver}->{builds}})          foreach (@{$distrepo->{$ver}->{'builds'}})
531          {          {
532              finddepth(sub{rmdir}, "$_") if -d "$_";              finddepth(sub{rmdir}, "$_") if -d "$_";
533          }          }
534          finddepth(sub{rmdir}, $distrepo->{$ver}->{community}) if -d "$distrepo->{$ver}->{community}";          finddepth(sub{rmdir}, $distrepo->{$ver}->{'community'}) if -d "$distrepo->{$ver}->{'community'}";
535      }      }
536  }  }
537    

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