Merge remote-tracking branch 'intrigeri/fix_diffurl_vs._cgit'
[ikiwiki.git] / 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 foreach my $lang (@{$config{po_slave_languages}}) {
26         my ($ll, $name)=IkiWiki::Plugin::po::splitlangpair($lang);
27         $config{destdir}="../underlays/locale/$ll";
28
29         foreach my $file (@$files) {
30                 my $page=pagename($file);
31                 my ($masterpage, $lang) = IkiWiki::Plugin::po::_istranslation($page);
32                 next unless defined $lang && $lang eq $ll;
33                 
34                 my $content=IkiWiki::Plugin::po::po_to_markup($page, readfile(srcfile($file)));
35                 # avoid wasting space if the page is not translated at all
36                 my $mastercontent=readfile(srcfile($pagesources{$masterpage}));
37                 if ($content ne $mastercontent) {
38                         writefile($masterpage.".".$config{default_pageext},
39                                 $config{destdir}, $content);
40                 }
41         }
42 }