diff options
Diffstat (limited to 'translations/preparetips')
| -rwxr-xr-x | translations/preparetips | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/translations/preparetips b/translations/preparetips deleted file mode 100755 index 1e5c35a..0000000 --- a/translations/preparetips +++ /dev/null @@ -1,45 +0,0 @@ -# !/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); |
