ttrss/utils/extract-i18n-js.pl

16 lines
231 B
Perl
Raw Normal View History

#!/usr/bin/perl -w
#
use strict;
while (<STDIN>) {
chomp;
2018-12-02 17:56:30 +00:00
if (/(__|Notify.progress|Notify.msg|Notify.info|Notify.error)\(['"](.*?)['"]\)/) {
my $msg = $2;
$msg =~ s/\"/\\\"/g;
print "print T_js_decl(\"$msg\");\n";
}
}