CGI-Framework
view release on metacpan or search on metacpan
lib/CGI/Framework.pm view on Meta::CPAN
|| die "Failed to create new CGI::Session instance with $sessions_driver - based storage and $sessions_serializer - based serialization: $! $@\n";
if ($para{"import_form"}) {
$self->{_cgi}->import_names($para{"import_form"});
$self->{_import_form} = $para{"import_form"};
}
if (!$cookie_value || ($self->{_session}->id() ne $cookie_value)) {
# We just created a new session - send it to the user
print "Set-Cookie: $para{cookie_name}=", $self->{_session}->id(), ($para{cookie_domain} ? "; domain=" . $para{cookie_domain} : ""), "\n";
}
$expire = $para{"expire"} ? ($para{"expire"} =~ /[^0-9]/ ? $para{"expire"} : "+$para{expire}m") : "+15m";
$self->{_session}->expire($expire);
#
# Language handling
#
if ($self->{_cgi}->param("_lang") && scalar @{ $self->{valid_languages} }) {
if (grep { $self->{_cgi}->param("_lang") eq $_ } @{ $self->{valid_languages} }) {
( run in 0.371 second using v1.01-cache-2.11-cpan-9b1e4054eb1 )