diff options
author | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-09 04:09:51 -0500 |
---|---|---|
committer | jluehrs2 <jluehrs2@uiuc.edu> | 2008-05-09 04:09:51 -0500 |
commit | 257730274e9216c2d6c355e00ba431f8a254fb96 (patch) | |
tree | ae6b247fca5445bc513e2975d24d42b262c044f9 | |
parent | 0d92f6e35358125bac8e5c205da0bd6ae6af1976 (diff) | |
download | app-hiveminder-257730274e9216c2d6c355e00ba431f8a254fb96.tar.gz app-hiveminder-257730274e9216c2d6c355e00ba431f8a254fb96.zip |
add download
-rw-r--r-- | lib/App/Hiveminder/Command/Download.pm | 26 |
1 files changed, 26 insertions, 0 deletions
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; |