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

   1 #!/usr/bin/perl -w
   2 use strict;
   3
   4 my $f = shift or die "Usage $0 pofile";
   5
   6 my $tab;
   7 {
   8     no strict;
   9     $tab = eval `cat $f`;
  10 }
  11
  12 die "E: Can't read $f" unless ($tab);
  13 my $r;
  14 foreach my $e (keys %$tab)
  15 {
  16     $e =~ s/[?]/\\?/g;
  17     $e =~ s/@/\\@/g;
  18     $r = $tab->{$e} || $e;
  19     $e =~ s/([()])/\\$1/g;
  20     print "s!__${e}__!${r}!g;\n";
  21 }
  22
  23 print "print;";
  24
  25
  26 __END__
  27
  28 copy tpl files
  29 generate perl script
  30 tpl_generate.pl fr.pl > a
  31 perl -i.bak -n a *.tpl