/[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.76 by slords, Fri Oct 10 14:07:52 2014 UTC Revision 1.78 by slords, Sat Oct 11 16:43:16 2014 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}});
133        if ( grep $_ eq 'i386', @{$distrepo->{$ver}->{archs}} ) {
134            push @{$distrepo->{$ver}->{all_archs}}, ('i586', 'i686');
135        }
136    
137      foreach my $dir  ( sort { $repos->{$baserepo->{$b}}->{prio} <=> $repos->{$baserepo->{$a}}->{prio} || $a cmp $b } keys %$baserepo ) {      foreach my $dir  ( sort { $repos->{$baserepo->{$b}}->{prio} <=> $repos->{$baserepo->{$a}}->{prio} || $a cmp $b } keys %$baserepo ) {
138          my $bdir = $dir;          my $bdir = $dir;
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 162  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 295  foreach my $ver ( sort { $a <=> $b } key Line 300  foreach my $ver ( sort { $a <=> $b } key
300                          }                          }
301                      } elsif ( $repos->{$cmp->{repo}}->{stage} ) {                      } elsif ( $repos->{$cmp->{repo}}->{stage} ) {
302                          $cmp->{delete}++;                          $cmp->{delete}++;
303                      } else {                      } elsif ( $cmp->{src} || grep $_ eq $cmp->{rpm}->arch, @{$distrepo->{$ver}->{all_archs}} ) {
304                          $srpm = $cmp if ! $srpm && $cmp->{src};                          $srpm = $cmp if ! $srpm && $cmp->{src};
305                          my $dest = $repos->{$track{repo}}->{prio} > $repos->{$devel2}->{prio} ? $track{repo} : $devel2;                          my $dest = $repos->{$track{repo}}->{prio} > $repos->{$devel2}->{prio} ? $track{repo} : $devel2;
306                          $dest = pkgdest($cmp, $devel1, $dest, $rpms->{$base}->{rpms});                          $dest = pkgdest($cmp, $devel1, $dest, $rpms->{$base}->{rpms});
# Line 389  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 447  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 491  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 ) {

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