* Wed Mar 27 2024 Jean-Philippe Pialasse <jpp@koozali.org> 11.0.0-4.sme
- removing yum_repositories related elements [SME: 12558]master 11_0_0-4_el8_sme
parent
9ea30d9612
commit
d65a356023
@ -1,26 +0,0 @@
|
||||
{
|
||||
my @add = split(/[,; ]+/, 'CENTOS_EXCLUDES');
|
||||
my %remove = map { $_ => 1 } split(/[,; ]+/, 'CENTOS_REMOVE');
|
||||
|
||||
for my $name ( qw(base updates) )
|
||||
{
|
||||
my $repo = $DB->get($name) or next;
|
||||
|
||||
my @exclude = split(/,/, $repo->prop('Exclude') || '');
|
||||
push @exclude, @add;
|
||||
@exclude = grep(!defined $remove{$_} && !/^CENTOS_/, @exclude);
|
||||
|
||||
# remove duplicates
|
||||
undef %saw;
|
||||
@exclude = grep(!$saw{$_}++, @exclude);
|
||||
|
||||
if ($#exclude >= 0)
|
||||
{
|
||||
$repo->set_prop('Exclude', join(',', @exclude));
|
||||
}
|
||||
else
|
||||
{
|
||||
$repo->delete('Exclude');
|
||||
}
|
||||
}
|
||||
}
|
Loading…
Reference in New Issue