Changeset 1969
- Timestamp:
- 09/26/06 00:40:50
- Files:
-
- misc/30boxes.pl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
misc/30boxes.pl
r1968 r1969 58 58 "to=s", 59 59 "month=s", 60 "date=s", 60 61 "help", 61 62 "config=s") … … 81 82 $args{end} = "$year-$month-$end"; 82 83 } 84 85 $args{date} = parse_date($args{date}) if $args{date}; 83 86 84 87 setup_config(); … … 128 131 129 132 sub 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); 133 141 134 142 unless ($res->{eventList}->{event}) { … … 207 215 --to, --end End date of events to search for 208 216 --month Month of events to search for 217 --date Date of events to search for 209 218 210 219 30boxes.pl list