April 2013 - dancer-users - lists.preshweb.co.uk

dancer deployment with chef - psgi cookbook
by Alexey Melezhik 19 Apr '13

19 Apr '13

Hi! I have created a chef cookbook to deploy various web applications with plackup/psgi and Dancer is among them. Anyone who deal with Dancer deployment can use it as follow: psgi_application 'my application' do application_user 'user' application_home '/home/user/app/MyApplication' script '/home/user/app/MyApplication/scripts/my-dancer-app.psgi' operator 'Dancer' action 'install' end This code will install dancer psgi application init script ready to use. Supported platforms are debian and ubuntu: /etc/init.d/my-dancer-app start /etc/init.d/my-dancer-app stop /etc/init.d/my-dancer-app restart See more usage details on http://community.opscode.com/cookbooks/psgi

2 2

Running bin/app.pl with cleaner %ENV
by Alois Mahdal 19 Apr '13

19 Apr '13

Hello, I am playing with Dancer on my hobby project. On my hobby Debian Wheezy VPS. Now during development, of course I thousand times start and stop bin/app.pl just as it is described in the Quick Start. As real_me@here. Now set aside that this is not very good from security point (clean unprivileged user would be better), other thing that bothers me is extremely polluted %ENV---I like to inspect this variable from time to time and I'm definitely not interested in TERMCAP and LS_COLORS :) What is the correct way to run it? I have tried creating new (--system) user and suid-ing, but at this point * perl refused to run app.pl until I removed the env part. from the shebang line (i.e. `#!/usr/bin/perl` instead of `#!/usr/bin/env perl` * %ENV was polluted anyway I'm not the Linux pro as I would like to be, so maybe the above are not problems specific to Dancer. However, I think I got the message correctly that I was headed incorrect way. And since I was not able to find it in doc (sorry if I just suck at it), I thought asking would not hurt. So: What would be The Right Way of stop/running bin/app.pl thousand times a day (read: easily), provided I'm at a wild development stage? Thanks, aL. -- Alois Mahdal

3 2

"Download" button on dancer site overlaps page content
by Punter 13 Apr '13

13 Apr '13

Am I the only one who sees the big black download button overlap with some of the slides that appear on the slideshow in that page? Please fix, this bug decreases user adoption.

2 1

Dancer 1.3112 is now on CPAN
by Yanick Champoux 12 Apr '13

12 Apr '13

Hello everybody! Just to say that Dancer 1.3112 is now on CPAN. The changelog contains nothing dramatic, but still a satisfying amount of minor bug fixes: [ ENHANCEMENTS ] * GH #897 dancer script diagnostic more explicit if target directory does not exist or is not writable (reported by Andrew Grangaard). * GH #907: skip tests of deprecated features (mokko). * GH #895: JSON serializer now uses JSON's "-support_by_pp" (Jonathan Schatz). [ BUG FIXES ] * GH #900: backport the security patch for Dancer::ModuleLoader from Dancer2 (mokko). * RT #84198: silencing wide-character in-memory file handle error (Tom Wyant). * wrong number of tests to skip in t/14_serializer/01_helpers.t. * GH #891: silenced warnings from non-numeric versions in Makefile.PL (Olof Johansson). * GH #702: fix request->header call throwing exceptions inside routes of Dancer->dance($request) (Perlover). * GH #893, GH #636: handle binary files for uploads in Dancer::Test (Andrei). * GH #903: add plan for subtest (bug report by wfaulk). [ DOCUMENTATION ] * GH #899: mention that response_exist and response_doesnt_exist are deprecated (Fabrice Gabolde). * GH #902, #903: change example to use path_info() instead of path() (Anton Ukolov, Lee Carmichael). Enjoy! `/anick

3 5

Better Solution ?
by Hugues Max 11 Apr '13

11 Apr '13

