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

dancer2's prototype is there, feedback needed
by sukria 05 Oct '12

05 Oct '12

Hi there, I am very glad and proud to announce here that I've came up with a prototype of dancer2 that pleases me enough to be advertised. -*- https://github.com/sukria/dancer2 -*- dancer2 is a complete rewrite of Dancer aiming at providing the same awesomeness with the following major changes: - no more globals in the core - 100% object-oriented backend (based on Moo) - better scoping for sub-applications - better design (no more encapsulation violations, Law of Demeter, ...) The prototype I've pushed to GitHub currently covers ~80% of the DSL of Dancer. It's able to run simple applications (it can run the PerlDancer.org website for instance). Of course, with your real-life applications, it will break in many places in this current shape, and this is where you can help. I'd like to have as many reports as possible regarding upgrades tests. You can test very easily your app with dancer2: $ git clone http://github.com/sukria/dancer2.git $ cd YOUR_APP $ perl -I../dancer2/lib bin/app.pl Also, important to know: most of the plugins may not be working well. Thanks a lot ;)

14 29

Session lookup and takeover
by Stefan Hornburg (Racke) 26 Jul '12

26 Jul '12

Hello, fellow Dancers! I'm working on a XML-RPC API similar to Magento's for my Perl based cart Nitesi. The first request to the API is a login, which is checked by my account management. The user id, email and other account information is saved to the session and the session id is returned by the API response. On subsequent requests the session id is provided as token so the API backend knows that the request is authenticated. So how can I retrieve a session by session id and use it as current session? Any kind of feedback would be helpful :-). Regards Racke -- LinuXia Systems => http://www.linuxia.de/ Expert Interchange Consulting and System Administration ICDEVGROUP => http://www.icdevgroup.org/ Interchange Development Team

2 2

sane error messages
by Mr. Puneet Kishor 25 Jun '12

25 Jun '12

