ikiwiki/IkiWiki/Plugin/fortune.pm

#!/usr/bin/perl
# Include a fortune in a page
package IkiWiki::Plugin::fortune;

use warnings;
use strict;
use IkiWiki 2.00;

sub import { #{{{
	hook(type => "preprocess", id => "fortune", call => \&preprocess);
} # }}}

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;`
* pagespec_match() has changed to take named parameters, to better allow for extended pagespecs. The old calling convention will still work for back-compat for now. * The calling convention for functions in the IkiWiki::PageSpec namespace has changed so they are passed named parameters. * Plugin interface version increased to 2.00 since I don't anticipate any more interface changes before 2.0. 2007-04-27 04:55:52 +02:00			`use IkiWiki 2.00;`
* fortune plugin (trivial) 2006-07-29 23:53:57 +02:00
			`sub import { #{{{`
* 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);`
* fortune plugin (trivial) 2006-07-29 23:53:57 +02:00			`} # }}}`

			`sub preprocess (@) { #{{{`
			`$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";`
			`}`
			`} # }}}`

			`1`