Shibuya Perl Mongersテクニカルトーク#10 福岡サテライト 行ってきた

通院と用事を済ませて途中参加。
以下自分めも

「"remedie" pluggable media center application 」 (miyagawa)
動画RSSリーダー（？）
ソースはGoogle Codeに有remedie

「"kamaitachi" perl flash media server 」 (typester)
perlによるFlash Media Serverの実装。
簡単に実装できそうな感じ。
サイトの鎌鼬ロゴかっこいい。

「ウェブサービスにおける SSD の使い方 」
全文検索用途にSSD。

「Acme::Acme::Don't 2.0 」(gfx)
良かった。Ｂはバックエンドだったのか！

「EBCDIC 2.0 Binary Hacks 」(takesako)
相変わらず発想がすばらしい。
しかし仕事以外でEBCDICにおめにかかるとは驚き。


・その他
Google CodeにほかにもPerlをベースにしたProjectがたくさんありそう。

・感想
Binaryから動画迄Shibuya.pmばりすげぇ
パブリックビューイング初体験！独りでみるより100倍良い。
会場提供して頂いた株式会社Fusic様。
尽力して下さった方々に感謝。

おわたら帰宅。腰痛し。

Perlのウェブアプリケーションフレームワーク

みんなちがって、みんないい。なのかな。

MENTA
NanoA
Yacafi

参考元
はてな#hide-k Perlの軽量ウェブアプリケーションフレームワーク最新事情

しかし・・・

Catalyst
Jifty
Sledge
TripletaiL

Boofy
CGI.pm
CGI::Application
Gantry
Mason
Maypole
MoFedge
Mojo
Soozy
:
:

Drinking Gameができそう？言いすぎ。
さて眠たくなるまでCatalyst-Manual読むか。

strawberryでCatalyst ～インスコ失敗リローデッド

Task::Catalystでインストール開始。
y/n選択はデフォルトっぽいカッコの中にしたがってひたすら回答
：
３時間後、うんともすんとも言わなくなる。

Perl on a Stick　の　strawberryだからダメなのか
5.10が問題か、そもそも可哀想なwinではダメなのか。

また後での宿題。

ActivePerl5.10でCatalyst(2) ～ 道の未だ入り口

前回ウェルカムメッセージを見る所迄。その続き。

７．作業フォルダの把握
treeで確認。
・lib:配下のアプリ名フォルダに作りこむ
・root：？多分あとででてくる。
・script：便利な”ヘルパースクリプト”の在り処
・t：テスト

D:\WRK\catalyst>tree
フォルダ パスの一覧
D:.
└─MyBBS
├─lib
│ └─MyBBS
│ ├─Controller
│ ├─Model
│ └─View
├─root
│ ├─lib
│ │ ├─config
│ │ └─site
│ ├─src
│ └─static
│ └─images
├─script
└─t

８．アプリケーションクラスの設定
・lib配下のMyBBS.pmを見る
・ここで予想されるモジュール追加→今回はどノーマルで進む。怒られる度に足していく。
・今の所これだけ。
use Catalyst qw/-Debug ConfigLoader Static::Simple/;
・-Debug　はフラグ
・ConfigLoader Static::Simpleはプラグイン
これはCatalyst::Plugin::ConfigLoaderとCatalyst::Plugin::Static::Simpleのこと
・ConfigLoaderでMyBBS.pmでは無いYAMLで記述。アプリ名dir直下のアプリ名YAMLが設定ファイル。
・PPMから、DBIx::Class, DBIx::Class::Schema::Loader を入れる。

９．ＵＲＩマッピングの設計

順にログイン、ログアウト、コメント入力、コメント一覧。
/login
/logout
/comment
/comment/list

・ＵＲＩがパスによる分岐（ディスパッチ）になる。ディスパッチの条件は環境変数PATH_INFO
・パスでどのクラスのどのメソッドを呼ぶか決まる
・Rootクラス＝ルートパスのメソッド