Hello I need to write a Dancer Application where I need to connect to Microsoft Access 97/2003 Database... :'( I use DBI::Proxy my $dsn = "DBI:Proxy:hostname=$IP;port=$PORT;dsn=DBI:ODBC:$ODBC"; my $dbh = DBI->connect($dsn, "", "") || die "Erreur de connexion à la base"; $dbh->{AutoCommit} = 1; $dbh->{RaiseError} = 1; it's not fast but it's works. I tried to use Dancer::Plugin::Database but Microsoft SQL is not compatible ( Limit doesn't exist, this is TOP etc.. ) my %ClientParc ; $sql =q/SELECT Spécifique, Quantité, PrixMaintenance FROM ClientParc WHERE NumContrat=? AND CodeClient=?/; $stha = $dbha->prepare($sql); $stha->execute($NumContrat, $CodeClient ); while (my ($Specifique, $Quantite, $PrixMaintenance) = $stha->fetchrow_array()) { $ClientParc{$Specifique} = { Specifique => $Specifique, Quantite => $Quantite, PrixMaintenance => $PrixMaintenance } } I create a hash %ClientParc and I send it to TTK and I do return template '/echeancier' => { ClientParc => \%ClientParc } in my view [% FOREACH s IN ClientParc.values -%] [%- IF loop.first %] <div class="span5"> [% s.Quantite %] [% s.Specifique %] </div> [% ELSE %] <div class="span5 offset5"> [% s.Quantite %] [% s.Specifique %] </div> [% END %] [% END %] And it's works but I got 2 questions 1 ) are they a better solution ? 2) for each page , I need to connect to MS Access proxy and this is slow ( 2 ou 3 sec for connection, but after queries are enough fast ), are they a solution to maintain a DB connection ? thanks Hugues.

2 4

AuthCookie for Dancer
by Alex Mestiashvili 11 Apr '13

11 Apr '13

Hi All, I am wondering if something like Apache-AuthCookie[0] is available for Dancer ? Dancer::Plugin::Auth::Htpasswd and Basic are really cool, but I would like to avoid basic http auth if possible. [0] https://metacpan.org/module/Apache::AuthCookie Thanks, Alex

2 5

Session request crashed (using Dancer::Session::Memcached)
by Dale Gallagher 10 Apr '13

10 Apr '13

Hi everyone I've reverted my app mentioned in my previous post from Dancer2 back to Dancer 1.3111. This time, an error is shown, but I have no clue what the problem is. [hit #2]request to GET /panel/login crashed: Can't call method "id" without a package or object reference at /usr/lib/perl5/site_perl/5.12.3/Dancer/Session.pm line 36, <DATA> line 16. in /usr/lib/perl5/site_perl/5.12.3/Dancer/Handler.pm l. 98 This app works without error using the Simple, YAML and JSON session engines, but fails with Memcached. I know the Memcached instance is working as per my previous post, as accessing it with a regular perl script using Cache::Memcached works. It seems either something's amiss with my Memcached instance, which the test script doesn't pick up, or there's a bug in Dancer::Session::Memcached? Any pointers would be appreciated. Info follows. config.yaml: session: "memcached" memcached_servers: "/srv/web/app/sock/sessions.sock" session_timeout: 10 running the app as the same user owning the socket above. ./bin/app.pl ==== app.pl ==== #!/usr/bin/env perl use Dancer; use app; start; ==== lib/app.pm ==== package app; use Dancer ':syntax'; use Dancer::Session::Memcached; use Authen::Simple::Passwd; our $VERSION = '0.2'; hook 'before' => sub { if (request->path_info !~ m{^/app/log}) { # match login and logout if (session('user') && session('time')) { my $time_now = time; if ($time_now - session('time') < config->{'session_timeout'}) { session 'time' => $time_now; #context->session 'time' => $time_now; } else { return redirect '/app/logout?msg=session_expired&path=' . request->path_info; } } else { return redirect '/app/login'; } } }; get '/app/login' => sub { my $hostname = request->{'host'}; my $msg = 'please login'; if (exists params->{'msg'}) { $msg = params->{'msg'}; $msg =~ s/_/ /g; } my $path = '/app/dashboard'; if (exists params->{'path'}) { $path = params->{'path'}; } template 'login.tt', { hostname => $hostname, title => 'login', path => $path, message => $msg }; post '/app/login' => sub { # Validate web<nm> username and password against /etc/passwd # TODO: use RESTful API to query api.zootzone.com if (params->{'pass'} ne '') { my $passwd = Authen::Simple::Passwd->new( path => config->{'passwords'} ); if ($passwd->authenticate(params->{'user'}, params->{'pass'})) { session 'user' => params->{'user'}; session 'time' => time; if (params->{'path'}) { return redirect params->{'path'}; } else { return redirect '/app/dashboard'; } } else { return redirect '/app/login?msg=authentication_failed'; } } else { return redirect '/app/login?msg=invalid_credentials'; } }; other routes ....

