my $pageinfo = $subpages{$Request}
or Html(), Abort("Onbekende dierenpagina <q>$Request</q>", '404 request not found');
+my $proto = sprintf('http%s://', !!$ENV{HTTPS} && 's');
+my $preview = "$proto$ENV{HTTP_HOST}/dieren.jpg";
+
Html({
title => $pageinfo->{title}.' cheat sheet',
- version => '1.0',
+ version => '1.1',
+ lang => 'nl',
description => "Tabeloverzicht met afbeeldingen van $pageinfo->{intro}",
keywords => [qw'
dier beest naam naamgeving woord taal nederlands gerelateerd
relatie vernoemd vernoeming combinatie samenstelling voorvoegsel onverwant
land zee lucht animals dutch language
'],
- raw => <<'EOT',
+ raw => <<"EOT",
+<meta property="og:image" content="$preview" />
<style>
figure[hidden] {
opacity: 0; /* secret */
transition-delay: 2s;
}
-@media (max-width: 60em) {
+\@media (max-width: 60em) {
td, th {
font-size: 50%;
}
});
:>
-<h1>Dierennamen <small>(Dutch animal names)</small></h1>
+<h1>Dierennamen <small lang=en>(Dutch animal names)</small></h1>
<p>
<:
</p>
<:
-my $table = readdata('dieren');
+my $table = Data('dieren');
if (exists $get{r}) {
use List::MoreUtils qw( part );