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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
#!/usr/bin/perl
use strict;
use warnings;
use JSON;
use DateTime::Format::ISO8601;
use IPC::Open2;
# written in collaboration with GPT-4 on 2023-05-03.
# This script takes the output of the taskwarrior filter on line 11 and sends it to the email
# address provided in the first command line argument, using neomutt, which obviously must be
# configured. There is probably more that can be done to format it correctly. Obviously, the two
# perl modules above are required.
# Check if the recipient email address is provided
if (@ARGV < 1) {
print "Usage: $0 recipient_email\n";
exit 1;
}
my $recipient_email = $ARGV[0];
# Execute Taskwarrior command
my $task_cmd = "task status:pending project:w export";
# my $task_cmd = "task status:pending limit:page -idea -killlist project.not:h.buy export";
my $task_output;
open(my $task_fh, "-|", $task_cmd) or die "Can't execute Taskwarrior command: $!";
{
local $/ = undef;
$task_output = <$task_fh>;
}
close($task_fh);
# Process Taskwarrior output
my $tasks = decode_json($task_output);
my @sorted_tasks = sort { ($a->{scheduled} // "9999") cmp ($b->{scheduled} // "9999") } @$tasks;
# Compose email content
my $email_content = "Subject: Task Report\n\n";
for my $task (@sorted_tasks) {
$email_content .= sprintf "%s - %s%s%s%s\n",
$task->{description},
$task->{project} // "-",
$task->{scheduled} ? " - Scheduled: " . DateTime::Format::ISO8601->parse_datetime($task->{scheduled})->strftime("%Y-%m-%d %H:%M") : "",
$task->{due} ? " - Due: " . DateTime::Format::ISO8601->parse_datetime($task->{due})->strftime("%Y-%m-%d %H:%M") : "",
$task->{priority} ? " - Priority: " . $task->{priority} : "";
}
# Send email using Neomutt
my $neomutt_cmd = "neomutt -s \"Task Report\" $recipient_email";
my ($neomutt_in, $neomutt_out);
my $neomutt_pid = open2($neomutt_out, $neomutt_in, $neomutt_cmd) or die "Can't execute Neomutt command: $!";
print $neomutt_in $email_content;
close($neomutt_in);
waitpid($neomutt_pid, 0);
|
