summaryrefslogtreecommitdiff
path: root/IkiWiki/Plugin/fortune.pm
blob: f481c7eacea7240b3b8032311d3c4e9b307bfe63 (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.             section => "widget",
    20. 

  20.         },
    21. 

  21. }
    22. 

  22. 

  23. sub preprocess (@) {
    24. 

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

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

  26. 

  27.     if ($?) {
    28. 

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

  29.     }
    30. 

  30.     else {
    31. 

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

  32.     }
    33. 

  33. }
    34. 

  34. 

  35. 1
    36.
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-01 19:55:46 +0000