From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 30 May 2022 15:56:33 +0000 (+0200)
Subject: dieren: generic extension syntax for secret exceptions
X-Git-Tag: v1.14~80
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/701d8b4edb385c8a122a88ddfcfa28ffb5903962

dieren: generic extension syntax for secret exceptions
---

diff --git a/dieren.inc.pl b/dieren.inc.pl
index 475fa12..68b29ed 100644
--- 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
- 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
@@ -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
- 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
diff --git a/dieren.plp b/dieren.plp
index deb2ac3..4d0ee93 100644
--- 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.',
-		prefix => qr/^[#+]*/, # optional # or +
+		prefix => qr/.*?[#]|^[#+]*/, # after optional # or +
 		secrets => 1,
 	},
 	beknopt => {
@@ -83,10 +83,6 @@ say $pageinfo->{altlink};
 
 <:
 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 );
@@ -113,6 +109,7 @@ for my $row (@{$table}) {
 	print '<tr>';
 	for my $name (@{$row}) {
 		my $hidden = $name =~ s/^\?//;
+		$name =~ s/#.*//; # ignore prefixed part
 		$name =~ s/^-$//;
 		my ($img) = $name =~ /([\w-]+)/;
 		$name =~ y/_/ /;