diff options
Diffstat (limited to 'translations/preparetips')
-rwxr-xr-x | translations/preparetips | 45 |
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); |