1 files changed, 15 insertions, 0 deletions
diff --git a/utils/extract-i18n-js.pl b/utils/extract-i18n-js.pl
new file mode 100755
index 000000000..d6179fc70
--- /dev/null
+++ b/utils/extract-i18n-js.pl
@@ -0,0 +1,15 @@
+#!/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";
+	}
+}