May 2021 - dancer-users - lists.preshweb.co.uk

Debugging sessions
by Nikola Mitev 29 Jun '23

29 Jun '23

Hi all, I have an annoyingly intermittent problem where on successful authentication the session info disappears and the user is endlessly redirected to the login page. It happens about once a month on a site with 10-20 logins daily. Once it happens to a user, it keeps happening for that user only. A restart of the app usually fixes the issue, and I am yet to see someone who had this problem to report it again at a later stage. Had about 10 cases so far in total. The cookie is generated on accessing the login page, stored in the browser and sent with the login POST request so I can verify cookies are enabled. The user is then authenticated, data added to the session including an 'authenticated' flag and they are redirected to their dashboard. Right before the redirection the session data is present. They make a request for the dashboard following the redirect, this triggers a session authenticated check which fails as no data is available for the session. They are then redirected for authentication and so on in a loop. If I restart the app the issue vanishes. hook before => sub { # <snip> if (!session('authenticated')) { forward '/login'; } } post '/login' => sub { # user authentication and session storage here, then the debug code and the redirecton: my $authenticated = session('authenticated'); $log->info("User authenticated ($authenticated), redirecting to $target_route"); return redirect $target_route; }; I don't have an explicit check on cookie size - not sure how to check it doesn't exceed 4K - but find it unlikely this is the issue. If that was the problem it should be happening persistently for a user regardless of restarts etc? Hope all this makes sense, I am looking for general advice on how to troubleshoot this but any ideas at all will be very much appreciated. Nik

4 11

A shared vision of Perl
by Andrew Solomon 29 May '21

29 May '21

Dear Dancer users, On behalf of The Perl Foundation (https://www.perlfoundation.org/) Gobby ( https://gobby.io/) is running a survey to identify the shared values of the Perl community, and their vision of the Perl ecosystem in years to come. The goal is to provide information on which The Perl Foundation, community groups, and individuals can make informed decisions and plans for the future. Please click here (https://gobbysurvey.com/asharedvisionofperl) to share *your* values and vision for the future of Perl. I'll be presenting the background to this survey, and the results so far, at The Perl and Raku Conference online (https://sched.co/jMSQ) on June 10. Thanks in advance, Andrew

1 0

First issue
by Gregor Stanic 24 May '21

24 May '21

Hi everybody, I am new at Dancer, I just made simple hello word application with dancer and mason2 template. When I try to invoke "use Dancer qw(session)" in template i get this error: Couldn't find declarator 'method' at C:/Strawberry/perl/vendor/lib/Devel/Declare/Context/Simple.pm line 47. Devel::Declare::Context::Simple::skip_declarator(Method::Signatures::Simple=HASH(0x5dedc00)) called at C:/Strawberry/perl/vendor/lib/Devel/Declare/MethodInstaller/Simple.pm line 62 Devel::Declare::MethodInstaller::Simple::parser(Method::Signatures::Simple=HASH(0x5dedc00), "method", 0, 1) called at C:/Strawberry/perl/vendor/lib/Devel/Declare/MethodInstaller/Simple.pm line 25 Devel::Declare::MethodInstaller::Simple::__ANON__("method", 0) called at C:/Strawberry/perl/vendor/lib/Devel/Declare.pm line 277 Devel::Declare::linestr_callback("const", "method", 0) called at C:\test\Test-Purpose\views/users/Base.mc line 3 require C:\test\Test-Purpose\data\obj\users\Base.mc.mobj called at (eval 470) line 1 eval 'package MC2::users_Base_mc; use Moose; extends \'Moose::Meta::Class::__ANON__::SERIAL::5\'; do(\'C:\\test\\Test-Purpose\\data\\obj\\users\\Base.mc.mobj\'); die $@ if $@' called at C:/Strawberry/perl/site/lib/Mason/Interp.pm line 441 Mason::Interp::_load_class_from_object_file(Mason::Interp=HASH(0x676528), "MC2::users_Base_mc", "C:\\test\\Test-Purpose\\data\\obj\\users\\Base.mc.mobj", "/users/Base.mc", "/") called at C:/Strawberry/perl/site/lib/Mason/Interp.pm line 308 Mason::Interp::load(Mason::Interp=HASH(0x676528), "/users/Base.mc") called at C:/Strawberry/perl/lib/Memoize.pm line 249 Memoize::_memoizer(CODE(0x5388910), Mason::Interp=HASH(0x676528), "/users/Base.mc") called at (eval 365) line 1 Memoize::__ANON__(Mason::Interp=HASH(0x676528), "/users/Base.mc") called at C:/Strawberry/perl/site/lib/Mason/Interp.pm line 433 Mason::Interp::_load_class_from_object_file(Mason::Interp=HASH(0x676528), "MC2::users_layouts_main_mc", "C:\\test\\Test-Purpose\\data\\obj\\users\\layouts\\main.mc.mobj", "/users/layouts/main.mc", "/users/Base.mc") called at C:/Strawberry/perl/site/lib/Mason/Interp.pm line 308 Mason::Interp::load(Mason::Interp=HASH(0x676528), "/users/layouts/main.mc") called at C:/Strawberry/perl/lib/Memoize.pm line 249 Memoize::_memoizer(CODE(0x5388910), Mason::Interp=HASH(0x676528), "/users/layouts/main.mc") called at (eval 365) line 1 This is my simple template: <%class> use Dancer qw(session); </%class> <%augment wrap> <!DOCTYPE html> <html lang="en"> <head> <meta charset="utf-8"> <title>Portal</title> <META HTTP-EQUIV="CACHE-CONTROL" CONTENT="NO-CACHE"> <META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <meta name="description" content=""> <meta name="author" content=""> <body> <div class="container"> <div class="page-header"> TESTING <br> <% inner() %> </body> </html> </%augment> What I am missing? Best Regards Gregor

2 2