1 files changed, 37 insertions, 0 deletions
diff --git a/task_capture_completed.pl b/task_capture_completed.pl
new file mode 100644
index 0000000..a61145a
--- /dev/null
+++ b/task_capture_completed.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+ 
+use strict;
+use warnings;
+use autodie;
+use feature qw(say);
+
+my $project = $ARGV[0];
+
+my $stuff = `task status:completed project:$project all`;
+
+my @x = split(/\n/, $stuff);
+
+# print "$_\n" foreach @x;
+
+my @taskids;
+my $id;
+
+foreach my $line (@x) {
+    my @data = split / /, $line;
+    if (defined($data[4])) {
+            if ($data[4] =~ /\S{8}/) {
+                push @taskids, ($data[4])
+        }
+    }
+}
+
+foreach (@taskids) {
+    my $desc = `task _get $_.description`;
+    chomp $desc;
+    my $end = `task _get $_.end`;
+    $end = substr($end, 0, -1);
+    $end =~ s/T/ /;
+    printf "%s: %-50s\t%s\n", ($_, $desc, $end)
+}
+
+say "Found " .  scalar @taskids . " tasks.";