# !/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 # Command line option added by Joachim Ansorg open(FILE,"<$ARGV[0]") || die "unable to open tips file"; $inTip=0; while() { chomp; # tip starts with if(/^\s*/i) { $inTip=1; print "\ni18n(\n"; next; } if($inTip!=0) { # tip ends with if(/^\s*<\/html>/i) { print ");\n"; $inTip=0; } else { # replace \ with \\ s/\\/\\\\/g; # replace " with \" s/"/\\"/g; print "\"$_\\n\"\n"; } } } close(FILE);