agriget/utils/extract-i18n-js.pl
2019-03-22 10:17:29 -04:00

16 lines
231 B
Perl
Executable File

#!/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";
}
}