X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/e327cdf7ff4bb2ce54fead5b7fcc480d4a3cec3e..1835a0d73447dd86ffd932c03806b9bb131359d6:/dieren.plp
diff --git a/dieren.plp b/dieren.plp
index f8e9450..2626cbe 100644
--- a/dieren.plp
+++ b/dieren.plp
@@ -1,16 +1,34 @@
<(common.inc.plp)><:
+use warnings;
+no warnings 'qw';
my $intro = 'dieren die in het Nederlands vernoemd zijn naar andere dieren.';
-$intro .= '.. en dergelijke.' if $Request;
-$intro .= '.. enzo.' if exists $get{v};
+my %subpages = (
+ standaard => {
+ title => 'dieren',
+ intro => $intro,
+ altlink => 'Zie ook verdergezochte verbanden.',
+ },
+ uitgebreid => {
+ title => 'uitgebreid dieren',
+ intro => "$intro.. en dergelijke.",
+ altlink => 'Zie het populaire overzicht voor minder.',
+ prefix => '#',
+ secrets => 1,
+ },
+);
+
+$Request ||= 'standaard';
+my $pageinfo = $subpages{$Request}
+ or Html(), Abort("Onbekende dierenpagina $Request
", '404 request not found');
Html({
- title => (!!$Request && 'uitgebreid ') . 'dieren cheat sheet',
+ title => $pageinfo->{title}.' cheat sheet',
version => '1.0',
- description => "Tabeloverzicht met afbeeldingen van $intro",
+ description => "Tabeloverzicht met afbeeldingen van $pageinfo->{intro}",
keywords => [qw'
dier beest naam naamgeving woord taal nederlands gerelateerd
- relatie vernoemd vernoeming combinatie samenstelling onverwant
+ relatie vernoemd vernoeming combinatie samenstelling voorvoegsel onverwant
land zee lucht animals dutch language
'],
raw => <<'EOT',
@@ -43,13 +61,8 @@ EOT
<: -say ucfirst $intro; -if ($Request) { - say 'Zie het populaire overzicht voor minder.'; -} -else { - say 'Zie ook minderbekende en verdergezochte verbanden.'; -} +say ucfirst $pageinfo->{intro}; +say $pageinfo->{altlink}; :>
@@ -94,7 +107,7 @@ if (exists $get{r}) { say '