| 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 |
+} |
Parent Directory
| 
Revision Log
| 
Revision Graph
