1 # BEGIN BPS TAGGED BLOCK {{{
5 # This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
6 # <sales@bestpractical.com>
8 # (Except where explicitly superseded by other copyright notices)
13 # This work is made available to you under the terms of Version 2 of
14 # the GNU General Public License. A copy of that license should have
15 # been provided with this software, but in any event can be snarfed
18 # This work is distributed in the hope that it will be useful, but
19 # WITHOUT ANY WARRANTY; without even the implied warranty of
20 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
21 # General Public License for more details.
23 # You should have received a copy of the GNU General Public License
24 # along with this program; if not, write to the Free Software
25 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
26 # 02110-1301 or visit their web page on the internet at
27 # http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
30 # CONTRIBUTION SUBMISSION POLICY:
32 # (The following paragraph is not intended to limit the rights granted
33 # to you to modify and distribute this software under the terms of
34 # the GNU General Public License and is only of importance to you if
35 # you choose to contribute your changes and enhancements to the
36 # community by submitting them to Best Practical Solutions, LLC.)
38 # By intentionally submitting any modifications, corrections or
39 # derivatives to this work, or any other work intended for use with
40 # Request Tracker, to Best Practical Solutions, LLC, you confirm that
41 # you are the copyright holder for those contributions and you grant
42 # Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable,
43 # royalty-free, perpetual, license to use, copy, create derivative
44 # works based on those contributions, and sublicense and distribute
45 # those contributions and any derivatives thereof.
47 # END BPS TAGGED BLOCK }}}
51 RT::Date - a simple Object Oriented date.
59 RT Date is a simple Date Object designed to be speedy and easy for RT to use
61 The fact that it assumes that a time of 0 means "never" is probably a bug.
75 use base qw/RT::Base/;
81 use vars qw($MINUTE $HOUR $DAY $WEEK $MONTH $YEAR);
87 $MONTH = 30.4375 * $DAY;
88 $YEAR = 365.25 * $DAY;
105 our @DAYS_OF_WEEK = (
116 'DefaultFormat', # loc
122 'LocalizedDateTime', # loc
127 Object constructor takes one argument C<RT::CurrentUser> object.
133 my $class = ref($proto) || $proto;
135 bless ($self, $class);
136 $self->CurrentUser(@_);
143 Takes a param hash with the fields C<Format>, C<Value> and C<Timezone>.
145 If $args->{'Format'} is 'unix', takes the number of seconds since the epoch.
147 If $args->{'Format'} is ISO, tries to parse an ISO date.
149 If $args->{'Format'} is 'unknown', require Time::ParseDate and make it figure
150 things out. This is a heavyweight operation that should never be called from
151 within RT's core. But it's really useful for something like the textbox date
152 entry where we let the user do whatever they want.
154 If $args->{'Value'} is 0, assumes you mean never.
167 return $self->Unix(0) unless $args{'Value'} && $args{'Value'} =~ /\S/;
169 if ( $args{'Format'} =~ /^unix$/i ) {
170 return $self->Unix( $args{'Value'} );
172 elsif ( $args{'Format'} =~ /^(sql|datemanip|iso)$/i ) {
173 $args{'Value'} =~ s!/!-!g;
175 if ( ( $args{'Value'} =~ /^(\d{4})?(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/ )
176 || ( $args{'Value'} =~ /^(\d{4})?(\d\d)(\d\d)(\d\d):(\d\d):(\d\d)$/ )
177 || ( $args{'Value'} =~ /^(?:(\d{4})-)?(\d\d)-(\d\d) (\d\d):(\d\d):(\d\d)$/ )
178 || ( $args{'Value'} =~ /^(?:(\d{4})-)?(\d\d)-(\d\d) (\d\d):(\d\d):(\d\d)\+00$/ )
181 my ($year, $mon, $mday, $hours, $min, $sec) = ($1, $2, $3, $4, $5, $6);
183 # use current year if string has no value
184 $year ||= (localtime time)[5] + 1900;
186 #timegm expects month as 0->11
189 #now that we've parsed it, deal with the case where everything was 0
190 return $self->Unix(0) if $mon < 0 || $mon > 11;
192 my $tz = lc $args{'Format'} eq 'datemanip'? 'user': 'utc';
193 $self->Unix( $self->Timelocal( $tz, $sec, $min, $hours, $mday, $mon, $year ) );
195 $self->Unix(0) unless $self->Unix > 0;
198 $RT::Logger->warning(
199 "Couldn't parse date '$args{'Value'}' as a $args{'Format'} format"
201 return $self->Unix(0);
204 elsif ( $args{'Format'} =~ /^unknown$/i ) {
205 require Time::ParseDate;
206 # the module supports only legacy timezones like PDT or EST...
207 # so we parse date as GMT and later apply offset, this only
208 # should be applied to absolute times, so compensate shift in NOW
210 $now += ($self->Localtime( $args{Timezone}, $now ))[9];
211 my $date = Time::ParseDate::parsedate(
215 UK => RT->Config->Get('DateDayBeforeMonth'),
216 PREFER_PAST => RT->Config->Get('AmbiguousDayInPast'),
217 PREFER_FUTURE => RT->Config->Get('AmbiguousDayInFuture'),
219 # apply timezone offset
220 $date -= ($self->Localtime( $args{Timezone}, $date ))[9];
223 "RT::Date used Time::ParseDate to make '$args{'Value'}' $date\n"
226 return $self->Set( Format => 'unix', Value => $date);
230 "Unknown Date format: $args{'Format'}\n"
232 return $self->Unix(0);
240 Set the object's time to the current time. Takes no arguments
241 and returns unix time.
246 return $_[0]->Unix(time);
249 =head2 SetToMidnight [Timezone => 'utc']
251 Sets the date to midnight (at the beginning of the day).
252 Returns the unixtime at midnight.
260 Timezone context C<user>, C<server> or C<UTC>. See also L</Timezone>.
268 my %args = ( Timezone => '', @_ );
269 my $new = $self->Timelocal(
271 0,0,0,($self->Localtime( $args{'Timezone'} ))[3..9]
273 return $self->Unix( $new );
276 =head2 SetToStart PERIOD[, Timezone => 'utc' ]
278 Set to the beginning of the current PERIOD, which can be
279 "year", "month", "day", "hour", or "minute".
287 my $tz = $args{'Timezone'} || '';
288 my @localtime = $self->Localtime($tz);
289 #remove 'offset' so that DST is figured based on the resulting time.
292 # This is the cleanest way to implement it, I swear.
295 last if ($p eq 'MINUTE');
297 last if ($p eq 'HOUR');
299 last if ($p eq 'DAY');
301 last if ($p eq 'MONTH');
303 last if ($p eq 'YEAR');
304 $RT::Logger->warning("Couldn't find start date of '$p'.");
307 my $new = $self->Timelocal($tz, @localtime);
308 return $self->Unix($new);
313 Takes either an C<RT::Date> object or the date in unixtime format as a string,
314 if nothing is specified uses the current time.
316 Returns the differnce between the time in the current object and that time
317 as a number of seconds. Returns C<undef> if any of two compared values is
318 incorrect or not set.
325 $other = time unless defined $other;
326 if ( UNIVERSAL::isa( $other, 'RT::Date' ) ) {
327 $other = $other->Unix;
329 return undef unless $other=~ /^\d+$/ && $other > 0;
331 my $unix = $self->Unix;
332 return undef unless $unix > 0;
334 return $unix - $other;
339 Takes either an C<RT::Date> object or the date in unixtime format as a string,
340 if nothing is specified uses the current time.
342 Returns the differnce between C<$self> and that time as a number of seconds as
343 a localized string fit for human consumption. Returns empty string if any of
344 two compared values is incorrect or not set.
350 my $diff = $self->Diff( @_ );
351 return '' unless defined $diff;
353 return $self->DurationAsString( $diff );
356 =head2 DurationAsString
358 Takes a number of seconds. Returns a localized string describing
363 sub DurationAsString {
365 my $duration = int shift;
367 my ( $negative, $s, $time_unit );
368 $negative = 1 if $duration < 0;
369 $duration = abs $duration;
371 if ( $duration < $MINUTE ) {
373 $time_unit = $self->loc("sec");
375 elsif ( $duration < ( 2 * $HOUR ) ) {
376 $s = int( $duration / $MINUTE + 0.5 );
377 $time_unit = $self->loc("min");
379 elsif ( $duration < ( 2 * $DAY ) ) {
380 $s = int( $duration / $HOUR + 0.5 );
381 $time_unit = $self->loc("hours");
383 elsif ( $duration < ( 2 * $WEEK ) ) {
384 $s = int( $duration / $DAY + 0.5 );
385 $time_unit = $self->loc("days");
387 elsif ( $duration < ( 2 * $MONTH ) ) {
388 $s = int( $duration / $WEEK + 0.5 );
389 $time_unit = $self->loc("weeks");
391 elsif ( $duration < $YEAR ) {
392 $s = int( $duration / $MONTH + 0.5 );
393 $time_unit = $self->loc("months");
396 $s = int( $duration / $YEAR + 0.5 );
397 $time_unit = $self->loc("years");
401 return $self->loc( "[_1] [_2] ago", $s, $time_unit );
404 return $self->loc( "[_1] [_2]", $s, $time_unit );
410 Takes nothing. Returns a string that's the differnce between the
411 time in the object and now.
415 sub AgeAsString { return $_[0]->DiffAsString }
421 Returns the object's time as a localized string with curent user's prefered
424 If the current user didn't choose prefered format then system wide setting is
425 used or L</DefaultFormat> if the latter is not specified. See config option
434 return $self->loc("Not set") unless $self->Unix > 0;
436 my $format = RT->Config->Get( 'DateTimeFormat', $self->CurrentUser ) || 'DefaultFormat';
437 $format = { Format => $format } unless ref $format;
438 %args = (%$format, %args);
440 return $self->Get( Timezone => 'user', %args );
443 =head2 GetWeekday DAY
445 Takes an integer day of week and returns a localized string for
446 that day of week. Valid values are from range 0-6, Note that B<0
455 return $self->loc($DAYS_OF_WEEK[$dow])
456 if $DAYS_OF_WEEK[$dow];
460 =head2 GetMonth MONTH
462 Takes an integer month and returns a localized string for that month.
463 Valid values are from from range 0-11.
471 return $self->loc($MONTHS[$mon])
476 =head2 AddSeconds SECONDS
478 Takes a number of seconds and returns the new unix time.
480 Negative value can be used to substract seconds.
486 my $delta = shift or return $self->Unix;
488 $self->Set(Format => 'unix', Value => ($self->Unix + $delta));
490 return ($self->Unix);
493 =head2 AddDays [DAYS]
495 Adds C<24 hours * DAYS> to the current time. Adds one day when
496 no argument is specified. Negative value can be used to substract
499 Returns new unix time.
505 my $days = shift || 1;
506 return $self->AddSeconds( $days * $DAY );
511 Adds 24 hours to the current time. Returns new unix time.
515 sub AddDay { return $_[0]->AddSeconds($DAY) }
519 Adds one month to the current time. Returns new
527 my @localtime = $self->Localtime($args{'Timezone'});
528 # remove offset, as with SetToStart
531 $localtime[4]++; #month
532 if ( $localtime[4] == 12 ) {
534 $localtime[5]++; #year
537 my $new = $self->Timelocal($args{'Timezone'}, @localtime);
538 return $self->Unix($new);
541 =head2 Unix [unixtime]
543 Optionally takes a date in unix seconds since the epoch format.
544 Returns the number of seconds since the epoch
550 $self->{'time'} = int(shift || 0) if @_;
551 return $self->{'time'};
556 Alias for L</Get> method. Arguments C<Date> and <Time>
557 are fixed to true values, other arguments could be used
558 as described in L</Get>.
564 unless (defined $self) {
565 use Carp; Carp::confess("undefined $self");
567 return $self->Get( @_, Date => 1, Time => 1 );
572 Takes Format argument which allows you choose date formatter.
573 Pass throught other arguments to the formatter method.
575 Returns the object's formatted date. Default formatter is ISO.
581 return $self->Get( @_, Date => 1, Time => 0 );
591 return $self->Get( @_, Date => 0, Time => 1 );
596 Returnsa a formatted and localized string that represets time of
605 my %args = (Format => 'ISO', @_);
606 my $formatter = $args{'Format'};
607 unless ( $self->ValidFormatter($formatter) ) {
608 RT->Logger->warning("Invalid date formatter '$formatter', falling back to ISO");
611 $formatter = 'ISO' unless $self->can($formatter);
612 return $self->$formatter( %args );
615 =head2 Output formatters
617 Fomatter is a method that returns date and time in different configurable
620 Each method takes several arguments:
628 =item Timezone - Timezone context C<server>, C<user> or C<UTC>
632 Formatters may also add own arguments to the list, for example
633 in RFC2822 format day of time in output is optional so it
634 understand boolean argument C<DayOfTime>.
638 Returns an array of available formatters.
649 =head3 ValidFormatter FORMAT
651 Returns a true value if C<FORMAT> is a known formatter. Otherwise returns
659 return (grep { $_ eq $format } $self->Formatters and $self->can($format))
670 my %args = ( Date => 1,
677 # 0 1 2 3 4 5 6 7 8 9
678 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydaym,$isdst,$offset) =
679 $self->Localtime($args{'Timezone'});
680 $wday = $self->GetWeekday($wday);
681 $mon = $self->GetMonth($mon);
682 ($mday, $hour, $min, $sec) = map { sprintf "%02d", $_ } ($mday, $hour, $min, $sec);
684 if( $args{'Date'} && !$args{'Time'} ) {
685 return $self->loc('[_1] [_2] [_3] [_4]',
686 $wday,$mon,$mday,$year);
687 } elsif( !$args{'Date'} && $args{'Time'} ) {
688 if( $args{'Seconds'} ) {
689 return $self->loc('[_1]:[_2]:[_3]',
692 return $self->loc('[_1]:[_2]',
696 if( $args{'Seconds'} ) {
697 return $self->loc('[_1] [_2] [_3] [_4]:[_5]:[_6] [_7]',
698 $wday,$mon,$mday,$hour,$min,$sec,$year);
700 return $self->loc('[_1] [_2] [_3] [_4]:[_5] [_6]',
701 $wday,$mon,$mday,$hour,$min,$year);
708 Returns the L<DateTime::Locale> object representing the current user's locale.
715 my $lang = $self->CurrentUser->UserObj->Lang;
717 require I18N::LangTags::Detect;
718 $lang = ( I18N::LangTags::Detect::detect(), 'en' )[0];
721 return DateTime::Locale->load($lang);
724 =head3 LocalizedDateTime
726 Returns date and time as string, with user localization.
728 Supports arguments: C<DateFormat> and C<TimeFormat> which may contains date and
729 time format as specified in L<DateTime::Locale> (default to full_date_format and
730 medium_time_format), C<AbbrDay> and C<AbbrMonth> which may be set to 0 if
731 you want full Day/Month names instead of abbreviated ones.
735 sub LocalizedDateTime
738 my %args = ( Date => 1,
748 # Require valid names for the format methods
749 my $date_format = $args{DateFormat} =~ /^\w+$/
750 ? $args{DateFormat} : 'date_format_full';
752 my $time_format = $args{TimeFormat} =~ /^\w+$/
753 ? $args{TimeFormat} : 'time_format_medium';
755 my $formatter = $self->LocaleObj;
756 $date_format = $formatter->$date_format;
757 $time_format = $formatter->$time_format;
758 $date_format =~ s/EEEE/EEE/g if ( $args{'AbbrDay'} );
759 $date_format =~ s/MMMM/MMM/g if ( $args{'AbbrMonth'} );
761 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydaym,$isdst,$offset) =
762 $self->Localtime($args{'Timezone'});
764 my $tz = $self->Timezone($args{'Timezone'});
766 # FIXME : another way to call this module without conflict with local
768 my $dt = DateTime::->new( locale => $formatter,
779 if ( $args{'Date'} && !$args{'Time'} ) {
780 return $dt->format_cldr($date_format);
781 } elsif ( !$args{'Date'} && $args{'Time'} ) {
782 return $dt->format_cldr($time_format);
784 return $dt->format_cldr($date_format) . " " . $dt->format_cldr($time_format);
790 Returns the object's date in ISO format C<YYYY-MM-DD mm:hh:ss>.
791 ISO format is locale independant, but adding timezone offset info
792 is not implemented yet.
794 Supports arguments: C<Timezone>, C<Date>, C<Time> and C<Seconds>.
795 See </Output formatters> for description of arguments.
801 my %args = ( Date => 1,
807 # 0 1 2 3 4 5 6 7 8 9
808 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydaym,$isdst,$offset) =
809 $self->Localtime($args{'Timezone'});
811 #the month needs incrementing, as gmtime returns 0-11
815 $res .= sprintf("%04d-%02d-%02d", $year, $mon, $mday) if $args{'Date'};
816 $res .= sprintf(' %02d:%02d', $hour, $min) if $args{'Time'};
817 $res .= sprintf(':%02d', $sec, $min) if $args{'Time'} && $args{'Seconds'};
825 Returns the object's date and time in W3C date time format
826 (L<http://www.w3.org/TR/NOTE-datetime>).
828 Format is locale independand and is close enought to ISO, but
829 note that date part is B<not optional> and output string
830 has timezone offset mark in C<[+-]hh:mm> format.
832 Supports arguments: C<Timezone>, C<Time> and C<Seconds>.
833 See </Output formatters> for description of arguments.
846 # 0 1 2 3 4 5 6 7 8 9
847 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydaym,$isdst,$offset) =
848 $self->Localtime( $args{'Timezone'} );
850 #the month needs incrementing, as gmtime returns 0-11
854 $res .= sprintf("%04d-%02d-%02d", $year, $mon, $mday);
855 if ( $args{'Time'} ) {
856 $res .= sprintf('T%02d:%02d', $hour, $min);
857 $res .= sprintf(':%02d', $sec, $min) if $args{'Seconds'};
859 $res .= sprintf "%s%02d:%02d", $self->_SplitOffset( $offset );
869 =head3 RFC2822 (MIME)
871 Returns the object's date and time in RFC2822 format,
872 for example C<Sun, 06 Nov 1994 08:49:37 +0000>.
873 Format is locale independand as required by RFC. Time
874 part always has timezone offset in digits with sign prefix.
876 Supports arguments: C<Timezone>, C<Date>, C<Time>, C<DayOfWeek>
877 and C<Seconds>. See </Output formatters> for description of
884 my %args = ( Date => 1,
892 # 0 1 2 3 4 5 6 7 8 9
893 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydaym,$isdst,$offset) =
894 $self->Localtime($args{'Timezone'});
896 my ($date, $time) = ('','');
897 $date .= "$DAYS_OF_WEEK[$wday], " if $args{'DayOfWeek'} && $args{'Date'};
898 $date .= "$mday $MONTHS[$mon] $year" if $args{'Date'};
900 if ( $args{'Time'} ) {
901 $time .= sprintf("%02d:%02d", $hour, $min);
902 $time .= sprintf(":%02d", $sec) if $args{'Seconds'};
903 $time .= sprintf " %s%02d%02d", $self->_SplitOffset( $offset );
906 return join ' ', grep $_, ($date, $time);
909 =head3 RFC2616 (HTTP)
911 Returns the object's date and time in RFC2616 (HTTP/1.1) format,
912 for example C<Sun, 06 Nov 1994 08:49:37 GMT>. While the RFC describes
913 version 1.1 of HTTP, but the same form date can be used in version 1.0.
915 Format is fixed length, locale independand and always represented in GMT
916 what makes it quite useless for users, but any date in HTTP transfers
917 must be presented using this format.
919 HTTP-date = rfc1123 | ...
920 rfc1123 = wkday "," SP date SP time SP "GMT"
921 date = 2DIGIT SP month SP 4DIGIT
922 ; day month year (e.g., 02 Jun 1982)
923 time = 2DIGIT ":" 2DIGIT ":" 2DIGIT
924 ; 00:00:00 - 23:59:59
925 wkday = "Mon" | "Tue" | "Wed" | "Thu" | "Fri" | "Sat" | "Sun"
926 month = "Jan" | "Feb" | "Mar" | "Apr" | "May" | "Jun"
927 | "Jul" | "Aug" | "Sep" | "Oct" | "Nov" | "Dec"
929 Supports arguments: C<Date> and C<Time>, but you should use them only for
930 some personal reasons, RFC2616 doesn't define any optional parts.
931 See </Output formatters> for description of arguments.
937 my %args = ( Date => 1, Time => 1,
940 Seconds => 1, DayOfWeek => 1,
943 my $res = $self->RFC2822( %args );
944 $res =~ s/\s*[+-]\d\d\d\d$/ GMT/ if $args{'Time'};
950 Returns the object's date and time in iCalendar format,
952 Supports arguments: C<Date> and C<Time>.
953 See </Output formatters> for description of arguments.
960 Date => 1, Time => 1,
963 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydaym,$isdst,$offset) =
964 $self->Localtime( 'utc' );
966 #the month needs incrementing, as gmtime returns 0-11
970 if ( $args{'Date'} && !$args{'Time'} ) {
971 $res = sprintf( '%04d%02d%02d', $year, $mon, $mday );
973 elsif ( !$args{'Date'} && $args{'Time'} ) {
974 $res = sprintf( 'T%02d%02d%02dZ', $hour, $min, $sec );
977 $res = sprintf( '%04d%02d%02dT%02d%02d%02dZ', $year, $mon, $mday, $hour, $min, $sec );
982 # it's been added by mistake in 3.8.0
983 sub iCalDate { return (shift)->iCal( Time => 0, @_ ) }
986 my ($self, $offset) = @_;
987 my $sign = $offset < 0? '-': '+';
988 $offset = int( (abs $offset) / 60 + 0.001 );
989 my $mins = $offset % 60;
990 my $hours = int( $offset/60 + 0.001 );
991 return $sign, $hours, $mins;
994 =head2 Timezones handling
996 =head3 Localtime $context [$time]
998 Takes one mandatory argument C<$context>, which determines whether
999 we want "user local", "system" or "UTC" time. Also, takes optional
1000 argument unix C<$time>, default value is the current unix time.
1002 Returns object's date and time in the format provided by perl's
1003 builtin functions C<localtime> and C<gmtime> with two exceptions:
1005 1) "Year" is a four-digit year, rather than "years since 1900"
1007 2) The last element of the array returned is C<offset>, which
1008 represents timezone offset against C<UTC> in seconds.
1015 my $tz = $self->Timezone(shift);
1017 my $unix = shift || $self->Unix;
1018 $unix = 0 unless $unix >= 0;
1022 @local = gmtime($unix);
1025 local $ENV{'TZ'} = $tz;
1026 ## Using POSIX::tzset fixes a bug where the TZ environment variable
1029 @local = localtime($unix);
1031 POSIX::tzset(); # return back previouse value
1033 $local[5] += 1900; # change year to 4+ digits format
1034 my $offset = Time::Local::timegm_nocheck(@local) - $unix;
1035 return @local, $offset;
1038 =head3 Timelocal $context @time
1040 Takes argument C<$context>, which determines whether we should
1041 treat C<@time> as "user local", "system" or "UTC" time.
1043 C<@time> is array returned by L<Localtime> functions. Only first
1044 six elements are mandatory - $sec, $min, $hour, $mday, $mon and $year.
1045 You may pass $wday, $yday and $isdst, these are ignored.
1047 If you pass C<$offset> as ninth argument, it's used instead of
1048 C<$context>. It's done such way as code
1049 C<$self->Timelocal('utc', $self->Localtime('server'))> doesn't
1050 makes much sense and most probably would produce unexpected
1051 result, so the method ignore 'utc' context and uses offset
1052 returned by L<Localtime> method.
1059 if ( defined $_[9] ) {
1060 return timegm(@_[0..5]) - $_[9];
1062 $tz = $self->Timezone( $tz );
1063 if ( $tz eq 'UTC' ) {
1064 return Time::Local::timegm(@_[0..5]);
1068 local $ENV{'TZ'} = $tz;
1069 ## Using POSIX::tzset fixes a bug where the TZ environment variable
1072 $rv = Time::Local::timelocal(@_[0..5]);
1074 POSIX::tzset(); # switch back to previouse value
1081 =head3 Timezone $context
1083 Returns the timezone name.
1085 Takes one argument, C<$context> argument which could be C<user>, C<server> or C<utc>.
1091 Default value is C<user> that mean it returns current user's Timezone value.
1095 If context is C<server> it returns value of the C<Timezone> RT config option.
1099 If both server's and user's timezone names are undefined returns 'UTC'.
1109 Carp::carp "RT::Date->Timezone is a setter only";
1113 my $context = lc(shift);
1115 $context = 'utc' unless $context =~ /^(?:utc|server|user)$/i;
1118 if( $context eq 'user' ) {
1119 $tz = $self->CurrentUser->UserObj->Timezone;
1120 } elsif( $context eq 'server') {
1121 $tz = RT->Config->Get('Timezone');
1125 $tz ||= RT->Config->Get('Timezone') || 'UTC';
1126 $tz = 'UTC' if lc $tz eq 'gmt';
1131 RT::Base->_ImportOverlays();