initial commit of file from CVS for smeserver-support on Mon 10 Jul 08:43:33 BST 2023

root/etc/e-smith/db/yum_repositories/migrate/25CentOSExcludes

@@ -0,0 +1,26 @@
+{
+    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');
+        }
+    }
+}