#!/usr/bin/env perl

use Date::Manip;

while (<>) {
  chomp;
  next if m/^#/;
  next if m/^\s*$/;

  my ($due_date, $hide_date, $tags, $desc) = split /\s+/, $_, 4;
  $due_date = ParseDate($due_date);
  if ($hide_date =~ m/^-\d+$/) {
    $hide_date = DateCalc($due_date, "$hide_date days");
  }
  my @tag_opts = map { ("--tag", $_) } split /,/, $tags;
  $desc =~ s/'/\'/g;
  system("todo.pl", @tag_opts, "--due", $due_date, "--hide", $hide_date, "add", $desc);
}