January 2011 - dancer-users - lists.preshweb.co.uk

Problem with non ascii characters in yaml files
by Eric GUIRBAL 13 Jan '11

13 Jan '11

Hello, I am discovering Dancer. I take this opportunity to thanks the developpers for their works. Coding with dancer is very funny. My first project is a little site. To generate page of the site, I need some strings stored in a site.yml file. The pages are displayed correctly except the non-ascii characters from the strings in the site.yml file. All the files of my project are in utf8. In the config.yml, I have charset: "UTF-8" engines: template_toolkit: encoding: 'utf8' The site.yml is correctly parse. A dump in my terminal proves it. A workaround is to use ISO-8819-1 encoding for my site.yml file. Thanks for any idea. -- Eric

6 13

flash implementation
by Иван Бессарабов 12 Jan '11

12 Jan '11

Hi! I've read http://advent.perldancer.org/2010/3 and I have a question. In the blog implementation, described in the article there is so called "flash". There is a global variable where one stores some message that is available after redirect: my $flash; sub set_flash { $flash = shift } sub get_flash { my $msg = $flash; $flash = ""; return $msg } ) post '/add' => sub { # some lines skipped set_flash('New entry posted!'); redirect '/'; }; I think there can be a problem with this thing: if there are a lot of requests to the site some user can see the flash message that was done for some other user. Am I right? I can see several ways of doing the same way but in more safe way: 1. redirect to page with parameter that identifies flash message (have a problem with not pretty urls) 2. store id to flash message in a cookie 3. store flash message in a session Any other ways?

3 3

Using persistent DB connections in Dancer::Tutorial
by Gurunandan Bhat 12 Jan '11

12 Jan '11

If I rewrite connect_db as: my $dbh; sub connect_db { if (! defined $dbh) { $dbh = DBI->connect("dbi:SQLite:dbname=".setting('database')) or die $DBI::errstr; } return $dbh; } will the application use a single connection for all connections under all perl webservers (in-built, mod_perl, Starman, Twiggy etc.). If that is true, a line to that effect in an appropriate place in the tutorial would emphasize the persistent features of the solution. Also, are any hooks run when the application instance is destroyed? If there are, implementing a graceful closing of open DB connection(s) might provide a valuable lesson in the Tutorial. Thank you.

4 6

Testing Forms
by djgoku 11 Jan '11

11 Jan '11

I am wondering how I can write tests for forms (WWW::Mechanize maybe?). I was thinking dancer_response (Dancer::Test) would be what I want, but being new to testing and Dancer I am not sure how to test forms. What I want to test is form creation, form submitting (failing/success) and redirects after failing/success. Is there anything else I missed that should also be tested? Jonathan

1 0

Creating a project on Windows
by sigzero 11 Jan '11

11 Jan '11

[dispatch.cgi] #!C:\Perl\bin\perl.exe use Plack::Runner; Plack::Runner->run('C:\Projects\Perl\Web\mywebapp/app.psgi'); The path separators should all go one way.... Looking at dispatch.fcgi ... it has the same "problem". So I imagine that is an assumption that "dancer" is making when creating the skeleton structure. Robert

3 2

header does not seem to work correctly in all cases.
by Nick Hibma 10 Jan '11

10 Jan '11

Hi there, I have some trouble getting 'header' / 'headers' to work. They don't work with send_file: dancer headerTest cd headerTest cat << EOF package headerTest; use Dancer; use Dancer::Plugin::Database; get '/1' => sub { header 'Cache-Control' => 'This is a test'; template 'index'; }; get '/2' => sub { header 'Cache-Control' => 'This is a test'; send_file '/css/style.css'; }; get '/3' => sub { header 'Cache-Control' => 'This is a test'; return {hello=>'world'}; }; true; EOF ./headerTest.pl --daemon curl -v -v -o /dev/null http://localhost:3000/1 curl -v -v -o /dev/null http://localhost:3000/2 curl -v -v -o /dev/null http://localhost:3000/3 Note that with /2 the header Cache-Control is not set in the headers. Also, I would like to set (cache-control) headers on CSS and JS files delivered from /public/ if possible, to reduce page load times (jQuery + Highcharts + jQueryUI slow things down :-). If anyone could help me with this, that would be much appreciated. Regards, Nick Hibma AnyWi Technologies

1 0

development.pod
by Maurice Mengel 10 Jan '11

10 Jan '11

Hi guys, I have tried to improve development.pod. At first, mostly typos and other little things and then a little more basic stuff. I will not be able to improve the whole document a lot more since I don't understand enough. I think I incorporated also some ofpolettix's suggested changes to the same document without really understanding what it is. best Maurice

2 1

generating client side code on the server
by Puneet Kishor 10 Jan '11

10 Jan '11

