added new file to get taskw projects

1 files changed, 29 insertions, 0 deletions

diff --git a/task_next_projects.pl b/task_next_projects.pl
new file mode 100644
index 0000000..f9714b5
--- /dev/null
+++ b/task_next_projects.pl
@@ -0,0 +1,29 @@
+use warnings;
+use strict;
+use JSON;
+use Data::Dumper;
+
+my $json = JSON->new->allow_nonref;
+
+sub pending_work {
+    my $tw = qx(task project:w status:pending export);
+    my $text = $json->decode( $tw );
+    foreach my $h (@{$text}) {
+        printf ("%s: %s\n", ${$h}{'uuid'}, ${$h}{'description'});
+    }
+}
+
+sub pending_home {
+    my $tw = qx(task project:h status:pending export);
+    my $text = $json->decode( $tw );
+    foreach my $h (@{$text}) {
+        printf ("%s: %s\n", ${$h}{'uuid'}, ${$h}{'description'});
+    }
+}
+
+print "Work:\n-----\n";
+pending_work();
+
+
+print "\nHome:\n-----\n";
+pending_home();