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)

master
Simon McVittie 2008-07-11 23:57:47 +01:00
parent fc917fa383
commit 9c6444bf68
1 changed files with 7 additions and 1 deletions

View File

@ -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') {