$c->res->output("logged in");
}
+sub login_without_address : Global {
+ my ( $self, $c ) = @_;
+ $c->session;
+ $c->log->debug($c->request->address);
+ delete $c->session->{__address};
+ $c->res->output("logged in (without address)");
+}
+
sub logout : Global {
my ( $self, $c ) = @_;
$c->res->output(
$c->delete_session("logout");
}
+sub logout_persist : Global {
+ my ( $self, $c ) = @_;
+ # session is not deleted
+ $c->res->redirect( $c->uri_for('/') );
+}
+
sub set_session_variable : Global {
my ( $self, $c, $var, $val ) = @_;
$c->session->{$var} = $val;
}
}
+sub extend_session_expires : Global {
+ my ($self, $c) = @_;
+ $c->extend_session_expires(31536000);
+ $c->res->output($c->session_expires);
+}
+
1;