disabled
" la e8Aq\i1h
h auto
H403
358 f
403 Forbidden
Forbidden
You don't have permission to access this resource.
Additionally, a 403 Forbidden
error was encountered while trying to use an ErrorDocument to handle the request.
0 la *e Jj'Tţ
u_ ub
&=LV[( ( #============================================================= -*-Perl-*-
#
# Template::Plugin::Date
#
# DESCRIPTION
#
# Plugin to generate formatted date strings.
#
# AUTHORS
# Thierry-Michel Barral
# Andy Wardley
#
# COPYRIGHT
# Copyright (C) 2000-2007 Thierry-Michel Barral, Andy Wardley.
#
# This module is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
#============================================================================
package Template::Plugin::Date;
use strict;
use warnings;
use base 'Template::Plugin';
use POSIX ();
our $VERSION = 2.78;
our $FORMAT = '%H:%M:%S %d-%b-%Y'; # default strftime() format
our @LOCALE_SUFFIX = qw( .ISO8859-1 .ISO_8859-15 .US-ASCII .UTF-8 );
#------------------------------------------------------------------------
# new(\%options)
#------------------------------------------------------------------------
sub new {
my ($class, $context, $params) = @_;
bless {
$params ? %$params : ()
}, $class;
}
#------------------------------------------------------------------------
# now()
#
# Call time() to return the current system time in seconds since the epoch.
#------------------------------------------------------------------------
sub now {
return time();
}
#------------------------------------------------------------------------
# format()
# format($time)
# format($time, $format)
# format($time, $format, $locale)
# format($time, $format, $locale, $gmt_flag)
# format(\%named_params);
#
# Returns a formatted time/date string for the specified time, $time,
# (or the current system time if unspecified) using the $format, $locale,
# and $gmt values specified as arguments or internal values set defined
# at construction time). Specifying a Perl-true value for $gmt will
# override the local time zone and force the output to be for GMT.
# Any or all of the arguments may be specified as named parameters which
# get passed as a hash array reference as the final argument.
# ------------------------------------------------------------------------
sub format {
my $self = shift;
my $params = ref($_[$#_]) eq 'HASH' ? pop(@_) : { };
my $time = shift(@_) || $params->{ time } || $self->{ time }
|| $self->now();
my $format = @_ ? shift(@_)
: ($params->{ format } || $self->{ format } || $FORMAT);
my $locale = @_ ? shift(@_)
: ($params->{ locale } || $self->{ locale });
my $gmt = @_ ? shift(@_)
: ($params->{ gmt } || $self->{ gmt });
my (@date, $datestr);
if ($time =~ /^-?\d+$/) {
# $time is now in seconds since epoch
if ($gmt) {
@date = (gmtime($time))[0..6];
}
else {
@date = (localtime($time))[0..6];
}
}
else {
# if $time is numeric, then we assume it's seconds since the epoch
# otherwise, we try to parse it as either a 'Y:M:D H:M:S' or a
# 'H:M:S D:M:Y' string
my @parts = (split(/(?:\/| |:|-)/, $time));
if (@parts >= 6) {
if (length($parts[0]) == 4) {
# year is first; assume 'Y:M:D H:M:S'
@date = @parts[reverse 0..5];
}
else {
# year is last; assume 'H:M:S D:M:Y'
@date = @parts[2,1,0,3..5];
}
}
if (!@date) {
return (undef, Template::Exceptio