When Dancer came out, I exclaimed that "Dancer is a breath of fresh air in the convoluted world of Perl web frameworks." (see http://perldancer.org/) However, there is still much to be done. Consider the error message below. What it really was trying to tell me what that I had a couple of tabs in my "development.yml" Could the error messages be made more sane by default? Many thanks for the consideration. ---- Error while loading /Volumes/roller/Users/punkish/Sites_development/earthbase/bin/app.pl: Unable to parse the configuration file: /Volumes/roller/Users/punkish/Sites_development/earthbase/environments/development.yml: Died at /opt/local/lib/perl5/site_perl/5.14.1/YAML/Loader.pm line 676, <$IN> line 1. at /opt/local/lib/perl5/site_perl/5.14.1/Dancer/Config.pm line 202 Dancer::Config::load_settings_from_yaml('/Volumes/roller/Users/punkish/Sites_development/earthbase/env...') called at /opt/local/lib/perl5/site_perl/5.14.1/Dancer/Config.pm line 182 Dancer::Config::load('Dancer::Config') called at /opt/local/lib/perl5/site_perl/5.14.1/Dancer.pm line 258 Dancer::import('Dancer') called at /Volumes/roller/Users/punkish/Sites_development/earthbase/bin/app.pl line 2 Plack::Sandbox::_2fVolumes_2froller_2fUsers_2fpunkish_2fSites_development_2fearthbase_2fbin_2fapp_2epl::BEGIN() called at /Volumes/roller/Users/punkish/Sites_development/earthbase/bin/app.pl line 2 eval {...} called at /Volumes/roller/Users/punkish/Sites_development/earthbase/bin/app.pl line 2 require /Volumes/roller/Users/punkish/Sites_development/earthbase/bin/app.pl called at (eval 7) line 3 eval 'package Plack::Sandbox::_2fVolumes_2froller_2fUsers_2fpunkish_2fSites_development_2fearthbase_2fbin_2fapp_2epl; { my $app = do $_file; if ( !$app && ( my $error = $@ || $! )) { die $error; } $app; } ;' called at /opt/local/lib/perl5/site_perl/5.14.1/Plack/Util.pm line 118 Plack::Util::_load_sandbox('/Volumes/roller/Users/punkish/Sites_development/earthbase/bin...') called at /opt/local/lib/perl5/site_perl/5.14.1/Plack/Util.pm line 155 Plack::Util::load_psgi('/Volumes/roller/Users/punkish/Sites_development/earthbase/bin...') called at /opt/local/lib/perl5/site_perl/5.14.1/Plack/Runner.pm line 176 Plack::Runner::__ANON__() called at /opt/local/lib/perl5/site_perl/5.14.1/Plack/Runner.pm line 23 Plack::Runner::__ANON__() called at /opt/local/lib/perl5/site_perl/5.14.1/Plack/Runner.pm line 23 Plack::Runner::__ANON__() called at /opt/local/lib/perl5/site_perl/5.14.1/Plack/Runner.pm line 23 Plack::Runner::__ANON__() called at /opt/local/lib/perl5/site_perl/5.14.1/Plack/Runner.pm line 23 Plack::Runner::__ANON__() called at /opt/local/lib/perl5/site_perl/5.14.1/Plack/Loader.pm line 59 Plack::Loader::preload_app('Plack::Loader=HASH(0x7fbf320651e0)', 'CODE(0x7fbf3206a000)') called at /opt/local/lib/perl5/site_perl/5.14.1/Plack/Runner.pm line 260 Plack::Runner::run('Plack::Runner=HASH(0x7fbf32010dd8)') called at /opt/local/bin/plackup line 10 BEGIN failed--compilation aborted at /Volumes/roller/Users/punkish/Sites_development/earthbase/bin/app.pl line 2. ---- -- Puneet Kishor http://punkish.org science http://earth-base.org

4 9

Dancer logging stringifies some data
by Ovid 23 Jun '12

23 Jun '12

Hi all, I don't have the time to fix this right now, but we had a very interesting issue. I had this line in my code: info "Bidding on auction $id", $bid; That turned out to be a massive bug! $bid is a hashref that gets serialized to JSON. Unfortunately, the act of printing out the data flipped one value from an NV (float) to a PV (string). That caused the JSON serializer render 1.2 as "1.2". Sadly, the system I was sending this data to reported a bizarre "Request throttled" error instead of a JSON validation error. The simple fix was to drop the $bid from the info() and add a test to ensure that I have a NV instead of a PV. If anyone wants to look into this, that would be great. Perhaps adding optional cloning of the data in the logger prior to printing it out? (Optional because it might be expensive) Cheers, Ovid -- Live and work overseas - http://www.overseas-exile.com/ Buy the book - http://www.oreilly.com/catalog/perlhks/ Tech blog - http://blogs.perl.org/users/ovid/ Twitter - http://twitter.com/OvidPerl/

4 8

Re: [Dancer-users] Website in Dancer
by igor.bujna＠post.cz 13 Jun '12

13 Jun '12

Oki, there is code from this page http://www.maxi-tip.cz : views/layouts/main.tt -------------------------------------------------------------------- [% SET langs = { cs = "Čeština" vi = "tiếng Việt" } %] <li id="languages" class="pull-right"><a href="#"><span class="selected-language">  <img src="img/icons/flag_[% session.item('language') %].png" alt="[% session.item('language') %] " /> </span></a> <div> <ul> [% SET pos=0; FOREACH j IN installed_languages.keys. sort %] [% IF langs.item(j) %] <li [% pos == 0 ? 'class="first"' : "" %]><a href="[% uri_for('index') %]?lang=[% j %]" alt="[% j %]"><img alt="[ % j %]" src="img/icons/flag_[% j %].png" />   [% langs.item(j) ? langs.item(j) : j %]</a></li> [% END %] [% SET pos=pos+1; END %] </ul> </div> </li> -------------------------------------------------------------------- There is everything. I use my plugin http://search.cpan.org/~ koceasy/Dancer-Plugin-I18N-0.40/lib/Dancer/Plugin/I18N.pm which make everything. In hash 'SET langs = []' where keyname must be setted as LANG name from this http://cpansearch.perl.org/src/GUIDO/libintl-perl-1.20/ lib/Locale/Util.pm for me is 'cs' for Czech and 'vi' from Vietnamese When you put in any page param such 'lang=vi', plugin automatically switched to this new language if existed translation file for this language. In my Dancer directory must created directory I18N where for me is translated files such as "cs.mo,vi.mo" Next, I make make_i18n.sh script which read every template files or modules and add new text for localization to po files which is archived in directory "I18N/pot/". Must be run form main dancer directory. Now you can open actually 'po' files such as I18N/pot/cs.po and make translation to this and rerun make_i18n.sh repeatably to make translation files "I18N/cs.mo" For translation you must use ASCII letters. In template files I use l() function for this, but you can defined own functions for this via options: plugins: I18N: func: "N_" For using xgettext.pl I must use localize() function in *.pm modules for translation. There is simply and translation which I use has 2 way: 1) translation via function in template such as this code [% l('Sazkova kancelar') %] can change text in l() function to given language or in module is same but for gettext.pl I used 'localize' function such as this code: return localize('Sazkova kancelar') 2) translation big of text blocks in template or module via function language_tag() such as: [% IF language_tag('vi') %] ....some big text in vietnamese.. [% ELSIF language_tag('cs') %] ....some big text in Czech.. [% ELSE %] ..... some big text in native language.... [% END %] make fun and dance Igor This is make_I18N.sh skript ---------------------------------------------------------------------------- #!/bin/bash # Print available locales via : `locale -a` LANGS="cs vi en de" #NOW=$(date +"%Y-%m-%d.%H:%M:%S") NOW=$(date +"%s") DIR="I18N/pot" if [ ! -d $DIR ];then echo "Not existed $DIR" elif [ $# -eq 0 ];then echo "Must put locale names such as parameter (cs,en) " fi rm -f $DIR/*.mo if [ "$1" = "1" ];then for i in $LANGS;do [ -f $DIR/$i.po ] && msgfmt --output-file=I18N/$i.mo $DIR/$i.po done exit fi POT=$DIR/$NOW.pot xgettext.pl -P Locale::Maketext::Extract::Plugin::TT2 -P Locale::Maketext::Extract::Plugin::Perl -w --output=$POT --directory=views/ --directory=lib/ -v for i in $LANGS;do f=$DIR/${i}_$NOW.pot msginit --no-translator --input=$POT --output=$f --locale=$i.utf8 #msgfmt $VERB -o /dev/null -c --statistics $f if [ -f $DIR/$i.po ];then mv $DIR/$i.po $DIR/$i-$NOW.bck msgmerge $VERB -o $DIR/$i.po $DIR/$i-$NOW.bck $f else cp -p $f $DIR/$i.po fi msgfmt --output-file=I18N/$i.mo $DIR/$i.po done # Remove obsolete translations: #for i in *.po; do msgattrib -o $i.no-o --no-obsolete $i && mv $i.no-o $i; done ------------ Původní zpráva ------------ Od: Alex <800(a)ru07.com> Předmět: Re: [Dancer-users] Website in Dancer Datum: 12.6.2012 13:10:30 --------------------------------------------- Good site! Please, can you show the example of the code in perl dancer where the switch between the Czech and vietnamese languages is realized? Soon I will have to work on a multi-language project, so I want to understand what is the best way to make it. > Hi, > I wrote this website http://www.maxi-tip.cz/ (http://www.maxi-tip.cz/) in Dancer, that use > this Plugins(Database, Email, my localization Plugin-I18N). > For now is localized in Czech or vietnamese. > All of code has about 2.000 lines + code in templates. > This website is 2x fasten when old website writen in PHP. > Bye Igor Bujna > _______________________________________________ > Dancer-users mailing list > Dancer-users@perldancer.org(mailto:Dancer-users@perldancer.org) > http://www.backup-manager.org/cgi-bin/listinfo/dancer-users (http://www.backup-manager.org/cgi-bin/listinfo/dancer-users)

1 0

app does not reconnect to database after a while
by WK 12 Jun '12

12 Jun '12

Tere! I have a little intranet app (in development environment with Dancer's webserver), which fails to connect to database, when it is unused some hours. When on morning first user tries to get some page, he gets "before filter error": runtime error An error occured while executing the filter named before: DBD::mysql::db selectrow_array failed: MySQL server has gone away at /usr/local/lib/site_perl/My/Settings.pm line 136. Pointed line contains a query, which executes fine, when database connection is available (read: after restarting app). My app's main module logic is like this: package My; use 5.010; use Dancer ':syntax'; use Dancer::Plugin::Database; use Dancer::Plugin::EscapeHTML; use utf8::all; use My::Settings; use My::Tools; our ($my_settings, $dbh) = (); $dbh ||= database; $my_settings = get_settings('prod'); my $my_tools = My::Tools->new ( dbh => database, settings => $my_settings, ); hook 'before' => sub { $my_settings = get_settings('prod'); }; sub get_settings { my $env = shift; my $my_settings = My::Settings->new ( dbh => $dbh, env => $env, ); return $my_settings->{settings}; } In before hook i ask dynamic settings from database. Is there better way to do this. Or other solutions? TIA! -- Wbr, Kõike hääd, Gunnar

2 3

Website in Dancer
by igor.bujna＠post.cz 11 Jun '12

11 Jun '12

Hi, I wrote this website http://www.maxi-tip.cz/ in Dancer, that use this Plugins(Database, Email, my localization Plugin-I18N). For now is localized in Czech or vietnamese. All of code has about 2.000 lines + code in templates. This website is 2x fasten when old website writen in PHP. Bye Igor Bujna

2 1

Question about Dancer::Plugin::ValidateTiny
by Forgoselo Fontardion 06 Jun '12

06 Jun '12

Dear dancers, I'm building a web application and need to use some forms. I'm using Dancer::Plugin::ValidateTiny to validate de parameters that the web browser send in every request. It's very easy to use, but I have found a limitation and doesn't know how to overcome it. The form i'm working now is for creating a new user, so it has four fields: username password1 password2 email. I'm doing the usual checking, but i can't find the way to implement the folloging rule: "username" and "password1" can't be equal. Is there a way to do this? Thank you, Fontardion

2 3

redirect path is wrong
by Mr. Puneet Kishor 05 Jun '12

05 Jun '12

I have a URI http://server/app/d/geomaps/resource.json I have changed it to http://server/app/d/geomaps/gmna/resource.json In my code, I have put the following get '/resource.:format' { return redirect '/gmna/resource.:format'; }; get '/gmna/resource.:format' => { .. }; But the above fails. One, the redirect doesn't seem to recognize and carry the .:format through (if I call resource.json, the program complains that '/gmna/resource.:format' wasn't found). Second, it doesn't prefix the /app/d/geomaps part to the redirected URI. How can I fix this? -- Puneet Kishor

4 5

Re: [Dancer-users] Subdirectory support?
by Assaf Gordon 05 Jun '12

05 Jun '12

Hi, Mariusz Wojcik wrote, On 06/05/2012 12:51 PM: > Hey all, Does anyone know how to get Dancer in a subdirectory of an > apache webserver with fastcgi? Because Dancer always says the page > isn't found. However it works when I install Dancer on the Document > Root. See some examples here: https://github.com/agordon/Dancer/blob/topic/deployment_pod/lib/Dancer/Depl… Scroll all the way down to "Multiple Dancer Applications on same VirtualHost" -gordon

1 0