#! /usr/bin/perl ################################################################################ ## taskwarrior - a command line task list manager. ## ## Copyright 2006 - 2011, Paul Beckingham, Federico Hernandez. ## All rights reserved. ## ## This program is free software; you can redistribute it and/or modify it under ## the terms of the GNU General Public License as published by the Free Software ## Foundation; either version 2 of the License, or (at your option) any later ## version. ## ## This program is distributed in the hope that it will be useful, but WITHOUT ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS ## FOR A PARTICULAR PURPOSE. See the GNU General Public License for more ## details. ## ## You should have received a copy of the GNU General Public License along with ## this program; if not, write to the ## ## Free Software Foundation, Inc., ## 51 Franklin Street, Fifth Floor, ## Boston, MA ## 02110-1301 ## USA ## ################################################################################ use strict; use warnings; # Give a nice error if the (non-standard) JSON module is not installed. eval "use JSON"; if ($@) { print "Error: You need to install the JSON Perl module.\n"; exit 1; } # Use the taskwarrior 1.9.4+ _query command to issue a query and return JSON my $command = '/usr/local/bin/task _query ' . join (' ', @ARGV); if ($command =~ /No matches/) { print stderr $command; exit 1; } # Generate output. print "\n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n", " \n"; my $count = 0; for my $task (split /,$/ms, qx{$command}) { ++$count; my $data = from_json ($task); print " \n", " \n", " \n", " \n", " \n", " \n", " \n"; } print " \n", " \n", " \n", " \n", " \n", " \n", "
IDPriDescriptionProjectDue
", ($data->{'id'} || ''), "", ($data->{'priority'} || ''), "", ($data->{'description'} || ''), "", ($data->{'project'} || ''), "", ($data->{'due'} || ''), "
", $count, " matching tasks
\n", " \n", "\n"; exit 0; ################################################################################