#!/usr/bin/perl package IkiWiki::Plugin::selftemplate; use warnings; use strict; use IkiWiki 3.00; my %templates; sub import { hook(type => "templatefile", id => "selftemplate", call => \&templatefile); } sub templatefile (@) { my %params=@_; if (defined IkiWiki::template_file("$params{page}.tmpl")) { return $templates{$params{page}}="$params{page}.tmpl"; } return undef; } 1