todotxt/Text-Todo/bin/todo.pl - diff

Return to todo.pl CVS log

Up to [local] / todotxt / Text-Todo / bin

version 1.7, 2010/01/10 23:58:11

version 1.8, 2010/01/11 00:00:56

Line 1

#!/usr/bin/perl

# $RedRiver: todo.pl,v 1.5 2010/01/10 23:37:12 andrew Exp $

# $RedRiver: todo.pl,v 1.7 2010/01/10 23:58:11 andrew Exp $

########################################################################

# todo.pl *** a perl version of todo.sh. Uses Text::Todo.

Line 282

}

sub move { return &unsupported }

sub prepend { return &unsupported }

sub prepend {

my ( $config, $line, @text) = @_;

if ( !( $line && @text && $line =~ /^\d+$/xms ) ) {

die 'usage: todo.pl prepend ITEM# "TEXT TO APPEND"' . "\n";

}

my $text = join q{ }, @text;

my $todo = Text::Todo->new($config);

my $entry = $todo->list->[ $line - 1 ];

if ( $entry->prepend($text) && $todo->save ) {

return printf "%02d: %s\n", $line, $entry->text;

}

die "Unable to append\n";

}

sub pri { return &unsupported }

sub replace { return &unsupported }

sub report { return &unsupported }