#! /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; use JSON; # Use the taskwarrior 1.9.4+ _query command to issue a query and return JSON my $command = '/usr/local/bin/task _query ' . join (' ', @ARGV); # Generate output. print "<tasks>\n"; for my $task (split /,$/ms, qx{$command}) { my $data = from_json ($task); print " <task>\n"; for my $key (keys %$data) { if ($key eq 'annotations') { print " <annotations>\n"; for my $anno (@{$data->{$key}}) { print " <annotation>\n"; print " <$_>$anno->{$_}</$_>\n" for keys %$anno; print " </annotation>\n"; } print " </annotations>\n"; } elsif ($key eq 'tags') { print " <tags>\n"; print " <tag>$_</tag>\n" for @{$data->{'tags'}}; print " </tags>\n"; } else { print " <$key>$data->{$key}</$key>\n"; } } print " </task>\n"; } print "</tasks>\n"; exit 0; ################################################################################