[tt-rss.git] / utils / extract-i18n-js.pl

#!/usr/bin/perl -w
#
use strict;

while (<STDIN>) {
	chomp;

	if (/(__|notify_progress|notify|notify_info|notify_error)\(['"](.*?)['"]\)/) {
		my $msg = $2;

		$msg =~ s/\"/\\\"/g;

		print "print T_js_decl(\"$msg\");\n";
	}
}
Commit	Line	Data
10bccf7d AD	1	#!/usr/bin/perl -w
	2	#
	3	use strict;
	4
	5	while (<STDIN>) {
	6	chomp;
	7
	8	if (/(__\|notify_progress\|notify\|notify_info\|notify_error)\(['"](.*?)['"]\)/) {
	9	my $msg = $2;
	10
	11	$msg =~ s/\"/\\\"/g;
	12
	13	print "print T_js_decl(\"$msg\");\n";
	14	}
	15	}