ttrss/utils/extract-i18n-js.pl

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