Changeset 1240

Timestamp:

11/08/07 19:56:26 (6 years ago)

Author:

otsune

Message:

lang/perl/misc/todo-pl-wassr/wassr-todo.pl:

(home_dir) refactoring filepath to config file.
add command regexp.

Files:

• lang/perl/misc/todo-pl-wassr/wassr-todo.pl (modified) (4 diffs)

lang/perl/misc/todo-pl-wassr/wassr-todo.pl

@@ -9 +9 @@
 use IO::Prompt;
 use Net::Wassr::TODO;
+use File::Spec;
 
-our $CONFFILE = "$ENV{HOME}/.wassr-todo";
+our $CONFFILE = File::Spec->catfile(home_dir(), ".wassr-todo");
 
 sub main {
@@ -27 +28 @@
 
     switch ($command) {
-        case 'list' {
+        case qr{^(?:list|ls)$} {
             my $list = $c->list;
 
@@ -35 +36 @@
             print "\n";
         }
-        case qr{^done|delete|start|stop$} {
+        case qr{^(?:done|del|delete|start|stop)$} {
             my $todo_rid = shift @ARGV;
             die "TODO rid missing for $command" unless $todo_rid;
             print $c->$command($todo_rid), "\n";
         }
-        case 'bd' {
+        case qr{^(?:bd|braindump)$} {
             # braindump
             require File::Temp;
@@ -78 +79 @@
 }
 
+sub home_dir {
+    eval { require File::HomeDir };
+    return $@ ? $ENV{HOME} : File::HomeDir->my_home;
+}
+
 &main();