ikiwiki/IkiWiki/Plugin/fortune.pm

#!/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
* fortune plugin (trivial) 2006-07-29 23:53:57 +02:00			`#!/usr/bin/perl`
			`# Include a fortune in a page`
			`package IkiWiki::Plugin::fortune;`

			`use warnings;`
			`use strict;`
finalise version 3.00 of the plugin api 2008-12-23 22:34:19 +01:00			`use IkiWiki 3.00;`
* fortune plugin (trivial) 2006-07-29 23:53:57 +02:00
Coding style change: Remove explcit vim folding markers. 2008-12-17 21:22:16 +01:00			`sub import {`
add plugin safe/rebuild info (part 1 of 2) too many plugins.. brain exploding.. 2008-08-03 22:40:12 +02:00			`hook(type => "getsetup", id => "fortune", call => \&getsetup);`
* Work on firming up the plugin interface: - Plugins should not need to load IkiWiki::Render to get commonly used functions, so moved some functions from there to IkiWiki. - Picked out the set of functions and variables that most plugins use, documented them, and made IkiWiki export them by default, like a proper perl module should. - Use the other functions at your own risk. - This is not quite complete, I still have to decide whether to export some other things. * Changed all plugins included in ikiwiki to not use "IkiWiki::" when referring to stuff now exported by the IkiWiki module. * Anyone with a third-party ikiwiki plugin is strongly enrouraged to make like changes to it and avoid use of non-exported symboles from "IkiWiki::". * Link debian/changelog and debian/news to NEWS and CHANGELOG. * Support hyperestradier version 1.4.2, which adds a new required phraseform setting. 2006-09-10 00:50:27 +02:00			`hook(type => "preprocess", id => "fortune", call => \&preprocess);`
Coding style change: Remove explcit vim folding markers. 2008-12-17 21:22:16 +01:00			`}`
* fortune plugin (trivial) 2006-07-29 23:53:57 +02:00
Coding style change: Remove explcit vim folding markers. 2008-12-17 21:22:16 +01:00			`sub getsetup () {`
add plugin safe/rebuild info (part 1 of 2) too many plugins.. brain exploding.. 2008-08-03 22:40:12 +02:00			`return`
			`plugin => {`
			`safe => 1,`
			`rebuild => undef,`
setup file ordering 2010-02-12 12:35:52 +01:00			`section => "widget",`
add plugin safe/rebuild info (part 1 of 2) too many plugins.. brain exploding.. 2008-08-03 22:40:12 +02:00			`},`
Coding style change: Remove explcit vim folding markers. 2008-12-17 21:22:16 +01:00			`}`
add plugin safe/rebuild info (part 1 of 2) too many plugins.. brain exploding.. 2008-08-03 22:40:12 +02:00
Coding style change: Remove explcit vim folding markers. 2008-12-17 21:22:16 +01:00			`sub preprocess (@) {`
* fortune plugin (trivial) 2006-07-29 23:53:57 +02:00			`$ENV{PATH}="$ENV{PATH}:/usr/games:/usr/local/games";`
* More build deps updates. * /dev/null fortune failures * Add libtime-duration-perl to build deps, as it's used by the svn module 2006-11-28 19:16:04 +01:00			my $f = `fortune 2>/dev/null`;
* fortune plugin (trivial) 2006-07-29 23:53:57 +02:00
			`if ($?) {`
switch preprocess hooks to use error function 2008-07-13 21:05:34 +02:00			`error gettext("fortune failed");`
* fortune plugin (trivial) 2006-07-29 23:53:57 +02:00			`}`
			`else {`
			`return "<pre>$f</pre>\n";`
			`}`
Coding style change: Remove explcit vim folding markers. 2008-12-17 21:22:16 +01:00			`}`
* fortune plugin (trivial) 2006-07-29 23:53:57 +02:00
			`1`