git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b22f63b
)
common: replace heredoc of html header
author
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 29 Mar 2017 16:15:19 +0000
(18:15 +0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Mon, 24 Apr 2017 18:25:52 +0000
(20:25 +0200)
common.inc.plp
patch
|
blob
|
history
diff --git
a/common.inc.plp
b/common.inc.plp
index 58d096481b05d882d14b7e3008335003b23e41d7..3075e7b5a489b624c6a5555f8630eb2dd7da354a 100644
(file)
--- a/
common.inc.plp
+++ b/
common.inc.plp
@@
-105,14
+105,12
@@
sub Html {
# leading output
$header{content_type} = "text/html; charset=$meta->{charset}";
# leading output
$header{content_type} = "text/html; charset=$meta->{charset}";
- print <<"EOT";
-<!DOCTYPE html>
-<html lang="en">
-
-<head>
-<meta http-equiv="content-type" content="$header{content_type}">
-<title>$meta->{title}</title>
-EOT
+ say '<!DOCTYPE html>';
+ say '<html lang="en">';
+ say '';
+ say '<head>';
+ say sprintf '<meta http-equiv="content-type" content="%s">', $header{content_type};
+ say sprintf '<title>%s</title>', $meta->{title};
say sprintf '<meta name="description" content="%s">', EscapeHTML($_)
for join(' ', @{ $meta->{description} }) || ();
say sprintf '<meta name="keywords" content="%s">', EscapeHTML($_)
say sprintf '<meta name="description" content="%s">', EscapeHTML($_)
for join(' ', @{ $meta->{description} }) || ();
say sprintf '<meta name="keywords" content="%s">', EscapeHTML($_)
@@
-122,7
+120,9
@@
EOT
say for stylesheet($meta->{stylesheet});
say for map { @{$_} } $meta->{raw} || ();
say '<meta name="robots" content="noindex">' if $Dev;
say for stylesheet($meta->{stylesheet});
say for map { @{$_} } $meta->{raw} || ();
say '<meta name="robots" content="noindex">' if $Dev;
- say qq{</head>\n\n<body id="$file">};
+ say '</head>';
+ say '';
+ say sprintf '<body id="%s">', $file;
# development version indicator
printf '<p style="%s">beta</p>', join('; ',
# development version indicator
printf '<p style="%s">beta</p>', join('; ',