１０．コントローラークラスの作成
(1)まず名称決定。
Root.pm(既に在る)
Login.pm
Logout.pm
comment.pm
(2)作成
D:\WRK\catalyst\MyBBS\script>mybbs_create.pl controller Login
exists "D:\WRK\catalyst\MyBBS\lib\MyBBS\Controller"
exists "D:\WRK\catalyst\MyBBS\t"
created "D:\WRK\catalyst\MyBBS\lib\MyBBS\Controller\Login.pm"
created "D:\WRK\catalyst\MyBBS\t\controller_Login.t"

D:\WRK\catalyst\MyBBS\script>mybbs_create.pl controller Logout
exists "D:\WRK\catalyst\MyBBS\lib\MyBBS\Controller"
exists "D:\WRK\catalyst\MyBBS\t"
created "D:\WRK\catalyst\MyBBS\lib\MyBBS\Controller\Logout.pm"
created "D:\WRK\catalyst\MyBBS\t\controller_Logout.t"

D:\WRK\catalyst\MyBBS\script>mybbs_create.pl controller Comment
exists "D:\WRK\catalyst\MyBBS\lib\MyBBS\Controller"
exists "D:\WRK\catalyst\MyBBS\t"
created "D:\WRK\catalyst\MyBBS\lib\MyBBS\Controller\Comment.pm"
created "D:\WRK\catalyst\MyBBS\t\controller_Comment.t"

１１．テンプレートクラスを作成
(1)作成
D:\WRK\catalyst\MyBBS\script>mybbs_create.pl view TT TTSite
exists "D:\WRK\catalyst\MyBBS\lib\MyBBS\View"
exists "D:\WRK\catalyst\MyBBS\t"
Couldn't load helper "Catalyst::Helper::View::TTSite", "Can't locate Catalyst/He
lper/View/TTSite.pm in @INC (@INC contains: D:/Perl/site/lib D:/Perl/lib .) at (
eval 14) line 3.
" at D:\WRK\catalyst\MyBBS\script\mybbs_create.pl line 23

・怒られたので勘で"Catalyst-View-TT"をいれ再チャレンジ

D:\WRK\catalyst\MyBBS\script>mybbs_create.pl view TT TTSite
exists "D:\WRK\catalyst\MyBBS\lib\MyBBS\View"
exists "D:\WRK\catalyst\MyBBS\t"
created "D:\WRK\catalyst\MyBBS\lib\MyBBS\View\TT.pm"
created "D:\WRK\catalyst\MyBBS\root\lib"
created "D:\WRK\catalyst\MyBBS\root\src"
created "D:\WRK\catalyst\MyBBS\root\lib\config"
created "D:\WRK\catalyst\MyBBS\root\lib\config\main"
created "D:\WRK\catalyst\MyBBS\root\lib\config\col"
created "D:\WRK\catalyst\MyBBS\root\lib\config\url"
created "D:\WRK\catalyst\MyBBS\root\lib\site"
created "D:\WRK\catalyst\MyBBS\root\lib\site\wrapper"
created "D:\WRK\catalyst\MyBBS\root\lib\site\layout"
created "D:\WRK\catalyst\MyBBS\root\lib\site\html"
created "D:\WRK\catalyst\MyBBS\root\lib\site\header"
created "D:\WRK\catalyst\MyBBS\root\lib\site\footer"
created "D:\WRK\catalyst\MyBBS\root\src\welcome.tt2"
created "D:\WRK\catalyst\MyBBS\root\src\message.tt2"
created "D:\WRK\catalyst\MyBBS\root\src\error.tt2"
created "D:\WRK\catalyst\MyBBS\root\src\ttsite.css"


(2)TT.pm修正

TEMPLATE_EXTENTIONをTT.pmに追加


__PACKAGE__->config({
CATALYST_VAR => 'Catalyst',
INCLUDE_PATH => [
MyBBS->path_to( 'root', 'src' ),
MyBBS->path_to( 'root', 'lib' )
],
PRE_PROCESS => 'config/main',
WRAPPER => 'site/wrapper',
ERROR => 'error.tt2',
TIMER => 0
});

