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

Anyone interested in Dancer::Session::Chi?
by Richard Huxton 21 Oct '11

21 Oct '11

I've got a CHI-based cache in use elsewhere and knocked up an interface. If anyone is interested, I'll tidy the code up and post it. Not much to it though, took about 30 minutes of cutting+pasting from Dancer::Session::Storable. -- Richard Huxton Archonet Ltd

2 2

Re: [Dancer-users] Dancer deployment bugs with Plack::Handler::Apache2
by Pedro Melo 20 Oct '11

20 Oct '11

Sorry, forgot to post to the list On Thu, Oct 20, 2011 at 10:28 PM, Pedro Melo <melo(a)simplicidade.org> wrote: > Hi, > > On Wed, Oct 19, 2011 at 11:05 PM, Assaf Gordon <gordon(a)cshl.edu> wrote: >> Pedro Melo wrote, On 10/19/11 14:28: >>> On Wed, Oct 19, 2011 at 5:33 PM, Assaf Gordon <gordon(a)cshl.edu> wrote: >>>> It seems the two applications are conflicting, when routes or templates from one application are used by the other. >>> >>> Known side-effect of the good design decisions Dancer1 took :). You >>> can search the Mailing list, this was discussed before. >> >> I'm indeed guilty of not looking in the mailing list first, the problem is acknowledged (but never resolved). > > I think the solution is Dancer2 but I don't know for sure, haven't tried it yet. > >> My tiny contribution will be to add a warning to the "deployment guide": >> https://github.com/agordon/Dancer/commit/abaeceec5c010c4557ee0ed4daab70eda1… > > I believe there was a pull request to update those docs, but I don't > remember anymore... > >> What's the best way to search the mailing list ? > > Beats me: Google with site:lists.perldancer.org ? > > Bye, > -- > Pedro Melo > @pedromelo > http://www.simplicidade.org/ > http://about.me/melo > xmpp:melo@simplicidade.org > mailto:melo@simplicidade.org > -- Pedro Melo @pedromelo http://www.simplicidade.org/ http://about.me/melo xmpp:melo@simplicidade.org mailto:melo@simplicidade.org

1 0

Plugin::SimpleCRUD: primary key missing from edit form
by WK 20 Oct '11

20 Oct '11

Terr! I played a bit with SimpleCRUD plugin and noticed on debug output, that every time i submit edit form, there is made an INSERT. AFAIU, insert is choosed if primary key is missing. Here is output of a simple edit form, i don't see a primary key here:  <form method="post" onsubmit="return validate(this);"> <div><input id="_submitted" name="_submitted" type="hidden" value="1" /></div> <table> <tr valign="top"> <td><b>Keel</b></td> <td><input id="keel" name="keel" type="text" value="udmurdi" /></td> </tr> <tr valign="top"> <td align="center" colspan="2"><input id="_submit" name="_submit" type="submit" value="Submit" /></td> </tr> </table> </form> Primary key for this simple table is 'ke_nr' (and other columns in 'keel', thats it) and it is set for simple_crud-method as that: simple_crud( record_title => "keel", prefix => "/keel", db_table => "keel", sortable => 1, paginate => 30, key_column => 'ke_nr', downloadable => 1, editable => 1, deletable => 1, ); Why PK is missing from edit form? -- Wbr, Kõike hääd, G

2 3

Basic plackup/dancer startup script for Centos
by Matthew Vickers 20 Oct '11

20 Oct '11

Hi All, I have knocked up a very basic init script for centos, I suspect it will work for other RH derivatives also. It can be found at https://gist.github.com/1300467. Modify it to suit, rename it appropriately, place it in /etc/init.d. Test it works as expected with: service some_website start service some_website stop service some_website restart and then turn it on chkconfig some_website on Comments, changes, suggestions welcome. Cheers Matt

2 5

Dancer::Plugin::SimpleCRUD - more features
by Assaf Gordon 19 Oct '11

19 Oct '11

