summaryrefslogtreecommitdiff
path: root/IkiWiki/Plugin/fortune.pm
blob: 8e96bdbbd1e442be73b45586f3fd276b2ea9b0e2 (plain) 
    

  1. #!/usr/bin/perl
    2. 

  2. # Include a fortune in a page
    3. 

  3. package IkiWiki::Plugin::fortune;
    4. 

  4. 

  5. use warnings;
    6. 

  6. use strict;
    7. 

  7. 

  8. sub import { #{{{
    9. 

  9.     IkiWiki::hook(type => "preprocess", id => "fortune",
    10. 

  10.         call => \&preprocess);
    11. 

  11. } # }}}
    12. 

  12. 

  13. sub preprocess (@) { #{{{
    14. 

  14.     $ENV{PATH}="$ENV{PATH}:/usr/games:/usr/local/games";
    15. 

  15.     my $f = `fortune`;
    16. 

  16. 

  17.     if ($?) {
    18. 

  18.         return "[[fortune failed]]";
    19. 

  19.     }
    20. 

  20.     else {
    21. 

  21.         return "<pre>$f</pre>\n";
    22. 

  22.     }
    23. 

  23. } # }}}
    24. 

  24. 

  25. 1
    26.
generated by cgit v1.2.3 (git 2.46.0) at 2024-11-05 04:55:51 +0000