diff lib/Slideshow/Util.pm @ 36:74859abd87cc

update cli tool
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Mon, 07 May 2018 12:59:27 +0900
parents 952136cc268f
children
line wrap: on
line diff
--- a/lib/Slideshow/Util.pm	Tue May 01 09:37:02 2018 +0900
+++ b/lib/Slideshow/Util.pm	Mon May 07 12:59:27 2018 +0900
@@ -46,7 +46,6 @@
             return { build => "recent"};
         }
 
-
     } elsif ( $arg eq "build-open"){
         return { build_open => 1};
 
@@ -93,8 +92,22 @@
     return $date;
 }
 
-
-
+# sub zip {
+#     my $recently = _search_recently(shift);
+#     my $t = localtime;
+# 
+#     my ($y,$m,$d) = ($t->strftime('%Y'), $t->strftime('%m'), $t->strftime('%d'));
+#     my $zip = $root_dir->child($y .'/'. $m .'/'. $d .'/'.'zip.txt')->touchpath;
+# 
+#     $t -= ONE_WEEK;
+# 
+#     for(1..7){
+#         my ($y,$m,$d) = ($t->strftime('%Y'), $t->strftime('%m'), $t->strftime('%d'));
+#         my $memo = $root_dir->child($y .'/'. $m .'/'. $d .'/'.'memo.txt')->touchpath;
+#         $zip->append($memo->slurp);
+#     }
+# }
+# 
 sub build_recently {
     my $recently = _search_recently(shift);
     _build($recently);