Mercurial > hg > Members > anatofuz > slides
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);