/[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.47 by slords, Sat Jul 26 21:51:03 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                           'rpmforge'      => { map { $_ => 1 } ( 'perl-Test-Inline' ) },                           'rpmforge'      => { map { $_ => 1 } ( 'perl-Test-Inline' ) },
100                           'atrpms'        => { map { $_ => 1 } ( 'check4updates', 'dovecot', 'trac', 'yum' ) },                           'atrpms'        => { map { $_ => 1 } ( 'check4updates', 'dovecot', 'trac', 'yum' ) },
101                         },                         },
102                  '8' => { 'centos'        => { map { $_ => 1 } ( 'horde', 'imp-h3', 'ingo-h3', 'turba-h3' ) },                  '8' => { 'centos'        => { map { $_ => 1 } ( 'horde', 'imp-h3', 'ingo-h3', 'turba-h3' ) },
103                           'fedora'        => { map { $_ => 1 } ( 'kernel-xen' ) },                           'fedora'        => { map { $_ => 1 } ( 'kernel-xen' ) },
104                           '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' ) },
105                           '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' ) },
106                           'rpmforge'      => { map { $_ => 1 } ( 'perl-Test-Inline' ) },                           'rpmforge'      => { map { $_ => 1 } ( 'perl-Test-Inline' ) },
107                         },                         },
108                };                };
# Line 210  foreach my $smever ( sort { $a <=> $b } Line 210  foreach my $smever ( sort { $a <=> $b }
210                                  $orig{$cmp->{nvra}}++;                                  $orig{$cmp->{nvra}}++;
211                                  unless ( $repos->{$cmp->{repo}}->{base} ) {                                  unless ( $repos->{$cmp->{repo}}->{base} ) {
212                                      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};
213                                      qx(touch $tag/PUSHED) if -d $tag && ! -f "$tag/PUSHED";                                      qx(touch $tag/PUSHED) if ! $opts{t} && -d $tag && ! -f "$tag/PUSHED";
214                                  }                                  }
215                              } elsif ( $cmp->{src} && $reposrc{$cmp->{repo}} ) {                              } elsif ( $cmp->{src} && $reposrc{$cmp->{repo}} ) {
216                                  $reposrc{$cmp->{repo}}->{srpm} = $cmp;                                  $reposrc{$cmp->{repo}}->{srpm} = $cmp;
# Line 231  foreach my $smever ( sort { $a <=> $b } Line 231  foreach my $smever ( sort { $a <=> $b }
231                                  $orig{$cmp->{nvra}}++;                                  $orig{$cmp->{nvra}}++;
232                                  unless ( $repos->{$cmp->{repo}}->{base} ) {                                  unless ( $repos->{$cmp->{repo}}->{base} ) {
233                                      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};
234                                      qx(touch $tag/PUSHED) if -d $tag && ! -f "$tag/PUSHED";                                      qx(touch $tag/PUSHED) if ! $opts{t} && -d $tag && ! -f "$tag/PUSHED";
235                                  }                                  }
236                              } elsif ( $cmp->{src} && $reposrc{$cmp->{repo}} ) {                              } elsif ( $cmp->{src} && $reposrc{$cmp->{repo}} ) {
237                                  $reposrc{$cmp->{repo}}->{srpm} = $cmp;                                  $reposrc{$cmp->{repo}}->{srpm} = $cmp;
# Line 267  foreach my $smever ( sort { $a <=> $b } Line 267  foreach my $smever ( sort { $a <=> $b }
267                              if ( $cmp->{src} && ! $reposrc{$dest} ) {                              if ( $cmp->{src} && ! $reposrc{$dest} ) {
268                                  $cmp->{delete}++;                                  $cmp->{delete}++;
269                              } elsif ( $repos->{$dest}->{prio} >= $repos->{$track{repo}}->{prio} && ! verrel($cmp, $dest, \%counts) ) {                              } elsif ( $repos->{$dest}->{prio} >= $repos->{$track{repo}}->{prio} && ! verrel($cmp, $dest, \%counts) ) {
270                                    unless ( $repos->{$cmp->{repo}}->{base} ) {
271                                        my $tag = sprintf '%s%s/%s-%s', $distrepo->{$smever}->{$cmp->{repo}}, $cmp->{name}, $cmp->{ver}, $cmp->{rel};
272                                        qx(touch $tag/PUSHED) if ! $opts{t} && -d $tag && ! -f "$tag/PUSHED";
273                                    }
274                                  push @{$cmp->{repos}}, $dest;                                  push @{$cmp->{repos}}, $dest;
275                                  $cmp->{oldrepo} = $cmp->{repo} unless $cmp->{oldrepo};                                  $cmp->{oldrepo} = $cmp->{repo} unless $cmp->{oldrepo};
276                                  $cmp->{repo} = $dest;                                  $cmp->{repo} = $dest;
277                                  $reposrc{$cmp->{repo}}->{srpm} = $cmp if $cmp->{src};                                  $reposrc{$cmp->{repo}}->{srpm} = $cmp if $cmp->{src};
   
278                                  $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";  
                                 }  
279                              } else {                              } else {
280                                  $cmp->{delete}++;                                  $cmp->{delete}++;
281                              }                              }
# Line 390  foreach my $smever ( sort { $a <=> $b } Line 389  foreach my $smever ( sort { $a <=> $b }
389                  $repochg{$pkg->{repo}}++ unless $repos->{$pkg->{repo}}->{base} || $repos->{$pkg->{repo}}->{stage};                  $repochg{$pkg->{repo}}++ unless $repos->{$pkg->{repo}}->{base} || $repos->{$pkg->{repo}}->{stage};
390                  if ( $repos->{$pkg->{repo}}->{orig} && ! $repos->{$pkg->{repo}}->{base} ) {                  if ( $repos->{$pkg->{repo}}->{orig} && ! $repos->{$pkg->{repo}}->{base} ) {
391                      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};
392                      qx(rm -f $tag/PUSHED) if -d $tag && -f "$tag/PUSHED";                      qx(rm -f $tag/PUSHED) if ! $opts{t} && -d $tag && -f "$tag/PUSHED";
393                  }                  }
394              }              }
395          }          }
# Line 408  foreach my $smever ( sort { $a <=> $b } Line 407  foreach my $smever ( sort { $a <=> $b }
407              print "rebuild $repo/$arch\n";              print "rebuild $repo/$arch\n";
408              unless ( $opts{t} ) {              unless ( $opts{t} ) {
409                  if ( -f "$dir/repodata/comps.xml" ) {                  if ( -f "$dir/repodata/comps.xml" ) {
410                      qx(createrepo -g repodata/comps.xml $dir);                      qx(createrepo --update --database --groupfile repodata/comps.xml $dir);
411                  } else {                  } else {
412                      qx(createrepo $dir);                      qx(createrepo --update --database $dir);
413                  }                  }
414                  qx(repoview $dir);                  qx(repoview $dir);
415                  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