X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/fe5c48f3a002df1867d045b3767900f83817038a..9db2438b3a0366738ba2e1b6e23ad3d8ae2fe36e:/IkiWiki/Plugin/polygen.pm diff --git a/IkiWiki/Plugin/polygen.pm b/IkiWiki/Plugin/polygen.pm index 82fd575a7..bc21d71c7 100644 --- a/IkiWiki/Plugin/polygen.pm +++ b/IkiWiki/Plugin/polygen.pm @@ -7,21 +7,30 @@ package IkiWiki::Plugin::polygen; use warnings; use strict; -use IkiWiki; +use IkiWiki 3.00; use File::Find; -sub import { #{{{ - IkiWiki::hook(type => "preprocess", id => "polygen", - call => \&preprocess); -} # }}} +sub import { + hook(type => "getsetup", id => "polygen", call => \&getsetup); + hook(type => "preprocess", id => "polygen", call => \&preprocess); +} -sub preprocess (@) { #{{{ +sub getsetup () { + return + plugin => { + safe => 1, + rebuild => undef, + }, +} + +sub preprocess (@) { my %params=@_; my $grammar = ($params{grammar} or 'polygen'); my $symbol = ($params{symbol} or undef); # Sanitize parameters $grammar =~ IkiWiki::basename($grammar); + $grammar =~ s/[^A-Za-z0-9]//g; $grammar =~ s/\.grm$//; $grammar .= '.grm'; $symbol =~ s/[^A-Za-z0-9]//g if defined $symbol; @@ -29,7 +38,7 @@ sub preprocess (@) { #{{{ my $grmfile = '/usr/share/polygen/ita/polygen.grm'; if (! -d '/usr/share/polygen') { - return "[[polygen not installed]]"; + error gettext("polygen not installed"); } find({wanted => sub { if (substr($File::Find::name, -length($grammar)) eq $grammar) { @@ -48,13 +57,13 @@ sub preprocess (@) { #{{{ } if ($?) { - $res="[[polygen failed]]"; + error gettext("command failed"); } - # Strip trainling spaces and newlines so that we flow well with the + # Strip trailing spaces and newlines so that we flow well with the # markdown text $res =~ s/\s*$//; return $res; -} # }}} +} 1