hjp
/
postgres-monitor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

HTML header

This commit is contained in:
Peter J. Holzer 2015-09-10 11:58:52 +02:00
parent 9ee81d8cd8
commit 799f209ded
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
reports/locks
View File

@ -27,6 +27,16 @@ my $sth
);
$sth->execute();
my $locks = $sth->fetchall_arrayref();
binmode STDOUT, ":encoding(UTF-8)";
say "<!DOCTYPE html";
say "<html>";
say "<head>";
say "<meta charset='UTF-8'/>";
say "</head>";
say "<body>";
if (@$locks) {
say "<table>";
say "<tr>";
@ -48,6 +58,9 @@ if (@$locks) {
} else {
say "<p>No locks \N{WHITE SMILING FACE}</p>";
}
say "</body>";
say "</html>";
exit(0);
sub xmlencode {
my ($s) = @_;