meta plugin: if uuid looks like it is in fact a UUID, prepend "urn:uuid" (otherwise leave it alone, so we can assign non-UUID <id>s to Atom items to avoid planet-flooding)
parent
fc917fa383
commit
9c6444bf68
|
@ -85,7 +85,13 @@ sub preprocess (@) { #{{{
|
||||||
# fallthrough
|
# fallthrough
|
||||||
}
|
}
|
||||||
elsif ($key eq 'uuid') {
|
elsif ($key eq 'uuid') {
|
||||||
$pagestate{$page}{meta}{uuid}=HTML::Entities::encode_numeric($value);
|
my $abs = $value;
|
||||||
|
|
||||||
|
if ($abs =~ m/^[[:xdigit:]]{8}-[[:xdigit:]]{4}-[[:xdigit]]{4}-[[:xdigit:]]{4}-[[:xdigit:]]{12}$/) {
|
||||||
|
$abs = lc "urn:uuid:$abs";
|
||||||
|
}
|
||||||
|
|
||||||
|
$pagestate{$page}{meta}{uuid}=HTML::Entities::encode_numeric($abs);
|
||||||
# fallthrough
|
# fallthrough
|
||||||
}
|
}
|
||||||
elsif ($key eq 'license') {
|
elsif ($key eq 'license') {
|
||||||
|
|
Loading…
Reference in New Issue