po/po2wiki

   1 #!/usr/bin/perl
   2 # This program uses the po plugin's internals to convert the po files that
   3 # it generates back into translated wiki source files that can be used as a
   4 # underlay for a non-English wiki.
   5 use warnings;
   6 use strict;
   7 use IkiWiki;
   8
   9 # Load the passed setup file and initialize ikiwiki config.
  10 %config=IkiWiki::defaultconfig();
  11 require IkiWiki::Setup;
  12 IkiWiki::Setup::load(shift);
  13 IkiWiki::loadplugins();
  14 IkiWiki::checkconfig();
  15
  16 require IkiWiki::Render;
  17 IkiWiki::srcdir_check();
  18 my ($files, $pages)=IkiWiki::find_src_files();
  19
  20 foreach my $file (@$files) {
  21         my $page=pagename($file);
  22         $pagesources{$page}=$file; # used by po plugin functions
  23 }
  24
  25 $IkiWiki::phase = IkiWiki::PHASE_RENDER;
  26
  27 foreach my $lang (@{$config{po_slave_languages}}) {
  28         my ($ll, $name)=IkiWiki::Plugin::po::splitlangpair($lang);
  29         $config{destdir}="../underlays/locale/$ll";
  30
  31         foreach my $file (@$files) {
  32                 my $page=pagename($file);
  33                 my ($masterpage, $lang) = IkiWiki::Plugin::po::_istranslation($page);
  34                 next unless defined $lang && $lang eq $ll;
  35
  36                 my $content=IkiWiki::Plugin::po::po_to_markup($page, readfile(srcfile($file)));
  37                 # avoid wasting space if the page is not translated at all
  38                 my $mastercontent=readfile(srcfile($pagesources{$masterpage}));
  39                 if ($content ne $mastercontent) {
  40                         writefile($masterpage.".".$config{default_pageext},
  41                                 $config{destdir}, $content);
  42                 }
  43         }
  44 }