19 |
|
|
20 |
my @repos = ( |
my @repos = ( |
21 |
"$releasedir/$smerel/smeos/$arch/CentOS/RPMS", |
"$releasedir/$smerel/smeos/$arch/CentOS/RPMS", |
22 |
|
"$releasedir/$smerel/smeos/$arch/SME/RPMS", |
23 |
|
"$releasedir/$smerel/smeos/$arch/RPMS", |
24 |
|
"$releasedir/$smerel/smeos/$arch/SME", |
25 |
"$releasedir/$smerel/smeupdates/$arch/RPMS", |
"$releasedir/$smerel/smeupdates/$arch/RPMS", |
26 |
"$releasedir/$smerel/smeupdates-testing/$arch/RPMS", |
"$releasedir/$smerel/smeupdates-testing/$arch/RPMS", |
27 |
"$releasedir/$smerel/smeextras/$arch/RPMS", |
"$releasedir/$smerel/smeextras/$arch/RPMS", |
42 |
"/mirrors/centos/$centosrel/extras/SRPMS", |
"/mirrors/centos/$centosrel/extras/SRPMS", |
43 |
"/mirrors/rpmforge/dag/source", |
"/mirrors/rpmforge/dag/source", |
44 |
"/mirrors/atrpms/src/el$centosrel-$arch/atrpms/stable", |
"/mirrors/atrpms/src/el$centosrel-$arch/atrpms/stable", |
45 |
|
"/mirrors/fedora/epel/$centosrel/SRPMS", |
46 |
"/mirrors/fedora/core/updates/$fedorarel/SRPMS", |
"/mirrors/fedora/core/updates/$fedorarel/SRPMS", |
47 |
"/mirrors/fedora/core/$fedorarel/source/SRPMS", |
"/mirrors/fedora/core/$fedorarel/source/SRPMS", |
48 |
"/mirrors/fedora/extras/$fedorarel/SRPMS", |
"/mirrors/fedora/extras/$fedorarel/SRPMS", |
127 |
@{$repohash{$pkg}{$pos}} = grep { $_ gt $repohash{$pkg}{latest} } @{$repohash{$pkg}{$pos}}; |
@{$repohash{$pkg}{$pos}} = grep { $_ gt $repohash{$pkg}{latest} } @{$repohash{$pkg}{$pos}}; |
128 |
delete $repohash{$pkg}{$pos}; |
delete $repohash{$pkg}{$pos}; |
129 |
} |
} |
130 |
} else { |
} elsif ( ref($repohash{$pkg}{$pos}) eq 'ARRAY' ) { |
131 |
my ($latest, @rest) = sort { $b cmp $a } @{$repohash{$pkg}{$pos}}; |
my ($latest, @rest) = sort { $b cmp $a } @{$repohash{$pkg}{$pos}}; |
132 |
delete $repohash{$pkg}{$pos}; |
delete $repohash{$pkg}{$pos}; |
133 |
if ( $repohash{$pkg}{latest} && $repohash{$pkg}{latest} ge $latest ) { |
if ( $repohash{$pkg}{latest} && $repohash{$pkg}{latest} ge $latest ) { |
240 |
foreach my $repo ( sort keys %changed ) { |
foreach my $repo ( sort keys %changed ) { |
241 |
next if $repo =~ m{^$stagedir}; |
next if $repo =~ m{^$stagedir}; |
242 |
|
|
243 |
print "rebuilding $repo/i386...\n"; |
my $dir=`readlink -f $repo/$arch`; |
244 |
system(qw(createrepo), "$repo/i386"); |
chomp $dir; |
245 |
system(qw(repoview), "$repo/i386"); |
print "rebuilding $dir...\n"; |
246 |
|
system(qw(createrepo), "$dir"); |
247 |
|
system(qw(repoview), "$dir"); |
248 |
} |
} |
249 |
|
|