Changeset 350

Show
Ignore:
Timestamp:
11/19/06 20:17:08 (2 years ago)
Author:
ogawa
Message:

WWW-CybozuOffice?6-Calendar rev 67 replaces older one.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • cybozu2ical/trunk/cybozu2ical

    r344 r350  
    1818use Getopt::Long; 
    1919 
    20 our $VERSION = '0.10'; 
     20our $VERSION = '0.11'; 
    2121 
    2222my %opt = (conf => 'config.yaml'); 

  • cybozu2ical/trunk/lib/WWW/CybozuOffice6/Calendar.pm

    r348 r350  
    142142    @args{qw(year month day)} = ($1, $2, $3); 
    143143 
    144     $hms = '0:0:0' unless $hms && $hms ne ':'; 
    145     return unless $hms =~ m!^(\d+):(\d+)(?:\:?(\d+)?)$!; 
    146     @args{qw(hour minute second)} = ($1, $2, $3 || 0); 
    147     @args{qw(hour minute second)} = (23, 59, 59) if $args{hour} > 23; 
     144    if ($hms && $hms ne ':') { 
     145        return unless $hms =~ m!^(\d+):(\d+)(?:\:?(\d+)?)$!; 
     146        @args{qw(hour minute second)} = ($1, $2, $3 || 0); 
     147        @args{qw(hour minute second)} = (23, 59, 59) if $args{hour} > 23; 
     148    } else { 
     149        @args{qw(hour minute second)} = (0, 0, 0); 
     150    } 
    148151 
    149152    $args{time_zone} = $this->{time_zone} || 'Asia/Tokyo';