100 lines
2.4 KiB
Perl
100 lines
2.4 KiB
Perl
#!/usr/bin/perl
|
|
package IkiWiki::Plugin::conditional;
|
|
|
|
use warnings;
|
|
use strict;
|
|
use IkiWiki 2.00;
|
|
use UNIVERSAL;
|
|
|
|
sub import { #{{{
|
|
hook(type => "preprocess", id => "if", call => \&preprocess_if);
|
|
} # }}}
|
|
|
|
sub preprocess_if (@) { #{{{
|
|
my %params=@_;
|
|
|
|
if (! exists $params{test} || ! exists $params{then}) {
|
|
return "[[if ".gettext('"test" and "then" parameters are required')."]]";
|
|
}
|
|
|
|
my $result=0;
|
|
# An optimisation to avoid needless looping over every page
|
|
# and adding of dependencies for simple uses of some of the
|
|
# tests.
|
|
if ($params{test} =~ /^(enabled|sourcepage|destpage)\((.*)\)$/) {
|
|
$result=pagespec_match($params{page}, $params{test},
|
|
location => $params{page},
|
|
sourcepage => $params{page},
|
|
destpage => $params{destpage});
|
|
}
|
|
else {
|
|
add_depends($params{page}, $params{test});
|
|
|
|
foreach my $page (keys %pagesources) {
|
|
if (pagespec_match($page, $params{test},
|
|
location => $params{page},
|
|
sourcepage => $params{page},
|
|
destpage => $params{destpage})) {
|
|
$result=1;
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
|
|
my $ret;
|
|
if ($result) {
|
|
$ret=$params{then};
|
|
}
|
|
elsif (exists $params{else}) {
|
|
$ret=$params{else};
|
|
}
|
|
else {
|
|
$ret="";
|
|
}
|
|
return IkiWiki::preprocess($params{page}, $params{destpage},
|
|
IkiWiki::filter($params{page}, $ret));
|
|
} # }}}
|
|
|
|
package IkiWiki::PageSpec;
|
|
|
|
sub match_enabled ($$;@) { #{{{
|
|
shift;
|
|
my $plugin=shift;
|
|
|
|
# test if the plugin is enabled
|
|
return 1 if UNIVERSAL::can("IkiWiki::Plugin::".$plugin, "import");
|
|
return IkiWiki::FailReason->new("$plugin is not enabled");
|
|
} #}}}
|
|
|
|
sub match_sourcepage ($$;@) { #{{{
|
|
shift;
|
|
my $glob=shift;
|
|
my %params=@_;
|
|
|
|
return IkiWiki::FailReason->new("cannot match sourcepage") unless exists $params{sourcepage};
|
|
return 1 if match_glob($params{sourcepage}, $glob, @_);
|
|
return IkiWiki::FailReason->new("sourcepage does not match $glob");
|
|
} #}}}
|
|
|
|
sub match_destpage ($$;@) { #{{{
|
|
shift;
|
|
my $glob=shift;
|
|
my %params=@_;
|
|
|
|
return IkiWiki::FailReason->new("cannot match destpage") unless exists $params{destpage};
|
|
return 1 if match_glob($params{destpage}, $glob, @_);
|
|
return IkiWiki::FailReason->new("destpage does not match $glob");
|
|
} #}}}
|
|
|
|
sub match_included ($$;$) { #{{{
|
|
shift;
|
|
shift;
|
|
my %params=@_;
|
|
|
|
return IkiWiki::FailReason->new("cannot match included") unless exists $params{sourcepage} && exists $params{destpage};
|
|
return 1 if $params{sourcepage} ne $params{destpage};
|
|
return IkiWiki::FailReason->new("page $params{sourcepage} is not included");
|
|
} #}}}
|
|
|
|
1
|