1 0

Dancer2::Session::Memcached with Tokyo Cabinet/Tyrant not working
by Dale Gallagher 10 Apr '13

10 Apr '13

Hi all I converted my Dancer app to Dancer2 and have no issues when using Dancer2::Session::Simple. Sessions persist across routes. However, on switching to Dancer2::Session::Memcached, after setting the session via the /login route, it's not accessible via another route. I know that the Memcached instance is functional, having tested it using a regular Perl script with Cache::Memcached. Any ideas? I don't see any errors from Dancer. Details: Dancer2 (0.03) cd /srv/web/app1/core/ setuidgid web1 ./bin/app.pl Tokyo Cabinet 1.4.48 Tokyo Tyrant 1.1.41 setuidgid web1 ttserver -host /srv/web/app1/sock/sessions.sock -port 0 /srv/web/app1/data/casket.tch pertinent part of config.yml logger: "console" log: "core" warnings: 1 show_errors: 1 session: Memcached engines: session: Memcached: memcached_servers: /srv/web/app1/sock/sessions.sock This works: post '/login' => sub { if (authen(params->{'user'}, params->{'pass'}) { session 'user' => params->{'user'}; return 'user = ' . session('user'); } else { return redirect '/login'; } } These 2 routes always end up back at /login: post '/login' => sub { if (authen(params->{'user'},params->{'pass'}) { session 'user' => params->{'user'}; return redirect '/dashboard'; } else { return redirect '/login'; } } get '/dashboard' => sub { if (not session('user')) { return redirect '/login'; } # do something } Even replacing the last route with the following, leaves an empty session (i.e. user is BLANK). get '/dashboard' => sub { return 'user is ' . session('user'); } Dale

1 1

Dancer2: session->destroy fails
by Dale Gallagher 10 Apr '13

10 Apr '13

Hi Calling session->destroy fails with the following. Can't locate object method "destroy" via package "Dancer2::Core::Session" at /srv/web/app/lib/app.pm line 36. config.yml: session: Simple /srv/web/app/lib/app.pm: package app; use Dancer2 ':syntax'; use Dancer2::Plugin::Ajax; use Authen::Simple::Passwd; ... .. get '/logout' => sub { session->destroy; redirect '/login'; } I even tried: my $id = session->id; session->delete($id); but, even though it doesn't throw an error, it doesn't delete the session and other routes are served. So far, at the top of app.pm, I have: hook before => sub { if (request->path_info !~ m{^/login}) { if (session('user') && session('time')) { my $time_now = time; if ($time_now - session('time') < config->{'session_expire'}) { session 'time' => time; } else { return redirect '/logout?msg=session_expired&path=' . request->path_info; } } else { return redirect '/login'; } } }; I'm stumped, as, apart from the above snippet, and the Dancer2 use lines, the app works under Dancer1. Any pointers would be appreciated. Thanks Dale

3 3

Only even items
by Hugues Max 08 Apr '13

08 Apr '13

Hello I've got stange problem with dancer with twitter boostrap I use use Dancer::Plugin::Database; my $dbh = database({driver => 'mysql', database => 'asav'}); my %allCommandeBNP = database->quick_select('CommandeBNP', {} ); my @allCommandeBNP= %allCommandeBNP; my $allCommandeBNP=@allCommandeBNP; In my mysql table has 36 items and $allCommandeBNP egal 36 I use if (params->{cmd} && params->{cmd} eq 'list') { return template 'template/navbar_login' => { username => params->{username}, password => params->{password}, tab => 3, ccmd => \%allCommandeBNP, show_list => "Liste des N° de commande:", }; } and in my template [% FOREACH s IN ccmd.keys.sort %] [% ccmd.$s.Ckey %]- [% END %] the result is 18 items, one item on two and only even item Liste des N° de commande: 210- 208- 206- 204- 202- 200- 198- 196- 194- 192- 190- 188- 186- 182- 184- 212- 214- 216- On mysql.log with request log activated , request is SELECT * FROM `CommandeBNP` if someone has a idea ?

4 7