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

Return to todo.pl CVS log

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

version 1.15, 2010/01/12 20:30:55

version 1.16, 2010/01/12 23:46:40

Line 1

#!/usr/bin/perl

# $AFresh1: todo.pl,v 1.14 2010/01/11 19:52:06 andrew Exp $

# $AFresh1: todo.pl,v 1.15 2010/01/12 20:30:55 andrew Exp $

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

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

Line 96

if ( exists $actions{$action} ) {

my $config = read_config($config_file);

my $action = $actions{$action}->( $config, @ARGV );

my $result = $actions{$action}->( $config, @ARGV );

}

else {

usage();

Line 295

my @pri_list;

if ($pri) {

$pri = uc $pri;

if ( $pri !~ /^[A-Z]$/xms ) {

if ( $pri !~ /^[[:upper:]]$/xms ) {

die "usage: todo.pl listpri PRIORITY\n",

"note: PRIORITY must a single letter from A to Z.\n";

}

Line 346

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

die "$error\n";

}

elsif ( $priority !~ /^[A-Z]$/xms ) {

elsif ( $priority !~ /^[[:upper:]]$/xms ) {

$error .= "\n" . 'note: PRIORITY must a single letter from A to Z.';

die "$error\n";

}