# HG changeset patch # User Dario Sestito # Date 1247676532 -3600 # Node ID 02e483ad6786ce8b672b4a72c10d7285b475e9b5 # Parent f7fc039dd3a3e2ae01b1693eb605cd3505b146f3# Parent 61a7c7fafc30f8ecf1df2d1a1aa83bbe94f86070 Merge diff -r f7fc039dd3a3 -r 02e483ad6786 common/build.xml --- a/common/build.xml Wed Jul 15 11:40:44 2009 +0100 +++ b/common/build.xml Wed Jul 15 17:48:52 2009 +0100 @@ -388,10 +388,18 @@ - + - - + + + + + + + + + + @@ -545,6 +553,7 @@ + @@ -564,58 +573,56 @@ - - - - - - + + + + + + - - + - - - - - + + - + - - - + + + + + - - - - - - + + + - - - - - + + + + - - - - - - + + + + + + + + + @@ -852,6 +859,20 @@ + + + + + + + + + + + + + + diff -r f7fc039dd3a3 -r 02e483ad6786 common/tools/populateziptemplate.pl --- a/common/tools/populateziptemplate.pl Wed Jul 15 11:40:44 2009 +0100 +++ b/common/tools/populateziptemplate.pl Wed Jul 15 17:48:52 2009 +0100 @@ -25,7 +25,8 @@ my $sourcesCSV = shift or die "First arg must be source csv file"; my $template = shift or die "Second arg must be template file"; my $ftl = shift or die "Third arg must be output file"; -shift and die "No more than three arguments please"; +my $rndExcludes = shift or die "Fourth arg must be rnd-excludes file"; +shift and die "No more than four arguments please"; # Load CSV open my $csvText, "<", $sourcesCSV or die; @@ -141,6 +142,6 @@ $xml->XMLout($zipConfig, OutputFile => $ftl, XMLDecl => 1, RootName => 'build', KeyAttr => $keyAttr); # Output all rnd files into exclude list for later -open FILE, "> rnd_excludefile.txt" or die "Cannot write exludefile!"; -print FILE @allRndFiles; -close FILE; \ No newline at end of file +open my $fh, ">", $rndExcludes or die "Cannot write exlude file!"; +print $fh @allRndFiles; +close $fh; diff -r f7fc039dd3a3 -r 02e483ad6786 common/tools/sortUnique.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/common/tools/sortUnique.pl Wed Jul 15 17:48:52 2009 +0100 @@ -0,0 +1,13 @@ +#!perl -w +use strict; +# Sorts the input, removes duplicates, and outputs it + +# Read it +my @content = <>; + +# Sort it, and grep to remove duplicates +my $previous = "\n\n"; +@content = grep {$_ ne $previous && ($previous = $_, 1) } sort @content; + +# Write it +print @content;