Bailador For Beginners

Lance Wicks

lancew@cpan.org

Welcome

Hi !

This is a workshop for beginners, no advanced content here.

We will go from zero to full site up, running and ready for users.

Overview:

• Development Environment
• Getting started
• Static Content
• Initial Routes
• User Registration
• Login
• Sessions
• Databases
• Routes

Git Repo

All steps including a virtual box appliance with all pre-requisites:

3 x USB Sticks are available

Windows

You might want to try installing Perl6 with chocolatey

choco install rakudostar

zef install Bailador

Linux

apt get rakudo

packer -S rakudo

From your distro

Install Modules

• zef install Bailador
  
  
• zef install DBIish
• zef install Crypt::Bcrypt

Hello world

Lets get something working!

hello_london.pl6

use v6;
use Bailador;

get '/' => sub {
    "hello london"
}

baile();

c63e1081b71706244fe8a594d060402f22ae49d6

hello_london.pl6

$ bailador watch hello_london.pl6

or

$ perl6 hello_london.pl6

LPW2017 App

$ bailador new lpw2017

08153d854eedbe8f881077fbad05070e739ea153

Directories

/bin/app.pl6

/views

/t

Template Variables

<%= $foo %>

LPW2017 App

Lets make it look a bit prettier and serve some static content:

/static

/static/favicon.ico

/static/css

/static/js

   
static-dir / (.+) / => 'static/';

03b74e0101f74986e7d3961929b0f6a3fe4c7993

LPW2017 App

Start using a layout

/layout

/layout/main.tt

Simpler template

81ea6f5976fb7b3618736c485609c99230540a09

LPW2017 App

Create a login route

+post '/login' => sub {
+    my %params = request.params;
+    if (
+        %params<email> eq 'lancew@cpan.org'
+        && %params<password> eq 'london'
+    ) {
+        return 'Logged in';
+    } else {
+        return 'not logged in';
+    }
+};

46f960bd6ed4a0cdda2d165281c361445ba460b2

LPW2017 App

Sessions

kludge to show login or logout depending on session.

Perl6 in templates:

+% use Bailador;
+% my $session = session;
+        % if ( $session<user_email>:exists ) {

dbf1a07368b5bb06b1e6f3a5093fb33026978c34

LPW2017 App

/register route

+    my $dbh = DBIish.connect("SQLite", :database<db/lpw2017.db>);
+
+    my $sth = $dbh.prepare(q:to/STATEMENT/);
+        INSERT INTO users
+            (username,password_hash)
+            VALUES (?,?)
+        STATEMENT
+
+    my $hash = bcrypt-hash(%params<password>);
+    $sth.execute(%params<email>,$hash);

401359f9c7da2ac5232834a8ebbdd41a11651fa4

LPW2017 App

Database a bcrypt based login

+           if ( bcrypt-match(%params<password>, $hash) ) {
+               $password_is_correct = True;
+           }

dfedd783db1e8ca4d347cf384a86ba1c9adc2f3b