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

Re: [dancer-users] send_file for new content
by Rick Leir 24 Sep '15

24 Sep '15

On Thu, Sep 24, 2015 at 7:00 AM, <dancer-users-request(a)dancer.pm> wrote: > > >> return send_file( > >> \$content, > >> content_type => 'application/vnd.ms-excel', > >> filename => "filename.xls", > >> ); > >> > >> It goes without saying that given recent developments you should > >> consider using Open Document Format instead ;-) > > [KB] I will try and inform you as early as possible, thanks > >> > [KB] As I read from tutorial, send_file returns a file which already > exists. It does not create a new file with new content. This example sends html, but you could create other types of data. HTH. my $ret_html = <<HTDATA; <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> <title>Example</title> </head> <body> </body> </html> HTDATA send_file( \$ret_html, content_type => 'text/html'); Cheers -- Rick

2 1

dsl keyword start
by Rick Leir 24 Sep '15

24 Sep '15

Hi Everyone The dsl keyword start does not seem to be necessary in my app, and when I use it at the end of my app the tests hang. I am curious: is this legacy? Thanks Rick https://metacpan.org/pod/Dancer2::Manual#start

2 1

Dancer calling database connection
by Mike Cu 24 Sep '15

24 Sep '15

the Dancer advent calendar says that: Use Starman's --preload-app option to enable this (but be aware that this can cause Bad Things to happen if resources like database connections or other sockets are opened by your app at compile time, as they will be unintentionally shared amongst child processes. what is actually meant by that? when a url is requested my route is calling the model which opens a database connection, does sql and closes the connection. So this is done at runtime. when would calling database connection at compile time then ?also calling connect_cached would cause any problems under a preforked server like starman?

2 1

Route exception: Undef did not pass type constraint "Str"
by Gabor Szabo 24 Sep '15

24 Sep '15

While trying to deploy an application I've just encountered this error: error @2015-09-24 09:06:31> Route exception: Undef did not pass type constraint "Str" (in $args->{"name"}) at (eval 663) line 192 "Str" is a subtype of "Value" "Value" is a subtype of "Defined" Undef did not pass type constraint "Defined" (in $args->{"name"}) "Defined" is defined as: (defined($_)) in /home/user/perl5.22.0/lib/site_perl/5.22.0/Dancer2/Core/App.pm l. 1276 I don't see this on my development machine and so far I have no idea where to look. Before I go down the rabbit hole trying to find the differences and the source of the problem, I wonder if anyone has encountered this. Dancer2 0.162 on both machines: dev using plackup 1.0037 prod using Starman 0.4014 Dancer2::Plugin::Auth::Extensible 0.401 regards Gabor

1 2

return content file
by Hugues 23 Sep '15

23 Sep '15

