/[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.42 by slords, Thu Mar 27 22:37:18 2008 UTC Revision 1.48 by slords, Mon Sep 8 18:04:13 2008 UTC
# Line 95  if ( $opts{q} ) { Line 95  if ( $opts{q} ) {
95  }  }
96    
97  my $skippkg = { '7' => { 'centos'        => { map { $_ => 1 } ( 'horde', 'imp-h3', 'ingo-h3', 'turba-h3', 'vim' ) },  my $skippkg = { '7' => { 'centos'        => { map { $_ => 1 } ( 'horde', 'imp-h3', 'ingo-h3', 'turba-h3', 'vim' ) },
98                           'epel'          => { map { $_ => 1 } ( 'clamav', 'perl-Razor-Agent', 'perl-Text-Iconv', 'proftpd' ) },                           'epel'          => { map { $_ => 1 } ( 'clamav', 'fping', 'perl-Crypt-OpenSSL-Bignum', 'perl-Crypt-OpenSSL-Random', 'perl-Crypt-OpenSSL-RSA', 'perl-Razor-Agent', 'perl-Text-Iconv', 'proftpd' ) },
99                             'fedora-extras' => { map { $_ => 1 } ( 'pam_abl', 'perl-Error', 'perl-HTML-Format', 'perl-MIME-Types', 'perl-Net-IP', 'perl-Razor-Agent', 'perl-Test-Inline', 'perl-Text-Autoformat', 'perl-Text-Iconv', 'perl-Text-Reform' ) },
100                           'rpmforge'      => { map { $_ => 1 } ( 'perl-Test-Inline' ) },                           'rpmforge'      => { map { $_ => 1 } ( 'perl-Test-Inline' ) },
101                           'atrpms'        => { map { $_ => 1 } ( 'check4updates', 'dovecot', 'trac', 'yum' ) },                           'atrpms'        => { map { $_ => 1 } ( 'check4updates', 'dovecot', 'trac', 'yum' ) },
102                         },                         },
103                  '8' => { 'centos'        => { map { $_ => 1 } ( 'horde', 'imp-h3', 'ingo-h3', 'turba-h3' ) },                  '8' => { 'centos'        => { map { $_ => 1 } ( 'horde', 'imp-h3', 'ingo-h3', 'turba-h3' ) },
104                           'fedora'        => { map { $_ => 1 } ( 'kernel-xen' ) },                           'fedora'        => { map { $_ => 1 } ( 'kernel', 'kernel-xen' ) },
105                           'epel'          => { map { $_ => 1 } ( 'clamav', 'perl-Razor-Agent', 'proftpd', 'smolt' ) },                           'epel'          => { map { $_ => 1 } ( 'clamav', 'horde', 'perl-Crypt-OpenSSL-Bignum', 'perl-Crypt-OpenSSL-Random', 'perl-Crypt-OpenSSL-RSA', 'perl-Razor-Agent', 'proftpd', 'smolt' ) },
106                           'fedora-extras' => { map { $_ => 1 } ( 'dstat', 'gocr', 'horde', 'oidentd', 'perl-Test-Inline', 'perl-Razor-Agent', 'smolt' ) },                           'fedora-extras' => { map { $_ => 1 } ( 'dstat', 'gocr', 'horde', 'oidentd', 'perl-Crypt-OpenSSL-Bignum', 'perl-Crypt-OpenSSL-Random', 'perl-Crypt-OpenSSL-RSA', 'perl-Test-Inline', 'perl-Razor-Agent', 'smolt' ) },
107                           'rpmforge'      => { map { $_ => 1 } ( 'perl-Test-Inline' ) },                           'rpmforge'      => { map { $_ => 1 } ( 'perl-Test-Inline' ) },
108                         },                         },
109                };                };
# Line 210  foreach my $smever ( sort { $a <=> $b } Line 211  foreach my $smever ( sort { $a <=> $b }
211                                  $orig{$cmp->{nvra}}++;                                  $orig{$cmp->{nvra}}++;
212                                  unless ( $repos->{$cmp->{repo}}->{base} ) {                                  unless ( $repos->{$cmp->{repo}}->{base} ) {
213                                      my $tag = sprintf '%s%s/%s-%s', $distrepo->{$smever}->{$cmp->{repo}}, $cmp->{name}, $cmp->{ver}, $cmp->{rel};                                      my $tag = sprintf '%s%s/%s-%s', $distrepo->{$smever}->{$cmp->{repo}}, $cmp->{name}, $cmp->{ver}, $cmp->{rel};
214                                      qx(touch $tag/PUSHED) if -d $tag && ! -f "$tag/PUSHED";                                      qx(touch $tag/PUSHED) if ! $opts{t} && -d $tag && ! -f "$tag/PUSHED";
215                                  }                                  }
216                              } elsif ( $cmp->{src} && $reposrc{$cmp->{repo}} ) {                              } elsif ( $cmp->{src} && $reposrc{$cmp->{repo}} ) {
217                                  $reposrc{$cmp->{repo}}->{srpm} = $cmp;                                  $reposrc{$cmp->{repo}}->{srpm} = $cmp;
# Line 231  foreach my $smever ( sort { $a <=> $b } Line 232  foreach my $smever ( sort { $a <=> $b }
232                                  $orig{$cmp->{nvra}}++;                                  $orig{$cmp->{nvra}}++;
233                                  unless ( $repos->{$cmp->{repo}}->{base} ) {                                  unless ( $repos->{$cmp->{repo}}->{base} ) {
234                                      my $tag = sprintf '%s%s/%s-%s', $distrepo->{$smever}->{$cmp->{repo}}, $cmp->{name}, $cmp->{ver}, $cmp->{rel};                                      my $tag = sprintf '%s%s/%s-%s', $distrepo->{$smever}->{$cmp->{repo}}, $cmp->{name}, $cmp->{ver}, $cmp->{rel};
235                                      qx(touch $tag/PUSHED) if -d $tag && ! -f "$tag/PUSHED";                                      qx(touch $tag/PUSHED) if ! $opts{t} && -d $tag && ! -f "$tag/PUSHED";
236                                  }                                  }
237                              } elsif ( $cmp->{src} && $reposrc{$cmp->{repo}} ) {                              } elsif ( $cmp->{src} && $reposrc{$cmp->{repo}} ) {
238                                  $reposrc{$cmp->{repo}}->{srpm} = $cmp;                                  $reposrc{$cmp->{repo}}->{srpm} = $cmp;
# Line 267  foreach my $smever ( sort { $a <=> $b } Line 268  foreach my $smever ( sort { $a <=> $b }
268                              if ( $cmp->{src} && ! $reposrc{$dest} ) {                              if ( $cmp->{src} && ! $reposrc{$dest} ) {
269                                  $cmp->{delete}++;                                  $cmp->{delete}++;
270                              } elsif ( $repos->{$dest}->{prio} >= $repos->{$track{repo}}->{prio} && ! verrel($cmp, $dest, \%counts) ) {                              } elsif ( $repos->{$dest}->{prio} >= $repos->{$track{repo}}->{prio} && ! verrel($cmp, $dest, \%counts) ) {
271                                    unless ( $repos->{$cmp->{repo}}->{base} ) {
272                                        my $tag = sprintf '%s%s/%s-%s', $distrepo->{$smever}->{$cmp->{repo}}, $cmp->{name}, $cmp->{ver}, $cmp->{rel};
273                                        qx(touch $tag/PUSHED) if ! $opts{t} && -d $tag && ! -f "$tag/PUSHED";
274                                    }
275                                  push @{$cmp->{repos}}, $dest;                                  push @{$cmp->{repos}}, $dest;
276                                  $cmp->{oldrepo} = $cmp->{repo} unless $cmp->{oldrepo};                                  $cmp->{oldrepo} = $cmp->{repo} unless $cmp->{oldrepo};
277                                  $cmp->{repo} = $dest;                                  $cmp->{repo} = $dest;
278                                  $reposrc{$cmp->{repo}}->{srpm} = $cmp if $cmp->{src};                                  $reposrc{$cmp->{repo}}->{srpm} = $cmp if $cmp->{src};
   
279                                  $orig{$cmp->{nvra}}++;                                  $orig{$cmp->{nvra}}++;
                                 unless ( $repos->{$cmp->{repo}}->{base} ) {  
                                     my $tag = sprintf '%s%s/%s-%s', $distrepo->{$smever}->{$cmp->{repo}}, $cmp->{name}, $cmp->{ver}, $cmp->{rel};  
                                     qx(touch $tag/PUSHED) if -d $tag && ! -f "$tag/PUSHED";  
                                 }  
280                              } else {                              } else {
281                                  $cmp->{delete}++;                                  $cmp->{delete}++;
282                              }                              }
# Line 390  foreach my $smever ( sort { $a <=> $b } Line 390  foreach my $smever ( sort { $a <=> $b }
390                  $repochg{$pkg->{repo}}++ unless $repos->{$pkg->{repo}}->{base} || $repos->{$pkg->{repo}}->{stage};                  $repochg{$pkg->{repo}}++ unless $repos->{$pkg->{repo}}->{base} || $repos->{$pkg->{repo}}->{stage};
391                  if ( $repos->{$pkg->{repo}}->{orig} && ! $repos->{$pkg->{repo}}->{base} ) {                  if ( $repos->{$pkg->{repo}}->{orig} && ! $repos->{$pkg->{repo}}->{base} ) {
392                      my $tag = sprintf '%s%s/%s-%s', $distrepo->{$smever}->{$pkg->{repo}}, $pkg->{name}, $pkg->{ver}, $pkg->{rel};                      my $tag = sprintf '%s%s/%s-%s', $distrepo->{$smever}->{$pkg->{repo}}, $pkg->{name}, $pkg->{ver}, $pkg->{rel};
393                      qx(rm -f $tag/PUSHED) if -d $tag && -f "$tag/PUSHED";                      qx(rm -f $tag/PUSHED) if ! $opts{t} && -d $tag && -f "$tag/PUSHED";
394                  }                  }
395              }              }
396          }          }
# Line 408  foreach my $smever ( sort { $a <=> $b } Line 408  foreach my $smever ( sort { $a <=> $b }
408              print "rebuild $repo/$arch\n";              print "rebuild $repo/$arch\n";
409              unless ( $opts{t} ) {              unless ( $opts{t} ) {
410                  if ( -f "$dir/repodata/comps.xml" ) {                  if ( -f "$dir/repodata/comps.xml" ) {
411                      qx(createrepo -g repodata/comps.xml $dir);                      qx(createrepo --update --database --exclude *.src.rpm --exclude *-debuginfo-*.rpm --groupfile repodata/comps.xml $dir);
412                  } else {                  } else {
413                      qx(createrepo $dir);                      qx(createrepo --update --database --exclude *.src.rpm --exclude *-debuginfo-*.rpm $dir);
414                  }                  }
415                  qx(repoview $dir);                  qx(repoview $dir);
416                  qx(rm -rf $dir/.olddata) if -d "$dir/.olddata";                  qx(rm -rf $dir/.olddata) if -d "$dir/.olddata";

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