utils/extract-i18n-js.pl

   1 #!/usr/bin/perl -w
   2 #
   3 use strict;
   4
   5 while (<STDIN>) {
   6         chomp;
   7
   8         if (/(__|notify_progress|notify|notify_info|notify_error)\(['"](.*?)['"]\)/) {
   9                 my $msg = $2;
  10
  11                 $msg =~ s/\"/\\\"/g;
  12
  13                 print "print T_js_decl(\"$msg\");\n";
  14         }
  15 }