Hello I'm looking for a solution of this problem: I use Dancer1 I would like to control directory access and return the content as web share the access control part is ok. get '/donwload/**' => sub { # if ( Access control is OK ) { my ($file) = splat; my @file = @{ $file }; my $path= join('/', @file); my $fullpath='/home/media/files/'.$path; my $content_type = mimetype($fullpath); send_file( $fullpath, streaming => 1, filename => $file[-1], content_type => $content_type, system_path => 1); } }; If I open this link in with firefox , http://localhost/download/560297bbc96186eea22e0f31/image/index.html firefox launch a download of index.html. I don't want a download, I want html code directly as apache do. if someone has a idea, how I can do this ? thanks Hugues.

2 4

Export To Excel
by Kadir Beyazlı 23 Sep '15

23 Sep '15

Hi All, I have a data listed with html table. When I click on o a button, I want data to be exported to excel. With CGI.pm I do it in 2 ways 1-) when clicked on button, redirect to a sub and use Spreadsheet::WriteExcel module 2-) no need to another sub, change header if clicked on button #set cmd to export when clicked on button and perform POST reques if ($q->param('cmd') eq 'export') { print $q->header( -content_type => "application/vnd.ms-excel", -attachment => Report."-$stamp.xls", ); } I have 2 questions: 1-) I can apply 1st method at a new route. If I try 2nd method, how will I change header? 2-) Is there any plugin for export at Dancer2 -- Kadir Beyazlı Computer Engineer GSM : +90 535 821 50 00

2 3

Re: [dancer-users] JWT libraries
by Rick Leir 23 Sep '15

23 Sep '15

Hi We want to add JWT support to our Dancer2 applications, and are looking for recommendations on what support libraries to use. We would like to ensure that someone is looking closely at possible security flaws. We saw https://metacpan.org/pod/Dancer2::Plugin::JWT which uses JSON::WebToken which has been around since Jan 2013 and has gone through a few revisions since then, latest being Mar 2015 Should we be looking at integrating: Crypt::JWT which has only seen a single release in Jul 2015. Documentation specifically mentions JWT, JWS and JWE and their related RFCs. Documentation claims that "The module implements all (100%) algorithms defined in https://tools.ietf.org/html/rfc7518 - JSON Web Algorithms (JWA)." Thanks Rick

1 0

Re: [dancer-users] dancer-users Digest, Vol 67, Issue 19
by Rick Leir 21 Sep '15

21 Sep '15

On Mon, Sep 21, 2015 at 7:00 AM, <dancer-users-request(a)dancer.pm> wrote: > > > get '/' => sub { > > if ( -d service("capdir") ) { > > return {message => 'Hello World'}; > > } > > else { > > return ({message => service}); > > } > > There are two calls to `service` in your route code. The second one > (within the else block) has no name argument. > > Hope that helps, > Russell. > > Thanks Russell. Oops. Of course, that explains the exception and its message. I was trying to debug a problem where service("capdir") returns undefined. My .t file is in the archives here: http://lists.preshweb.co.uk/pipermail/dancer-users/2015-September/005015.ht… What is a good way to debug this? I copy core Dancer2 modules to my local lib, then drop Data::Printer calls into them. There (hopefully) would be a better way. Maybe # perl -d -- Rick Leir Developer, Canadiana.ca

1 0

how to make sure one db connection per user
by Dancer New 21 Sep '15

21 Sep '15

Hi, I use Dancer::Plugin::Database in my application. Each time when $dbh = DBI->connect( $c->{ dsn }, $c->{ username }, $c->{ password}, $c->{ dbi_params }) is called. does it return a new connection? I would like one db connection for each user, where can I save the database handler? I try to save in session, but it doesn't work. Is session can only save string, but not object? Many thanks, Dan

4 5

Plugin Adaptor
by Rick Leir 21 Sep '15

21 Sep '15

Can you help me with the Plugin Adaptor? Looking at https://metacpan.org/source/YANICK/Dancer2-Plugin-Adapter-0.006/t/file-temp… it seems as if a Plugin Adaptor test should go like this: use strict; use warnings; use Test::More 0.96 import => ['!pass']; use Plack::Test; use HTTP::Request::Common; use Data::Printer; { # Test app package Test::Adapter::fuu::Barr; use Dancer2; use Dancer2::Plugin::Adapter; set show_errors => 0; set serializer => "JSON"; set plugins => { "Adapter" => { capdir => { class => 'fuu::CAP::Directory', constructor => 'new' }, }, }; get '/' => sub { if ( -d service("capdir") ) { return {message => 'Hello World'}; } else { return ({message => service}); } }; } my $test = Plack::Test->create( Test::Adapter::fuu::Barr->to_app ); my $res = $test->request( GET '/' ); p( $res); ok( $res->is_success, 'Successful request' ); #like $res->content->{message}, qr/Hello World/i, "Request content correct"; like $res->content, qr/Hello World/i, "Request content correct"; done_testing; =========================================== exception below: ================== $ perl -T -Ilib t/004_plugin_adapter_dir.t 2>&1 [Test::Adapter::fuu::Barr:9518] error @2015-09-18 14:38:41> Route exception: Dancer2::Plugin::Adapter::service() requires a name argument at lib/Dancer2/Plugin/Adapter.pm line 42. in /usr/local/share/perl/5.20.1/Dancer2/Core/App.pm l. 1276 HTTP::Response { Parents HTTP::Message public methods (23) : as_string, base, clone, code, current_age, dump, error_as_HTML, filename, freshness_lifetime, fresh_until, from_psgi, is_error, is_fresh, is_info, is_redirect, is_success, message, new, parse, previous, redirects, request, status_line private methods (0) internals: { _content "{"status":500,"exception":"Dancer2::Plugin::Adapter::service() requires a name argument at lib/Dancer2/Plugin/Adapter.pm line 42.\n","message":"","title":"Error 500 - Internal Server Error"}", _headers HTTP::Headers, _msg "Internal Server Error", _rc 500, _request HTTP::Request } } not ok 1 - Successful request # Failed test 'Successful request' # at t/004_plugin_adapter_dir.t line 45. not ok 2 - Request content correct # Failed test 'Request content correct' # at t/004_plugin_adapter_dir.t line 47. # '{"status":500,"exception":"Dancer2::Plugin::Adapter::service() requires a name argument at lib/Dancer2/Plugin/Adapter.pm line 42.\n","message":"","title":"Error 500 - Internal Server Error"}' # doesn't match '(?^i:Hello World)' 1..2 # Looks like you failed 2 tests of 2. ==================== The exception above is coming from line 47 below ======================== Dancer2/Plugin/Adapter.pm ======================== register service => sub { my ( $dsl, $name ) = plugin_args(@_); unless ($name) { die "Dancer2::Plugin::Adapter::service() requires a name argument"; # line 47 } $conf ||= plugin_setting(); # ensure service is defined my $object_conf = $conf->{$name} or die "No configuration for Adapter '$name'"; ============== Dancer2/Plugin.pm around line 136 =============== sub plugin_setting { my $plugin = caller; my $dsl = _get_dsl() or croak 'No DSL object found'; ( my $plugin_name = $plugin ) =~ s/Dancer2::Plugin:://; return $dsl->app->config->{'plugins'}->{$plugin_name} ||= {}; } ================= (ref https://metacpan.org/pod/Dancer2::Manual::Testing and https://metacpan.org/pod/Plack::Test http://search.cpan.org/~xsawyerx/Dancer2-0.162000/lib/Dancer2/Manual/Testin… ) -- Thanks -- Rick

2 1