54 lines
1.4 KiB
Perl
54 lines
1.4 KiB
Perl
package Xxx::Main;
|
|
use Mojo::Base 'Mojolicious::Controller';
|
|
|
|
sub main {
|
|
my $self = shift;
|
|
return $self->render( template => 'main/main', title => 'Xxx', msg => '' );
|
|
}
|
|
|
|
|
|
sub login {
|
|
my $self = shift;
|
|
|
|
# Grab the request parameters
|
|
my $username = $self->param('username');
|
|
my $password = $self->param('password');
|
|
|
|
my $developer = ($username eq 'developer' and $password eq 'wbdfgmnjke834dshf89w7rsdfsdjf' and $self->app->mode =~ /development/xms ) ? 1 : 0;
|
|
|
|
if ( $developer or $self->authenticate( $username, $password )) {
|
|
$self->session->{msg} = 'Login erfolgreich!';
|
|
push @{$self->session->{privs}}, 'user';
|
|
} else {
|
|
$self->logoff();
|
|
$self->session->{url} = '/login';
|
|
$self->session->{msg} = 'Fehler, das Login wurde abgewiesen!';
|
|
}
|
|
|
|
return $self->redirect_to( defined $self->session->{url} ? $self->session->{url} : "/" );
|
|
}
|
|
|
|
sub loginform {
|
|
my $self = shift;
|
|
return $self->render( title => 'xxx: Main', msg => '', sess => $self->session);
|
|
}
|
|
|
|
|
|
sub userinfo {
|
|
my $self = shift;
|
|
return $self->render( title => 'xxx: Userinfo', sess => $self->session, msg => 'Du besitzt folgende Rechte:');
|
|
}
|
|
|
|
|
|
sub getoff {
|
|
my $self = shift;
|
|
$self->logoff();
|
|
delete $self->session->{privs};
|
|
$self->session->{url} = '/';
|
|
$self->session->{msg} = 'bye, bye ...';
|
|
return $self->redirect_to( "/");
|
|
}
|
|
|
|
|
|
1;
|