tt-rss/utils/extract-i18n-js.pl

16 lines
227 B
Perl
Raw Normal View History

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