aboutsummaryrefslogtreecommitdiff
path: root/misc/kdeedu3/files/patch-post-3.4.2-kdeedu.diff
diff options
context:
space:
mode:
Diffstat (limited to 'misc/kdeedu3/files/patch-post-3.4.2-kdeedu.diff')
-rw-r--r--misc/kdeedu3/files/patch-post-3.4.2-kdeedu.diff63
1 files changed, 63 insertions, 0 deletions
diff --git a/misc/kdeedu3/files/patch-post-3.4.2-kdeedu.diff b/misc/kdeedu3/files/patch-post-3.4.2-kdeedu.diff
new file mode 100644
index 000000000000..1d75c63bac18
--- /dev/null
+++ b/misc/kdeedu3/files/patch-post-3.4.2-kdeedu.diff
@@ -0,0 +1,63 @@
+Index: kvoctrain/kvoctrain/langen2kvtml
+===================================================================
+--- kvoctrain/kvoctrain/langen2kvtml (revision 443975)
++++ kvoctrain/kvoctrain/langen2kvtml (working copy)
+@@ -89,6 +89,9 @@
+
+ require "flush.pl";
+ use Getopt::Long;
++use File::Temp qw(tempdir);
++my $tmpdir = tempdir(TEMPDIR => 1, CLEANUP => 1 );
++
+ $/="\r\n"; # we work with dos files
+
+ #
+@@ -165,10 +168,6 @@
+ $country="GB";
+ }
+
+-# All logging information goes into this file
+-$logfile = "/tmp/langen2kvtml.log";
+-open(LOG, ">$logfile") || die "Cannot create $logfile: $!";
+-
+ &printflush(STDOUT,"Waiting for generating files ...\n");
+ $tmp1=$#ARGV+1;
+ &printflush(STDOUT,"... $tmp1 files given via command line ...\n");
+@@ -178,13 +177,11 @@
+ if ($proxy) {
+ &printflush(STDOUT,"... using proxy service $proxy ...\n");
+ }
+- `lwp-request $proxy http://www.vokabeln.de/files/Voc-$country.zip >/tmp/Voc-$country.zip`;
+- # unzip -u update only!
+- # unzip -o overwrite!
+- `unzip -u /tmp/Voc-$country.zip >/tmp/unzip.log`;
++ `lwp-request $proxy http://www.vokabeln.de/files/Voc-$country.zip >$tmpdir/Voc-$country.zip`;
+ &printflush(STDOUT,"... updating Voc-$country.zip ...\n");
+ $/="\n"; # we work with a unix file
+- open(ZIP,"</tmp/unzip.log");
++ # unzip -u update only!
++ open(ZIP,"unzip -u $tmpdir/Voc-$country.zip |");
+ while(<ZIP>) {
+ chomp;
+ if( /voc/ ) {
+@@ -194,20 +191,16 @@
+ }
+ }
+ close(ZIP);
+- unlink("/tmp/unzip.log");
+ $/="\r\n"; # we work with a dos file
+ }
+
+ for my $file (@res, @ARGV) {
+ $vocfile = $file;
+- &printflush(LOG,"... generating \"$kvtfile\"...\n");
+ $lang = ""; # initially unset
+ $filestage = 0; # file stage
+ &process_vocfile($vocfile);
+ }
+ print STDERR "...\tAll Complete.\n";
+-&printflush(LOG,"\nAll Complete.\n");
+-close(LOG);
+
+ exit;
+