From 799f209ded5c7fadc4ee0e831ad6be3c99e55373 Mon Sep 17 00:00:00 2001 From: "Peter J. Holzer" Date: Thu, 10 Sep 2015 11:58:52 +0200 Subject: [PATCH] HTML header --- reports/locks | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/reports/locks b/reports/locks index a6d8d27..6f91377 100755 --- a/reports/locks +++ b/reports/locks @@ -27,6 +27,16 @@ my $sth ); $sth->execute(); my $locks = $sth->fetchall_arrayref(); + + +binmode STDOUT, ":encoding(UTF-8)"; +say ""; +say ""; +say ""; +say ""; +say ""; + if (@$locks) { say ""; say ""; @@ -48,6 +58,9 @@ if (@$locks) { } else { say "

No locks \N{WHITE SMILING FACE}

"; } +say ""; +say ""; +exit(0); sub xmlencode { my ($s) = @_;