From: Mischa POSLAWSKY Date: Wed, 29 Mar 2017 16:15:19 +0000 (+0200) Subject: common: replace heredoc of html header X-Git-Tag: v1.10~276 X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/6f736d92d4ace32d9fbf2e5351073008e114d4f4?hp=b22f63ba31441200ca915c64445d5a87d146c327 common: replace heredoc of html header --- diff --git a/common.inc.plp b/common.inc.plp index 58d0964..3075e7b 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -105,14 +105,12 @@ sub Html { # leading output $header{content_type} = "text/html; charset=$meta->{charset}"; - print <<"EOT"; - - - - - -$meta->{title} -EOT + say ''; + say ''; + say ''; + say ''; + say sprintf '', $header{content_type}; + say sprintf '%s', $meta->{title}; say sprintf '', EscapeHTML($_) for join(' ', @{ $meta->{description} }) || (); say sprintf '', EscapeHTML($_) @@ -122,7 +120,9 @@ EOT say for stylesheet($meta->{stylesheet}); say for map { @{$_} } $meta->{raw} || (); say '' if $Dev; - say qq{\n\n}; + say ''; + say ''; + say sprintf '', $file; # development version indicator printf '

beta

', join('; ',