use Apache; use Apache::Cookie; use Apache::Constants qw(:response :common); use Data::Dumper; my $cookiename = "TicketDestination"; my $r = Apache->request(); my $self = $r->uri; my $is_https = ($ENV{HTTPS} eq 'on'); my $have_prev = defined $r->prev; my $destination = ''; my $refreshto = ''; my $returnto = '/'; my $pathinfo = $r->path_info; my %cookies = Apache::Cookie->fetch; my $have_cookie = defined $cookies{$cookiename}; my $have_user = defined $r->connection->user; my $ie_friendly_error_override = ' 'x512; if ($have_prev) { $returnto = $r->prev->uri; my $args = $r->prev->args; $returnto .= "?$args" if length($args); } elsif (length($pathinfo)) { $returnto = $pathinfo; } my $cookie = Apache::Cookie->new($r, -name=>$cookiename, -expires=>'0', -value=>$returnto, -path=>'/', ); if ($is_https) { if ($have_cookie) { if ($have_user) { $refreshto = $cookies{$cookiename}->value.":NOSSL"; $cookie->expires('-1y'); $cookie->bake; } else { $destination = $r->uri; } } else { $destination = $returnto; } } else { $refreshto = $r->uri().":SSL"; $cookie->expires('+60s'); $cookie->bake; } $r->content_type('text/html'); $r->send_http_header; if (length($refreshto)) { $r->print( < $ie_friendly_error_override EOF return; } if (length($destination)) { $r->print( < log in

Please log in:

Note:
Set your browser to accept cookies in order for login to succeed.
You will be asked to log in again after some period of time.
$ie_friendly_error_override

EOF return; }