smeserver-support/sme8/smeserver-support-2.2.0-migrate_excludes.patch

diff -up smeserver-support-2.2.0/root/etc/e-smith/db/yum_repositories/migrate/25CentOSExcludes.migrate_excludes smeserver-support-2.2.0/root/etc/e-smith/db/yum_repositories/migrate/25CentOSExcludes
--- smeserver-support-2.2.0/root/etc/e-smith/db/yum_repositories/migrate/25CentOSExcludes.migrate_excludes      2010-05-17 13:36:02.000000000 -0600
+++ smeserver-support-2.2.0/root/etc/e-smith/db/yum_repositories/migrate/25CentOSExcludes       2010-05-17 13:35:50.000000000 -0600
@@ -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');
+        }
+    }
+}
1	slords	1.1	diff -up smeserver-support-2.2.0/root/etc/e-smith/db/yum_repositories/migrate/25CentOSExcludes.migrate_excludes smeserver-support-2.2.0/root/etc/e-smith/db/yum_repositories/migrate/25CentOSExcludes
2			--- smeserver-support-2.2.0/root/etc/e-smith/db/yum_repositories/migrate/25CentOSExcludes.migrate_excludes 2010-05-17 13:36:02.000000000 -0600
3			+++ smeserver-support-2.2.0/root/etc/e-smith/db/yum_repositories/migrate/25CentOSExcludes 2010-05-17 13:35:50.000000000 -0600
4			@@ -0,0 +1,26 @@
5			+{
6			+ my @add = split(/[,; ]+/, 'CENTOS_EXCLUDES');
7			+ my %remove = map { $_ => 1 } split(/[,; ]+/, 'CENTOS_REMOVE');
8			+
9			+ for my $name ( qw(base updates) )
10			+ {
11			+ my $repo = $DB->get($name) or next;
12			+
13			+ my @exclude = split(/,/, $repo->prop('Exclude') \|\| '');
14			+ push @exclude, @add;
15			+ @exclude = grep(!defined $remove{$_} && !/^CENTOS_/, @exclude);
16			+
17			+ # remove duplicates
18			+ undef %saw;
19			+ @exclude = grep(!$saw{$_}++, @exclude);
20			+
21			+ if ($#exclude >= 0)
22			+ {
23			+ $repo->set_prop('Exclude', join(',', @exclude));
24			+ }
25			+ else
26			+ {
27			+ $repo->delete('Exclude');
28			+ }
29			+ }
30			+}