1 # BEGIN BPS TAGGED BLOCK {{{
5 # This software is Copyright (c) 1996-2015 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, $error) = Time::ParseDate::parsedate(
215 UK => RT->Config->Get('DateDayBeforeMonth'),
216 PREFER_PAST => RT->Config->Get('AmbiguousDayInPast'),
217 PREFER_FUTURE => RT->Config->Get('AmbiguousDayInFuture'),
219 unless ( defined $date ) {
220 $RT::Logger->warning(
221 "Couldn't parse date '$args{'Value'}' by Time::ParseDate"
223 return $self->Unix(0);
226 # apply timezone offset
227 $date -= ($self->Localtime( $args{Timezone}, $date ))[9];
230 "RT::Date used Time::ParseDate to make '$args{'Value'}' $date\n"
233 return $self->Set( Format => 'unix', Value => $date);
237 "Unknown Date format: $args{'Format'}\n"
239 return $self->Unix(0);
247 Set the object's time to the current time. Takes no arguments
248 and returns unix time.
253 return $_[0]->Unix(time);
256 =head2 SetToMidnight [Timezone => 'utc']
258 Sets the date to midnight (at the beginning of the day).
259 Returns the unixtime at midnight.
267 Timezone context C<user>, C<server> or C<UTC>. See also L</Timezone>.
275 my %args = ( Timezone => '', @_ );
276 my $new = $self->Timelocal(
278 0,0,0,($self->Localtime( $args{'Timezone'} ))[3..9]
280 return $self->Unix( $new );
283 =head2 SetToStart PERIOD[, Timezone => 'utc' ]
285 Set to the beginning of the current PERIOD, which can be
286 "year", "month", "day", "hour", or "minute".
294 my $tz = $args{'Timezone'} || '';
295 my @localtime = $self->Localtime($tz);
296 #remove 'offset' so that DST is figured based on the resulting time.
299 # This is the cleanest way to implement it, I swear.
302 last if ($p eq 'MINUTE');
304 last if ($p eq 'HOUR');
306 last if ($p eq 'DAY');
308 last if ($p eq 'MONTH');
310 last if ($p eq 'YEAR');
311 $RT::Logger->warning("Couldn't find start date of '$p'.");
314 my $new = $self->Timelocal($tz, @localtime);
315 return $self->Unix($new);
320 Takes either an C<RT::Date> object or the date in unixtime format as a string,
321 if nothing is specified uses the current time.
323 Returns the differnce between the time in the current object and that time
324 as a number of seconds. Returns C<undef> if any of two compared values is
325 incorrect or not set.
332 $other = time unless defined $other;
333 if ( UNIVERSAL::isa( $other, 'RT::Date' ) ) {
334 $other = $other->Unix;
336 return undef unless $other=~ /^\d+$/ && $other > 0;
338 my $unix = $self->Unix;
339 return undef unless $unix > 0;
341 return $unix - $other;
346 Takes either an C<RT::Date> object or the date in unixtime format as a string,
347 if nothing is specified uses the current time.
349 Returns the differnce between C<$self> and that time as a number of seconds as
350 a localized string fit for human consumption. Returns empty string if any of
351 two compared values is incorrect or not set.
357 my $diff = $self->Diff( @_ );
358 return '' unless defined $diff;
360 return $self->DurationAsString( $diff );
363 =head2 DurationAsString
365 Takes a number of seconds. Returns a localized string describing
370 sub DurationAsString {
372 my $duration = int shift;
374 my ( $negative, $s, $time_unit );
375 $negative = 1 if $duration < 0;
376 $duration = abs $duration;
378 if ( $duration < $MINUTE ) {
380 $time_unit = $self->loc("sec");
382 elsif ( $duration < ( 2 * $HOUR ) ) {
383 $s = int( $duration / $MINUTE + 0.5 );
384 $time_unit = $self->loc("min");
386 elsif ( $duration < ( 2 * $DAY ) ) {
387 $s = int( $duration / $HOUR + 0.5 );
388 $time_unit = $self->loc("hours");
390 elsif ( $duration < ( 2 * $WEEK ) ) {
391 $s = int( $duration / $DAY + 0.5 );
392 $time_unit = $self->loc("days");
394 elsif ( $duration < ( 2 * $MONTH ) ) {
395 $s = int( $duration / $WEEK + 0.5 );
396 $time_unit = $self->loc("weeks");
398 elsif ( $duration < $YEAR ) {
399 $s = int( $duration / $MONTH + 0.5 );
400 $time_unit = $self->loc("months");
403 $s = int( $duration / $YEAR + 0.5 );
404 $time_unit = $self->loc("years");
408 return $self->loc( "[_1] [_2] ago", $s, $time_unit );
411 return $self->loc( "[_1] [_2]", $s, $time_unit );
417 Takes nothing. Returns a string that's the differnce between the
418 time in the object and now.
422 sub AgeAsString { return $_[0]->DiffAsString }
428 Returns the object's time as a localized string with curent user's prefered
431 If the current user didn't choose prefered format then system wide setting is
432 used or L</DefaultFormat> if the latter is not specified. See config option
441 return $self->loc("Not set") unless $self->Unix > 0;
443 my $format = RT->Config->Get( 'DateTimeFormat', $self->CurrentUser ) || 'DefaultFormat';
444 $format = { Format => $format } unless ref $format;
445 %args = (%$format, %args);
447 return $self->Get( Timezone => 'user', %args );
450 =head2 GetWeekday DAY
452 Takes an integer day of week and returns a localized string for
453 that day of week. Valid values are from range 0-6, Note that B<0
462 return $self->loc($DAYS_OF_WEEK[$dow])
463 if $DAYS_OF_WEEK[$dow];
467 =head2 GetMonth MONTH
469 Takes an integer month and returns a localized string for that month.
470 Valid values are from from range 0-11.
478 return $self->loc($MONTHS[$mon])
483 =head2 AddSeconds SECONDS
485 Takes a number of seconds and returns the new unix time.
487 Negative value can be used to substract seconds.
493 my $delta = shift or return $self->Unix;
495 $self->Set(Format => 'unix', Value => ($self->Unix + $delta));
497 return ($self->Unix);
500 =head2 AddDays [DAYS]
502 Adds C<24 hours * DAYS> to the current time. Adds one day when
503 no argument is specified. Negative value can be used to substract
506 Returns new unix time.
513 $days = 1 unless defined $days;
514 return $self->AddSeconds( $days * $DAY );
519 Adds 24 hours to the current time. Returns new unix time.
523 sub AddDay { return $_[0]->AddSeconds($DAY) }
527 Adds one month to the current time. Returns new
535 my @localtime = $self->Localtime($args{'Timezone'});
536 # remove offset, as with SetToStart
539 $localtime[4]++; #month
540 if ( $localtime[4] == 12 ) {
542 $localtime[5]++; #year
545 my $new = $self->Timelocal($args{'Timezone'}, @localtime);
546 return $self->Unix($new);
549 =head2 Unix [unixtime]
551 Optionally takes a date in unix seconds since the epoch format.
552 Returns the number of seconds since the epoch
558 $self->{'time'} = int(shift || 0) if @_;
559 return $self->{'time'};
564 Alias for L</Get> method. Arguments C<Date> and <Time>
565 are fixed to true values, other arguments could be used
566 as described in L</Get>.
572 unless (defined $self) {
573 use Carp; Carp::confess("undefined $self");
575 return $self->Get( @_, Date => 1, Time => 1 );
580 Takes Format argument which allows you choose date formatter.
581 Pass throught other arguments to the formatter method.
583 Returns the object's formatted date. Default formatter is ISO.
589 return $self->Get( @_, Date => 1, Time => 0 );
599 return $self->Get( @_, Date => 0, Time => 1 );
604 Returnsa a formatted and localized string that represets time of
613 my %args = (Format => 'ISO', @_);
614 my $formatter = $args{'Format'};
615 unless ( $self->ValidFormatter($formatter) ) {
616 RT->Logger->warning("Invalid date formatter '$formatter', falling back to ISO");
619 $formatter = 'ISO' unless $self->can($formatter);
620 return $self->$formatter( %args );
623 =head2 Output formatters
625 Fomatter is a method that returns date and time in different configurable
628 Each method takes several arguments:
636 =item Timezone - Timezone context C<server>, C<user> or C<UTC>
640 Formatters may also add own arguments to the list, for example
641 in RFC2822 format day of time in output is optional so it
642 understand boolean argument C<DayOfTime>.
646 Returns an array of available formatters.
657 =head3 ValidFormatter FORMAT
659 Returns a true value if C<FORMAT> is a known formatter. Otherwise returns
667 return (grep { $_ eq $format } $self->Formatters and $self->can($format))
678 my %args = ( Date => 1,
685 # 0 1 2 3 4 5 6 7 8 9
686 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydaym,$isdst,$offset) =
687 $self->Localtime($args{'Timezone'});
688 $wday = $self->GetWeekday($wday);
689 $mon = $self->GetMonth($mon);
690 ($mday, $hour, $min, $sec) = map { sprintf "%02d", $_ } ($mday, $hour, $min, $sec);
692 if( $args{'Date'} && !$args{'Time'} ) {
693 return $self->loc('[_1] [_2] [_3] [_4]',
694 $wday,$mon,$mday,$year);
695 } elsif( !$args{'Date'} && $args{'Time'} ) {
696 if( $args{'Seconds'} ) {
697 return $self->loc('[_1]:[_2]:[_3]',
700 return $self->loc('[_1]:[_2]',
704 if( $args{'Seconds'} ) {
705 return $self->loc('[_1] [_2] [_3] [_4]:[_5]:[_6] [_7]',
706 $wday,$mon,$mday,$hour,$min,$sec,$year);
708 return $self->loc('[_1] [_2] [_3] [_4]:[_5] [_6]',
709 $wday,$mon,$mday,$hour,$min,$year);
716 Returns the L<DateTime::Locale> object representing the current user's locale.
723 my $lang = $self->CurrentUser->UserObj->Lang;
725 require I18N::LangTags::Detect;
726 $lang = ( I18N::LangTags::Detect::detect(), 'en' )[0];
729 return DateTime::Locale->load($lang);
732 =head3 LocalizedDateTime
734 Returns date and time as string, with user localization.
736 Supports arguments: C<DateFormat> and C<TimeFormat> which may contains date and
737 time format as specified in L<DateTime::Locale> (default to full_date_format and
738 medium_time_format), C<AbbrDay> and C<AbbrMonth> which may be set to 0 if
739 you want full Day/Month names instead of abbreviated ones.
743 sub LocalizedDateTime
746 my %args = ( Date => 1,
756 # Require valid names for the format methods
757 my $date_format = $args{DateFormat} =~ /^\w+$/
758 ? $args{DateFormat} : 'date_format_full';
760 my $time_format = $args{TimeFormat} =~ /^\w+$/
761 ? $args{TimeFormat} : 'time_format_medium';
763 my $formatter = $self->LocaleObj;
764 $date_format = $formatter->$date_format;
765 $time_format = $formatter->$time_format;
766 $date_format =~ s/EEEE/EEE/g if ( $args{'AbbrDay'} );
767 $date_format =~ s/MMMM/MMM/g if ( $args{'AbbrMonth'} );
769 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydaym,$isdst,$offset) =
770 $self->Localtime($args{'Timezone'});
772 my $tz = $self->Timezone($args{'Timezone'});
774 # FIXME : another way to call this module without conflict with local
776 my $dt = DateTime::->new( locale => $formatter,
787 if ( $args{'Date'} && !$args{'Time'} ) {
788 return $dt->format_cldr($date_format);
789 } elsif ( !$args{'Date'} && $args{'Time'} ) {
790 return $dt->format_cldr($time_format);
792 return $dt->format_cldr($date_format) . " " . $dt->format_cldr($time_format);
798 Returns the object's date in ISO format C<YYYY-MM-DD mm:hh:ss>.
799 ISO format is locale independant, but adding timezone offset info
800 is not implemented yet.
802 Supports arguments: C<Timezone>, C<Date>, C<Time> and C<Seconds>.
803 See </Output formatters> for description of arguments.
809 my %args = ( Date => 1,
815 # 0 1 2 3 4 5 6 7 8 9
816 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydaym,$isdst,$offset) =
817 $self->Localtime($args{'Timezone'});
819 #the month needs incrementing, as gmtime returns 0-11
823 $res .= sprintf("%04d-%02d-%02d", $year, $mon, $mday) if $args{'Date'};
824 $res .= sprintf(' %02d:%02d', $hour, $min) if $args{'Time'};
825 $res .= sprintf(':%02d', $sec, $min) if $args{'Time'} && $args{'Seconds'};
833 Returns the object's date and time in W3C date time format
834 (L<http://www.w3.org/TR/NOTE-datetime>).
836 Format is locale independand and is close enought to ISO, but
837 note that date part is B<not optional> and output string
838 has timezone offset mark in C<[+-]hh:mm> format.
840 Supports arguments: C<Timezone>, C<Time> and C<Seconds>.
841 See </Output formatters> for description of arguments.
854 # 0 1 2 3 4 5 6 7 8 9
855 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydaym,$isdst,$offset) =
856 $self->Localtime( $args{'Timezone'} );
858 #the month needs incrementing, as gmtime returns 0-11
862 $res .= sprintf("%04d-%02d-%02d", $year, $mon, $mday);
863 if ( $args{'Time'} ) {
864 $res .= sprintf('T%02d:%02d', $hour, $min);
865 $res .= sprintf(':%02d', $sec, $min) if $args{'Seconds'};
867 $res .= sprintf "%s%02d:%02d", $self->_SplitOffset( $offset );
877 =head3 RFC2822 (MIME)
879 Returns the object's date and time in RFC2822 format,
880 for example C<Sun, 06 Nov 1994 08:49:37 +0000>.
881 Format is locale independand as required by RFC. Time
882 part always has timezone offset in digits with sign prefix.
884 Supports arguments: C<Timezone>, C<Date>, C<Time>, C<DayOfWeek>
885 and C<Seconds>. See </Output formatters> for description of
892 my %args = ( Date => 1,
900 # 0 1 2 3 4 5 6 7 8 9
901 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$ydaym,$isdst,$offset) =
902 $self->Localtime($args{'Timezone'});
904 my ($date, $time) = ('','');
905 $date .= "$DAYS_OF_WEEK[$wday], " if $args{'DayOfWeek'} && $args{'Date'};
906 $date .= sprintf("%02d %s %04d", $mday, $MONTHS[$mon], $year) if $args{'Date'};
908 if ( $args{'Time'} ) {
909 $time .= sprintf("%02d:%02d", $hour, $min);
910 $time .= sprintf(":%02d", $sec) if $args{'Seconds'};
911 $time .= sprintf " %s%02d%02d", $self->_SplitOffset( $offset );
914 return join ' ', grep $_, ($date, $time);
917 =head3 RFC2616 (HTTP)
919 Returns the object's date and time in RFC2616 (HTTP/1.1) format,
920 for example C<Sun, 06 Nov 1994 08:49:37 GMT>. While the RFC describes
921 version 1.1 of HTTP, but the same form date can be used in version 1.0.
923 Format is fixed length, locale independand and always represented in GMT
924 what makes it quite useless for users, but any date in HTTP transfers
925 must be presented using this format.
927 HTTP-date = rfc1123 | ...
928 rfc1123 = wkday "," SP date SP time SP "GMT"
929 date = 2DIGIT SP month SP 4DIGIT
930 ; day month year (e.g., 02 Jun 1982)
931 time = 2DIGIT ":" 2DIGIT ":" 2DIGIT
932 ; 00:00:00 - 23:59:59
933 wkday = "Mon" | "Tue" | "Wed" | "Thu" | "Fri" | "Sat" | "Sun"
934 month = "Jan" | "Feb" | "Mar" | "Apr" | "May" | "Jun"
935 | "Jul" | "Aug" | "Sep" | "Oct" | "Nov" | "Dec"
937 Supports arguments: C<Date> and C<Time>, but you should use them only for
938 some personal reasons, RFC2616 doesn't define any optional parts.
939 See </Output formatters> for description of arguments.
945 my %args = ( Date => 1, Time => 1,
948 Seconds => 1, DayOfWeek => 1,
951 my $res = $self->RFC2822( %args );
952 $res =~ s/\s*[+-]\d\d\d\d$/ GMT/ if $args{'Time'};
958 Returns the object's date and time in iCalendar format,
960 Supports arguments: C<Date> and C<Time>.
961 See </Output formatters> for description of arguments.
968 Date => 1, Time => 1,
973 if ( $args{'Date'} && !$args{'Time'} ) {
974 my (undef, undef, undef, $mday, $mon, $year) =
975 $self->Localtime( 'user' );
976 $res = sprintf( '%04d%02d%02d', $year, $mon+1, $mday );
977 } elsif ( !$args{'Date'} && $args{'Time'} ) {
978 my ($sec, $min, $hour) =
979 $self->Localtime( 'utc' );
980 $res = sprintf( 'T%02d%02d%02dZ', $hour, $min, $sec );
982 my ($sec, $min, $hour, $mday, $mon, $year) =
983 $self->Localtime( 'utc' );
984 $res = sprintf( '%04d%02d%02dT%02d%02d%02dZ', $year, $mon+1, $mday, $hour, $min, $sec );
989 # it's been added by mistake in 3.8.0
990 sub iCalDate { return (shift)->iCal( Time => 0, @_ ) }
993 my ($self, $offset) = @_;
994 my $sign = $offset < 0? '-': '+';
995 $offset = int( (abs $offset) / 60 + 0.001 );
996 my $mins = $offset % 60;
997 my $hours = int( $offset/60 + 0.001 );
998 return $sign, $hours, $mins;
1001 =head2 Timezones handling
1003 =head3 Localtime $context [$time]
1005 Takes one mandatory argument C<$context>, which determines whether
1006 we want "user local", "system" or "UTC" time. Also, takes optional
1007 argument unix C<$time>, default value is the current unix time.
1009 Returns object's date and time in the format provided by perl's
1010 builtin functions C<localtime> and C<gmtime> with two exceptions:
1012 1) "Year" is a four-digit year, rather than "years since 1900"
1014 2) The last element of the array returned is C<offset>, which
1015 represents timezone offset against C<UTC> in seconds.
1022 my $tz = $self->Timezone(shift);
1024 my $unix = shift || $self->Unix;
1025 $unix = 0 unless $unix >= 0;
1029 @local = gmtime($unix);
1032 local $ENV{'TZ'} = $tz;
1033 ## Using POSIX::tzset fixes a bug where the TZ environment variable
1036 @local = localtime($unix);
1038 POSIX::tzset(); # return back previouse value
1040 $local[5] += 1900; # change year to 4+ digits format
1041 my $offset = Time::Local::timegm_nocheck(@local) - $unix;
1042 return @local, $offset;
1045 =head3 Timelocal $context @time
1047 Takes argument C<$context>, which determines whether we should
1048 treat C<@time> as "user local", "system" or "UTC" time.
1050 C<@time> is array returned by L<Localtime> functions. Only first
1051 six elements are mandatory - $sec, $min, $hour, $mday, $mon and $year.
1052 You may pass $wday, $yday and $isdst, these are ignored.
1054 If you pass C<$offset> as ninth argument, it's used instead of
1055 C<$context>. It's done such way as code
1056 C<$self->Timelocal('utc', $self->Localtime('server'))> doesn't
1057 makes much sense and most probably would produce unexpected
1058 result, so the method ignore 'utc' context and uses offset
1059 returned by L<Localtime> method.
1066 if ( defined $_[9] ) {
1067 return timegm(@_[0..5]) - $_[9];
1069 $tz = $self->Timezone( $tz );
1070 if ( $tz eq 'UTC' ) {
1071 return Time::Local::timegm(@_[0..5]);
1075 local $ENV{'TZ'} = $tz;
1076 ## Using POSIX::tzset fixes a bug where the TZ environment variable
1079 $rv = Time::Local::timelocal(@_[0..5]);
1081 POSIX::tzset(); # switch back to previouse value
1088 =head3 Timezone $context
1090 Returns the timezone name.
1092 Takes one argument, C<$context> argument which could be C<user>, C<server> or C<utc>.
1098 Default value is C<user> that mean it returns current user's Timezone value.
1102 If context is C<server> it returns value of the C<Timezone> RT config option.
1106 If both server's and user's timezone names are undefined returns 'UTC'.
1116 Carp::carp "RT::Date->Timezone is a setter only";
1120 my $context = lc(shift);
1122 $context = 'utc' unless $context =~ /^(?:utc|server|user)$/i;
1125 if( $context eq 'user' ) {
1126 $tz = $self->CurrentUser->UserObj->Timezone;
1127 } elsif( $context eq 'server') {
1128 $tz = RT->Config->Get('Timezone');
1132 $tz ||= RT->Config->Get('Timezone') || 'UTC';
1133 $tz = 'UTC' if lc $tz eq 'gmt';
1138 RT::Base->_ImportOverlays();