--- builds_bin/update_repos 2010/02/12 18:52:06 1.53 +++ builds_bin/update_repos 2012/07/27 18:07:11 1.70 @@ -28,38 +28,38 @@ my @archs = ( 'i386', 'x86_64' ); my $distrepo = { '7' => { active => 1, centos => 4, - fedora => 3, - repo => '/releases/7/', + repo => '/build/smeserver/repo/7/', os => 'RPMS/', - builds => '/builds/smeserver-7-core/', - community => '/builds/smeserver-7-contribs/', - stage => '/stage/7/', + builds => '/build/builds/smeserver-7-core/', + community => '/build/builds/smeserver-7-contribs/', + stage => '/build/smeserver/stage/7/', + sign => 1, + checksum => 'sha', }, '8' => { active => 1, centos => 5, - fedora => 6, - repo => '/releases/testing/8/', + repo => '/build/smeserver/repo/8/', os => '', - builds => '/builds/smeserver-8-core/', - community => '/builds/smeserver-8-contribs/', - stage => '/stage/8/', + builds => '/build/builds/smeserver-8-core/', + community => '/build/builds/smeserver-8-contribs/', + stage => '/build/smeserver/stage/8/', + sign => 1, + checksum => 'sha', }, }; -my $repos = { "${repotag}os" => { prio => 18, inc => 1, ver => 1, rel => 1, os => 1 }, - "${repotag}updates" => { prio => 17, inc => 1, ver => 1, rel => 1 }, - "${repotag}updates-testing" => { prio => 16, inc => 1, ver => 1, rel => 3 }, - "${repotag}extras" => { prio => 15, inc => 0, ver => 1, rel => 1 }, - "${repotag}addons" => { prio => 14, inc => 0, ver => 1, rel => 1 }, - "${repotag}contribs" => { prio => 13, inc => 0, ver => 1, rel => 1 }, - "${repotag}test" => { prio => 12, inc => 0, ver => 2, rel => 3, devel => 2 }, - "${repotag}dev" => { prio => 11, inc => 0, ver => 1, rel => 1, devel => 1 }, +my $repos = { "${repotag}os" => { prio => 19, inc => 1, ver => 1, rel => 1, os => 1 }, + "${repotag}updates" => { prio => 18, inc => 1, ver => 1, rel => 1 }, + "${repotag}updates-testing" => { prio => 17, inc => 1, ver => 1, rel => 3 }, + "${repotag}extras" => { prio => 16, inc => 0, ver => 1, rel => 1 }, + "${repotag}addons" => { prio => 15, inc => 0, ver => 1, rel => 1 }, + "${repotag}contribs" => { prio => 14, inc => 0, ver => 1, rel => 1 }, + "${repotag}test" => { prio => 13, inc => 0, ver => 2, rel => 3, devel => 2 }, + "${repotag}dev" => { prio => 12, inc => 0, ver => 1, rel => 1, devel => 1 }, 'centos' => { prio => 10, inc => 0, ver => 0, rel => 0, orig => 1, base => 1 }, 'epel' => { prio => 9, inc => 0, ver => 0, rel => 0, orig => 1, base => 1 }, - 'fedora-extras' => { prio => 8, inc => 0, ver => 0, rel => 0, orig => 1, base => 1 }, 'rpmforge' => { prio => 7, inc => 0, ver => 0, rel => 0, orig => 1, base => 1 }, 'atrpms' => { prio => 6, inc => 0, ver => 0, rel => 0, orig => 1, base => 1 }, - 'fedora' => { prio => 5, inc => 0, ver => 0, rel => 0, orig => 1, base => 1 }, 'builds' => { prio => 4, inc => 0, ver => 0, rel => 0, orig => 1 }, 'community' => { prio => 2, inc => 0, ver => 0, rel => 0, orig => 1 }, 'stage' => { prio => 1, inc => 0, ver => 0, rel => 0, stage => 1, os => 1 }, @@ -73,22 +73,24 @@ my $baserepo = { "~S${repotag}os/~A/$osd "~S${repotag}contribs/~A/RPMS/" => "${repotag}contribs", "~S${repotag}test/~A/RPMS/" => "${repotag}test", "~S${repotag}dev/~A/RPMS/" => "${repotag}dev", - "/stage/~s/~A/$osdir/~O" => 'stage', + "/build/smeserver/stage/~s/~A/$osdir/~O" => 'stage', '/mirrors/centos/~C/fasttrack/~A/RPMS/' => 'centos', '/mirrors/centos/~C/updates/~A/RPMS/' => 'centos', '/mirrors/centos/~C/os/~A/CentOS/~O' => 'centos', '/mirrors/centos/~C/extras/~A/RPMS/' => 'centos', + '/mirrors/centos-vault/~C/fasttrack/~A/RPMS/' => 'centos', + '/mirrors/centos-vault/~C/updates/~A/RPMS/' => 'centos', + '/mirrors/centos-vault/~C/os/~A/CentOS/~O' => 'centos', + '/mirrors/centos-vault/~C/extras/~A/RPMS/' => 'centos', '/mirrors/fedora/epel/~C/~A/' => 'epel', '/mirrors/fedora/epel/testing/~C/~A/' => 'epel', - '/mirrors/fedora/extras/~F/~A/' => 'fedora-extras', - '/mirrors/rpmforge/dag/redhat/el~C/en/~A/dag/RPMS/' => 'rpmforge', - '/mirrors/rpmforge/dag/source/' => 'rpmforge', + '/mirrors/rpmforge/redhat/el~C/en/~A/dag/RPMS/' => 'rpmforge', + '/mirrors/rpmforge/redhat/el~C/en/~A/extras/RPMS/' => 'rpmforge', + '/mirrors/rpmforge/source/' => 'rpmforge', '/mirrors/atrpms/el~C-~A/atrpms/stable/' => 'atrpms', '/mirrors/atrpms/el~C-~A/atrpms/testing/' => 'atrpms', '/mirrors/atrpms/src/el~C-~A/atrpms/stable/' => 'atrpms', '/mirrors/atrpms/src/el~C-~A/atrpms/testing/' => 'atrpms', - '/mirrors/fedora/core/~F/~A/os/Fedora/RPMS/' => 'fedora', - '/mirrors/fedora/core/updates/~F/~A/' => 'fedora', }; if ( $opts{q} ) { @@ -99,16 +101,14 @@ if ( $opts{q} ) { } my $skippkg = { '7' => { 'centos' => { map { $_ => 1 } ( 'horde', 'imp-h3', 'ingo-h3', 'turba-h3' ) }, - 'epel' => { map { $_ => 1 } ( 'clamav', 'fping', 'ocsinventory', 'perl-Compress-Bzip2', 'perl-Compress-Raw-Zlib', 'perl-Compress-Raw-Bzip2', 'perl-Crypt-OpenSSL-Bignum', 'perl-Crypt-OpenSSL-Random', 'perl-Crypt-OpenSSL-RSA', 'perl-DateTime', 'perl-Razor-Agent', 'perl-Text-Iconv', 'proftpd' ) }, - 'fedora-extras' => { map { $_ => 1 } ( 'ddclient', 'hddtemp', 'pam_abl', 'perl-Compress-Bzip2', 'perl-Error', 'perl-HTML-Format', 'perl-MIME-Types', 'perl-Net-IP', 'perl-Archive-Zip', 'perl-Class-Singleton', 'perl-Razor-Agent', 'perl-Test-Inline', 'perl-Text-Autoformat', 'perl-Text-Iconv', 'perl-Text-Reform', 'perl-XML-RSS' ) }, - 'rpmforge' => { map { $_ => 1 } ( 'perl-Test-Inline' ) }, + 'epel' => { map { $_ => 1 } ( 'clamav', 'fping', 'ocsinventory', 'perl-Compress-Bzip2', 'perl-Compress-Raw-Zlib', 'perl-Compress-Raw-Bzip2', 'perl-Crypt-OpenSSL-Bignum', 'perl-Crypt-OpenSSL-Random', 'perl-Crypt-OpenSSL-RSA', 'perl-DateTime', 'perl-Razor-Agent', 'perl-Text-Iconv' ) }, + 'rpmforge' => { map { $_ => 1 } ( 'dovecot', 'mod_auth_tkt', 'perl-Test-Inline', 'perl-libwww-perl', 'spamassassin' ) }, 'atrpms' => { map { $_ => 1 } ( 'check4updates', 'dovecot', 'trac', 'yum' ) }, }, - '8' => { 'centos' => { map { $_ => 1 } ( 'horde', 'imp-h3', 'ingo-h3', 'turba-h3' ) }, - 'fedora' => { map { $_ => 1 } ( 'kernel', 'kernel-xen', 'libgsf' ) }, - 'epel' => { map { $_ => 1 } ( 'clamav', 'horde', 'perl-Compress-Bzip2', 'perl-Compress-Raw-Zlib', 'perl-Compress-Raw-Bzip2', 'perl-Crypt-OpenSSL-Bignum', 'perl-Crypt-OpenSSL-Random', 'perl-Crypt-OpenSSL-RSA', 'perl-Razor-Agent', 'proftpd', 'smolt' ) }, - 'fedora-extras' => { map { $_ => 1 } ( 'dstat', 'gocr', 'horde', 'oidentd', 'perl-Compress-Bzip2', 'perl-Crypt-OpenSSL-Bignum', 'perl-Crypt-OpenSSL-Random', 'perl-Crypt-OpenSSL-RSA', 'perl-Test-Inline', 'perl-Razor-Agent', 'smolt' ) }, - 'rpmforge' => { map { $_ => 1 } ( 'perl-Test-Inline' ) }, + '8' => { 'atrpms' => { map { $_ => 1 } ( 'gnupg' ) }, + 'centos' => { map { $_ => 1 } ( 'horde', 'imp-h3', 'ingo-h3', 'turba-h3' ) }, + 'epel' => { map { $_ => 1 } ( 'clamav', 'fping', 'html2ps', 'horde', 'libtalloc', 'libtdb', 'oidentd', 'perl-Compress-Bzip2', 'perl-Compress-Raw-Zlib', 'perl-Compress-Raw-Bzip2', 'perl-Crypt-OpenSSL-Bignum', 'perl-Crypt-OpenSSL-Random', 'perl-Crypt-OpenSSL-RSA', 'perl-Razor-Agent', 'smolt' ) }, + 'rpmforge' => { map { $_ => 1 } ( 'dovecot', 'libtalloc', 'mod_auth_tkt', 'perl-Test-Inline', 'spamassassin' ) }, }, }; @@ -131,11 +131,10 @@ foreach my $ver ( sort { $a <=> $b } key $bdir =~ s/~S/$distrepo->{$ver}->{repo}/; $bdir =~ s/~s/$ver/; $bdir =~ s/~C/$distrepo->{$ver}->{centos}/; - $bdir =~ s/~F/$distrepo->{$ver}->{fedora}/; for my $arch ( @archs, 'SRPMS/' ) { my $adir = $bdir; if ( $arch eq 'SRPMS/' ) { - $adir =~ s/~A.*/$arch/ if $arch eq 'SRPMS/'; + $adir =~ s/~A.*/$arch/; } else { $adir =~ s/~A/$arch/; } @@ -162,20 +161,41 @@ foreach my $ver ( sort { $a <=> $b } key next if $pkg->{done}; my $tmp = $pkg->{svr}; + # srpm transformations to match up binary and source rpms SRC: { - $rpms->{$base}->{vers}->{$tmp} && last SRC; - ($tmp = $pkg->{svr}) =~ s{\.el\d\.at$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC; - ($tmp = $pkg->{svr}) =~ s{\.el\d\.at$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC; - ($tmp = $pkg->{svr}) =~ s{\.el\d(\.rf)$}{$1} && $rpms->{$base}->{vers}->{$tmp} && last SRC; - ($tmp = $pkg->{svr}) =~ s{\.el\d\.rf$}{.el5} && $rpms->{$base}->{vers}->{$tmp} && last SRC; - ($tmp = $pkg->{svr}) =~ s{(\.el\d)\.rf$}{$1} && $rpms->{$base}->{vers}->{$tmp} && last SRC; - ($tmp = $pkg->{svr}) =~ s{(\d+)\.\d+\.el\d(\.rf)$}{$1$2} && $rpms->{$base}->{vers}->{$tmp} && last SRC; - ($tmp = $pkg->{svr}) =~ s{\.el\d\.rf$}{.dag} && $rpms->{$base}->{vers}->{$tmp} && last SRC; - ($tmp = $pkg->{svr}) =~ s{(\d+)\.\d+\.el\d\.rf$}{$1.dag} && $rpms->{$base}->{vers}->{$tmp} && last SRC; - ($tmp = $pkg->{svr}) =~ s{\.el\d$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC; - ($tmp = $pkg->{svr}) =~ s{(-\d+)\.\d+\.el\d$}{$1} && $rpms->{$base}->{vers}->{$tmp} && last SRC; - ($tmp = $pkg->{svr}) =~ s{\.centos\d$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC; - ($tmp = $pkg->{svr}) =~ s{\.el\d\.$disttag$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + # Try to find the name the binary wants (no changes) + $rpms->{$base}->{vers}->{$tmp} && last SRC; + + # rpmforge (.el4.rf to .rf, with rf,rfb,rft,rfx endings) + ($tmp = $pkg->{svr}) =~ s{\.el\d(\.rf[btx]?)$}{$1} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + # rpmforge (.el4.rfx to .rf, rfb,rft,rfx switched to rf) + ($tmp = $pkg->{svr}) =~ s{\.el\d(\.rf)[btx]$}{$1} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + # rpmforge (.el4.rf to .rfx, rf,rfb,rft,rfx switched to rfx) + ($tmp = $pkg->{svr}) =~ s{\.el\d(\.rf)[btx]?$}{$1x} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + # rpmforge (.el4.rf to .el5) TODO: remove when no longer needed + ($tmp = $pkg->{svr}) =~ s{\.el\d\.rf$}{.el5} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + # rpmforge (.2.el4.rf to .rf, minor modification not pushed to source?) TODO: remove when no longer needed + ($tmp = $pkg->{svr}) =~ s{\.2\.el\d(\.rf)$}{$1} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + + # atrpms (remove .at) + ($tmp = $pkg->{svr}) =~ s{\.at$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + # atrpms (remove .el4.at) + ($tmp = $pkg->{svr}) =~ s{\.el\d\.at$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + # atrpms (remove .el4) + ($tmp = $pkg->{svr}) =~ s{\.el\d$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + # atrpms (remove .0.el5, minor modification not pushed to source?) TODO: remove when no longer needed + ($tmp = $pkg->{svr}) =~ s{\.0\.el\d$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + + # Transformations that we hopefully won't have to use anymore TODO: remove if no issues + #($tmp = $pkg->{svr}) =~ s{(\.el\d)\.rf$}{$1} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + #($tmp = $pkg->{svr}) =~ s{(\d+)\.\d+(\.rf)$}{$1$2} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + #($tmp = $pkg->{svr}) =~ s{\.el\d\.rf$}{.dag} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + #($tmp = $pkg->{svr}) =~ s{(\d+)\.\d+\.el\d\.rf$}{$1.dag} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + #($tmp = $pkg->{svr}) =~ s{\.el\d_}{_} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + #($tmp = $pkg->{svr}) =~ s{(-\d+)\.\d+\.el\d$}{$1} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + #($tmp = $pkg->{svr}) =~ s{\.centos\d$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + #($tmp = $pkg->{svr}) =~ s{\.at$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC; + #($tmp = $pkg->{svr}) =~ s{\.el\d\.$disttag$}{ && $rpms->{$base}->{vers}->{$tmp} && last SRC; } if ( $rpms->{$base}->{vers}->{$tmp} ) { foreach $tmp ( @{$rpms->{$base}->{vers}->{$tmp}} ) { @@ -210,22 +230,53 @@ foreach my $ver ( sort { $a <=> $b } key if ($repos->{$cmp->{repo}}->{stage} ) { if ( $seen{$cmp->{nvra}}->{latest} ) { $seen{$cmp->{nvra}}->{latest}++; + delete $cmp->{delete} if $cmp->{delete}; } else { $cmp->{delete}++; } - } elsif ( $repos->{$cmp->{repo}}->{orig}) { + } elsif ( $repos->{$cmp->{repo}}->{orig} ) { $orig{$cmp->{nvra}}++; unless ( $repos->{$cmp->{repo}}->{base} ) { my $tag = sprintf '%s%s/%s-%s', $distrepo->{$ver}->{$cmp->{repo}}, $cmp->{name}, $cmp->{ver}, $cmp->{rel}; qx(touch $tag/PUSHED) if ! $opts{t} && -d $tag && ! -f "$tag/PUSHED"; } - } elsif ( $cmp->{src} && $reposrc{$cmp->{repo}} ) { - $reposrc{$cmp->{repo}}->{srpm} = $cmp; + } elsif ( $cmp->{src} ) { + if ( $cmp->{delete} && $cmp->{oldrepo} && $reposrc{$cmp->{oldrepo}}) { + $cmp->{repo} = $cmp->{oldrepo}; + delete $cmp->{delete}; + } + if ( $reposrc{$cmp->{repo}} ) { + $reposrc{$cmp->{repo}}->{srpm} = $cmp; + $srpm = $cmp if ! $srpm; + } elsif ( $seen{$cmp->{nvra}}->{repo} ne $cmp->{repo} && ! $cmp->{done} ) { + $cmp->{delete}++; + } } elsif ( $seen{$cmp->{nvra}}->{repo} ne $cmp->{repo} ) { $cmp->{delete}++; } + } elsif ( $cmp->{src} ) { + if ( $reposrc{$cmp->{repo}} && $reposrc{$cmp->{repo}}->{srpm} && $reposrc{$cmp->{repo}}->{srpm}->{oldrepo} ne $cmp->{repo} ) { + $acnt->{$cmp->{repo}}->{$cmp->{rpm}->as_nvre}->{src} = [ + grep { $_ ne $reposrc{$cmp->{repo}}->{srpm} } @{$acnt->{$cmp->{repo}}->{$cmp->{rpm}->as_nvre}->{src}} + ]; + + if ( @{$reposrc{$cmp->{repo}}->{srpm}->{repos}} == 1 ) { + $reposrc{$cmp->{repo}}->{srpm}->{repo} = $reposrc{$cmp->{repo}}->{srpm}->{oldrepo}; + delete $reposrc{$cmp->{repo}}->{srpm}->{oldrepo}; + delete $reposrc{$cmp->{repo}}->{srpm}->{delete}; + delete $reposrc{$cmp->{repo}}->{srpm}->{repos}; + delete $reposrc{$cmp->{repo}}->{srpm}->{done}; + $seen{$cmp->{nvra}} = $cmp if $seen{$cmp->{nvra}} eq $reposrc{$cmp->{repo}}->{srpm}; + } else { + warn "How did I get here??"; + } + } else { + $seen{$cmp->{nvra}} = $cmp if $seen{$cmp->{nvra}}->{repo} ne $cmp->{repo}; + } + $srpm = $cmp if ! $srpm && $cmp->{src}; + $reposrc{$cmp->{repo}}->{srpm} = $cmp if $reposrc{$cmp->{repo}}; } - } elsif ($repos->{$cmp->{repo}}->{stage} ) { + } elsif ( $repos->{$cmp->{repo}}->{stage} ) { $cmp->{delete}++; } else { $srpm = $cmp if ! $srpm && $cmp->{src}; @@ -271,20 +322,18 @@ foreach my $ver ( sort { $a <=> $b } key my $dest = $repos->{$track{repo}}->{prio} > $repos->{$devel2}->{prio} ? $track{repo} : $devel2; $dest = pkgdest($cmp, $devel1, $dest, $rpms->{$base}->{rpms}); $dest = $devel1 if verrel($cmp, $dest, \%counts); - if ( $cmp->{src} && ! $reposrc{$dest} ) { - $cmp->{delete}++; - } elsif ( $repos->{$dest}->{prio} >= $repos->{$track{repo}}->{prio} && ! verrel($cmp, $dest, \%counts) ) { - unless ( $repos->{$cmp->{repo}}->{base} ) { - my $tag = sprintf '%s%s/%s-%s', $distrepo->{$ver}->{$cmp->{repo}}, $cmp->{name}, $cmp->{ver}, $cmp->{rel}; - qx(touch $tag/PUSHED) if ! $opts{t} && -d $tag && ! -f "$tag/PUSHED"; + unless ( $cmp->{src} && ! $reposrc{$dest} ) { + if ( $repos->{$dest}->{prio} >= $repos->{$track{repo}}->{prio} && ! verrel($cmp, $dest, \%counts) ) { + unless ( $repos->{$cmp->{repo}}->{base} ) { + my $tag = sprintf '%s%s/%s-%s', $distrepo->{$ver}->{$cmp->{repo}}, $cmp->{name}, $cmp->{ver}, $cmp->{rel}; + qx(touch $tag/PUSHED) if ! $opts{t} && -d $tag && ! -f "$tag/PUSHED"; + } + push @{$cmp->{repos}}, $dest; + $cmp->{oldrepo} = $cmp->{repo} unless $cmp->{oldrepo}; + $cmp->{repo} = $dest; + $reposrc{$cmp->{repo}}->{srpm} = $cmp if $cmp->{src}; + $orig{$cmp->{nvra}}++; } - push @{$cmp->{repos}}, $dest; - $cmp->{oldrepo} = $cmp->{repo} unless $cmp->{oldrepo}; - $cmp->{repo} = $dest; - $reposrc{$cmp->{repo}}->{srpm} = $cmp if $cmp->{src}; - $orig{$cmp->{nvra}}++; - } else { - $cmp->{delete}++; } } else { $cmp->{delete}++; @@ -295,11 +344,11 @@ foreach my $ver ( sort { $a <=> $b } key $pkgs{$cmp->{nvra}}++; $latest{$cmp->{base}} = $cmp->{svr} if $repos->{$cmp->{repo}}->{inc} && ! $latest{$cmp->{base}}; $reposrc{$cmp->{repo}} = $cmp unless $reposrc{$cmp->{repo}} || $cmp->{src} || $repos->{$cmp->{repo}}->{stage}; - unless ( $seen{$cmp->{nvra}} ) { - $seen{$cmp->{nvra}} = $cmp; - $cmp->{latest}++ if $latest{$cmp->{base}} && $cmp->{svr} eq $latest{$cmp->{base}} && $repos->{$cmp->{repo}}->{inc}; + if ( $latest{$cmp->{base}} && $cmp->{svr} eq $latest{$cmp->{base}} && $repos->{$cmp->{repo}}->{inc} ) { + $cmp->{latest}++ if ! $seen{$cmp->{nvra}} || $cmp->{src}; } - push @{$acnt->{$cmp->{repo}}->{$cmp->{rpm}->as_nvre}->{$cmp->{src} ? 'src' : $cmp->{rpm}->arch}}, $cmp; + $seen{$cmp->{nvra}} = $cmp unless $seen{$cmp->{nvra}}; + push @{$acnt->{$cmp->{repo}}->{$cmp->{rpm}->as_nvre}->{$cmp->{src} ? 'src' : $cmp->{rpm}->arch}}, $cmp unless $cmp->{done}; } $cmp->{done}++; } @@ -336,17 +385,19 @@ foreach my $ver ( sort { $a <=> $b } key foreach my $pkg ( sort { $a->{nvra} cmp $b->{nvra} } @{$rpms->{$base}->{rpms}} ) { if ( $pkg->{latest} && $pkg->{latest} == 1 ) { - $pkg->{oldrepo} = $pkg->{repo} unless $pkg->{oldrepo}; - $pkg->{repo} = $stage; - push @{$pkg->{repos}}, $stage; + unless ( grep { $_->{nvra} eq $pkg->{nvra} && $_->{repo} eq $stage } @{$rpms->{$base}->{rpms}} ) { + $pkg->{oldrepo} = $pkg->{repo} unless $pkg->{oldrepo}; + $pkg->{repo} = $stage; + push @{$pkg->{repos}}, $stage; + } } - if ( ! $print && ($pkg->{delete} || $pkg->{repos} || $pkg->{nosig} ) ) { + if ( ! $print && ($pkg->{delete} || $pkg->{repos} || ( $pkg->{nosig} && $distrepo->{$ver}->{sign} ) ) ) { print "\n$base ($disttag$ver)\n", "=" x length("$base ($disttag$ver)"), "\n"; $print++; } my $src = $pkg->{rpm}->filename; - if ( $pkg->{nosig} ) { + if ( $pkg->{nosig} && $distrepo->{$ver}->{sign} ) { print "sign package (", basename($pkg->{rpm}->filename), ")\n"; unless ( $opts{t} ) { qx(cat $HOME/.rpmpass | setsid rpm --addsign $src >& /dev/null); @@ -400,6 +451,21 @@ foreach my $ver ( sort { $a <=> $b } key } } } + + if ( $rpms->{$base}->{srpms} ) { + foreach my $pkg ( sort { $b->{rpm} cmp $a->{rpm} } @{$rpms->{$base}->{srpms}} ) { + next if $pkg->{done} || $repos->{$pkg->{repo}}->{orig} || $repos->{$pkg->{repo}}->{base}; + $pkg->{delete}++; + my $src = $pkg->{rpm}->filename; + if ( ! $print && ($pkg->{delete} || $pkg->{repos} || ( $pkg->{nosig} && $distrepo->{$ver}->{sign} ) ) ) { + print "\n$base ($disttag$ver)\n", "=" x length("$base ($disttag$ver)"), "\n"; + $print++; + } + print "delete from ", $pkg->{repo}, " (", $pkg->{arch}, ", ", basename($pkg->{rpm}->filename), ")\n"; + qx(rm -f $src) unless $opts{t}; + $repochg{$pkg->{repo}}++ unless $repos->{$pkg->{repo}}->{base} || $repos->{$pkg->{repo}}->{stage}; + } + } } if ( %repochg ) { @@ -413,14 +479,22 @@ foreach my $ver ( sort { $a <=> $b } key chomp $dir; print "rebuild $repo/$arch\n"; unless ( $opts{t} ) { - if ( -f "$dir/repodata/comps.xml" ) { - qx(createrepo --update --database --exclude *.src.rpm --exclude *-debuginfo-*.rpm --groupfile repodata/comps.xml $dir); - } else { - qx(createrepo --update --database --exclude *.src.rpm --exclude *-debuginfo-*.rpm $dir); - } + my $checksum = "--checksum $distrepo->{$ver}->{checksum}"; + + my $exclude = ""; + $exclude = "--exclude *smeserver-release*.rpm" if $dir =~ m{test/|-testing/}; + + my $groupfile = ""; + $groupfile = "--groupfile repodata/comps.xml" if -f "$dir/repodata/comps.xml"; + + qx(createrepo --update --database --exclude *.src.rpm --exclude *-debuginfo-*.rpm $checksum $exclude $groupfile $dir); qx(repoview $dir); + qx(rm -rf $dir/.olddata) if -d "$dir/.olddata"; qx(rm -rf $dir/.repodata) if -d "$dir/.repodata"; + qx(rm -rf $dir/repodata/index.html) if -f "$dir/repodata/index.html"; + qx(rm -rf $dir/repodata/update-info) if -d "$dir/repodata/update-info"; + qx(rm -rf $dir/repodata/repoview) if -d "$dir/repodata/repoview"; } } } @@ -483,7 +557,7 @@ sub process_rpm { } my ($src, $version, $release) = ($pkg->is_source_package ? $pkg->filename : $pkg->sourcerpm) =~ m{(?:^|/)([^/]*)-([^-]+)-([^-]+)\.\w+\.rpm$}; return if $skippkg->{$ver}->{$repo} && ( $skippkg->{$ver}->{$repo}->{$src} || $skippkg->{$ver}->{$repo}->{$pkg->name} ); - return if $repos->{$repo}->{base} && $nosig; + return if $repos->{$repo}->{base} && $nosig && $baserepo->{$ver}->{sign}; if ( $nosig && ! -f "$HOME/.rpmpass" ) { print " * missing signature (" .$pkg->filename . ")\n"; return; } my $arch = 'unknown'; $arch = 'SRPMS' if $pkg->filename =~ m{[/-](SRPMS?|src|source)/};