Changeset 2159

Show
Ignore:
Timestamp:
02/02/07 08:21:07
Author:
miyagawa
Message:

remove some TZs. added offset

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • misc/worlddate

    r2105 r2159  
    1313    'America/New_York', 
    1414    'Europe/London', 
    15     'Europe/Paris', 
    16     'Europe/Berlin', 
    17     'Europe/Rome', 
    18     'Europe/Madrid', 
    19     'Asia/Jakarta', 
    20     'Asia/Bangkok', 
    2115    'Asia/Taipei', 
    22     'Asia/Shanghai', 
    23     'Asia/Hong_Kong', 
    2416    [ 'Asia/Tokyo' ], 
    2517    'Australia/Sydney', 
    26     'Pacific/Auckland', 
    2718); 
    2819 
    …… 
    3627    $dt->set_time_zone($tz); 
    3728    print color 'yellow' if $color; 
    38     print $dt->strftime("%Y/%m/%d (%a) %H:%M:%S "), $dt->time_zone->name, ($dt->is_dst ? '*' : ''), "\n"; 
     29 
     30    my $offset = $dt->time_zone->offset_for_datetime($dt); 
     31    print $dt->strftime("%Y/%m/%d (%a) %H:%M:%S "), 
     32        $dt->time_zone->name, 
     33        " (", $dt->time_zone->offset_as_string($offset), 
     34        ($dt->is_dst ? '*' : ''), 
     35        ")\n"; 
    3936    print color 'reset' if $color; 
    4037}