fork download
copy 
  1. #!/usr/bin/perl
  2. # your code goes here
  3.  
  4. # Relevant routes
  5. my $if_login = $r->under('/')->to('user#is_logged_in');
  6. $if_login->post('/logout')->name('on_logout')->to('user#on_logout');
  7.  
  8. # Controller functions
  9. sub on_logout {
  10.   my $self = shift;
  11.   $self->session(expires => 1);
  12.  
  13.   return $self->render(json => '{success: "true"}');
  14. }
  15.  
  16. sub is_logged_in {
  17.   my $self = shift;
  18.  
  19.   say $self->session('username');  # Sometimes after on_logout this is still
  20. 								   # defined and equal to the username.
  21.   return 1 if($self->session('username'));
  22.  
  23.   $self->render(
  24.     template => 'permission/not_logged_in',
  25.     status => 403
  26.   );
  27.   return;
  28. }
  29.  
  30. # Front end
  31. <a href="" onclick='do_logout();'>
  32.  <%= l('Log out') %>
  33. </a>
  34.  
  35. <script>
  36. function do_logout() {
  37.   $.post( "<%= url_for('on_logout') %>", function() {
  38. }).fail(function() {
  39.   alert( "error logging out" );
  40. }).done(function( data ) {
  41.   alert( "Data: " + data );
  42. }).always(function() {
  43.   alert( "finished" );
  44. });
  45. }
  46. </script>
  47.  
Runtime error #stdin #stdout #stderr 0s 20336KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Bareword found where operator expected at prog.pl line 32, near "%= l"
	(Missing operator before l?)
Semicolon seems to be missing at prog.pl line 35.
Bareword found where operator expected at prog.pl line 37, near "$.post"
	(Missing operator before post?)
syntax error at prog.pl line 32, near "%= l"
Execution of prog.pl aborted due to compilation errors.
https://ideone.com/UUeYRw
language:
Perl (perl 5.28.1)
created:
6 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!