Advertisement
Guest User

Untitled

a guest
Oct 1st, 2012
49
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.86 KB | None | 0 0
  1. syntax error at /Users/ObseLeTe/Desktop/cubemotion/script/../lib/Cubemotion/Admin.pm line 20, near "get "
  2. syntax error at /Users/ObseLeTe/Desktop/cubemotion/script/../lib/Cubemotion/Admin.pm line 28, near "}"
  3. syntax error at /Users/ObseLeTe/Desktop/cubemotion/script/../lib/Cubemotion/Admin.pm line 48, near "}"
  4. Compilation failed in require at (eval 1243) line 1.
  5. 43 
  6.     # Store a friendly message for the next page in flash
  7. 44 
  8.     $self->flash(message => 'Thanks for logging in.');
  9. 45 
  10. 46 
  11.     # Redirect to protected page with a 302 response
  12. 47 
  13.     $self->redirect_to('welcome');
  14. 48 
  15. } => 'login';
  16. 49 
  17. 50 
  18. 1;
  19.  
  20. # MY CODE
  21.  
  22. package Cubemotion::Admin;
  23. use Mojo::Base 'Mojolicious::Controller';
  24. use Mojolicious::Lite;
  25. use lib 'lib';
  26. use Users;
  27.  
  28. app->secret('synergology rocks');
  29.  
  30. my $users = Users->new;
  31. helper users => sub { return $users };
  32.  
  33. get '/' => sub {
  34.   my $self = shift;
  35.  
  36.   # Specified tags to search for
  37.   return $self->redirect_to('login') unless $self->session('user');
  38.  
  39. }
  40.  
  41. get '/logout' => sub { #ERROR HERE
  42.     my $self = shift;
  43.  
  44.     # Expire and in turn clear session automatically
  45.     $self->session(expires => 1);
  46.  
  47.     # Redirect to main page with a 302 response
  48.     $self->redirect_to('login');
  49. } # ERROR HERE
  50.  
  51. any '/login' => sub {
  52.     my $self = shift;
  53.  
  54.     # Query or POST parameters
  55.     my $user = $self->param('username') || '';
  56.     my $pass = $self->param('password') || '';
  57.  
  58.     # Check password and render "index.html.ep" if necessary
  59.     return $self->render unless $self->users->check($user, $pass);
  60.  
  61.     # Store username in session
  62.     $self->session(user => $user);
  63.  
  64.     # Store a friendly message for the next page in flash
  65.     $self->flash(message => 'Thanks for logging in.');
  66.  
  67.     # Redirect to protected page with a 302 response
  68.     $self->redirect_to('welcome');
  69. } => 'login'; # ERROR HERE
  70.  
  71. 1;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement