| 14 |  | if ($days < 1) {$days = 1}; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 15 |  | $heading = "i-scream CVS$moduleext commits in the past $days day(s)"; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 16 |  | $days--; | 
 
 
 
 
 
 
 
 
 
 
 | 17 | < | $firstdate = ">" . `date --date \"$days days ago\" \"+%Y/%m/%d\"`; | 
 
 
 
 
 
 
 
 
 | 17 | > | $firstdate = ">" . `/bin/date -v-${days}d +%Y/%m/%d`; | 
 
 
 
 
 
 
 
 
 
 
 | 18 |  | } | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 19 |  | elsif($period eq "date") { | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 20 |  | my($date)=$query->param('date'); | 
 
 
 
 
 
 
 
 
 
 
 | 21 | < | $date = `/bin/date \"+%Y/%m/%d\"` unless defined $date; | 
 
 
 
 
 
 
 
 
 | 21 | > | $date = `/bin/date +%Y/%m/%d` unless defined $date; | 
 
 
 
 
 
 
 
 
 
 
 | 22 |  | $heading = "i-scream CVS$moduleext commits on $date"; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 23 |  | $firstdate = "$date 00:00<$date 23:59" | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 24 |  | } | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 25 |  | elsif($period eq "since") { | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 26 |  | my($date)=$query->param('date'); | 
 
 
 
 
 
 
 
 
 
 
 | 27 | < | $date = `/bin/date \"+%Y/%m/%d\"` unless defined $date; | 
 
 
 
 
 
 
 
 
 | 27 | > | $date = `/bin/date +%Y/%m/%d` unless defined $date; | 
 
 
 
 
 
 
 
 
 
 
 | 28 |  | $heading = "i-scream CVS$moduleext commits since $date"; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 29 |  | $firstdate = ">$date"; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 30 |  | } | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 34 |  | } | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 35 |  | else { | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 36 |  | # default to "today only" | 
 
 
 
 
 
 
 
 
 
 
 | 37 | < | $firstdate = ">" . `/bin/date \"+%Y/%m/%d\"`; | 
 
 
 
 
 
 
 
 
 | 37 | > | $firstdate = ">" . `/bin/date +%Y/%m/%d`; | 
 
 
 
 
 
 
 
 
 
 
 | 38 |  | $heading = "Today's i-scream CVS$moduleext commits"; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 39 |  | } | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 40 |  |  |