Mercurial > hg > Members > anatofuz > slides

comparison lib/CLI.pm @ 39:202d1ab8775a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
auto-Update generated slides by script
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Mon, 07 May 2018 13:12:49 +0900
parents 74859abd87cc
children b887347d2d2b
comparison
equal deleted inserted replaced
38:915b42865b02 39:202d1ab8775a
169 my $t = localtime; 169 my $t = localtime;
170 my $zip = $recent_day->child('zip.txt')->touch->opena; 170 my $zip = $recent_day->child('zip.txt')->touch->opena;
171 171
172 $t-= ONE_WEEK; 172 $t-= ONE_WEEK;
173 173
174 for(1..7){ 174 for(0..7){
175 my($y,$m,$d)=($t->strftime('%Y'), $t->strftime('%m'), $t->strftime('%d')); 175 my($y,$m,$d)=($t->strftime('%Y'), $t->strftime('%m'), $t->strftime('%d'));
176 my $memo = path($self->root_dir)->child($y)->child($m)->child($d)->child('memo.txt'); 176 my $memo = path($self->root_dir)->child($y)->child($m)->child($d)->child('memo.txt');
177 177
178 unless ($memo->exists) { 178 unless ($memo->exists) {
179 $t += ONE_DAY; 179 $t += ONE_DAY;