scripts/templ2t8.pl

   1 #!/usr/bin/perl -pli.orig
   2
   3 #
   4 # template converter -> T8 converter
   5 #
   6 # wanna get rid of those <translate> tags?
   7 # no problem. use this script to fix most it.
   8 #
   9 # use: perl tmpl2t8.pl <file>
  10 #
  11 # will save the original file as file.orig
  12 #
  13 s/$/[% USE T8 %]/ if $. == 1;
  14 s/<translate>([^<]+)<\/translate>/[%- '$1' | \$T8 %]/xg;