tt-rss/utils/extract-i18n-js.pl
2009-02-20 12:57:02 +03:00

15 řádky
227 B
Perl
Spustitelný soubor

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