↓

_PACKAGE__->config({
CATALYST_VAR => 'Catalyst',
INCLUDE_PATH => [
MyBBS->path_to( 'root', 'src' ),
MyBBS->path_to( 'root', 'lib' )
],
PRE_PROCESS => 'config/main',
WRAPPER => 'site/wrapper',
ERROR => 'error.tt2',
TIMER => 0,
TEMPLATE_EXTENTION => '.tt2'
});

１２．この段階で起動してみる
D:\WRK\catalyst\MyBBS\script>mybbs_server.pl
Useless localization of subroutine entry at D:/Perl/site/lib/Catalyst/Action.pm
line 41.
[debug] Debug messages enabled
[debug] Statistics enabled
[debug] Loaded plugins:
.----------------------------------------------------------------------------.
| Catalyst::Plugin::ConfigLoader 0.19 |
| Catalyst::Plugin::Static::Simple 0.20 |
'----------------------------------------------------------------------------'

[debug] Loaded dispatcher "Catalyst::Dispatcher"
[debug] Loaded engine "Catalyst::Engine::HTTP"
[debug] Found home "D:\WRK\catalyst\MyBBS"
[debug] Loaded Config "D:\WRK\catalyst\MyBBS\mybbs.yml"
[debug] Loaded components:
.-----------------------------------------------------------------+----------.
| Class | Type |
+-----------------------------------------------------------------+----------+
| MyBBS::Controller::Comment | instance |
| MyBBS::Controller::Login | instance |
| MyBBS::Controller::Logout | instance |
| MyBBS::Controller::Root | instance |
| MyBBS::View::TT | instance |
'-----------------------------------------------------------------+----------'

[debug] Loaded Private actions:
.----------------------+--------------------------------------+--------------.
| Private | Class | Method |
+----------------------+--------------------------------------+--------------+
| /default | MyBBS::Controller::Root | default |
| /end | MyBBS::Controller::Root | end |
| /logout/index | MyBBS::Controller::Logout | index |
| /login/index | MyBBS::Controller::Login | index |
| /comment/index | MyBBS::Controller::Comment | index |
'----------------------+--------------------------------------+--------------'

[info] MyBBS powered by Catalyst 5.7012
You can connect to your server at http://your-fjscrdh72l:3000
[info] *** Request 1 (0.014/s) [3724] [Thu Oct 30 01:22:25 2008] ***
[debug] "GET" request for "/" from "127.0.0.1"
[info] Request took 0.028564s (35.009/s)
.----------------------------------------------------------------+-----------.
| Action | Time |
+----------------------------------------------------------------+-----------+
| /default | 0.001846s |
| /end | 0.003120s |
'----------------------------------------------------------------+-----------'

Terminating on signal SIGINT(2)

D:\WRK\catalyst\MyBBS\script>


・ctrl+cで強制終了。


#独り言
世間３連休。俺土日仕事。明日休みたい。
Fukuoka.pmと同期の息子。満１歳の誕生日。おめでとう。

strawberryでCatalyst ～インスコ失敗

Task::catalystではいらなかったっぽいのでメモ
これは後回し。


E:\strawberry\perl\bin>cpan -i Task::catalyst
CPAN: File::HomeDir loaded ok (v0.80)
Fetching with LWP:
http://cpan.strawberryperl.com/authors/01mailrc.txt.gz
Fetching with LWP:
http://cpan.strawberryperl.com/modules/02packages.details.txt.gz
Fetching with LWP:
http://cpan.strawberryperl.com/modules/03modlist.data.gz
Database was generated on Fri, 12 Sep 2008 15:51:10 GMT
Updating database file ...
Gathering information from index files ...
Obtaining current state of database ...
Populating database tables ...
Done!
Warning: Cannot install Task::catalyst, don't know what it is.
Try the command

