INTRO

«Некоторыми приложениями нашей компании пользуются более миллиона человек. Все это работает на Amon2.»

Установка.

# curl -L http://cpanmin.us | perl - Amon2
................
Building and testing Amon2-6.00 ... OK
Successfully installed Amon2-6.00
78 distributions installed
 Successfully installed Amon2-6.00

• Built on PSGI/Plack
• no XS deps.
• Thin
• Easy to learn
• CLI support
• Stable
• Secure options by default
• Темплейты Xslate

Создание каркаса

adduser dotcloud
su - dotcloud
amon2-setup.pl BBS

Setup script was done! You are ready to run the skelton.

You need to install the dependencies by:

    > carton install

And then, run your application server:

    > carton exec perl -Ilib script/bbs-server

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

cpan Carton  # От рута
carton install #  Надо делать в папке BBS! Не от рута!

builder  Build.PL  config  cpanfile  cpanfile.snapshot  db  lib  local  minil.toml  script  sql  static  t  tmpl  xt

Создание веб приложения

cd db
vim sqlite.sql

CREATE TABLE IF NOT EXISTS member (
    id           INTEGER NOT NULL PRIMARY KEY,
    name         VARCHAR(255)
);

CREATE TABLE IF NOT EXISTS sessions (
    id           CHAR(72) PRIMARY KEY,
    session_data TEXT
);

CREATE TABLE IF NOT EXISTS entry (
    entry_id INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT,
    body varchar(255) not null
);

sqlite3 development.db < sqlite.sql  

cd config/
vim  development.pl

use File::Spec;
use File::Basename qw(dirname);
my $basedir = File::Spec->rel2abs(File::Spec->catdir(dirname(__FILE__), '..'));
my $dbpath = File::Spec->catfile($basedir, 'db', 'development.db');
+{
    'DBI' => [
        "dbi:SQLite:dbname=$dbpath", '', '',
        +{
            sqlite_unicode => 1,
        }
    ],
};

 perl -Ilib script/bbs-server
Can't locate Teng/Schema/Declare.pm in @INC (you may need to install the Teng::Schema::Declare module) (@INC contains: script/../lib lib /etc/perl /usr/local/lib/perl/5.18.1 /usr/local/share/perl/5.18.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.18 /usr/share/perl/5.18 /usr/local/lib/site_perl .) at script/../lib/BBS/DB/Schema.pm line 6.
BEGIN failed--compilation aborted at script/../lib/BBS/DB/Schema.pm line 6.
Compilation failed in require at script/../lib/BBS.pm line 7.
BEGIN failed--compilation aborted at script/../lib/BBS.pm line 7.
Compilation failed in require at /usr/share/perl/5.18/parent.pm line 20.
BEGIN failed--compilation aborted at script/../lib/BBS/Web.pm line 5.
Compilation failed in require at script/bbs-server line 9.
BEGIN failed--compilation aborted at script/bbs-server line 9.

cpan Teng::Schema::Declare
cpan Module::Functions
cpan Plack::Middleware::ReverseProxy
cpan Plack::Handler::Starlet

dotcloud@debian:~/BBS$ perl -Ilib script/bbs-server
BBS: http://127.0.0.1:5000/

vim lib/BBS/DB/Schema.pm

package BBS::DB::Schema;
use strict;
use warnings;
use utf8;

use Teng::Schema::Declare;

base_row_class 'BBS::DB::Row';

table {
    name 'sessions';
    pk 'id';
    columns qw(session_data);
};

table {
    name 'entry';
    pk 'entry_id';
    columns qw(entry_id body);
};

1;

vim lib/BBS/Web/Dispatcher.pm

package BBS::Web::Dispatcher;
use strict;
use warnings;

use Amon2::Web::Dispatcher::Lite;

any '/' => sub {
    my ($c) = @_;

    my @entries = $c->db->search(
        entry => {
        }, {
            order_by => 'entry_id DESC',
            limit    => 10,
        }
    );
    return $c->render( "index.tx" => { entries => \@entries, } );
};  

