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