Consider the most basic of workflows ## Perl get '/:foo_id.:format' => sub { my $foo_id = params->{foo_id}; ## SQL my $sth = $dbh->prepare(qq{ SELECT foo FROM table WHERE foo_id = ? }); $sth->execute($foo_id); my ($foo) = $sth->fetchrow_array; to_json({data => $foo}); }; foo.tt ====== <p>You got <span id="foo">[% foo %]</span></p> enter a number <input type="text" id="foo_id" name="foo_id"> <input type="button" onclick="foo();"> JavaScript ========== foo = function() { $.ajax({ url : "/server/" + $("#foo_id").val() + ".json", type : "GET", data : "", dataType: "json", error : function() { alert("Error"); }, success : function(data) { $("#foo").html(data.foo); } }); } If I change the table column 'foo' to 'bar' and 'foo_id' to 'bar_id', I have to change my Perl code (which includes SQL), my template and JavaScript. Obviously, this can get untenable very quickly as the application becomes complex. The obvious solution is to generate the template and the JavaScript on the server side, thereby having to declare all the names in just one place. I have recently learned of the Perl module Jemplate that might enable me to do this. But before I commit any cycles to it, I want to know how the other Dancers handle something like this. Puneet. -- Puneet Kishor http://punkish.org Carbon Model http://carbonmodel.org Charter Member, Open Source Geospatial Foundation http://www.osgeo.org Science Fellow http://creativecommons.org/about/people/fellows#puneetkishor Nelson Institute, UW-Madison http://www.nelson.wisc.edu --------------------------------------------------------------------------- Assertions are politics; backing up assertions with evidence is science ===========================================================================

2 1

Re: [Dancer-users] Generating PDF with Template-Plugin-Latex fails inside route handler
by Mike Mandel 09 Jan '11

09 Jan '11

>> Hello, >> >> I want to generate a pdf with Template-Plugin-Latex where the user fills >> out a html form and >> the app sends back a pdf. >> >> Outside the route handler create_pdf() works and the pdf is generated, >> but inside the route handler create_pdf() fails: >> >> latex error - pdflatex exited with errors: >> >> ----- >> Minimal example: >> >> #!/usr/bin/perl >> use Dancer; >> use Template::Latex; >> >> sub create_pdf { >> my $tt = Template::Latex->new({ >> INCLUDE_PATH => >> '/path/to/my/app/public/latex', >> OUTPUT_PATH => '/path/to/my/app/public/pdf', >> LATEX_FORMAT => 'pdf', >> }); >> >> $tt->process('test.tt', {name => 'Dancer'}, 'test.pdf', binmode => >> 1) || die $tt->error(); >> }; >> >> # works >> create_pdf(); >> >> get '/' => sub { >> return 'Hello Dancer'; >> }; >> >> get '/create_pdf' => sub { >> # works not >> create_pdf(); >> }; >> >> get '/download/:file' => sub { >> send_file('/pdf/'.params->{file}); >> }; >> >> dance(); >> >> ---- >> My template test.tt >> >> [% USE Latex %] >> [% FILTER latex('pdf') %] >> \documentclass[version=last]{scrartcl} >> \begin{document} >> Hello [% name %] >> \end{document} >> [% END %] >> >> Any suggestions what could be wrong? >> >> Thanks a lot, >> >> Mike >> _______________________________________________ >> Dancer-users mailing list >> Dancer-users(a)perldancer.org >> http://www.backup-manager.org/cgi-bin/listinfo/dancer-users >> Hello, I tracked it down a little bit, and found out, that the return code of the system() function is different inside a route handler than outside. Could please someone test this? ------------------------------ #!/usr/bin/perl use Dancer; my $rc = system("/usr/bin/pdflatex -v"); #my $rc = system("/usr/bin/gcc -v"); print "\$rc: $rc\n"; # $rc = 0 get '/system' => sub { $rc = system("/usr/bin/pdflatex -v"); #$rc = system("gcc -v"); '$rc = ' . $rc; # $rc = -1, should be 0 }; dance(); ----------------------------- Thanks, Mike

2 3

Re: [Dancer-users] Generating PDF with Template-Plugin-Latex fails inside route handler
by Mike Mandel 07 Jan '11

07 Jan '11

Am 07.01.2011 10:48, schrieb Nick Hibma: > Perhaps PATH is not set to include the TeX utils? I would not know how to change that but you could start by testing the following: > > env PATH=$PATH:/path/to/latex/bins ./myDancerApp.pl > > A common problem is that /usr/local/bin is not in your path on for example FreeBSD. > > Just my 2 euro cents. > > Nick Hibma > AnyWi Technologies > > On 7 Jan 2011, at 01:06, Mike Mandel wrote: > Hi Nick, thanks for your help. Unfortunately it doesn´t work. The following doesn´t work either. my $tt = Template::Latex({ LATEX_PATH => '/usr/bin/latex', PDFLATEX_PATH => '/usr/bin/pdflatex', }); It is really strange, outside of the route handler it works, inside not!? Thanks, Mike

1 0