From 0831cd4c510deb97e755aa09a808bcf5f9e9deeb Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Fri, 23 Apr 2021 04:06:12 -0400 Subject: lei_to_mail: cwd-agnostic Maildir wakeup Since we don't have *at() syscalls readily available to us, lei-daemon may call ->poke_dst in the wrong relative directory. Despite not having *at() syscalls, we can still capture the "$MAILDIR/cur" directory handle at pre_augment time so we can reliably call futimes(2) on it using the `utime' perlop. --- lib/PublicInbox/LeiToMail.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lib/PublicInbox/LeiToMail.pm') diff --git a/lib/PublicInbox/LeiToMail.pm b/lib/PublicInbox/LeiToMail.pm index 0fa0bd9a..8b2f82dc 100644 --- a/lib/PublicInbox/LeiToMail.pm +++ b/lib/PublicInbox/LeiToMail.pm @@ -371,6 +371,8 @@ sub _pre_augment_maildir { File::Path::mkpath($d); -d $d or die "$d is not a directory"; } + # for utime, so no opendir + open $self->{poke_dh}, '<', "${dst}cur" or die "open ${dst}cur: $!"; } sub _do_augment_maildir { @@ -588,7 +590,7 @@ sub poke_dst { my ($self) = @_; if ($self->{base_type} eq 'maildir') { my $t = time + 1; - utime($t, $t, $self->{dst} . 'cur'); + utime($t, $t, $self->{poke_dh}) or warn "futimes: $!"; } } -- cgit v1.2.3-24-ge0c7