i /Task::catalyst/

to find objects with matching identifiers.

ActivePerl5.10でCatalyst(1) ～開発サーバ起動迄

第12回定例勉強会で杉山さんに触発されActivePerlでCatalystできんか模索中。
環境：EeePCにのっけたActivePerl 5.10.0 Build 1004
目標：一行掲示板を作成する。

まずは開発サーバ起動迄。

１．5.10のリポジトリを追加
Perl Package Manager を起動ctl+pでRepositoriesタブから
適当な名前で
http://cpan.uwinnipeg.ca/PPMPackages/10xx/
を追加。

２．Catalyst-Runtime 5.7012を入れる。
＋（Make for install）して→（Run marked actions）する。

（ここでスケルトン作成しよーとしたらdevelがないと怒られた。）

３．Catalyst-Devel 1.03を入れる。

４．スケルトン作成
任意の開発フォルダで
catalyst.pl MyBBS
すると・・
created "MyBBS"
created "MyBBS\script"
created "MyBBS\lib"
created "MyBBS\root"
created "MyBBS\root\static"
created "MyBBS\root\static\images"
created "MyBBS\t"
created "MyBBS\lib\MyBBS"
created "MyBBS\lib\MyBBS\Model"
created "MyBBS\lib\MyBBS\View"
created "MyBBS\lib\MyBBS\Controller"
created "MyBBS\mybbs.yml"
created "MyBBS\lib\MyBBS.pm"
created "MyBBS\lib\MyBBS\Controller\Root.pm"
created "MyBBS/README"
created "MyBBS/Changes"
created "MyBBS\t/01app.t"
created "MyBBS\t/02pod.t"
created "MyBBS\t/03podcoverage.t"
created "MyBBS\root\static\images\catalyst_logo.png"
created "MyBBS\root\static\images\btn_120x50_built.png"
created "MyBBS\root\static\images\btn_120x50_built_shadow.png"
created "MyBBS\root\static\images\btn_120x50_powered.png"
created "MyBBS\root\static\images\btn_120x50_powered_shadow.png"
created "MyBBS\root\static\images\btn_88x31_built.png"
created "MyBBS\root\static\images\btn_88x31_built_shadow.png"
created "MyBBS\root\static\images\btn_88x31_powered.png"
created "MyBBS\root\static\images\btn_88x31_powered_shadow.png"
created "MyBBS\root\favicon.ico"
created "MyBBS/Makefile.PL"
created "MyBBS\script/mybbs_cgi.pl"
created "MyBBS\script/mybbs_fastcgi.pl"
created "MyBBS\script/mybbs_server.pl"
created "MyBBS\script/mybbs_test.pl"
created "MyBBS\script/mybbs_create.pl"
なんやら一式作成。

５．開発用サーバ起動
cd script
mybbs_server.pl
すると・・

Useless localization of subroutine entry at D:/Perl/site/lib/Catalyst/Action.pm
line 41.
[debug] Debug messages enabled
[debug] Statistics enabled
[debug] Loaded plugins:
.----------------------------------------------------------------------------.
| Catalyst::Plugin::ConfigLoader 0.19 |
| Catalyst::Plugin::Static::Simple 0.20 |
'----------------------------------------------------------------------------'

[debug] Loaded dispatcher "Catalyst::Dispatcher"
[debug] Loaded engine "Catalyst::Engine::HTTP"
[debug] Found home "D:\WRK\catalyst\MyBBS"
[debug] Loaded Config "D:\WRK\catalyst\MyBBS\mybbs.yml"
[debug] Loaded components:
.-----------------------------------------------------------------+----------.
| Class | Type |
+-----------------------------------------------------------------+----------+
| MyBBS::Controller::Root | instance |
'-----------------------------------------------------------------+----------'

