common: preferred external url in canonical link

[sheet.git] / common.inc.plp
diff --git a/common.inc.plp b/common.inc.plp

index 6295de7ef2ad0653fc436d9636831349742ee832..9d341284e1ba20869e2634d695c23ace8f52c6c7 100644 (file)
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -157,6 +157,11 @@ sub Html {
  
         my ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x;
  
+       if (my $url = $meta->{canonical} // "/$file/$Request") {
+               $url = "https://sheet.shiar.nl$url";
+               push @{ $meta->{raw} }, qq(<link rel="canonical" href="$url" />);
+       }
+
         PLP_START {
                 # leading output
                 say '<!DOCTYPE html>';