| version 1.6, 2010/01/10 23:54:26 |
version 1.7, 2010/01/10 23:58:11 |
|
|
| } |
} |
| |
|
| sub add { |
sub add { |
| my ( $config, $entry ) = @_; |
my ( $config, @entry ) = @_; |
| if ( !$entry ) { |
if ( !@entry ) { |
| die "usage: todo.pl add 'item'\n"; |
die "usage: todo.pl add 'item'\n"; |
| } |
} |
| |
|
| |
my $entry = join q{ }, @entry; |
| |
|
| my $todo = Text::Todo->new($config); |
my $todo = Text::Todo->new($config); |
| if ( $todo->add($entry) ) { |
if ( $todo->add($entry) ) { |
| my @list = $todo->list; |
my @list = $todo->list; |
|
|
| } |
} |
| |
|
| sub addto { |
sub addto { |
| my ( $config, $file, $entry ) = @_; |
my ( $config, $file, @entry ) = @_; |
| if ( !( $file && $entry ) ) { |
if ( !( $file && @entry ) ) { |
| die "usage: todo.pl addto DEST 'TODO ITEM'\n"; |
die "usage: todo.pl addto DEST 'TODO ITEM'\n"; |
| } |
} |
| |
|
| |
my $entry = join q{ }, @entry; |
| |
|
| my $todo = Text::Todo->new($config); |
my $todo = Text::Todo->new($config); |
| |
|
| $file = $todo->file($file); |
$file = $todo->file($file); |
|
|
| } |
} |
| |
|
| sub append { |
sub append { |
| my ( $config, $line, $text ) = @_; |
my ( $config, $line, @text) = @_; |
| if ( !( $line && $text && $line =~ /^\d+$/xms ) ) { |
if ( !( $line && @text && $line =~ /^\d+$/xms ) ) { |
| die 'usage: todo.pl append ITEM# "TEXT TO APPEND"' . "\n"; |
die 'usage: todo.pl append ITEM# "TEXT TO APPEND"' . "\n"; |
| } |
} |
| |
|
| |
my $text = join q{ }, @text; |
| |
|
| my $todo = Text::Todo->new($config); |
my $todo = Text::Todo->new($config); |
| my $entry = $todo->list->[ $line - 1 ]; |
my $entry = $todo->list->[ $line - 1 ]; |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to todo.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / todotxt / Text-Todo / bin