Well... looks like I'm going to answer my own question after thinking about how as a CGI app, the vars are completely fresh with each call... so I'll play with setting a "session variable" and then not look back at this example... :-) Thank you anyway! Prairie Nyx On Sat, May 30, 2015 at 11:10 PM, Prairie Nyx <prairienyx@gmail.com> wrote:

Here is the entire source for the "almost working" dancr.pl tutorial demo, implemented as an application under Windows/Apache:

[*.../htdocs/dancr/lib/dancr.pm <http://dancr.pm>*] Note - Changes from "dancer.pl" in yellow...

-----------------------------------------------------------------------------

package dancr;

use strict; use warnings;

use Dancer2; use DBI; use File::Spec; use File::Slurp; use Template;

our $VERSION = '0.1';

# set 'database' => File::Spec->catfile(File::Spec->tmpdir(), 'dancr.db'); # Set the database to live under the application directory... set 'database' => 'C:\Apache24\htdocs\dancr\dancr.db'; #set 'session' => 'Simple'; set 'session' => 'YAML'; set 'template' => 'template_toolkit'; set 'logger' => 'console'; set 'log' => 'debug'; set 'show_errors' => 1; set 'startup_info' => 1; set 'warnings' => 1; set 'username' => 'admin'; set 'password' => 'password'; set 'layout' => 'main';

my $flash;

sub set_flash { my $message = shift;

$flash = $message; }

sub get_flash { my $message = $flash; $flash = '';

return $message; }

sub connect_db { my $dbh = DBI->connect("dbi:SQLite:dbname=".setting('database')) or die $DBI::errstr;

return $dbh; }

sub init_db { my $db = connect_db(); my $schema = read_file('./schema.sql'); $db->do($schema) or die $db->errstr; }

hook before_template => sub { my $tokens = shift;

# $tokens->{'css_url'} = request->base . 'css/dancr.css'; $tokens->{'css_url'} = request->base . '/css/dancr.css'; $tokens->{'login_url'} = uri_for('/login'); $tokens->{'logout_url'} = uri_for('/logout'); $flash=''; };

get '/' => sub { my $db = connect_db(); my $sql = 'select id, title, text from entries order by id desc'; my $sth = $db->prepare($sql) or die $db->errstr; $sth->execute or die $sth->errstr;

template 'show_entries.tt', { 'msg' => get_flash, 'add_entry_url' => uri_for('/add'), 'entries' => $sth->fetchall_hashref('id'), };

};

post '/add' => sub { if ( not session('logged_in') ) { send_error("Not logged in", 401); }

my $db = connect_db(); my $sql = 'insert into entries (title, text) values (?, ?)'; my $sth = $db->prepare($sql) or die $db->errstr; $sth->execute(params->{'title'}, params->{'text'}) or die $sth->errstr;

set_flash('New entry posted!'); redirect '/'; };

any ['get', 'post'] => '/login' => sub { my $err; my $session = session;

if ( request->method() eq "POST" ) { # process form input if ( params->{'username'} ne setting('username') ) { $err = "Invalid username"; } elsif ( params->{'password'} ne setting('password') ) { $err = "Invalid password"; } else { session 'logged_in' => true; set_flash('You are logged in.'); return redirect '/'; } }

# display login form template 'login.tt', { 'err' => $err, };

};

get '/logout' => sub { app->destroy_session; set_flash('You are logged out.'); redirect '/'; };

init_db(); start;

true;

-----------------------------------------------------------------------------

[*http.conf*]

<Directory "C:/Apache24/htdocs/dancr"> AllowOverride None Options +ExecCGI -MultiViews +SymLinksIfOwnerMatch Order allow,deny Allow from all AddHandler cgi-script .cgi </Directory>

ScriptAlias /dancr "C:/Apache24/htdocs/dancr/public/dispatch.cgi"

It all seems to boil down to the "*my $flash;*" global variable that never gets set correctly in "sub set_flash" (or read in get_flash)... I think it must be something about variable scope since the global and the subs are not part of a route in the context of the app...

--------------------------------- my $flash;

sub set_flash { my $message = shift;

$flash = $message; } ---------------------------------

Thank you for any input about this... I'm sure it's something obvious that I'm missing... but I'm hoping I can be enlightened...

Prairie Nyx

On Sat, May 30, 2015 at 10:47 PM, Prairie Nyx <prairienyx@gmail.com> wrote:

...

Perl Dancer Community:

I am converting from Dancer to Dancer2 (better late than never) and also developing some preliminary curriculum materials for CoderDojo using Perl Dancer2 as a framework for web development.

I started with SawyerX's tutorial page:

http://search.cpan.org/~xsawyerx/Dancer2/lib/Dancer2/Tutorial.pod

The "dancr.pl" tutorial program ran just fine under the port 3000 server and the tutorial was useful and instructive:

C:\Users\CoderDojo\Perl\Dancer\dancr>perl dancr.pl

...

...

Dancer2 v0.160001 server 2496 listening on http://0.0.0.0:3000

I ran into an issue when I tried to convert this demo into an app that would run under Apache in a Windows environment, however.

The *crux* of the issue is that the "$flash message" does not work in the app (I suspect because the global variable $flash and the two subroutines are not part of a route, but I could *really* use an explanation, if this issue is obvious to someone:

I created the app as normal:

C:\Apache24\htdocs>*dancer2 -a dancr* + dancr + dancr\config.yml + dancr\cpanfile + dancr\Makefile.PL + dancr\MANIFEST.SKIP + dancr\bin + dancr\bin\app.psgi + dancr\environments + dancr\environments\development.yml + dancr\environments\production.yml + dancr\lib + dancr\lib\dancr.pm + dancr\public + dancr\public\dispatch.cgi + dancr\public\dispatch.fcgi + dancr\public\404.html + dancr\public\500.html + dancr\public\favicon.ico + dancr\public\css + dancr\public\css\error.css + dancr\public\css\style.css + dancr\public\images + dancr\public\images\perldancer-bg.jpg + dancr\public\images\perldancer.jpg + dancr\public\javascripts + dancr\public\javascripts\jquery.js + dancr\t + dancr\t\001_base.t + dancr\t\002_index_route.t + dancr\views + dancr\views\index.tt + dancr\views\layouts + dancr\views\layouts\main.tt

With the resulting app files, I added the code from the original " dancr.pl" demo to the applications "dancr.pm" module:

package dancr; use Dancer2;

our $VERSION = '0.1';

get '/' => sub { template 'index'; };

true;

I had to make the following adjustments to the code for Windows/Apache:

(1) Change the session to YAML

#set 'session' => 'Simple'; set 'session' => 'YAML';

(2) Adjust the path for request->base:

# $tokens->{'css_url'} = request->base . 'css/dancr.css'; $tokens->{'css_url'} = request->base . '/css/dancr.css';

Everything with the app works as expected *except* for the "$flash message" code:

my $flash;

sub set_flash($message) { my $message = shift;

$flash = $message; }

sub get_flash { my $message = $flash; $flash = '';

return $message; }

I suspect that since these subs are outside a route, perhaps I'm getting an effect about the scope of the variables... but calls to these subroutines do *not* set $flash or $message as expected:

template 'show_entries.tt', { 'msg' => get_flash,

set_flash('New entry posted!');

set_flash('You are logged in.');

set_flash('You are logged out.');

For each of these, the $flash variable (which is a free-standing global in the module) is never set... and so the get_flash sub never returns a value.

-- Prairie Nyx prairienyx@gmail.com

-- Prairie Nyx prairienyx@gmail.com

-- Prairie Nyx prairienyx@gmail.com