blob: 084397623eca173a1f81c5dd8286c7dfe9d7700f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
use v6.d.PREVIEW; use lib 'lib'; use MaildirIndexer::ScanDir; use MaildirIndexer::Store; sub MAIN($maildir) { my $store = MaildirIndexer::Store.new; my $file-supply = scan-dir($maildir); my $file-channel = $file-supply.Channel; for ^10 { start react { whenever $file-channel -> $file { if $file.e && $file.f { $store.add-file($file); } elsif !$file.e { $store.del-file($file); } } } } react { whenever signal(SIGINT) { exit } whenever signal(SIGHUP) { $store.dump(); } } }
|