X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/b22f63ba31441200ca915c64445d5a87d146c327..6f736d92d4ace32d9fbf2e5351073008e114d4f4:/common.inc.plp
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('; ',