[BACK]Return to todo.pl CVS log [TXT][DIR] Up to [local] / todotxt / Text-Todo / bin

Diff for /todotxt/Text-Todo/bin/todo.pl between version 1.8 and 1.9

version 1.8, 2010/01/11 00:00:56 version 1.9, 2010/01/11 00:17:38
Line 145 
Line 145 
 }  }
   
 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";
     }      }
Line 161 
Line 161 
     die "Unable to append\n";      die "Unable to append\n";
 }  }
   
 sub archive {  sub archive {
     my ( $config ) = @_;      my ($config) = @_;
     my $todo = Text::Todo->new($config);      my $todo = Text::Todo->new($config);
   
     my $file = $todo->file;      my $file = $todo->file;
   
     my $archived = $todo->archive;      my $archived = $todo->archive;
     if (defined $archived) {      if ( defined $archived ) {
         return print "TODO: $file archived.\n";          return print "TODO: $file archived.\n";
     }      }
     die "Unable to archive $file\n";      die "Unable to archive $file\n";
 }  }
   
 sub command   { return &unsupported }  sub command { return &unsupported }
   
 sub del {  sub del {
     my ( $config, $line ) = @_;      my ( $config, $line ) = @_;
     if ( !( $line && $line =~ /^\d+$/xms ) ) {      if ( !( $line && $line =~ /^\d+$/xms ) ) {
         die 'usage: todo.pl del ITEM#' . "\n";          die 'usage: todo.pl del ITEM#' . "\n";
     }      }
     my $todo = Text::Todo->new($config);      my $todo = Text::Todo->new($config);
   
     my $entry = $todo->list->[$line - 1];      my $entry = $todo->list->[$line - 1];
     print "Delete '" . $entry->text . "'?  (y/n)\n";      print "Delete '" . $entry->text . "'?  (y/n)\n";
     warn "XXX No delete confirmation currently!\n";      warn "XXX No delete confirmation currently!\n";
   
     if ($opts{n}) {      if ( $opts{n} ) {
         if ($todo->del($entry) && $todo->save) {          if ( $todo->del($entry) && $todo->save ) {
             return print 'TODO: \'', $entry->text, "' deleted.\n";              return print 'TODO: \'', $entry->text, "' deleted.\n";
         }          }
     }      }
     else {      else {
         my $text = $entry->text;          my $text = $entry->text;
         if ($entry->replace(q{}) && $todo->save) {          if ( $entry->replace(q{}) && $todo->save ) {
             return print 'TODO: \'', $text, "' deleted.\n";              return print 'TODO: \'', $text, "' deleted.\n";
         }          }
     }      }
Line 202 
Line 202 
     die "Unable to delete entry\n";      die "Unable to delete entry\n";
 }  }
   
 sub depri     { return &unsupported }  sub depri {
       my ( $config, $line ) = @_;
       if ( !( $line && $line =~ /^\d+$/xms ) ) {
           die 'usage: todo.pl del ITEM#' . "\n";
       }
       my $todo = Text::Todo->new($config);
   
       my $entry = $todo->list->[ $line - 1 ];
       if ( $entry->depri && $todo->save ) {
           return print $line, ': ', $entry->text, "\n",
               'TODO: ', $line, " deprioritized.\n";
       }
       die "Unable to deprioritize entry\n";
   }
   
 sub mark_done { return &unsupported }  sub mark_done { return &unsupported }
 sub help      { return &unsupported }  sub help      { return &unsupported }
   
Line 286 
Line 300 
 sub prepend {  sub prepend {
     my ( $config, $line, @text) = @_;      my ( $config, $line, @text) = @_;
     if ( !( $line && @text && $line =~ /^\d+$/xms ) ) {      if ( !( $line && @text && $line =~ /^\d+$/xms ) ) {
         die 'usage: todo.pl prepend ITEM# "TEXT TO APPEND"' . "\n";          die 'usage: todo.pl prepend ITEM# "TEXT TO PREPEND"' . "\n";
     }      }
   
     my $text = join q{ }, @text;      my $text = join q{ }, @text;
Line 297 
Line 311 
     if ( $entry->prepend($text) && $todo->save ) {      if ( $entry->prepend($text) && $todo->save ) {
         return printf "%02d: %s\n", $line, $entry->text;          return printf "%02d: %s\n", $line, $entry->text;
     }      }
     die "Unable to append\n";      die "Unable to prepend\n";
 }  }
   
 sub pri     { return &unsupported }  sub pri     { return &unsupported }
Line 389 
Line 403 
     my ($file) = @_;      my ($file) = @_;
   
     my %config;      my %config;
     open my $fh, '< ', $file or die "Unable to open [$file]: $!";      open my $fh, '<', $file or die "Unable to open [$file] : $!";
 LINE: while (<$fh>) {  LINE: while (<$fh>) {
         s/\r?\n$//xms;          s/\r?\n$//xms;
         s/\s*\#.*$//xms;          s/\s*\#.*$//xms;
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>