summaryrefslogtreecommitdiff
path: root/IkiWiki/Plugin/fortune.pm
blob: 4ff343e3a0c891f5e7b0fd7019706f946d16be61 (plain) 
    

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

  2. # Include a fortune in a page
    3. 

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

  4. 

  5. use IkiWiki;
    6. 

  6. use warnings;
    7. 

  7. use strict;
    8. 

  8. 

  9. sub import { #{{{
    10. 

  10.     hook(type => "preprocess", id => "fortune", 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 2>/dev/null`;
    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-27 01:47:19 +0000