git.sur5r.net Git - bacula/bacula/blob - gui/bweb/script/make_pot.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use Getopt::Long;
   4
   5 # Usage: $0 *.po *.tpl
   6 #my $src = shift or die "Usage $0 pofile";
   7 #
   8 #my $tab;
   9 #{
  10 #    no strict;
  11 #    $tab = eval `cat $src`;
  12 #}
  13
  14 open(OUT, "|msguniq > bweb.pot");
  15
  16 foreach my $f (@ARGV)
  17 {
  18     next if (! -f $f) ;
  19
  20     open(FP, $f) or print STDERR "Can't open $f for reading\n";
  21     while (my $l = <FP>)
  22     {
  23         my (@str) = ($l =~ m/__(.+?)__/g);
  24
  25         while (my $s = shift @str) {
  26             my $r = ''; #$tab->{$s} || $s;
  27             $s =~ s/\n/\\n/g;
  28             $s =~ s/"/\\"/g;
  29 #           $r =~ s/\n/\\n/g;
  30 #           $r =~ s/"/\\"/g;
  31             print OUT "#: $f:$.\n";
  32             print OUT "msgid \"$s\"\n";
  33             print OUT "msgstr \"$r\"\n\n";
  34         }
  35     }
  36     close(FP);
  37 }
  38
  39 close(OUT);
  40 # msginit  pot -> lang.po
  41 # msgmerge fr.po bweb.pot