From b9f1359eb15e3cc2602abdf320fd785e061c18bb Mon Sep 17 00:00:00 2001
From: Sadeep Madurange <sadeep@asciimx.com>
Date: Mon, 7 Sep 2026 08:08:29 +0800
Subject: Mailer unveil fix.

---
 mailer.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'mailer.pl')

diff --git a/mailer.pl b/mailer.pl
index 2a74903..28b08f3 100644
--- a/mailer.pl
+++ b/mailer.pl
@@ -8,6 +8,7 @@ use Socket qw(AF_UNIX SOCK_STREAM PF_UNSPEC);
 use OpenBSD::Pledge;
 use OpenBSD::Unveil;
 
+my $base_dir    = '/var/www/var/lex';
 my $dict_dir    = '/var/www/var/lex/dict';
 my $state_file  = '/var/www/var/lex/mailer.tsv';
 my $to          = 'me@example.com';
@@ -78,8 +79,7 @@ if ($pid == 0) {
 # Parent process: spaced-repetition + fair scheduling
 close($child_sock);
 
-unveil($dict_dir, 'r') or log_die("unveil $dict_dir: $!");
-unveil($state_file, 'rwc') or log_die("unveil $state_file: $!");
+unveil($base_dir, 'rwc') or log_die("unveil $base_dir: $!");
 unveil('/dev/log', 'w') or log_die("unveil /dev/log: $!");
 unveil(); # Lock unveil rules
 
@@ -283,4 +283,4 @@ if (!rename($tmp_file, $state_file)) {
 }
 
 syslog(LOG_INFO, "Mailed %s to %s (next due: %s)", $selected_file, $to, $item->{next_due});
-closelog();
\ No newline at end of file
+closelog();
-- 
cgit v1.2.3