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

password reset system
by Richard Reina 20 Sep '15

20 Sep '15

I am needing to give users the ability to reset their password. I was wondering if anyone could advise if this http://www.dagolden.com/index.php/1807/my-second-week-of-dancer-now-with-qu… is a good way to go about it or if there is a easier or better way? Thanks

2 1

Using ::Plugin::DBIC in D1 -and- D2
by Henk van Oers 20 Sep '15

20 Sep '15

Module ::Plugin::DBIC has a D1 and a D2 version. The common part is DBICx::Sugar; it exports the 'schema' word. You can configure the schema in your Dancer config.yml -------- plugins: DBIC: example: schema_class: Example::Schema dsn: "dbi:SQLite:dbname=/var/db/example.db" -------- Look! No Dancer version! Now we can make the needed result class: -------- package MyApp::Model; # ABSTRACT: DBIx::Class interface for MyApp applications use strict; use warnings; use Exporter qw(import); use DBICx::Sugar qw(schema); our $VERSION = '0.01'; # VERSION our @EXPORT_OK = qw( rset_table1 ); sub _my_schema { return schema('example'); } sub rset_table1 { return _my_schema->resultset('Table1'); } 1; -------- Now you can use 'table1' in any module not knowing what Dancer version you are running under. -- Henk

1 0

Do DSL words need a Plugin?
by Henk van Oers 20 Sep '15

20 Sep '15

A ::Plugin needs 2 name spaces Dancer:: and Dancer2:: But what about this construct: --------------------- package MyApp::DSL; # ABSTRACT: Just some syntax sugar for MyApp use strict; use warnings; use Exporter qw(import); our $VERSION = '0.01'; # VERSION our @EXPORT_OK = qw( request_accept_language ); our $twist = 2; # or 1; BEGIN { $twist = (defined $INC{'Dancer2.pm'}) ? 2 : 1; } use if $twist == 2 , 'Dancer2'; use if $twist == 1 , 'Dancer' => ':syntax'; sub request_accept_language { return request->accept_language; } 1; --------------------- This one does not need any config and maybe all common words can be in some common ::Sugar NB: Next related post is about Plugins with some config. -- Henk

1 0

route handler for a URL that matches a token
by Richard Reina 18 Sep '15

18 Sep '15

Forgive me for being clueless, but can someone tell me how I can have route handler for a URL that matches a token. Such that a user can receive an email that says: Go here to reset your password http://myapp.com/resetJiOk49ld9oekdisJkflSS3ed (where JiOk49ld9oekdisJkflSS3ed is the token ) and then dancer would bring them to the template where they can reset their password. I can't seem to wrap my mind around how such a thing would work. get '/reset/'$token => sub { template 'pass_reset'; } post '/reset/'$token => sub { # let user reset password my $input_hash = { Pswd => param('password1'), PswdConfirm => param('password2'), }; template 'pass_reset'; }; Any help would be greatly appreciated. Thanks

4 13

Re: [dancer-users] .dancer file
by Rick Leir 17 Sep '15

17 Sep '15

On Sat, Sep 12, 2015 at 7:00 AM, <dancer-users-request(a)dancer.pm> wrote: > > > This version of Dancer2::Cookbook is definitely outdated. > > Yes, it's rarely a good idea to link to CPAN resources using a specific > version number. Better to use: > > https://metacpan.org/pod/distribution/Dancer2/lib/Dancer2/Cookbook.pod My bad, sorry. Google pagerank led me to the outdated version. Unrelated: I am curious to know why Dancer2 is trying to open ./.dancer at startup? What can be put in it? stat("./lib", {st_mode=S_IFDIR|0775, st_size=4096, ...}) = 0 stat("./bin", 0x84e238) = -1 ENOENT (No such file or directory) stat("./.dancer", 0x84e238) = -1 ENOENT (No such file or directory) I noticed this when I was using strace to find out where Dancer2 wanted to find my config.yml. For an app Name::Name2, in lib/Name/Name2.pm, the file needs to be lib/Name/config.yml not in ./config.yml. Now I see why: there could be multiple apps, each with its own config. As described in meta (but why say that it is global?): "Dancer2 will first look for the file *config.ext* (where .ext is the type of configuration file you are using) in the root directory of your application. This is considered your global Dancer2 config file. https://metacpan.org/pod/distribution/Dancer2/lib/Dancer2/Config.pod -- Thanks, Rick

1 0

Dancer book - available now
by Gabor Szabo 17 Sep '15

