You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
46 lines
668 B
46 lines
668 B
14 years ago
|
# !/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);
|