/[smeserver]/builds_bin/update_repos
ViewVC logotype

Annotation of /builds_bin/update_repos

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.36 - (hide annotations) (download)
Tue Jan 22 20:23:58 2008 UTC (16 years, 10 months ago) by slords
Branch: MAIN
Changes since 1.35: +26 -1 lines 
Fix for older versions
1 slords 1.1 #!/usr/bin/perl
2    
3     use strict;
4     use warnings;
5     use RPM2;
6 slords 1.20 use File::Find;
7     use File::Basename;
8     use Getopt::Std;
9 slords 1.1 use Data::Dumper;
10    
11 slords 1.20 delete $ENV{PATH};
12     my $HOME=$ENV{HOME};
13     umask 002;
14 slords 1.30 $| = 1;
15    
16     my %opts;
17 slords 1.31 getopts( 'osqtr:', \%opts );
18 slords 1.30 $opts{r} ||= '';
19 slords 1.20
20     my $rpm_flags = RPM2->vsf_nosha1header | RPM2->vsf_nomd5header | RPM2->vsf_nodsaheader | RPM2->vsf_norsaheader;
21     $rpm_flags |= RPM2->vsf_nosha1 | RPM2->vsf_nomd5 | RPM2->vsf_nodsa | RPM2->vsf_norsa;
22    
23     my @archs = ( 'i386', 'x86_64' );
24    
25 slords 1.27 my $distrepo = { '7' => { active => 1,
26     centos => 4,
27     fedora => 3,
28     repo => '/releases/7/',
29 slords 1.30 os => 'RPMS/',
30 slords 1.27 builds => '/builds/smeserver-7-core/',
31     contribs => '/builds/smeserver-7-contribs/',
32 slords 1.30 qa => '/builds/smeserver-7-qa/',
33 slords 1.27 stage => '/stage/7/',
34 slords 1.20 },
35 slords 1.27 '8' => { active => 1,
36     centos => 5,
37     fedora => 6,
38     repo => '/releases/testing/8/',
39 slords 1.30 os => '',
40 slords 1.27 builds => '/builds/smeserver-8-core/',
41     contribs => '/builds/smeserver-8-contribs/',
42 slords 1.30 qa => '/builds/smeserver-8-qa/',
43 slords 1.27 stage => '/stage/8/',
44 slords 1.20 },
45     };
46    
47 slords 1.30 my $repos = { 'smeos' => { prio => 18, inc => 1, ver => 1, rel => 1, os => 1 },
48     'smeupdates' => { prio => 17, inc => 1, ver => 1, rel => 1 },
49     'smeupdates-testing' => { prio => 16, inc => 1, ver => 1, rel => 1 },
50     'smeextras' => { prio => 15, inc => 0, ver => 1, rel => 1 },
51     'smeaddons' => { prio => 14, inc => 0, ver => 1, rel => 1 },
52 slords 1.35 'smecontribs' => { prio => 13, inc => 0, ver => 1, rel => 1 },
53 slords 1.30 'smetest' => { prio => 12, inc => 0, ver => 2, rel => 2, devel => 2 },
54     'smedev' => { prio => 11, inc => 0, ver => 2, rel => 2, devel => 1 },
55     'centos' => { prio => 10, inc => 0, ver => 0, rel => 0, orig => 1, base => 1 },
56     'epel' => { prio => 9, inc => 0, ver => 0, rel => 0, orig => 1, base => 1 },
57     'fedora-extras' => { prio => 8, inc => 0, ver => 0, rel => 0, orig => 1, base => 1 },
58     'rpmforge' => { prio => 7, inc => 0, ver => 0, rel => 0, orig => 1, base => 1 },
59     'atrpms' => { prio => 6, inc => 0, ver => 0, rel => 0, orig => 1, base => 1 },
60     'fedora' => { prio => 5, inc => 0, ver => 0, rel => 0, orig => 1, base => 1 },
61     'builds' => { prio => 4, inc => 0, ver => 0, rel => 0, orig => 1 },
62     'contribs' => { prio => 2, inc => 0, ver => 0, rel => 0, orig => 1 },
63     'stage' => { prio => 1, inc => 0, ver => 0, rel => 0, stage => 1, os => 1 },
64     };
65    
66     my $baserepo = { '~Ssmeos/~A/SME/~O' => 'smeos',
67     '~Ssmeupdates/~A/RPMS/' => 'smeupdates',
68     '~Ssmeupdates-testing/~A/RPMS/' => 'smeupdates-testing',
69     '~Ssmeextras/~A/RPMS/' => 'smeextras',
70     '~Ssmeaddons/~A/RPMS/' => 'smeaddons',
71     '~Ssmecontribs/~A/RPMS/' => 'smecontribs',
72     '~Ssmetest/~A/RPMS/' => 'smetest',
73     '~Ssmedev/~A/RPMS/' => 'smedev',
74     '/stage/~s/~A/SME/~O' => 'stage',
75     '/mirrors/centos/~C/fasttrack/~A/RPMS/' => 'centos',
76     '/mirrors/centos/~C/updates/~A/RPMS/' => 'centos',
77     '/mirrors/centos/~C/os/~A/CentOS/~O' => 'centos',
78     '/mirrors/centos/~C/extras/~A/RPMS/' => 'centos',
79     '/mirrors/fedora/epel/~C/~A/' => 'epel',
80     '/mirrors/fedora/epel/testing/~C/~A/' => 'epel',
81     '/mirrors/fedora/extras/~F/~A/' => 'fedora-extras',
82     '/mirrors/rpmforge/dag/redhat/el~C/en/~A/dag/RPMS/' => 'rpmforge',
83     '/mirrors/rpmforge/dag/source/' => 'rpmforge',
84     '/mirrors/atrpms/el~C-~A/atrpms/stable/' => 'atrpms',
85     '/mirrors/atrpms/el~C-~A/atrpms/testing/' => 'atrpms',
86     '/mirrors/atrpms/src/el~C-~A/atrpms/stable/' => 'atrpms',
87     '/mirrors/atrpms/src/el~C-~A/atrpms/testing/' => 'atrpms',
88     '/mirrors/fedora/core/~F/~A/os/Fedora/RPMS/' => 'fedora',
89     '/mirrors/fedora/core/updates/~F/~A/' => 'fedora',
90     };
91    
92 slords 1.31 if ( $opts{q} ) {
93     $baserepo->{'/mirrors/centos-qa/CentOS/~C/fasttrack/~A/RPMS/'} = 'centos';
94     $baserepo->{'/mirrors/centos-qa/CentOS/~C/updates/~A/RPMS/'} = 'centos';
95     $baserepo->{'/mirrors/centos-qa/CentOS/~C/os/~A/CentOS/~O'} = 'centos';
96     $baserepo->{'/mirrors/centos-qa/CentOS/~C/extras/~A/RPMS/'} = 'centos';
97     }
98    
99 slords 1.30 my $skippkg = { '7' => { 'centos' => { map { $_ => 1 } ( 'horde', 'imp-h3', 'ingo-h3', 'turba-h3', 'vim' ) },
100 slords 1.35 'epel' => { map { $_ => 1 } ( 'clamav', 'perl-Razor-Agent' ) },
101 slords 1.30 'rpmforge' => { map { $_ => 1 } ( 'perl-Test-Inline' ) },
102     'atrpms' => { map { $_ => 1 } ( 'dovecot', 'trac', 'yum' ) },
103 slords 1.20 },
104 slords 1.30 '8' => { 'centos' => { map { $_ => 1 } ( 'horde', 'imp-h3', 'ingo-h3', 'turba-h3' ) },
105     'fedora' => { map { $_ => 1 } ( 'kernel-xen' ) },
106 slords 1.35 'epel' => { map { $_ => 1 } ( 'clamav', 'perl-Razor-Agent', 'smolt' ) },
107 slords 1.30 'fedora-extras' => { map { $_ => 1 } ( 'dstat', 'gocr', 'horde', 'oidentd', 'perl-Test-Inline', 'perl-Razor-Agent', 'smolt' ) },
108     'rpmforge' => { map { $_ => 1 } ( 'perl-Test-Inline' ) },
109 slords 1.20 },
110     };
111    
112 slords 1.30 my ($stage) = sort { $repos->{$a}->{stage} <=> $repos->{$b}->{stage} } grep { $repos->{$_}->{stage} } keys %$repos;
113 slords 1.20 my ($devel1, $devel2) = sort { $repos->{$a}->{devel} <=> $repos->{$b}->{devel} } grep { $repos->{$_}->{devel} } keys %$repos;
114     $devel2 ||= $devel1;
115    
116 slords 1.30 my ($rpms, %base, %latest, %sources);
117     foreach my $smever ( sort { $a <=> $b } keys %$distrepo ) {
118     next unless $distrepo->{$smever}->{active};
119     my %repochg = ();
120     $rpms = ();
121 slords 1.21 %latest = ();
122 slords 1.20 %sources = ();
123 slords 1.30 %base = ();
124 slords 1.20
125 slords 1.30 foreach my $dir ( sort { $repos->{$baserepo->{$b}}->{prio} <=> $repos->{$baserepo->{$a}}->{prio} || $a cmp $b } keys %$baserepo ) {
126     my $bdir = $dir;
127     $bdir =~ s/~O/$distrepo->{$smever}->{os}/;
128     $bdir =~ s/~S/$distrepo->{$smever}->{repo}/;
129     $bdir =~ s/~s/$smever/;
130 slords 1.20 $bdir =~ s/~C/$distrepo->{$smever}->{centos}/;
131     $bdir =~ s/~F/$distrepo->{$smever}->{fedora}/;
132 slords 1.30 for my $arch ( @archs, 'SRPMS/' ) {
133     my $adir = $bdir;
134     if ( $arch eq 'SRPMS/' ) {
135     $adir =~ s/~A.*/$arch/ if $arch eq 'SRPMS/';
136     } else {
137     $adir =~ s/~A/$arch/;
138     }
139     opendir DIR, $adir or next;
140     next unless -d $adir;
141     process_rpm("$adir$_", $smever, $baserepo->{$dir}) foreach readdir DIR;
142     closedir DIR;
143     last unless $dir =~ m{~A};
144 slords 1.20 }
145     }
146 slords 1.30 find( { wanted => sub { process_rpm($_, $smever, 'builds'); }, no_chdir => 1, follow_fast => 1 }, ( $distrepo->{$smever}->{'builds'}, $distrepo->{$smever}->{'qa'} ) );
147     find( { wanted => sub { process_rpm($_, $smever, 'contribs'); }, no_chdir => 1, follow_fast => 1 }, $distrepo->{$smever}->{'contribs'} );
148 slords 1.20
149 slords 1.30 foreach my $base ( sort keys %$rpms ) {
150 slords 1.35 next unless $rpms->{$base}->{rpms};
151 slords 1.30 my %track = ();
152 slords 1.20 my %seen = ();
153 slords 1.30 my %counts = ();
154     my $acnt = ();
155     my $print = 0;
156     %latest = ();
157    
158     foreach my $pkg ( sort { $b->{rpm} cmp $a->{rpm} } @{$rpms->{$base}->{rpms}} ) {
159     next if $pkg->{done};
160    
161 slords 1.31 my $tmp = $pkg->{svr};
162     SRC: {
163     $rpms->{$base}->{vers}->{$tmp} && last SRC;
164     ($tmp = $pkg->{svr}) =~ s{\.el\d\.at$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC;
165     ($tmp = $pkg->{svr}) =~ s{\.el\d\.at$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC;
166     ($tmp = $pkg->{svr}) =~ s{\.el\d(\.rf)$}{$1} && $rpms->{$base}->{vers}->{$tmp} && last SRC;
167     ($tmp = $pkg->{svr}) =~ s{(\d+)\.\d+\.el\d(\.rf)$}{$1$2} && $rpms->{$base}->{vers}->{$tmp} && last SRC;
168     ($tmp = $pkg->{svr}) =~ s{\.el\d\.rf$}{.dag} && $rpms->{$base}->{vers}->{$tmp} && last SRC;
169     ($tmp = $pkg->{svr}) =~ s{(\d+)\.\d+\.el\d\.rf$}{$1.dag} && $rpms->{$base}->{vers}->{$tmp} && last SRC;
170     ($tmp = $pkg->{svr}) =~ s{\.el\d$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC;
171     ($tmp = $pkg->{svr}) =~ s{(-\d+)\.\d+\.el\d$}{$1} && $rpms->{$base}->{vers}->{$tmp} && last SRC;
172     ($tmp = $pkg->{svr}) =~ s{\.centos\d$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC;
173     ($tmp = $pkg->{svr}) =~ s{\.el\d\.sme$}{} && $rpms->{$base}->{vers}->{$tmp} && last SRC;
174     }
175     if ( $rpms->{$base}->{vers}->{$tmp} ) {
176     foreach $tmp ( @{$rpms->{$base}->{vers}->{$tmp}} ) {
177 slords 1.30 $tmp->{svr} = $pkg->{svr};
178 slords 1.31 push @{$rpms->{$base}->{rpms}}, $tmp unless $tmp->{added};
179     $tmp->{added}++;
180 slords 1.30 }
181 slords 1.20 }
182    
183 slords 1.30 my %orig = ();
184     my %pkgs = ();
185     my %reposrc = ();
186     my $srpm = undef;
187 slords 1.31 foreach my $cmp ( sort { $a->{src} <=> $b->{src} || $repos->{$b->{repo}}->{prio} <=> $repos->{$a->{repo}}->{prio} } @{$rpms->{$base}->{rpms}} ) {
188 slords 1.30 next unless $cmp->{svr} eq $pkg->{svr};
189    
190     if ( ! $track{repo} || $repos->{$cmp->{repo}}->{prio} > $repos->{$track{repo}}->{prio} ) {
191     if ( $cmp->{src} ) {
192 slords 1.31 if ( ! $track{repo} ) {
193 slords 1.30 $cmp->{delete}++;
194 slords 1.31 $cmp->{done}++;
195     next;
196 slords 1.30 }
197 slords 1.31 } else {
198     $track{repo} = $cmp->{repo};
199     $track{svr} = $cmp->{svr};
200     }
201     }
202     if ( $cmp->{svr} eq $track{svr} ) {
203     if ( $seen{$cmp->{nvra}} ) {
204 slords 1.30 if ( $track{repo} ne $cmp->{repo} ) {
205     if ($repos->{$cmp->{repo}}->{stage} ) {
206     if ( $seen{$cmp->{nvra}}->{latest} ) {
207     $seen{$cmp->{nvra}}->{latest}++;
208     } else {
209     $cmp->{delete}++;
210     }
211     } elsif ( $repos->{$cmp->{repo}}->{orig}) {
212     $orig{$cmp->{nvra}}++;
213 slords 1.31 } elsif ( $cmp->{src} && $reposrc{$cmp->{repo}} ) {
214     $reposrc{$cmp->{repo}}->{srpm} = $cmp;
215 slords 1.30 } elsif ( $seen{$cmp->{nvra}}->{repo} ne $cmp->{repo} ) {
216     $cmp->{delete}++;
217 slords 1.26 }
218 slords 1.20 }
219 slords 1.30 } elsif ($repos->{$cmp->{repo}}->{stage} ) {
220     $cmp->{delete}++;
221     } else {
222 slords 1.31 $srpm = $cmp if ! $srpm && $cmp->{src};
223 slords 1.30 my $dest = $repos->{$track{repo}}->{prio} > $repos->{$devel2}->{prio} ? $track{repo} : $devel2;
224     $dest = pkgdest($cmp, $devel1, $dest, $rpms->{$base}->{rpms});
225     $dest = $devel1 if verrel($cmp, $dest, \%counts);
226     if ( $cmp->{repo} ne $dest ) {
227     push @{$cmp->{repos}}, $dest;
228     if ( $repos->{$cmp->{repo}}->{orig} ) {
229     $orig{$cmp->{nvra}}++;
230 slords 1.31 } elsif ( $cmp->{src} && $reposrc{$cmp->{repo}} ) {
231     $reposrc{$cmp->{repo}}->{srpm} = $cmp;
232 slords 1.30 } else {
233     $cmp->{delete}++;
234 slords 1.21 }
235 slords 1.30 $cmp->{oldrepo} = $cmp->{repo} unless $cmp->{oldrepo};
236     $cmp->{repo} = $dest;
237 slords 1.36 $track{repo} = $dest unless $dest eq $track{repo};
238 slords 1.20 }
239 slords 1.31 if ( $cmp->{src} && $reposrc{$cmp->{repo}} ) {
240     $reposrc{$cmp->{repo}}->{srpm} = $cmp;
241     }
242 slords 1.20 }
243 slords 1.30 } else {
244     if ( $track{repo} eq $cmp->{repo} ) {
245     if ( verrel($cmp, $cmp->{repo}, \%counts) ) {
246     $cmp->{delete}++ unless $repos->{$cmp->{repo}}->{base};
247 slords 1.32 } elsif ( $cmp->{src} ) {
248     $cmp->{delete}++ unless $repos->{$cmp->{repo}}->{base};
249 slords 1.18 } else {
250 slords 1.30 $track{svr} = $cmp->{svr};
251 slords 1.11 }
252 slords 1.30 } elsif ( ! $repos->{$cmp->{repo}}->{base} ) {
253 slords 1.36 if ( $repos->{$cmp->{repo}}->{orig} ) {
254     $srpm = $cmp if ! $srpm && $cmp->{src};
255     my $dest = $repos->{$track{repo}}->{prio} > $repos->{$devel2}->{prio} ? $track{repo} : $devel2;
256     $dest = pkgdest($cmp, $devel1, $dest, $rpms->{$base}->{rpms});
257     $dest = $devel1 if verrel($cmp, $dest, \%counts);
258     unless ( verrel($cmp, $dest, \%counts) ) {
259     push @{$cmp->{repos}}, $dest;
260     if ( $repos->{$cmp->{repo}}->{orig} ) {
261     $orig{$cmp->{nvra}}++;
262     } elsif ( $cmp->{src} && $reposrc{$cmp->{repo}} ) {
263     $reposrc{$cmp->{repo}}->{srpm} = $cmp;
264     } else {
265     $cmp->{delete}++;
266     }
267     $cmp->{oldrepo} = $cmp->{repo} unless $cmp->{oldrepo};
268     $cmp->{repo} = $dest;
269     if ( $cmp->{src} && $reposrc{$cmp->{repo}} ) {
270     $reposrc{$cmp->{repo}}->{srpm} = $cmp;
271     }
272     } else {
273     $cmp->{delete}++;
274     }
275     } else {
276     $cmp->{delete}++;
277     }
278 slords 1.30 }
279     }
280     unless ( $repos->{$cmp->{repo}}->{orig} || ( $cmp->{delete} && ! $cmp->{repos} ) ) {
281     $pkgs{$cmp->{nvra}}++;
282     $latest{$cmp->{base}} = $cmp->{svr} if $repos->{$cmp->{repo}}->{inc} && ! $latest{$cmp->{base}};
283 slords 1.31 $reposrc{$cmp->{repo}} = $cmp unless $reposrc{$cmp->{repo}} || $cmp->{src} || $repos->{$cmp->{repo}}->{stage};
284 slords 1.30 unless ( $seen{$cmp->{nvra}} ) {
285     $seen{$cmp->{nvra}} = $cmp;
286     $cmp->{latest}++ if $latest{$cmp->{base}} && $cmp->{svr} eq $latest{$cmp->{base}} && $repos->{$cmp->{repo}}->{inc};
287 slords 1.20 }
288 slords 1.30 push @{$acnt->{$cmp->{repo}}->{$cmp->{rpm}->as_nvre}->{$cmp->{src} ? 'src' : $cmp->{rpm}->arch}}, $cmp;
289 slords 1.20 }
290 slords 1.30 $cmp->{done}++;
291 slords 1.20 }
292 slords 1.30 if ( $srpm ) {
293 slords 1.31 foreach my $r ( sort { $repos->{$b}->{prio} <=> $repos->{$a}->{prio} } keys %reposrc ) {
294 slords 1.30 unless ( $reposrc{$r}->{srpm} ) {
295 slords 1.31 unshift @{$srpm->{repos}}, $r;
296 slords 1.30 $srpm->{oldrepo} = $srpm->{repo} unless $srpm->{oldrepo};
297     $srpm->{repo} = $r;
298     $reposrc{$r}->{srpm} = $srpm;
299     }
300 slords 1.20 }
301 slords 1.31 } elsif ( scalar keys %pkgs && $opts{s} ) {
302 slords 1.32 print "\n * missing source (sme$smever, ", $pkg->{repo}, ", ", $pkg->{svr}, ")\n";
303 slords 1.20 }
304 slords 1.32 print "\n * missing originals (sme$smever, ", $pkg->{repo}, ", ", $pkg->{svr}, ")\n" if $opts{o} && scalar keys %orig != scalar keys %pkgs;
305 slords 1.20 }
306 slords 1.30
307     foreach my $r ( keys %$acnt ) {
308     foreach my $p ( keys %{$acnt->{$r}} ) {
309     foreach my $a ( keys %{$acnt->{$r}->{$p}} ) {
310 slords 1.20 if ( $a eq 'noarch' ) {
311 slords 1.30 my $p2 = ${$acnt->{$r}->{$p}->{$a}}[0];
312     if ( ! $p2->{repos} && scalar @{$acnt->{$r}->{$p}->{$a}} != scalar @archs ) {
313     $p2->{oldrepo} = $p2->{repo};
314     push @{$p2->{repos}}, $p2->{repo};
315     }
316     } elsif ( scalar @{$acnt->{$r}->{$p}->{$a}} != 1 ) {
317     print "\n * many packages ($r, $a, $p)\n";
318 slords 1.20 }
319     }
320     }
321     }
322 slords 1.25
323 slords 1.30 foreach my $pkg ( sort { $a->{nvra} cmp $b->{nvra} } @{$rpms->{$base}->{rpms}} ) {
324     if ( $pkg->{latest} && $pkg->{latest} == 1 ) {
325     $pkg->{oldrepo} = $pkg->{repo} unless $pkg->{oldrepo};
326     $pkg->{repo} = $stage;
327     push @{$pkg->{repos}}, $stage;
328     }
329     if ( ! $print && ($pkg->{delete} || $pkg->{repos} || $pkg->{nosig} ) ) {
330     print "\n$base (sme$smever)\n", "=" x length("$base (sme$smever)"), "\n";
331     $print++;
332     }
333 slords 1.20
334     my $src = $pkg->{rpm}->filename;
335 slords 1.30 if ( $pkg->{nosig} ) {
336 slords 1.33 print "sign package (", basename($pkg->{rpm}->filename), ")\n";
337 slords 1.30 unless ( $opts{t} ) {
338     qx(cat $HOME/.rpmpass | setsid rpm --addsign $src >& /dev/null);
339     if ($?) {
340     print " * failed to sign package\n";
341     next;
342     }
343     }
344     }
345 slords 1.20
346     if ( $pkg->{repos} ) {
347 slords 1.30 foreach my $repo ( @{$pkg->{repos}} ) {
348     if ( $pkg->{delete} ) {
349     print "move from ", $pkg->{oldrepo}, " to $repo (", basename($pkg->{rpm}->filename), ")\n";
350     $pkg->{delete} = 0;
351     $repochg{$pkg->{oldrepo}}++ unless $repos->{$pkg->{oldrepo}}->{base} || $repos->{$pkg->{oldrepo}}->{stage};
352     } elsif ( $pkg->{oldrepo} eq $repo ) {
353     print "distribute noarch in $repo (", basename($pkg->{rpm}->filename), ")\n";
354     } else {
355     print "copy from ", $pkg->{oldrepo}, " to $repo (", basename($pkg->{rpm}->filename), ")\n";
356     }
357     $repochg{$repo}++ unless $repos->{$repo}->{base} || $repos->{$repo}->{stage};
358     $pkg->{oldrepo} = $repo unless $pkg->{oldrepo} eq ${$pkg->{repos}}[0];
359    
360     my @d = ();
361     my $head = $distrepo->{$smever}->{repo} . $repo . '/';
362     $head = $distrepo->{$smever}->{stage} if $repos->{$repo}->{stage};
363     my $tail = $repos->{$repo}->{os} ? 'SME/' . $distrepo->{$smever}->{os} : 'RPMS/';
364     if ( $pkg->{src} ) {
365     push @d, "${head}SRPMS/" . basename($pkg->{rpm}->filename);
366     } elsif ( $pkg->{rpm}->arch eq 'noarch' ) {
367     push @d, map { "${head}$_/$tail" . basename($pkg->{rpm}->filename) } @archs;
368     } elsif ( $pkg->{rpm}->arch =~ m{^(i[356]86)$} ) {
369     push @d, "${head}i386/$tail" . basename($pkg->{rpm}->filename);
370     } else {
371     push @d, $head . $pkg->{rpm}->arch . "/$tail" . basename($pkg->{rpm}->filename);
372     }
373     foreach my $dest ( @d ) {
374     qx(cp --preserve=timestamps $src $dest) unless $opts{t} || -f "$dest";
375     }
376    
377 slords 1.11 }
378 slords 1.30 qx(rm -f $src) if exists $pkg->{delete} && ! $opts{t};
379     } elsif ( $pkg->{delete} ) {
380 slords 1.34 print "delete from ", $pkg->{repo}, " (", $pkg->{arch}, ", ", basename($pkg->{rpm}->filename), ")\n";
381 slords 1.31 qx(rm -f $src) unless $opts{t};
382 slords 1.30 $repochg{$pkg->{repo}}++ unless $repos->{$pkg->{repo}}->{base} || $repos->{$pkg->{repo}}->{stage};
383 slords 1.20 }
384     }
385 slords 1.30 }
386    
387     if ( %repochg ) {
388     print "\nrebuild repo (sme$smever)\n", "=" x length("rebuild repo (sme$smever)"), "\n";
389     }
390     foreach my $repo ( sort { $repos->{$b}->{prio} <=> $repos->{$a}->{prio} } keys %repochg ) {
391     next if $repos->{$repo}->{orig} || $repos->{$repo}->{stage};
392     foreach my $arch ( @archs ) {
393     my $dir = $distrepo->{$smever}->{repo} . "$repo/$arch";
394     $dir = qx(readlink -f $dir);
395     chomp $dir;
396     print "rebuild $repo/$arch\n";
397     unless ( $opts{t} ) {
398     if ( -f "$dir/repodata/comps.xml" ) {
399 slords 1.33 qx(createrepo -g repodata/comps.xml $dir);
400 slords 1.30 } else {
401     qx(createrepo $dir);
402     }
403 slords 1.20 qx(repoview $dir);
404     qx(rm -rf $dir/.olddata) if -d "$dir/.olddata";
405     qx(rm -rf $dir/.repodata) if -d "$dir/.repodata";
406     }
407 slords 1.11 }
408 slords 1.20 }
409 slords 1.30 unless ( $opts{t} ) {
410     finddepth(sub{rmdir}, $distrepo->{$smever}->{$_}) foreach ('builds','contribs','qa');
411     }
412 slords 1.1 }
413    
414 slords 1.30 sub verrel {
415     my $pkg = shift;
416     my $repo = shift;
417     my $counts = shift;
418 slords 1.20
419 slords 1.31 return 0 if $pkg->{src};
420 slords 1.30 $counts->{$repo}->{$pkg->{ver}}->{$pkg->{rel}}++;
421     return 1 if $repos->{$repo}->{ver} && scalar keys %{$counts->{$repo}} > $repos->{$repo}->{ver};
422     return 1 if $repos->{$repo}->{rel} && scalar keys %{$counts->{$repo}->{$pkg->{ver}}} > $repos->{$repo}->{rel};
423     return 0;
424 slords 1.20 }
425    
426 slords 1.30 sub pkgdest {
427 slords 1.20 my $pkg = shift;
428 slords 1.30 my $dest = shift;
429     my $hirepo = shift;
430     my $pkgs = shift;
431    
432     foreach my $cmp ( @$pkgs ) {
433 slords 1.31 next if $cmp->{src} || $repos->{$cmp->{repo}}->{prio} <= $repos->{$dest}->{prio};
434     next if $pkg->{name} ne ( $pkg->{src} ? $cmp->{base} : $cmp->{name} );
435 slords 1.30 if ( $repos->{$cmp->{repo}}->{prio} > $repos->{$hirepo}->{prio} ) {
436     $dest = $hirepo;
437     last;
438 slords 1.20 } else {
439 slords 1.30 $dest = $cmp->{repo};
440 slords 1.20 }
441     }
442 slords 1.30 return $dest;
443 slords 1.20 }
444    
445 slords 1.30 sub process_rpm {
446     my $rpm = shift;
447     my $smever = shift;
448     my $repo = shift;
449     return unless $rpm =~ m{/([^/]*)-[^-]+-[^-]+\.\w+\.rpm$};
450     my $base = $1;
451     return unless ! $opts{r} || $base =~ m[$opts{r}];
452     return unless $latest{$base} || $sources{$base} || ! $repos->{$repo}->{base};
453 slords 1.20
454     my $pkg;
455 slords 1.30 eval { $pkg = RPM2->open_package($rpm, $rpm_flags); };
456     if ($@) { print " * corrupt package ($rpm)\n"; return; }
457 slords 1.20 eval { my $sig = $pkg->siggpg };
458     my $nosig = ! $@;
459    
460 slords 1.30 my $cmp = $latest{$pkg->name};
461     if ( $repos->{$repo}->{base} && ! $pkg->is_source_package ) {
462     return unless $cmp;
463     return if $repos->{$cmp->{repo}}->{base} && $repos->{$cmp->{repo}}->{prio} > $repos->{$repo}->{prio} && $pkg ge $cmp->{rpm};
464     }
465     my ($src, $version, $release) = ($pkg->is_source_package ? $pkg->filename : $pkg->sourcerpm) =~ m{(?:^|/)([^/]*)-([^-]+)-([^-]+)\.\w+\.rpm$};
466     return if $skippkg->{$smever}->{$repo} && $skippkg->{$smever}->{$repo}->{$src};
467     return if $repos->{$repo}->{base} && $nosig;
468     if ( $nosig && ! -f "$HOME/.rpmpass" ) { print " * missing signature (" .$pkg->filename . ")\n"; return; }
469 slords 1.34 my $arch = 'unknown';
470     $arch = 'SRPMS' if $pkg->filename =~ m{[/-](SRPMS?|src|source)/};
471     $arch = 'x86_64' if $pkg->filename =~ m{[/-]x86_64/};
472     $arch = 'i386' if $pkg->filename =~ m{[/-](i[356]86)/};
473     $arch = 'noarch' if $pkg->filename =~ m{[/-]noarch/};
474 slords 1.30
475     my $rpmhash = { base => $src,
476     name => $pkg->name,
477     repo => $repo,
478     nvra => $pkg->name.'-'.$pkg->version.'-'.$pkg->release.'.'.( $pkg->is_source_package ? 'src' : $pkg->tag('ARCH') ),
479     svr => $src.'-'.$version.'-'.$release,
480     src => $pkg->is_source_package,
481 slords 1.34 arch => $arch,
482 slords 1.30 ver => $version,
483     rel => $release,
484     rpm => $pkg,
485     nosig => $nosig,
486     };
487     if ( $pkg->is_source_package ) {
488     push @{$rpms->{$src}->{srpms}}, $rpmhash;
489     push @{$rpms->{$src}->{vers}->{$rpmhash->{svr}}}, $rpmhash;
490     } else {
491     push @{$rpms->{$src}->{rpms}}, $rpmhash;
492 slords 1.26 }
493 slords 1.30 $sources{$src}++;
494 slords 1.20
495 slords 1.30 return if $pkg->is_source_package || $repos->{$repo}->{stage};
496     if ( ! $repos->{$repo}->{base} ) {
497     if ( ! $cmp || $pkg gt $cmp->{rpm} ) {
498     $latest{$pkg->name} = $rpmhash;
499 slords 1.20 }
500 slords 1.30 } elsif ( ( $repos->{$repo}->{prio} >= $repos->{$cmp->{repo}}->{prio} || ! $repos->{$cmp->{repo}}->{base} ) && $pkg ge $cmp->{rpm} ) {
501     $latest{$pkg->name} = $rpmhash;
502 slords 1.20 }
503 slords 1.1 }
admin@koozali.org
 ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed