* Wed Mar 27 2024 Jean-Philippe Pialasse <jpp@koozali.org> 11.0.0-4.sme
- removing yum_repositories related elements [SME: 12558]
This commit is contained in:
		@@ -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');
 | 
			
		||||
        }
 | 
			
		||||
    }
 | 
			
		||||
}
 | 
			
		||||
		Reference in New Issue
	
	Block a user