<(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 <a href="/dieren/uitgebreid">verdergezochte verbanden</a>.',
+ },
+ uitgebreid => {
+ title => 'uitgebreid dieren',
+ intro => "$intro.. en dergelijke.",
+ altlink => 'Zie het <a href="/dieren">populaire overzicht</a> voor minder.',
+ prefix => '#',
+ secrets => 1,
+ },
+);
+
+$Request ||= 'standaard';
+my $pageinfo = $subpages{$Request}
+ or Html(), Abort("Onbekende dierenpagina <q>$Request</q>", '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',
<p>
<:
-say ucfirst $intro;
-if ($Request) {
- say 'Zie het <a href="/dieren">populaire overzicht</a> voor minder.';
-}
-else {
- say 'Zie ook minderbekende en <a href="/dieren/uitgebreid">verdergezochte verbanden</a>.';
-}
+say ucfirst $pageinfo->{intro};
+say $pageinfo->{altlink};
:>
</p>
say '<table>';
while (my $name = shift @table) {
- if ($name =~ s/^#// and !$Request) {
+ if ($name =~ s/^#// and !$pageinfo->{prefix}) {
while ($name = shift @table) {
last if $name =~ m/^>/;
}
my $alt = $name;
$name = "<q>$name</q>" if $name =~ s/\?$//;
- printf '<figure%s>', $hidden && !exists $get{v} && ' hidden';
+ printf '<figure%s>', $hidden && !$pageinfo->{secrets} && ' hidden';
if ($img and -e ($img = "data/dieren/$img.jpg")) {
my $alt = -l $img && readlink($img) =~ s/\.jpg$//r;
if ($alt) {