From 257730274e9216c2d6c355e00ba431f8a254fb96 Mon Sep 17 00:00:00 2001 From: jluehrs2 Date: Fri, 9 May 2008 04:09:51 -0500 Subject: add download --- lib/App/Hiveminder/Command/Download.pm | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 lib/App/Hiveminder/Command/Download.pm diff --git a/lib/App/Hiveminder/Command/Download.pm b/lib/App/Hiveminder/Command/Download.pm new file mode 100644 index 0000000..cbf2d97 --- /dev/null +++ b/lib/App/Hiveminder/Command/Download.pm @@ -0,0 +1,26 @@ +#!/usr/bin/perl +package App::Hiveminder::Command::Download; +use Moose; +extends 'App::Hiveminder::Command'; + +=head2 NAME + +App::Hiveminder::Command::Download - Download tasks to a local text file + +=cut + +sub command_names { qw/download down dl/ } + +sub command { + my $self = shift; + + return unless @_ > 0; + # XXX: need a way to translate parameters given on the command line to the + # url syntax + my $filename = shift; + $self->hm->download_file($filename, "/owner/me/not/complete/accepted/starts/before/tomorrow/but_first/nothing"); + return $filename; +} + +__PACKAGE__->meta()->make_immutable(); +1; -- cgit v1.2.3-54-g00ecf