/[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.81 by unnilennium, Sat Mar 5 16:35:21 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'}});
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}/;
# Line 157  foreach my $ver ( sort { $a <=> $b } key Line 162  foreach my $ver ( sort { $a <=> $b } key
162              }              }
163              next unless -d $adir;              next unless -d $adir;
164              opendir DIR, $adir or next;              opendir DIR, $adir or next;
165              process_rpm("$adir$_", $ver, $baserepo->{$dir}) foreach readdir DIR;              my @txt = grep {  /\.rpm$/ && -f "$adir/$_" }  readdir DIR;
166              closedir DIR;              closedir DIR;
167                if (scalar(@txt)) {
168                   opendir DIR, $adir or next;
169                   process_rpm("$adir$_", $ver, $baserepo->{$dir})  foreach readdir DIR;
170                   closedir DIR;
171                } elsif ($baserepo->{$dir} eq 'epel') {
172                   # EPEL 7  uses a structure with subfolders of first letter of package
173                   find( { wanted => sub { process_rpm($_, $ver, $baserepo->{$dir}) if ($_ =~ m/\.rpm$/);}, no_chdir => 1, follow_fast => 1 }, $adir );
174                }
175              last unless $dir =~ m{~A};              last unless $dir =~ m{~A};
176          }          }
177      }      }
# Line 295  foreach my $ver ( sort { $a <=> $b } key Line 308  foreach my $ver ( sort { $a <=> $b } key
308                          }                          }
309                      } elsif ( $repos->{$cmp->{repo}}->{stage} ) {                      } elsif ( $repos->{$cmp->{repo}}->{stage} ) {
310                          $cmp->{delete}++;                          $cmp->{delete}++;
311                      } else {                      } elsif ( $cmp->{src} || grep $_ eq $cmp->{rpm}->arch, @{$distrepo->{$ver}->{all_archs}} ) {
312                          $srpm = $cmp if ! $srpm && $cmp->{src};                          $srpm = $cmp if ! $srpm && $cmp->{src};
313                          my $dest = $repos->{$track{repo}}->{prio} > $repos->{$devel2}->{prio} ? $track{repo} : $devel2;                          my $dest = $repos->{$track{repo}}->{prio} > $repos->{$devel2}->{prio} ? $track{repo} : $devel2;
314                          $dest = pkgdest($cmp, $devel1, $dest, $rpms->{$base}->{rpms});                          $dest = pkgdest($cmp, $devel1, $dest, $rpms->{$base}->{rpms});
# Line 448  foreach my $ver ( sort { $a <=> $b } key Line 461  foreach my $ver ( sort { $a <=> $b } key
461                          push @d, "${head}SRPMS/" . basename($pkg->{rpm}->filename);                          push @d, "${head}SRPMS/" . basename($pkg->{rpm}->filename);
462                      } elsif ( $pkg->{rpm}->arch eq 'noarch' ) {                      } elsif ( $pkg->{rpm}->arch eq 'noarch' ) {
463                          push @d, map { "${head}$_/$tail" . basename($pkg->{rpm}->filename) } @{$distrepo->{$ver}->{'archs'}};                          push @d, map { "${head}$_/$tail" . basename($pkg->{rpm}->filename) } @{$distrepo->{$ver}->{'archs'}};
464                        } elsif ($ver>=10 && $pkg->{rpm}->arch =~ m{^(i[356]86)$}  && $pkg->{arch} =~ m{^(x86_64)$}  ) {
465                           #add copy of i686 packages in x86_64 folder for SME>=10
466                           push @d, map { "${head}$_/$tail" . basename($pkg->{rpm}->filename) } @{$distrepo->{$ver}->{'archs'}};
467                      } elsif ( $pkg->{rpm}->arch =~ m{^(i[356]86)$} ) {                      } elsif ( $pkg->{rpm}->arch =~ m{^(i[356]86)$} ) {
468                          push @d, "${head}i386/$tail" . basename($pkg->{rpm}->filename);                          push @d, "${head}i386/$tail" . basename($pkg->{rpm}->filename);
469                      } else {                      } else {
# Line 522  foreach my $ver ( sort { $a <=> $b } key Line 538  foreach my $ver ( sort { $a <=> $b } key
538          }          }
539      }      }
540      unless ( $opts{t} ) {      unless ( $opts{t} ) {
541          foreach (@{$distrepo->{$ver}->{builds}})          foreach (@{$distrepo->{$ver}->{'builds'}})
542          {          {
543              finddepth(sub{rmdir}, "$_") if -d "$_";              finddepth(sub{rmdir}, "$_") if -d "$_";
544          }          }
545          finddepth(sub{rmdir}, $distrepo->{$ver}->{community}) if -d "$distrepo->{$ver}->{community}";          finddepth(sub{rmdir}, $distrepo->{$ver}->{'community'}) if -d "$distrepo->{$ver}->{'community'}";
546      }      }
547  }  }
548    

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