} elsif ($month =~ /^(\d\d?)$/) {
my $pivot = $d_year+1900 . '-' . $1 . '-01';
$query .= "AND start >= '$pivot' AND start <= '$pivot'::date + interval '1 month' ";
- } elsif (length $month && $month !~ /^all$/) {
+ } elsif (length $month && $month eq 'today') {
+ $query .= "AND start::date = now()::date ";
+ } elsif (length $month && $month =~ /^yester(day)?$/) {
+ $query .= "AND start::date = (now() - interval '1 day')::date ";
+ } elsif (length $month && $month !~ /^(all|current)$/) {
$query .= "AND task LIKE '%${month}%' ";
- } elsif ($month !~ /^all$/) {
+ } elsif ($month !~ /^all$/ || $month eq 'current') {
my $pivot = sprintf('%04d-%02d-01', $d_year+1900, $d_mon+1);
$query .= "AND start >= '$pivot' AND start <= '$pivot'::date + interval '1 month' ";
}
{
print <<"END";
stempel Copyright (c) 2007,8 Martin Schulze <joey\@infodrom.org>
- --list [month] list month [default=current|all]
+ --list [month] list month [default=current|all|yesterday|today]
--back n move start of current task back by n minutes
--open list open
--close time close open task