[PATCH 5/6] Add code to load list.exclude before adding packages on CDs

[Otavio Salvador <otavio@ossystems.com.br>]

From: Otavio Salvador <otavio@ossystems.com.br>

Signed-off-by: Otavio Salvador <otavio@ossystems.com.br>
---

 tools/list2cds |   10 ++++++++++
 1 files changed, 10 insertions(+), 0 deletions(-)

diff --git a/tools/list2cds b/tools/list2cds
index 78ec89f..427d814 100755
--- a/tools/list2cds
+++ b/tools/list2cds
@@ -107,6 +107,16 @@ if (not $nonus) {
 	}
 }
 
+open (EXCLUDE_LIST, "< $exclude") || die "Can't open $exclude : $!\n";
+while (defined($_=<EXCLUDE_LIST>)) {
+	chomp;
+	next if m/^\s*$/;
+	next if $excluded{$_};
+	$excluded{$_} = 'list';
+	$count_excl++;
+}
+close EXCLUDE_LIST;
+
 msg(1, "Statistics:
 Number of packages: @{ [scalar(keys %packages)] }
 Number of excluded: $count_excl of @{ [scalar(keys %excluded)] }