Hi, I've added couple of more features to make the awesome SimpleCRUD even more awesome (but hopefully still keeping it simple): 1. Add "sortable" feature: each column header becomes clickable, and allows the user to sort (ascending/descending) the results: https://github.com/agordon/Dancer-Plugin-SimpleCRUD/commit/d03c298672d053f0… https://github.com/agordon/Dancer-Plugin-SimpleCRUD/commit/78403b81e7ceb860… 2. Add "paginate" feature: show only X number of results, and add "next/prev page" links. Badly needed if using SimpleCRUD for large tables. https://github.com/agordon/Dancer-Plugin-SimpleCRUD/commit/13291c17d43e3398… 3. Make the search form select the last searched field by default: https://github.com/agordon/Dancer-Plugin-SimpleCRUD/commit/df2ed60205d74801… 4. Auto-focus keyboard input on the search field by default (but can be disabled by the user): https://github.com/agordon/Dancer-Plugin-SimpleCRUD/commit/9211de64264720dd… 5. Add "downloadable" option, to download results as CSV/TXT/json/xml instead of showing as HTML. https://github.com/agordon/Dancer-Plugin-SimpleCRUD/commit/42d8575840c2e1cb… You can experiment with these here: http://cancan.cshl.edu/labmembers/gordon/simple_crud/genes The code for the above website is: ============ package simple_crud_sortable; use Dancer ':syntax'; use Dancer::Plugin::Database; use Dancer::Plugin::SimpleCRUD; our $VERSION = '0.1'; simple_crud( record_title => "Gene", prefix => "/genes", db_table => "genes", sortable => 1, paginate => 300, downloadable => 1, editable => 0, deletable => 0, ); true; ============ Comments are welcomed, -gordon

3 3

Removing files referring expired sessions
by Stefan Hornburg (Racke) 17 Oct '11

17 Oct '11

Hello, dancers! I just wrote the following script to remove session files from disk which refer to expired sessions. Easy access to Dancer's settings with use Dancer ':script' was a big help, no need to parse configuration or keep the expiration interval in two place. The script lives at: http://www.linuxia.de/dancer/scripts/expire_session Feedback and suggestions are welcome! Regards Racke #! /usr/bin/env perl # # Dancer session expiration script. # # Copyright (C) 2011 Stefan Hornburg (Racke) <racke(a)linuxia.de> # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public # License along with this program; if not, write to the Free # Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, # MA 02110-1301 USA. # use strict; use warnings; use Dancer ':script'; use File::stat; use Time::Duration::Parse; my ($now, $expires, $duration, $session_dir, $file, $file_st); $expires = config->{session_expires}; $session_dir = config->{session_dir}; # converting to seconds if (defined $expires) { if ($expires =~ /^\d+$/) { # already got seconds $duration = $expires; } else { $duration = parse_duration($expires); } } unless ($duration) { die "$0: Session expiration not set.\n"; } # get current time $now = time(); # go through session directory looking for expired sessions opendir(SESSIONS, $session_dir) || die "$0: Failed to open directory: $session_dir: $!.\n"; while ($file = readdir(SESSIONS)) { # skip directories etc next unless -f "$session_dir/$file"; # sanity check on file names for sessions if ($file !~ /\d{18,}/) { warn "$0: Skipping suspicious file in session directory: $file.\n"; next; } $file_st = stat("$session_dir/$file"); unless ($file_st) { die "$0: Failed to get file information from $file: $!.\n"; } if ($file_st->mtime < $now - $duration) { unless (unlink("$session_dir/$file")) { die "$0: Failed to remove expired session $file: $!.\n"; } } } closedir(SESSIONS); -- LinuXia Systems => http://www.linuxia.de/ Expert Interchange Consulting and System Administration ICDEVGROUP => http://www.icdevgroup.org/ Interchange Development Team

1 0

New Dancer plugin - Dancer::Plugin::Hosts
by Perlover 17 Oct '11

17 Oct '11

Good day! I have written module: Dancer::Plugin::Hosts https://github.com/Perlover/Dancer-Plugin-Hosts While no at CPAN this module - only at github This is my first implementation of virtual hosts under Dancer While there are no tests in distribution but this version works at me in my real Dance application under Starman Best regards, Perlover