17 Sep '15

Hi, as you might know I have been writing and publishing lots of beginner and advanced level articles on the Perl Maven site. Some of the articles are available to everyone to read, others are only available to the "Perl Maven Pro" subscribers. As I understand not everyone who might want to read the Dancer articles wants to have a monthly subscription, so I have created an e-book from all the Dancer articles listed on http://perlmaven.com/dancer page. I've also added an (almost hidden) button at the bottom of that page that will let you buy the book for $15. Of course if you'd like to provide ongoing support to the Perl Maven site then you can also subscribe to the Perl Maven Pro http://perlmaven.com/pro/ and get access to over 100 advanced articles and screencasts. regards Gabor ps. If you encounter any problems, or have any question, please send me an e-mail privately. -- Gabor Szabo http://szabgab.com/ Code Maven http://code-maven.com/ Perl Maven http://perlmaven.com/ Perl Weekly http://perlweekly.com/

3 2

Executing Hooks in dancer2
by Rubén Amórtegui 17 Sep '15

17 Sep '15

Hello, I'm having some issues with the hooks, because it seems that runs more than one time each time that I'm calling from my Dancer2 application. I have this plugin: -- package Dancer2::Plugin::MyPluginTest; use Dancer2::Plugin; register_hook 'my_new_hook'; register new_function => sub { execute_hook 'my_new_hook'; }; register_plugin; -- And I have this Dancer test application: -- use strict; use warnings; use Test::More; use Plack::Test; use HTTP::Request::Common; { package MyTestApp; use Dancer2; use Dancer2::Plugin::MyPluginTest; my $var = 0; get '/' => sub { new_function; $var; }; hook 'my_new_hook' => sub { $var++; debug "Executing hook - $var"; }; }; my $test = Plack::Test->create( MyTestApp->to_app ); my $res = $test->request( GET '/' ); is( $res->content, '1', 'Var is 1 after one call on /' ); done_testing(); -- When I run the test, the hook it's executed twice. -- [MyTestApp:6554] debug @2015-09-17 08:26:33> Executing hook - 1 in plugin.pl l. 21 [MyTestApp:6554] debug @2015-09-17 08:26:33> Executing hook - 2 in plugin.pl l. 21 not ok 1 - Var is 1 after one call on / 1..1 # Failed test 'Var is 1 after one call on /' # at plugin.pl line 29. # got: '2' # expected: '1' # Looks like you failed 1 test of 1. Dubious, test returned 1 (wstat 256, 0x100) Failed 1/1 subtests -- I just isolate this example of a plugin that I'm working on, but it had the same problem (but execute the hooks three times). Any advice? Thanks in advance. -- ____________________________ Rubén Darío Amórtegui Medina MCE - Ingeniero de Sistemas

1 0

Re: [dancer-users] request->user
by Rick Leir 16 Sep '15

16 Sep '15

On Sun, Sep 13, 2015 at 7:00 AM, <dancer-users-request(a)dancer.pm> wrote: > > Where does Dancer2 get the user that is returned with > $dsl->app->request->user? > I have a hard time finding this in Dancer2::Core::Request.pm, where it's > in the documentation. Since nobody has answered this, I will take a stab at it from memory. My suspicion: if there was Basic Auth, then there will be a User value. Without auth, I don't think you will get any user value. It could be from a special URL format, like this: http://username:password@example.com/ The User value is encoded in the Authorization header. If I am right, this is not specific to Dancer. Cheers -- Rick

3 3

How to pass Named Arguments in Dancer URL
by Parthiban, Anandaraaj 16 Sep '15

16 Sep '15

Hi Experts, Currently I am accessing the variables using "/method/:name/:id" I want to know how can I send named arguments like query string /method/name=:name/id=:id/ The above doesn't seems to be working, Am I doing anything wrong. Let me Know in case of any further informations required. Thanks Anand.

2 6

Videos from Sawyer X, Russell Jenkins, Andrew Beverly and more!
by Stefan Hornburg (Racke) 16 Sep '15

16 Sep '15

Would you love to see videos from these awesome speakers at the Perl Dancer Conference in Vienna? 8-) We really would like to show them to you, but the shooting and the post-production doesn't come for free, so we are searching sponsor(s). Please contact us at 2015(a)perl.dance - even if you can afford only a smaller amount of money. See https://www.perl.dance for more information. Regards Racke -- Perl and Dancer Development Visit our Perl::Dancer conference 2015. More information on https://www.perl.dance.

1 0