PERSONLINK

学校JPを閉鎖しました から半年、
PerlフレームワークCatalystを用いて復活させます！！

———————————–
$ catalyst.pl App
$ App/script/app_create.pl view TT TT
$ App/script/app_create.pl model DBIC DBIC::Schema Blog::Schema create=static dbi:mysql:schooljp 【username】 【password】
———————————–

cf. CatalystにおけるScaffoldコマンド！

———————————–
$ vi App/lib/App.pm
———————————–

use Catalyst qw/
        Unicode
        ConfigLoader
        Static::Simple
        Charsets::Japanese
        Session
        Session::Store::FastMmap
        Session::State::Cookie
        FormValidator::Simple
        Email
/;

__PACKAGE__->config(
        name => 'App',
        email => ['Sendmail'],
        validator => {
                plugins => ['Japanese'],
                options => {charset => 'utf8'},
        },
);

———————————–
$ vi App/lib/App/View/TT.pm
———————————–

__PACKAGE__->config(
    TEMPLATE_EXTENSION => '.tpl',
    ENCODING => 'utf-8',
    render_die => 1,
);

———————————–
$ vi App/lib/App/Model/DBIC.pm
———————————–

__PACKAGE__->config(
    schema_class => 'App::Schema',

    connect_info => {
        dsn => 'dbi:mysql:schooldb',
        user => '*************',
        password => '*************',
        AutoCommit => q{1},
        mysql_enable_utf8 => 1,
        on_connect_do => ["SET NAMES utf8"],
   }
);

———————————–
$ vi App/lib/App/Controller/Root.pm
———————————–

sub category :Regex('^category/(\d{1,})$') {...}
sub detail :Regex('^category/(\d{1,})/prefecture/(\d{1,})/detail/(\d{1,})\.html$') {...}
.....

———————————–
$ sudo vi /etc/apache2/sites-available/gakko
———————————–

cf. Apache x mod_perl x Catalyst(Ubuntu10.04)