1 0

Re: [Dancer-users] Global app-wide "prefix" settings&In-Reply-To=<4E7A0410.8060801@cshl.edu>
by Perlover 17 Oct '11

17 Oct '11

Good day! I have written module Dancer::Plugin::Hosts https://github.com/Perlover/Dancer-Plugin-Hosts While no at CPAN this module - only at github Assaf Gordon, i think this may be that you need Best regards, Perlover

1 0

Request for help : StackOverflow community
by Alexis Sukrieh 16 Oct '11

16 Oct '11

Hello, I realized rrecently that there are more and more questions about Dancer on StackOverflow, they're tagged "dancer" and the RSS feed to keep track of the new ones is: http://stackoverflow.com/feeds/tag?tagnames=dancer&sort=newest If you have some time and want to help Dancer in a different way than contributing code, contributing to our StackOverflow stream would be very appreciated. For instance, I've seen this question http://stackoverflow.com/questions/7334060/multiple-app-directories-with-da… and its first (validated) answer is clearly not the best thing to do (see my answer below). If we - the Dancer community - manage to go regularly on Stack for upvoting the good answers, this will help Dancer and it's newcomers will be better educated. Thanks for your time ;)

1 0

ajax plugin strangeness
by Puneet Kishor 14 Oct '11

14 Oct '11

Perhaps I don't understand how to correctly use the Dancer::Plugin::Ajax. I am running Dancer 1.3072 with Dancer::Plugin::Ajax running off of Starman proxies behind Apache2. I experience the following strangeness (which, you can test at http://humanesettlements.punkish.org) Some Ajax queries (sent via jQuery) return as JSON, while others return as full html in spite of having identical headers. My server side code is ajax '/' => sub { my $page = params->{'page'} || 1; my $tags = params->{'tags'}; my $res = query('page' => $page, 'tags' => $tags); return to_json \%res; }; get '/' => sub { my $page = params->{'page'} || 1; my $tags = params->{'tags'}; my $res = query('page' => $page, 'tags' => $tags); template "ideas", \%res; }; Here are the queries as captured in the web debugger (in Safari). The following returned JSON • Request URL:http://humanesettlements.punkish.org/?tags=old_people • Request Method:GET • Status Code: 200 OK • Request Headers • Accept:application/json, text/javascript, */*; q=0.01 • Referer:http://humanesettlements.punkish.org/ • User-Agent:Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_1) AppleWebKit/534.48.3 (KHTML, like Gecko) Version/5.1 Safari/534.48.3 • X-Requested-With:XMLHttpRequest • Query String Parameters • tags:old_people • Response Headers • Connection:Keep-Alive • Content-Length:2905 • Content-Type:text/xml; charset=utf-8 • Date:Wed, 12 Oct 2011 00:42:29 GMT • Keep-Alive:timeout=5, max=99 • Server:Perl Dancer 1.3072 • X-Powered-By:Perl Dancer 1.3072 JSON response (snipped): {"prev_str":"..} The following failed in that it returned full HTML content in spite of sending the correct revue headers • Request URL:http://humanesettlements.punkish.org/?tags=old_people+implementation • Request Method:GET • Status Code: 200 OK • Request Headersview source • Accept:application/json, text/javascript, */*; q=0.01 • Referer:http://humanesettlements.punkish.org/?tags=old_people • User-Agent:Mozilla/5.0 (Macintosh; Intel Mac OS X 10_7_1) AppleWebKit/534.48.3 (KHTML, like Gecko) Version/5.1 Safari/534.48.3 • X-Requested-With:XMLHttpRequest • Query String Parametersview URL encoded • tags:old_people implementation • Response Headersview source • Connection:Keep-Alive • Content-Length:21176 • Content-Type:text/xml; charset=utf-8 • Date:Wed, 12 Oct 2011 00:42:37 GMT • Keep-Alive:timeout=5, max=100 • Server:Perl Dancer 1.3072 • X-Powered-By:Perl Dancer 1.3072 HTML response (snipped): <!doctype html>

5 8