From fbeede6b78751daa3758b33181cd0e3c070713d1 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 6 Dec 2020 07:11:06 +0100
Subject: [PATCH] mail: ignore unreadable files

Incorrect installation should be obvious without fatal errors.
---
 mail/index.php | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/mail/index.php b/mail/index.php
index 37b1edc..ce133c5 100644
--- a/mail/index.php
+++ b/mail/index.php
@@ -59,11 +59,15 @@ array_splice($rows, 0, -50);
 ob_start();
 print '<ul>';
 foreach (array_reverse($rows) as $filename) {
-	list ($headerdata) = explode("\n\n", file_get_contents($filename));
-	$head = parsemailhead($headerdata);
+	if (!is_readable($filename)) {
+		continue;
+	}
 
 	printf('<li><a href="%s">', "/{$Page->handler}/".basename($filename));
 
+	list ($headerdata) = explode("\n\n", file_get_contents($filename));
+	$head = parsemailhead($headerdata);
+
 	print $head['Subject'];
 	printf(' <small class="date">%s</small>',
 		showdate(explode('-', $head['date']->format('Y-m-d')))
-- 
2.30.0