- new

Changed files:
    openoffice-pld-package-lang.patch -> 1.1

diff --git a/openoffice-pld-package-lang.patch b/openoffice-pld-package-lang.patch
new file mode 100644 (file)
index 0000000..9a1d97f
--- /dev/null
+++ b/openoffice-pld-package-lang.patch
@@ -0,0 +1,49 @@
+diff -urN ooo-build-1.1.54.org/bin/package-lang ooo-build-1.1.54/bin/package-lang
+--- ooo-build-1.1.54.org/bin/package-lang      2004-04-30 02:50:20.270649456 +0200
++++ ooo-build-1.1.54/bin/package-lang  2004-05-01 00:44:40.321099528 +0200
+@@ -117,6 +117,8 @@
+ 
+ sub BuildLang {
+       my $lang = shift;
++      my $lang_iso = `$Xlate -i $lang`;
++      my $BaseDir = $setup_vars{'TOOLSDIR'};
+       my $SetupDir = $setup_vars{'OOBUILDDIR'} . "/instsetoo/$Target/$lang/normal";
+       my $SolverDir = $setup_vars{'OOBUILDDIR'} . "/solver/$Id/$Target";
+       my $SetupConf = "$SetupDir/setup.ins";
+@@ -135,6 +137,9 @@
+       die "$UnzipCommand not found, please set the full path to the unzip command\n" if
+           ( ! -x "$UnzipCommand" );
+ 
++      $langl_file = $BaseDir . '/lang_' . $lang_iso . '_list.txt';
++      open(LANGL, ">>$langl_file");
++              
+       while (my ($key, $value) = each (%{$setup->{File}})) {
+               if ($value->{PackedName}) {
+                       # Find language-specific candidates
+@@ -152,6 +157,8 @@
+                               if( -f $destFile ) {
+                                   unlink $destFile or die "Can't delete $destFile";
+                               }
++
++                              print LANGL "$destFile\n";
+                               
+                               # Try to link file first
+                               if(link($fileToCopy,$destFile)) {
+@@ -165,6 +172,9 @@
+                           else {
+                               my $fileToUnzip = $SolverDir . '/pck/' . $value->{Name};
+                               if( -r $fileToUnzip ) {
++
++                                  # also put archive files into LANGL (TODO)
++                                  
+                                   $action = "Unzip";
+                                   system("$UnzipCommand -qq -o $fileToUnzip -d $outpath");
+                               }
+@@ -176,6 +186,7 @@
+                       }
+                   }
+           }
++          close(LANGL);
+ 
+       print "done";
+