Changeset 312

Show
Ignore:
Timestamp:
04/18/06 17:57:43 (2 years ago)
Author:
ogawa
Message:

trivial modification.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • cybozu2ical/trunk/cybozu2ical

    r307 r312  
    4343my $content = $res->content; 
    4444Encode::from_to($content, 'shiftjis', 'utf8'); 
    45  
    4645my @lines = grep /^\d+,ts\.\d+,/, split(/\r?\n/, $content); 
    47 my $csv = Text::CSV_XS->new({ binary => 1 }); 
    4846 
    4947my $vcalendar = Data::ICal->new(); 
    …… 
    5654 
    5755# current timestamp 
    58 my $dtstamp = dt2ical(DateTime->from_epoch(epoch => time)); 
    59  
    60 while ($#lines != -1) { 
    61     my $line = shift(@lines); 
     56my $dtstamp = dt2ical(DateTime->now); 
     57 
     58my $csv = Text::CSV_XS->new({ binary => 1 }); 
     59for my $line (@lines) { 
    6260    $csv->parse($line) 
    6361        or die 'failed to parse CSV input.'; 
    …… 
    173171=over 4 
    174172 
    175 =item --conf path/to/config.yaml 
     173=item --conf /path/to/config.yaml 
    176174 
    177175Specifies the path to a configuration file. By default, C<config.yaml>