* Don't fail syntax check if Text::Typography isn't installed.
[ikiwiki.git] / IkiWiki / Plugin / fortune.pm
1 #!/usr/bin/perl
2 # Include a fortune in a page
3 package IkiWiki::Plugin::fortune;
4
5 use IkiWiki;
6 use warnings;
7 use strict;
8
9 sub import { #{{{
10         hook(type => "preprocess", id => "fortune", call => \&preprocess);
11 } # }}}
12
13 sub preprocess (@) { #{{{
14         $ENV{PATH}="$ENV{PATH}:/usr/games:/usr/local/games";
15         my $f = `fortune`;
16
17         if ($?) {
18                 return "[[fortune failed]]";
19         }
20         else {
21                 return "<pre>$f</pre>\n";
22         }
23 } # }}}
24
25 1