No puede seleccionar más de 25 temas
Los temas deben comenzar con una letra o número, pueden incluir guiones ('-') y pueden tener hasta 35 caracteres de largo.
46 líneas
668 B
46 líneas
668 B
# !/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);
|