utils/extract-i18n-js.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

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

while (<STDIN>) {
	chomp;

	if (/(__|Notify.progress|Notify.msg|Notify.info|Notify.error)\(['"](.*?)['"]\)/) {
		my $msg = $2;

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

		print "print T_js_decl(\"$msg\");\n";
	}
}