blob: 8e96bdbbd1e442be73b45586f3fd276b2ea9b0e2 (
plain)
- #!/usr/bin/perl
- # Include a fortune in a page
- package IkiWiki::Plugin::fortune;
- use warnings;
- use strict;
- sub import { #{{{
- IkiWiki::hook(type => "preprocess", id => "fortune",
- call => \&preprocess);
- } # }}}
- sub preprocess (@) { #{{{
- $ENV{PATH}="$ENV{PATH}:/usr/games:/usr/local/games";
- my $f = `fortune`;
- if ($?) {
- return "[[fortune failed]]";
- }
- else {
- return "<pre>$f</pre>\n";
- }
- } # }}}
- 1
|
