A Perl 6 concurrent web application framework module
Switch branches/tags
Nothing to show
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
demo
lib
t
.gitignore
.travis.yml
LICENSE
README.md

README.md

Wap6

Build Status

A Perl 6 concurrent web application framework module

Features:

  • Public folder to host front-end structure (html, js, css and text based files).
  • Routes with the corresponding webservices using Perl6 Modules.
  • GET and POST HTTP methods.
  • 200, 400, 404, 413 and 500 HTTP status response codes.
  • Concurrent tranfers with IO::Socket::Async Class.
  • SSL support with IO::Socket::Async::SSL (See SSL Notes below)

Required Perl 6 modules:

  • URI
  • IO::Socket::Async::SSL (for SSL support)

Example:

(Go to demo folder for a full example)

use lib '../lib';
use Wap6;

use lib 'webservices';
use Webservices;

%*ENV{'RAKUDO_MAX_THREADS'} = 50;

my $server-ip = "0.0.0.0";
my $server-port = 3000;
my $default-html = "index.html";

my %webservices;
# key = route, value = ( corresponding sub of the Webservices module, content-type )
%webservices{'/ws1'}        = ( &ws1, 'html' );
%webservices{'/ws2'}        = ( &ws2, 'json' );
%webservices{'/ws-fileops'} = ( &ws-fileops, 'html' );

wap(:$server-ip, :$server-port, :$default-html, :%webservices);

How to use

  • Creates a folder to hold the web solution and within it...

  • Creates public and webservices folders.

  • Creates the main server Perl6 script like the example above, and name it: wap6.pl6 (for example).

  • In wap6.pl6:

    • Set the max number of threads in %*ENV{'RAKUDO_MAX_THREADS'}
    • Set $server-ip and $server-port variables like the example.
    • Set $default-html variable with the name of the default html file located in the /public folder.
    • Creates a hash ( %webservices in the example ). This hash will contain the webservices, one per hash item. Each item of this hash will contain the webservice route ( /ws1 in the example ) as the key. The corresponding value will contain a list of two values:
      • The reference to the corresponding subrutine ( &ws1 in the example ). Each subrutine reference must have its corresponding subrutine in the /webservices/Webservices.pm6 module.
      • The content type of the corresponding subroutine return. The content type can be any of those that are found as key in the hash of the /lib/ContentType.pm6 module.
  • Use the /public folder to host the front-end structure (html, js, css, etc.)

  • Use the /webservices/Webservices.pm6 module to write your webservices (a subrutine per webservice).

  • Run with: perl6 wap6.pl6

  • Run web-client in http://localhost:3000

  • Enjoy!

SSL Notes

For now only works on systems where openssl can be installed (like Linux).
In the demo folder, type:

openssl req -x509 -nodes -days 365 -newkey rsa:2048 -keyout server.key -out server.crt

to auto generate server.crt and server.key files.

Then:

  • Take a look at /demo/wap-ssl.pl6
  • Try running perl6 wap6-ssl.pl6
  • Run web-client in https://localhost:4433
  • Confirm SSL exception.
  • Enjoy encrypted transfers!