summaryrefslogtreecommitdiffstats
path: root/translations/preparetips
diff options
context:
space:
mode:
Diffstat (limited to 'translations/preparetips')
-rwxr-xr-xtranslations/preparetips45
1 files changed, 45 insertions, 0 deletions
diff --git a/translations/preparetips b/translations/preparetips
new file mode 100755
index 0000000..1e5c35a
--- /dev/null
+++ b/translations/preparetips
@@ -0,0 +1,45 @@
+# !/usr/bin/perl
+# little script to extract the text from the tips file
+# and output it, so xgettext can add the tips to the po file
+#
+# 2000 by Matthias Kiefer <matthias.kiefer@gmx.de>
+# Command line option added by Joachim Ansorg
+
+open(FILE,"<$ARGV[0]") || die "unable to open tips file";
+
+$inTip=0;
+
+while(<FILE>)
+{
+ chomp;
+
+ # tip starts with <html>
+ if(/^\s*<html>/i)
+ {
+ $inTip=1;
+ print "\ni18n(\n";
+ next;
+ }
+
+ if($inTip!=0)
+ {
+ # tip ends with </html>
+ if(/^\s*<\/html>/i)
+ {
+ print ");\n";
+ $inTip=0;
+ }
+ else
+ {
+ # replace \ with \\
+ s/\\/\\\\/g;
+
+ # replace " with \"
+ s/"/\\"/g;
+
+ print "\"$_\\n\"\n";
+ }
+ }
+}
+
+close(FILE);