post '/post' => sub {
    my ($c) = @_;

    if (my $body = $c->req->param('body')) {
        $c->db->insert(
            entry => +{
                body => $body,
            }
        );
    }
    return $c->redirect('/');
};

1;

vim tmpl/index.tx

: cascade "include/layout.tx"

: override content -> {

<form method="post" action="<: uri_for('/post') :>">
    <input type="text" name="body" />
    <input type="submit" value="Send" />
</form>

<ul>
    <: for $entries -> $entry { :>
    <li><: $entry.entry_id :>. <: $entry.body :></li>
    <: } :>
</ul>

: }

perl -Ilib script/bbs-server

cpan Router::Simple
cpan Router::Simple::Sinatraish 
cpan DBD::SQLite

Устанавливаем nginx в качестве фронтэнда

Сначала делаем init файл, и чтобы запускался не от рута

vim /etc/init.d/plackup 

#!/bin/sh

PORT=5000
WORKERS=4
AMON_DIR="/home/dotcloud/BBS"
AMON_APP="$AMON_DIR/script/bbs-server"
AMON_USER="dotcloud"
AMON_MODE="development"
website="cc_Website"
plackup="/usr/local/bin/plackup "
PID=$AMON_DIR/logs/plackup.$website.pid
plackup_args="-E $AMON_MODE -p $PORT -s Starman --pid=$PID --workers $WORKERS -D"

U=`id -un`
if [ $U = root ]; then
       WRPERM=`find $AMON_DIR/ ! -user $AMON_USER | wc -l`
       if [ "$WRPERM" != 0 ]; then
               echo Fixing file ownership on $AMON_DIR
               chown -R $AMON_USER.nginx $AMON_DIR
       fi
       cd /
       su $AMON_USER -s /bin/sh  $0 "$@"
       exit
elif [ $U != $AMON_USER ]; then
       echo "Should be run under $AMON_USER or root"
       exit 1
fi


lockfile=$AMON_DIR/logs/plackup.$website

start() {
    [ -x $plackup ] || exit 5
    [ -f $AMON_APP ] || exit 6
    echo -n $"Starting $website: "
    $plackup $plackup_args -a $AMON_APP 2>&1 > /dev/null
    retval=$?
    if [ $retval -eq 0 ]; then
        echo OK
        touch $lockfile
    else
        failure $"Unable to start"
    fi
    echo
    return $retval
}

stop() {
    echo -n $"Stopping $website: OK"
    if [ -f $PID ]; then
        kill `cat $PID` > /dev/null
        retval=$?
        [ $retval -eq 0 ] && rm -f $lockfile
        echo
        return $retval
    fi
    failure $"pid $PID not found"
    echo
    return 1
}

restart() {
    stop
    start
}

case "$1" in
    start)
        $1
        ;;
    stop)
        $1
        ;;
    restart)
        $1
        ;;
    *)
        echo $"Usage: $0 {start|stop|restart}"
        exit 2
esac

vim /etc/nginx/conf.d/virtual.conf

upstream amon {
        server 127.0.0.1:5000;
}

server {
    listen          *:80; 
    
    location / {
                try_files /empty  @backend;
    }

  
    location @backend {
            proxy_set_header Host $http_host;
            proxy_set_header X-Forwarded-Host $host;
            proxy_set_header X-Real-IP $remote_addr;
            proxy_set_header X-Forwarded-For $proxy_add_x_forwarded_for;
            proxy_set_header X-Forwarded-Proto $scheme;
            proxy_pass http://amon;
    }


}

Заключение

1. Фреймворк и правда очень легковесный
2. Написан японцем, с их тщательностью и перфекционизмом. Это ощущается в коде.
3. Miyagawa, который написал plackup, с ним корешится, что называется, два сапога пара.
   Ведь используется и рекомендуется именно такая связка plackup + Amon2
4. Надеюсь, что фрейворк, который юзают «более миллиона человек» по заявлению автора, не будет брошен просто так, а будет развиваться дальше.
5. Фрейворк — относительно новый и современный, но уже есть громадное кол-во модулей на cpan
6. В целом оставил приятное впечатление.