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

Dancer::Plugin::Email major refactor
by Naveed Massjouni 22 Jul '12

22 Jul '12

I have done a major refactor of Dancer::Plugin::Email which uses Email::Sender instead of Email::Stuff. Email::Stuff is built on Email::Send which is deprecated in favor of Email::Sender. THIS IS A BREAKING CHANGE. I tried my best to keep the interface the same (email { ... }), but the configuration has changed drastically. I have currently only made a dev release: https://metacpan.org/release/IRONCAMEL/Dancer-Plugin-Email-0.1300_02 Soon I will make a proper release. At that point, people upgrading Dancer::Plugin::Email may need to update their code or things will break and people will be sad. Please let me know if you try it and run into any issues, or if there are any features of the old plugin that you are currently using that did not make it into the new version. Please create tickets on github: https://github.com/ironcamel/Dancer-Plugin-Email Thanks, Naveed Massjouni

1 0

Conditionally defining routes (and keywords) in a plugin?
by Michael Alan Dorman 18 Jul '12

18 Jul '12

Hey, all, I have been working on an overhaul of Dancer::Plugin::Facebook. To allow it to be more generally useful, but as lightweight as possible, I would like to make certain choices as to what to make available, or how to do so, based on the plugin configuration. For instance, if the application doesn't intend to act on the user's behalf, then we should be able to use a single Facebook::Graph object, rather than regenerating it each request, or the application may not care for any information that requires authorization, so there's no need to create a postback handler, etc. So is it reasonable to consider doing something like: package Dancer::Plugin::Facebook; use Dancer; use Dancer::Plugin; register setup_fb => sub { if (plugin_setting->{auth}) { get "/auth/fb" => sub { ... } } # I think I need to do this again register_plugin; if (plugin-setting->{user}) { register fb => sub { Facebook::Graph->new ($config) } } else { my $fb = Facebook::Graph->new ($config) register fb => sub () { $fb } } } register_plugin; ... package MyApp; use Dancer use Dancer::Plugin::Facebook; setup_fb; or is this going to work at best by accident? Mike.

1 0

Question for Dancer::Route::Cache
by lei wang 18 Jul '12

18 Jul '12

I just want to know how Dancer::Route::Cache works. Can anyone give me a detail example? tks~ Ailes 2012.7.18

1 0

Opening multiple database connections after startup
by Alex C 16 Jul '12

16 Jul '12

My app needs to connect to multiple databases (currently: 1 PostgreSQL + 2 Redis), and I would like it to do this as soon as possible after startup. However, due to Dancer's cached-coderef design, it is not trivial to do this immediately after forking (as far as I know). My current solution is this: sub init_connections { $dbh = connect_to_dbh(); $redis_0 = connect_to_redis_0(); $redis_1 = connect_to_redis_1(); return 1; } sub before { $connected ||= init_connections; } This works fine, but if there are any connection problems, I don't find out immediately. So I tried coding the app to connect to itself, like this: sub init_connections { ... connect_to_self(); return 1; } But of course, my first experiment resulted in a loop! I wonder if I am approaching this the right way. Before I spend much more time on this, does anyone have any thoughts / experience on this problem? -- Alex

1 0

tty's
by Lukas Valle 14 Jul '12

14 Jul '12

Hi If I run the code below as a perl script, the script does make a ssh connection,login and run a command. If I run the same code in a dancer get route, the login works. But after the login, the session output shows up in den terminal where I started dancer and not in the virtual tty. Is there something special, when using tty's in a dancer application? use Net::Telnet; use Data::Dumper; my $pty = spawn( 'ssh', '-l', 'test', 'localhost' ); my $s = Net::Telnet->new( -fhopen => $pty, -telnetmode => 0, -output_record_separator => "\r", ); my $rc = $s->waitfor('/.*Password.*/'); $rc = $s->print('test'); $rc = $s->waitfor('/.*test@.*>.*/'); $rc = $s->print('uname -a'); $rc = $s->waitfor('/.*test@.*>.*/'); die Dumper $s->lastline; sub spawn { my (@cmd) = @_; my ( $pid, $pty, $tty, $tty_fd ); ## Create a new pseudo terminal. use IO::Pty (); $pty = IO::Pty->new(); ## Execute the program in another process. if ( !( $pid = fork ) ) { # child process use POSIX (); POSIX::setsid; $tty = $pty->slave; $pty->make_slave_controlling_terminal(); $tty_fd = $tty->fileno; close $pty; open(STDIN,"<&$tty_fd"); open(STDOUT, ">&$tty_fd"); open(STDERR,'>&STDOUT'); close $tty; ## Execute requested program. exec @cmd; } # end child process return $pty; } # end sub spawn Thanks for your help. Kind regards Lukas

1 0

