summaryrefslogtreecommitdiff
path: root/IkiWiki/Plugin/fortune.pm
blob: 4ff343e3a0c891f5e7b0fd7019706f946d16be61 (plain)
  1. #!/usr/bin/perl
  2. # Include a fortune in a page
  3. package IkiWiki::Plugin::fortune;
  4. use IkiWiki;
  5. use warnings;
  6. use strict;
  7. sub import { #{{{
  8. hook(type => "preprocess", id => "fortune", call => \&preprocess);
  9. } # }}}
  10. sub preprocess (@) { #{{{
  11. $ENV{PATH}="$ENV{PATH}:/usr/games:/usr/local/games";
  12. my $f = `fortune 2>/dev/null`;
  13. if ($?) {
  14. return "[[fortune failed]]";
  15. }
  16. else {
  17. return "<pre>$f</pre>\n";
  18. }
  19. } # }}}
  20. 1