X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/3b395d58206174e283f62ac5ca3a382c9d375a02..b93feea4a4cd9bb503465ead1b73f89b8f36d429:/common.inc.plp

diff --git a/common.inc.plp b/common.inc.plp
index 81f91b5..bfeb244 100644
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -10,9 +10,19 @@ use File::stat 'stat';
 use HTTP::Date;
 use Encode qw( decode_utf8 );
 
+sub Alert {
+	my ($html, $debug) = @_;
+	ref $html eq 'ARRAY' or $html = [$html];
+	my ($title, @lines) = @{$html};
+	$body = "<h2>$title</h2>";
+	$body .= "\n<p>$_</p>" for @lines;
+	$body .= "\n<pre>$debug</pre>" if $Dev and $debug;
+	say "<div class=error>$body</div>\n";
+}
+
 $PLP::ERROR = sub {
 	my ($text, $html) = @_;
-	print '<p class="error"><strong>Fatal error</strong>: '.$html."</p>\n\n";
+	Alert("<strong>Fatal error</strong>: $html.");
 	warn $text;
 };
 
@@ -149,10 +159,18 @@ sub Html {
 	<a href="http://www.fsf.org/licensing/licenses/agpl-3.0.html" rel="license copyright"
 	 title="Licensed under the GNU Affero General Public License, version 3">AGPLv3</a>
 EOT
-		say sprintf '• %.3fs', Time::HiRes::tv_interval($Time) if $Dev;
+		say sprintf '• %.3fs', Time::HiRes::tv_interval($Time) if $Dev and $Time;
 		say '</p>';
 		say '';
 		say '</html>';
 	};
 }
 
+sub showlink {
+	my ($title, $href, $selected) = @_;
+	return sprintf(
+		$selected ? '<strong>%s</strong>' : '<a href="%2$s">%s</a>',
+		EscapeHTML($title), EscapeHTML($href)
+	);
+}
+