Insert SMS messages in a db
by Mr. Puneet Kishor 13 Jul '12

13 Jul '12

I have a Dancer app backed by a Postgres database. I want registered users to be able to SMS a photo and some accompanying explanatory text and have it be inserted into the database so it can be viewed on the web site. This would be much like how one can send Tweet and have it appear on Twitter. What parts do I need to assemble the above contraption? Has someone already done something like this that I may build upon? Many thanks, -- Puneet Kishor

3 2

Re: [Dancer-users] Setting custom 404 routes when you have more than one app / don't emit HTML
by Sam Kington 09 Jul '12

09 Jul '12

>> May be you can sort apps my key. >> >> sub applications { map {$_apps->{$_}} sort { $a cmp $b } keys %$_apps } No, because you still have the problem of the first application in the list being the current one, and if your route matches you then become the current app: > Unfortunately, looking at the code for Dancer::App::find_route_through_apps, this doesn't work if you have more than one app: > > for my $app (Dancer::App->current, Dancer::App->applications) { > my $route = $app->find_route($request); > if ($route) { > Dancer::App->current($route->app); > return $route; > } > return $route if $route; > } > > First of all, if any individual app implements such an any qr{.*} route, it'll kick in if it's the current app (and it's then even more likely for that route to be hit next time because it's now the current app), or if it was in the list of applications before another app that might have implemented such a route. I'm not entirely certain what being the current app means, but I'm pretty sure that messing about trying to not be the current app any more when or shortly after your route is hit is a bad idea. Sam -- Website: http://www.illuminated.co.uk/

2 1

Can't bind to port
by gvim 09 Jul '12

09 Jul '12

I can't get my Dancer app, running on OS X 10.7/Perl 5.14.2, to bind to port 3000 for some reason: $ ./app.pl [92599] debug @0.000008> Dancer::Loggersession_dir : sessions in /sw/lib/perl5/site_perl/5.14.2/Dancer/Session/Storable.pm l. 34 [92599] core @0.008641> loading Dancer::Handler::Standalone handler in /sw/lib/perl5/site_perl/5.14.2/Dancer/Handler.pm l. 45 [92599] core @0.008782> loading handler 'Dancer::Handler::Standalone' in /sw/lib/perl5/site_perl/5.14.2/Dancer.pm l. 464 >> Dancer 1.3095 server 92599 listening on http://0.0.0.0:3000 bind to 0.0.0.0:3000: Address already in use at /sw/lib/perl5/site_perl/5.14.2/Dancer.pm line 465 When I point my browser to http://localhost:3000 all I get is a non-html page containing the number 2. gvim

3 3

New Dancer based site - Film Maker Plus
by Gabor Szabo 08 Jul '12

08 Jul '12

Hi, this site is created from a single YouTube channel and it is running on Dancer http://filmmakerplus.com/ Your ideas for improvement are welcome. regards Gabor ps. Source will be available at a later time

1 0

Setting custom 404 routes when you have more than one app / don't emit HTML
by Sam Kington 08 Jul '12

08 Jul '12

Hi, At $WORK we're building an extensive RESTful system, comprised of multiple apps. The error-handling code in Dancer doesn't do what we want - emit JSON or, possibly, XML when no route is matched - and I can't see an easy way of fixing it, short of hacking on the guts of Dancer. The try block in Dancer::Handler::render_request reads as follows: Dancer::Renderer->render_file || Dancer::Renderer->render_action || Dancer::Renderer->render_autopage || Dancer::Renderer->render_error(404); render_error assumes it's serving up HTML, so that's no use to our purposes; render_file and render_autopage trawl the filesystem looking for likely candidates, which in this case they won't get. Dancer::Cookbook suggests: > All you need to do is set up the following route as the last route: > any qr{.*} => sub { > status 'not_found'; > template 'special_404', { path => request->path }; > }; Unfortunately, looking at the code for Dancer::App::find_route_through_apps, this doesn't work if you have more than one app: for my $app (Dancer::App->current, Dancer::App->applications) { my $route = $app->find_route($request); if ($route) { Dancer::App->current($route->app); return $route; } return $route if $route; } First of all, if any individual app implements such an any qr{.*} route, it'll kick in if it's the current app (and it's then even more likely for that route to be hit next time because it's now the current app), or if it was in the list of applications before another app that might have implemented such a route. OK, I thought, I'll add a specific app which I'll name in such a way as it'll always be at the end of the list, maybe starting with Unicode snowman or something. No luck: here's Dancer::App::applications: > my $_apps = {}; > sub applications { values %$_apps } Aarrgghh! Perl's effectively-random hash-key ordering! Any ideas on how to fix this? Maybe add an additional hook for "no application knew about this route; want to circumvent the default error-handling?" ? Sam -- Website: http://www.illuminated.co.uk/

1 0