Changeset 1969

Show
Ignore:
Timestamp:
09/26/06 00:40:50
Author:
miyagawa
Message:

added --date option

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • misc/30boxes.pl

    r1968 r1969  
    5858               "to=s", 
    5959               "month=s", 
     60               "date=s", 
    6061               "help", 
    6162               "config=s") 
    …… 
    8182        $args{end}   = "$year-$month-$end"; 
    8283    } 
     84 
     85    $args{date} = parse_date($args{date}) if $args{date}; 
    8386 
    8487    setup_config(); 
    …… 
    128131 
    129132sub list_events { 
    130     my $res = call_api("events.Get", 
    131                        $args{start} ? (start => $args{start}) : (), 
    132                        $args{end}   ? (end => $args{end}) : ()); 
     133    my %param; 
     134    $param{start} = $args{start} if $args{start}; 
     135    $param{end}   = $args{end}   if $args{end}; 
     136    if ($args{date}) { 
     137        $param{start} = $param{end} = $args{date}; 
     138    } 
     139 
     140    my $res = call_api("events.Get", %param); 
    133141 
    134142    unless ($res->{eventList}->{event}) { 
    …… 
    207215      --to, --end               End date of events to search for 
    208216      --month                   Month of events to search for 
     217      --date                    Date of events to search for 
    209218 
    210219  30boxes.pl list