[Oscar-checkins] r5310 - trunk/scripts

[<val...@os...>]

Author: valleegr
Date: 2006-08-21 01:07:32 -0400 (Mon, 21 Aug 2006)
New Revision: 5310

Modified:
   trunk/scripts/populate_default_package_set
Log:
+ mechanism to specify excluded packages from the default package set adding
file in share/package_set. For that, create a file with the pattern
"distro-version-arch.txt" which contains the list of packages that have to be
excluded (one package per line).


Modified: trunk/scripts/populate_default_package_set
===================================================================
--- trunk/scripts/populate_default_package_set	2006-08-20 21:46:04 UTC (rev 5309)
+++ trunk/scripts/populate_default_package_set	2006-08-21 05:07:32 UTC (rev 5310)
@@ -36,6 +36,7 @@
 use OSCAR::Database;
 use OSCAR::Package;
 use OSCAR::oda;
+use OSCAR::OCA::OS_Detect;
 
 my %options = ();
 my @errors = ();
@@ -54,7 +55,48 @@
 my $DEFAULT = "Default";
 
 # packages to be excluded from the default packages set
-my @exclude_packages = qw(networking pfilter sge);
+my @exclude_packages_by_default = qw(networking pfilter sge sc3);
+
+# we also load excluded packages for the distribution if we find
+# a file associated to the current distro within share/package_set
+# We first identify the current OS in order to be able to find the
+# list of packages that have to be excluded. Remember, files in
+# share/package_set follow the following pattern distro-version-archi
+my $os = OSCAR::OCA::OS_Detect::open();
+exit -1 if(!$os);
+my $filename = $ENV{OSCAR_HOME} . "/share/package_set/";
+$filename .= $os->{distro} . "-" . $os->{distro_version} . "-" . $os->{arch} . ".txt";
+print "We check if file " . $filename . " exists\n";
+my @exclude_packages = qw();
+if ( -f $filename ) {
+    print "File exists, excluding packages...\n";
+    open (FILE, $filename);
+    my $package;
+    while ($package = <FILE>) {
+        chomp ($package);
+        if ($package ne "") {
+            push(@exclude_packages, $package);
+        }
+    }
+    close (FILE);
+}
+# We merge now excluded packages for the distro and those excluded 
+# by default. The list should not have a package twice.
+for (@exclude_packages_by_default) {
+    my $pkg1 = $_;
+    my $pkg_found = 0;
+    for (@exclude_packages) {
+        my $pkg2 = $_;
+        if ($pkg1 eq $pkg2) {
+            $pkg_found = 1;
+        }
+    }
+    if ($pkg_found eq 0) {
+        push(@exclude_packages, $pkg1);
+    }
+}
+print "Packages excluded: @exclude_packages.\n";
+
 my %is_excluded = ();
 for (@exclude_packages) { $is_excluded{$_} = 1 };