Changeset 1967

Show
Ignore:
Timestamp:
09/25/06 20:44:28
Author:
miyagawa
Message:

display Day Of week

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • misc/30boxes

    r1966 r1967  
    120120} 
    121121 
    122 sub check_stat { 
    123     my $res = shift; 
     122sub dow { 
     123    my @dow  = qw(Sun Mon Tue Wed Thu Fri Sat); 
     124    my $date = shift; 
     125    my($y, $m, $d) = split /-/, $date; 
     126    return $dow[ Date_DayOfWeek($m, $d, $y) ]; 
    124127} 
    125128 
     
    137140    for my $event (sort { $a->{start} cmp $b->{start} } @events) { 
    138141        my($date, $time) = split / /, $event->{start}; 
    139         printf "%8s %s %s (%s)\n", 
     142        printf "%8s %s (%s) %s (%s)\n", 
    140143            $event->{id}, 
    141144            $date, 
     145            dow($date), 
    142146            $event->{summary}, 
    143147            ($event->{allDayEvent} ? 'All day' : $time),