git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
common: replace newline output by say()
[sheet.git]
/
source.plp
diff --git
a/source.plp
b/source.plp
index 7facf51a885f7662c1126a514df9f33696662822..097f0ac3f310b103b97cdd68a00fd0dfa5cef2b2 100644
(file)
--- a/
source.plp
+++ b/
source.plp
@@
-39,21
+39,21
@@
Html({
stylesheet => [qw'light dark mono red'],
});
stylesheet => [qw'light dark mono red'],
});
-
print "\n"
;
+
say ''
;
if (not $source) {
print "<h1>Source files</h1>";
print "<p>Project code distributed under the AGPL. Please contribute back.</p>";
if (not $source) {
print "<h1>Source files</h1>";
print "<p>Project code distributed under the AGPL. Please contribute back.</p>";
-
print '<ul>'."\n"
;
+
say '<ul>'
;
for (glob '*.plp') {
chomp;
for (glob '*.plp') {
chomp;
-
printf '<li><a href="/source/%s">%1$s</a></li>'."\n"
, EscapeHTML($_);
+
say sprintf '<li><a href="/source/%s">%1$s</a></li>'
, EscapeHTML($_);
}
}
-
print "</ul>\n
\n";
+
say "</ul>
\n";
}
else {
}
else {
-
print "<h1>Source of $source</h1>\n
";
+
say "<h1>Source of $source</h1>
";
if ($source =~ m{(?:/|^)\.}) {
die "File request not permitted\n";
if ($source =~ m{(?:/|^)\.}) {
die "File request not permitted\n";
@@
-82,7
+82,7
@@
else {
vim_options => [@Text::VimColor::VIM_OPTIONS, '+:set enc=utf-8'],
);
my $parsed = $hl->marked;
vim_options => [@Text::VimColor::VIM_OPTIONS, '+:set enc=utf-8'],
);
my $parsed = $hl->marked;
-
print "<pre>\n"
;
+
say '<pre>'
;
foreach (@$parsed) {
my ($type, $contents) = @{$_};
$contents = Encode::decode_utf8($contents);
foreach (@$parsed) {
my ($type, $contents) = @{$_};
$contents = Encode::decode_utf8($contents);
@@
-106,14
+106,14
@@
else {
print Text::VimColor::_xml_escape($contents);
print "</$tag>" if $tag;
}
print Text::VimColor::_xml_escape($contents);
print "</$tag>" if $tag;
}
-
print "</pre>\n"
;
+
say '</pre>'
;
}
else {
}
else {
-
print "<pre>\n"
;
+
say '<pre>'
;
print EscapeHTML(Encode::decode_utf8(ReadFile($source)));
print EscapeHTML(Encode::decode_utf8(ReadFile($source)));
-
print "</pre>\n"
;
+
say '</pre>'
;
}
}
-
print "\n"
;
+
say ''
;
}
}