/[suikacvs]/messaging/manakai/lib/Message/Field/Date.pm
Suika

Diff of /messaging/manakai/lib/Message/Field/Date.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by wakaba, Thu Aug 29 12:14:37 2002 UTC revision 1.19 by wakaba, Wed Nov 13 08:08:51 2002 UTC
# Line 93  The following methods construct new obje Line 93  The following methods construct new obje
93    JAN   => 1,   JANUARY => 1,    JAN   => 1,   JANUARY => 1,
94    FEB   => 2,   FEBRUARY        => 2,    FEB   => 2,   FEBRUARY        => 2,
95    MAR   => 3,   MARCH   => 3,    MAR   => 3,   MARCH   => 3,
96    APR   => 4,   APRIL   => 4,    APR   => 4,   APRIL   => 4,   ARL     => 4,
97    MAY   => 5,    MAY   => 5,
98    JUN   => 6,   JUNE    => 6,    JUN   => 6,   JUNE    => 6,
99    JUL   => 7,   JULY    => 7,    JUL   => 7,   JULY    => 7,
# Line 175  my $_tm = sub { $_[0]->{local}?'tm_local Line 175  my $_tm = sub { $_[0]->{local}?'tm_local
175    CST   => [-1,  6,  0],        ## (NA)Central Standard 733, 822    CST   => [-1,  6,  0],        ## (NA)Central Standard 733, 822
176    EADT  => [+1, 11,  0],        ## Eastern Australian Daylight    EADT  => [+1, 11,  0],        ## Eastern Australian Daylight
177    EADT  => [+1, 10,  0],        ## Eastern Australian Standard    EADT  => [+1, 10,  0],        ## Eastern Australian Standard
178      #EASTERN
179    ECT   => [+1,  1,  0],        ## Central European (French)    ECT   => [+1,  1,  0],        ## Central European (French)
180    EDT   => [-1,  4,  0],        ## (NA)Eastern Daylight 733, 822    EDT   => [-1,  4,  0],        ## (NA)Eastern Daylight 733, 822
181    EEST  => [+1,  3,  0],        ## Eastern European Summer    EEST  => [+1,  3,  0],        ## Eastern European Summer
# Line 184  my $_tm = sub { $_[0]->{local}?'tm_local Line 185  my $_tm = sub { $_[0]->{local}?'tm_local
185    FST   => [+1,  2,  0],        ## French Summer    FST   => [+1,  2,  0],        ## French Summer
186    FWT   => [+1,  1,  0],        ## French Winter    FWT   => [+1,  1,  0],        ## French Winter
187    GDT   => [+1,  1,  0],        ##      724    GDT   => [+1,  1,  0],        ##      724
188      #GM
189    GMT   => [+1,  0,  0],        ## Greenwich Mean       733, 822    GMT   => [+1,  0,  0],        ## Greenwich Mean       733, 822
190    #GST  => [-1,  3,  0],        ## Greenland Standard    #GST  => [-1,  3,  0],        ## Greenland Standard
191    GST   => [+1, 10,  0],        ## Guam Standard    GST   => [+1, 10,  0],        ## Guam Standard
# Line 203  my $_tm = sub { $_[0]->{local}?'tm_local Line 205  my $_tm = sub { $_[0]->{local}?'tm_local
205    KST   => [+1,  9,  0],        ## Korean Standard    KST   => [+1,  9,  0],        ## Korean Standard
206    LCL   => [-1,  0,  0],        ## (unknown zone used by LSMTP)    LCL   => [-1,  0,  0],        ## (unknown zone used by LSMTP)
207    LOCAL => [-1,  0,  0],        ## local time zone    LOCAL => [-1,  0,  0],        ## local time zone
208      #LON
209    LT    => [-1,  0,  0],        ## Luna Time [RFC 1607]    LT    => [-1,  0,  0],        ## Luna Time [RFC 1607]
210    MDT   => [-1,  6,  0],        ## (NA)Mountain Daylight        733, 822    MDT   => [-1,  6,  0],        ## (NA)Mountain Daylight        733, 822
211    MET   => [+1,  0,  0],        ## Middle European    MET   => [+1,  0,  0],        ## Middle European
# Line 211  my $_tm = sub { $_[0]->{local}?'tm_local Line 214  my $_tm = sub { $_[0]->{local}?'tm_local
214    MEWT  => [+1,  0,  0],        ## Middle European Winter    MEWT  => [+1,  0,  0],        ## Middle European Winter
215    MEZ   => [+1,  0,  0],        ## Central European (German)    MEZ   => [+1,  0,  0],        ## Central European (German)
216    MST   => [-1,  7,  0],        ## (NA)Mountain Standard        733, 822    MST   => [-1,  7,  0],        ## (NA)Mountain Standard        733, 822
217      MOUNTAIN      => [-1,  7,  0],        ## (maybe) (NA)Mountain Standard        733, 822
218    MT    => [-1,  0,  0],        ## Mars Time [RFC 1607]    MT    => [-1,  0,  0],        ## Mars Time [RFC 1607]
219    NDT   => [-1,  2, 30],        ## Newfoundland Daylight    NDT   => [-1,  2, 30],        ## Newfoundland Daylight
220    NFT   => [-1,  3, 30],        ## Newfoundland Standard    NFT   => [-1,  3, 30],        ## Newfoundland Standard
# Line 220  my $_tm = sub { $_[0]->{local}?'tm_local Line 224  my $_tm = sub { $_[0]->{local}?'tm_local
224    NZD   => [+1, 13,  0],        ## New Zealand Daylight    NZD   => [+1, 13,  0],        ## New Zealand Daylight
225    NZT   => [+1, 12,  0],        ## New Zealand    NZT   => [+1, 12,  0],        ## New Zealand
226    NZDT  => [+1, 13,  0],        ## New Zealand Daylight    NZDT  => [+1, 13,  0],        ## New Zealand Daylight
227      NZS   => [+1, 12,  0],        ## (maybe) New Zealand Standard
228    NZST  => [+1, 12,  0],        ## New Zealand Standard    NZST  => [+1, 12,  0],        ## New Zealand Standard
229    PDT   => [-1,  7,  0],        ## (NA)Pacific Daylight 733, 822    PDT   => [-1,  7,  0],        ## (NA)Pacific Daylight 733, 822
230      #PM
231    PST   => [-1,  8,  0],        ## (NA)Pacific Standard 733, 822    PST   => [-1,  8,  0],        ## (NA)Pacific Standard 733, 822
232      #SAMST
233    SET   => [+1,  1,  0],        ## Seychelles    SET   => [+1,  1,  0],        ## Seychelles
234    SST   => [+1,  2,  0],        ## Swedish Summer    SST   => [+1,  2,  0],        ## Swedish Summer
235    #SST  => [+1,  7,  0],        ## South Sumatra    #SST  => [+1,  7,  0],        ## South Sumatra
236    SWT   => [+1,  1,  0],        ## Swedish Winter    SWT   => [+1,  1,  0],        ## Swedish Winter
237    UKR   => [+1,  2,  0],        ## Ukraine    UKR   => [+1,  2,  0],        ## Ukraine
238      UNDEFINED     => [-1,  0,  0],        ## undefined
239    UT    => [+1,  0,  0],        ## Universal Time       822    UT    => [+1,  0,  0],        ## Universal Time       822
240    UTC   => [+1,  0,  0],        ## Coordinated Universal Time    UTC   => [+1,  0,  0],        ## Coordinated Universal Time
241    WADT  => [+1,  8,  0],        ## West Australian Daylight    WADT  => [+1,  8,  0],        ## West Australian Daylight
# Line 694  sub _zone_string_to_array ($$;$) { Line 702  sub _zone_string_to_array ($$;$) {
702        my ($s, $h, $m) = ($1, $2, $3);        my ($s, $h, $m) = ($1, $2, $3);
703        $s ||= '+';  $s =~ tr/+-/-+/;        $s ||= '+';  $s =~ tr/+-/-+/;
704        @azone = ("${s}1", 0+$h, 0+$m);        @azone = ("${s}1", 0+$h, 0+$m);
705        } elsif ($zone =~ /^GMT([+-])([0-9][0-9]?)([0-9][0-9])?/i) {
706          @azone = ("${1}1", 0+$2, 0+$3);
707      } elsif ($zone =~ /([+-])([0-9][0-9])([0-9][0-9])/) {      } elsif ($zone =~ /([+-])([0-9][0-9])([0-9][0-9])/) {
708        @azone = ("${1}1", $2, $3);        @azone = ("${1}1", $2, $3);
709        } elsif ($zone =~ /([+-])([0-9])([0-9][0-9])/) {
710          @azone = ("${1}1", $2, $3);
711      } elsif ($zone =~ /([+-]?)([0-9]+)(?:[:.-]([0-9]+))?/) {      } elsif ($zone =~ /([+-]?)([0-9]+)(?:[:.-]([0-9]+))?/) {
712        @azone = ("${1}1", $2, 0+$3);        @azone = ("${1}1", $2, 0+$3);
713      } else { $zone =~ tr/-//d;      } else { $zone =~ tr/-//d;
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24