lib/SMMID/Controller/Root.pm

   1 package SMMID::Controller::Root;
   2
   3 use strict;
   4 use warnings;
   5 use parent 'Catalyst::Controller';
   6 use SMMID::Login;
   7
   8 #
   9 # Sets the actions in this controller to be registered with no prefix
  10 # so they function identically to actions created in MyApp.pm
  11 #
  12 __PACKAGE__->config->{namespace} = '';
  13
  14 =head1 NAME
  15
  16 SMMID::Controller::Root - Root Controller for SMMID
  17
  18 =head1 DESCRIPTION
  19
  20 [enter your description here]
  21
  22 =head1 METHODS
  23
  24 =cut
  25
  26 =head2 index
  27
  28 =cut
  29
  30
  31 sub auto : Private {
  32     my ($self, $c) = @_;
  33
  34     # gluecode for logins
  35     #
  36     #unless( $c->config->{'disable_login'} ) {
  37     my $login = SMMID::Login->new( { schema => $c->model("SMIDDB")->schema() });
  38
  39     if (exists($c->req->cookies->{smmid_session_id})) {
  40         $login->cookie_string($c->req->cookies->{smmid_session_id}->value());
  41     }
  42
  43     if ( my $dbuser_id = $login->has_session())  {
  44
  45         print STDERR "We have a logged in user! :-)\n";
  46         my $dbuser = $c->model("SMIDDB")->resultset("SMIDDB::Result::Dbuser")->find( { dbuser_id => $dbuser_id });
  47         print STDERR "The logged in user is ".$dbuser->username()."\n";
  48
  49         my $user = SMMID::Authentication::User->new();
  50         $c->user($user);
  51         $c->user()->set_object($dbuser);
  52
  53         # $self->authenticate($c, 'default', {
  54         #     username => $dbuser->username(),
  55         #     password => $dbuser->password(),
  56                            # });
  57     }
  58     #}
  59     return 1;
  60 }
  61
  62 sub index :Path :Args(0) {
  63     my ( $self, $c ) = @_;
  64
  65     # Hello World
  66     $c->stash->{template} = 'index.mas';
  67 }
  68
  69 sub default :Path {
  70     my ( $self, $c ) = @_;
  71     $c->response->body( 'Page not found' );
  72     $c->response->status(404);
  73
  74 }
  75
  76 sub contact :Path('/contact') :Args(0) {
  77     my ($self, $c) = @_;
  78 }
  79
  80 sub cite : Path('/cite') Args(0) {
  81
  82 }
  83
  84 sub about :Path('/about') :Args(0) {
  85     my ($self, $c) = @_;
  86 }
  87
  88 sub download :Path('/download') Args(0) {
  89     my $self = shift;
  90     my $c = shift;
  91
  92     $c->stash->{template} = '/download.mas';
  93 }
  94
  95 =head2 end
  96
  97 Attempt to render a view, if needed.
  98
  99 =cut
 100
 101 sub end : ActionClass('RenderView') {}
 102
 103 =head1 AUTHOR
 104
 105 Lukas Mueller,,,
 106
 107 =head1 LICENSE
 108
 109 This library is free software, you can redistribute it and/or modify
 110 it under the same terms as Perl itself.
 111
 112 =cut
 113
 114 1;