blob: f481c7eacea7240b3b8032311d3c4e9b307bfe63 (
plain)
- #!/usr/bin/perl
- # Include a fortune in a page
- package IkiWiki::Plugin::fortune;
- use warnings;
- use strict;
- use IkiWiki 3.00;
- sub import {
- hook(type => "getsetup", id => "fortune", call => \&getsetup);
- hook(type => "preprocess", id => "fortune", call => \&preprocess);
- }
- sub getsetup () {
- return
- plugin => {
- safe => 1,
- rebuild => undef,
- section => "widget",
- },
- }
- sub preprocess (@) {
- $ENV{PATH}="$ENV{PATH}:/usr/games:/usr/local/games";
- my $f = `fortune 2>/dev/null`;
- if ($?) {
- error gettext("fortune failed");
- }
- else {
- return "<pre>$f</pre>\n";
- }
- }
- 1
|
