git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6311c65
)
dieren: generic extension syntax for secret exceptions
author
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 30 May 2022 15:56:33 +0000
(17:56 +0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Fri, 3 Jun 2022 22:53:43 +0000
(
00:53
+0200)
dieren.inc.pl
patch
|
blob
|
history
dieren.plp
patch
|
blob
|
history
diff --git
a/dieren.inc.pl
b/dieren.inc.pl
index 475fa129897dde4a07f568e199093a2951e3ab23..68b29ed77350fca3f79521135912d6183e924863 100644
(file)
--- a/
dieren.inc.pl
+++ b/
dieren.inc.pl
@@
-13,7
+13,7
@@
use utf8;
egel: +egel +zee-egel ?wateregel ?aardegel?=cactus +mierenegel #kegel
varken: +varken +zeevarken=bruinvis waterzwijn=capibara aardvarken +stekelvarken #feestvarken
koe: +koe +zeekoe +meerkoetje ?aardekoe? koedoe #haiku
egel: +egel +zee-egel ?wateregel ?aardegel?=cactus +mierenegel #kegel
varken: +varken +zeevarken=bruinvis waterzwijn=capibara aardvarken +stekelvarken #feestvarken
koe: +koe +zeekoe +meerkoetje ?aardekoe? koedoe #haiku
- paard: +paard +zeepaardje +nijlpaard ?
(turn)paard
luipaard #tijgerpaard
+ paard: +paard +zeepaardje +nijlpaard ?
grasmodderpaard=草泥马#?(turn)paard
luipaard #tijgerpaard
#hoorn: eenhoorn zeehoorn ?zee-eenhoorn=narwal bergahorn=esdoorn neushoorn #eekhoorn
#bra: ?bra(ssière) zebra - - cobra #sabra
#olifant: +olifant +zeeolifant +olifantsvis ?kamerolifant - #olifantsoor
#hoorn: eenhoorn zeehoorn ?zee-eenhoorn=narwal bergahorn=esdoorn neushoorn #eekhoorn
#bra: ?bra(ssière) zebra - - cobra #sabra
#olifant: +olifant +zeeolifant +olifantsvis ?kamerolifant - #olifantsoor
@@
-22,7
+22,7
@@
use utf8;
wolf: +wolf +zeewolf ?waterwolf?=snoek aardwolf +korenwolf #strandwolf=bruine_hyena
haan: +haan +zeehaan waterhaan rotshaan +sprinkhaan #wilde_haan?=wildrooster
#pad: pad ?zebrapad ?waterpad landpad schildpad #paddenstoel
wolf: +wolf +zeewolf ?waterwolf?=snoek aardwolf +korenwolf #strandwolf=bruine_hyena
haan: +haan +zeehaan waterhaan rotshaan +sprinkhaan #wilde_haan?=wildrooster
#pad: pad ?zebrapad ?waterpad landpad schildpad #paddenstoel
- draak: draak zeedraak waterdraak=agame ?aarddraak=戊辰 komododraak=varaan #drakenkop
+ draak: draak
_#draak
zeedraak waterdraak=agame ?aarddraak=戊辰 komododraak=varaan #drakenkop
#vlo: vlo zeevlo watervlo aardvlo - #vlok
#mot: +mot +marmot watermot +bergamot ?behemoth #
#bij: bij - waterbij aardbei moerbei #hommelbij
#vlo: vlo zeevlo watervlo aardvlo - #vlok
#mot: +mot +marmot watermot +bergamot ?behemoth #
#bij: bij - waterbij aardbei moerbei #hommelbij
diff --git
a/dieren.plp
b/dieren.plp
index deb2ac363933c5e4b780040d3c2997428a79e129..4d0ee93c83a9557522d7c3e01065846d56514c30 100644
(file)
--- a/
dieren.plp
+++ b/
dieren.plp
@@
-16,7
+16,7
@@
my %subpages = (
title => 'uitgebreid dieren',
intro => "$intro.. en dergelijke.",
altlink => 'Zie het <a href="/dieren">populaire overzicht</a> voor minder.',
title => 'uitgebreid dieren',
intro => "$intro.. en dergelijke.",
altlink => 'Zie het <a href="/dieren">populaire overzicht</a> voor minder.',
- prefix => qr/
^[#+]*/, #
optional # or +
+ prefix => qr/
.*?[#]|^[#+]*/, # after
optional # or +
secrets => 1,
},
beknopt => {
secrets => 1,
},
beknopt => {
@@
-83,10
+83,6
@@
say $pageinfo->{altlink};
<:
my $table = readdata('dieren');
<:
my $table = readdata('dieren');
-if ($Request eq 'standaard') {
- $table->[ 9][4] = '?grasmodderpaard=草泥马'; # replace turnpaard
- $table->[18][1] = 'draak_'; # irl animal
-}
if (exists $get{r}) {
use List::MoreUtils qw( part );
if (exists $get{r}) {
use List::MoreUtils qw( part );
@@
-113,6
+109,7
@@
for my $row (@{$table}) {
print '<tr>';
for my $name (@{$row}) {
my $hidden = $name =~ s/^\?//;
print '<tr>';
for my $name (@{$row}) {
my $hidden = $name =~ s/^\?//;
+ $name =~ s/#.*//; # ignore prefixed part
$name =~ s/^-$//;
my ($img) = $name =~ /([\w-]+)/;
$name =~ y/_/ /;
$name =~ s/^-$//;
my ($img) = $name =~ /([\w-]+)/;
$name =~ y/_/ /;