Web Фреймворк по-японски — Amon2

INTRO

В интервью японца Tokuhiro Matsuno прозвучала следующая фраза:

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

Я не нашел на русском языке никакой инфы об этом веб фреймворке. И решил попробовать, что это за Amon2, чисто для себя, и, может быть, кому-то это будет интересно.

Установка.

Под руку попалась виртуалка с Debian GNU/Linux 7.3 (wheezy)
Поехали…

# 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
• uses Xslate templating

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

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  -------------------------------------------------------------- 

Вроде все ок, но не хватает carton и рекомендуется ввести еще несколько команд.
Ставим его

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 

Файл 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

Устанавливаем 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 

Добавляем конфиг в nginx

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. В целом оставил приятное впечатление.