summaryrefslogtreecommitdiff
path: root/IkiWiki/Plugin/fortune.pm
blob: 17e57dea14fccb4c3f9e1c21a5926ef4880033cd (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. use IkiWiki 3.00;
    8. 

  8. 

  9. sub import {
    10. 

  10.     hook(type => "getsetup", id => "fortune", call => \&getsetup);
    11. 

  11.     hook(type => "preprocess", id => "fortune", call => \&preprocess);
    12. 

  12. }
    13. 

  13. 

  14. sub getsetup () {
    15. 

  15.     return
    16. 

  16.         plugin => {
    17. 

  17.             safe => 1,
    18. 

  18.             rebuild => undef,
    19. 

  19.         },
    20. 

  20. }
    21. 

  21. 

  22. sub preprocess (@) {
    23. 

  23.     $ENV{PATH}="$ENV{PATH}:/usr/games:/usr/local/games";
    24. 

  24.     my $f = `fortune 2>/dev/null`;
    25. 

  25. 

  26.     if ($?) {
    27. 

  27.         error gettext("fortune failed");
    28. 

  28.     }
    29. 

  29.     else {
    30. 

  30.         return "<pre>$f</pre>\n";
    31. 

  31.     }
    32. 

  32. }
    33. 

  33. 

  34. 1
    35.
generated by cgit v1.2.3 (git 2.46.0) at 2024-11-05 05:04:29 +0000