diff options
| -rwxr-xr-x | task_report_to_email.pl | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/task_report_to_email.pl b/task_report_to_email.pl new file mode 100755 index 0000000..f1260ed --- /dev/null +++ b/task_report_to_email.pl @@ -0,0 +1,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); + |