git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
keyboard/altgr: atari graphics (atascii)
[sheet.git]
/
dieren.plp
diff --git
a/dieren.plp
b/dieren.plp
index f7935fee7562cc61ab4bb820138c1cd62421c73d..8e660081aaa9d93fcebf776ea4dd347f6201bc51 100644
(file)
--- a/
dieren.plp
+++ b/
dieren.plp
@@
-32,12
+32,9
@@
$Request ||= 'standaard';
my $pageinfo = $subpages{$Request}
or Html(), Abort("Onbekende dierenpagina <q>$Request</q>", '404 request not found');
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',
Html({
title => $pageinfo->{title}.' cheat sheet',
- version => '1.
1
',
+ version => '1.
2
',
lang => 'nl',
description => "Tabeloverzicht met afbeeldingen van $pageinfo->{intro}",
keywords => [qw'
lang => 'nl',
description => "Tabeloverzicht met afbeeldingen van $pageinfo->{intro}",
keywords => [qw'
@@
-45,8
+42,8
@@
Html({
relatie vernoemd vernoeming combinatie samenstelling voorvoegsel onverwant
land zee lucht animals dutch language
'],
relatie vernoemd vernoeming combinatie samenstelling voorvoegsel onverwant
land zee lucht animals dutch language
'],
+ image => 'dieren.jpg',
raw => <<"EOT",
raw => <<"EOT",
-<meta property="og:image" content="$preview" />
<style>
figure[hidden] {
opacity: 0; /* secret */
<style>
figure[hidden] {
opacity: 0; /* secret */
@@
-129,7
+126,7
@@
for my $row (@{$table}) {
$name .= " <small>($alt)</small>" if $alt;
printf '<figure%s>', $hidden && !$pageinfo->{secrets} && ' hidden';
$name .= " <small>($alt)</small>" if $alt;
printf '<figure%s>', $hidden && !$pageinfo->{secrets} && ' hidden';
- if ($img and -e ($img = "data/dieren/$img.jpg")) {
+ if ($img and -e ($img =
lc
"data/dieren/$img.jpg")) {
printf '<img src="/%s"', $img;
printf ' alt="%s"', $alt || $name;
print ' />';
printf '<img src="/%s"', $img;
printf ' alt="%s"', $alt || $name;
print ' />';