[debug] Loaded Private actions:
.----------------------+--------------------------------------+--------------.
| Private | Class | Method |
+----------------------+--------------------------------------+--------------+
| /default | MyBBS::Controller::Root | default |
| /end | MyBBS::Controller::Root | end |
'----------------------+--------------------------------------+--------------'

６．開発サーバにアクセス
http://localhost:3000/
をーすげ。はじめてApacheたてた時の感動。

ココまで感想
・おもったよりここまでは簡単にいけた。
・リポ追加、RuntimeとDevel入れて、スケルトン追加の３stepで開発の土台ができるのはすごい。
・多分ここから5.8じゃないので苦労するのか？

メモ
・Catalystは英語で触媒という意味。
・Ciscoのスイッチじゃない。
・開発サーバはオプション -p でポート変更、-r でファイル変更がすぐに反映。
・Catalystは5.7からパッケージ構成がCatalyst::RuntimeとCatalyst::Develに分けられた。

参考リンク
hide-k.net#blog　Catalyst 5.7000 is released
先知者、必取於人、知敵之情者也　Catalyst 5.7 へのバージョンアップ対策

for me
・勉強のコストを意識する。
・忙しいを言い訳にしない。

子供も寝たし眠いので寝る。

セキュリティとんこつ 第７回ばりかた勉強会 行ってきた

他分野でも貪欲に学ばねばと、土曜昼が空いた為急遽勉強会のみ初参加。
以下。自分メモ。

１．「Webアプリケーションセキュリティ検査とSecure Development Lifecycle」
～今回のメインセッション　スピーカーはid:ikepyonさん。
？ＳＤＬ＝セキュリティを意識した開発サイクル
　要件定義から運用
脆弱性の統計
　ＸＳＳとＳＱＬインジェクションでほとんど
アマゾンのウィッシュリストの問題
　日米習慣の差
？ディレクトリリトラーバーサル＝非公開ディレクトリのアクセス
時間がない金がない問題
間違った認識
？わふ＝ウェブアプリケーションファイアウォール
資産の明確化
　このデータは個人情報を含むのか、重要度
データを全部もたない＋＋
　下桁のみ人が入力。残りの情報をデータでもつ。
サニタイズ≠エスケープ処理（受け側の処理形態にあわせる）
　たとえば < →　<　（この場合はhtmlにあわせる）
使ったほうがいいテストツール
　Paros
　WebScarab
運用
　テスト機が本番に・・
　ＶＭでチェック、イメージを提出する
検査ツール作ってみた


２．ＬＴ
「ブルー画面の解析 -WinDbgの利用-」isayanさん
イベントヴューアでログチェックWinDbgに食わせる
悪さするファイルの身元調べ
　右クリックからプロパティ
　ツールを使う：Runscaner
クラッシュダンプを取得（個人情報があるので注意）
イベントログも大事

「Nagiosを利用したUPSのバッテリ監視について」下條さん
PINGで死活監視、主要プロトコル監視も可能
SNMPを使う→check_snmap
perlでてきた後でチェック

「通販サイトのアクセス解析から見る」田中さん
購入者のパターンを想像（妄想）する
恐るべしバイドゥクローラー

「神戸情報セキュリティ勉強会(セキュメロ) の紹介」ynagaoさん
グループディスカッション
多岐にわたる内容　法律目線や子を持つ親目線
たった？１８駅

「地域系情報セキュリティ勉強会のご紹介」まっちゃだいふく(id:ripjyr)さん
ＩＴ勉強会カレンダー異常に騒ぎ杉
各地の勉強会、特色
西に行くほど懇親会の終わりが遅い！


感想
・全員自己紹介が良かった。
・ワイガヤ感がすごく良かった。
・七隈線初めて乗った。狭かった。
・初参加にもかかわらずFukuoka.pm第11回定例勉強会の告知させて頂いて感謝。
　ばりかた事務局の皆様、遠方から来福の方々、スピーカーの方、
　参加者の方も（突っ込みでいろんな話がきけました）感謝。

リンク
セキュリティとんこつ　ばりかた勉強会

一生勉強。