0xV3NOMx
Linux ip-172-26-7-228 5.4.0-1103-aws #111~18.04.1-Ubuntu SMP Tue May 23 20:04:10 UTC 2023 x86_64

Your IP : 52.14.49.59

Current Path : /proc/self/root/usr/lib/kubuntu-l10n/libexec/
Upload File :
Current File : //proc/self/root/usr/lib/kubuntu-l10n/libexec/preparetips

#! /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>

# IMPORTANT NOTE: Do not change the output without checking if
# translations still work!

sub printText
{
	my $text = $_[0];
	
	if ( $text cmp "" )
	{

	# replace \ with \\
	$text =~ s/\\/\\\\/g;

	# replace " with \"
	$text =~ s/"/\\"/g;
			
	print "\"$text\\n\"\n";
	}
}

open(FILE,"<","tips") or die "unable to open tips file";
if ( $^V ge v5.8.0 )
{
	binmode(FILE,":utf8");
	binmode(STDOUT,":utf8");
}

$inTip=0;

while(<FILE>)
{
	chomp;

	# tip starts with <html>
	if(/^\s*<html>(.*)/io)
	{
		$inTip=1;
		print "// i18n: file: tips:$.\n// i18n: ectx: \@info:tipoftheday\n";
		print "i18n(";
		printText($1);
		next;
	}	

	if($inTip!=0)
	{
		# tip ends with </html>
		if(/^(.*)\s*<\/html>/io)
		{
			printText($1);
			print ");\n\n";
			$inTip=0;
		}
		else
		{
			printText($_);
		}
	}   
}

close(FILE);