version 1.20, 2010/01/22 01:30:45 |
version 1.21, 2010/02/03 18:14:01 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: todo.pl,v 1.19 2010/01/21 21:10:38 andrew Exp $ |
# $AFresh1: todo.pl,v 1.20 2010/01/22 01:30:45 andrew Exp $ |
######################################################################## |
######################################################################## |
# todo.pl *** a perl version of todo.sh. Uses Text::Todo. |
# todo.pl *** a perl version of todo.sh. Uses Text::Todo. |
# |
# |
|
|
my $entry = join q{ }, @entry; |
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) && $todo->save ) { |
my @list = $todo->list; |
my @list = $todo->list; |
my $lines = scalar @list; |
my $lines = scalar @list; |
|
|