Automated build for v0.01
This commit is contained in:
15
utils/extract-i18n-js.pl
Executable file
15
utils/extract-i18n-js.pl
Executable file
@ -0,0 +1,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";
|
||||
}
|
||||
}
|
Reference in New Issue
Block a user