めがねのひとに触発されてオレオレポリシー。
Re:Catalystアプリオレオレポリシー

仕事も個人もCatalystなんで、特にポリシーは分けてない。
会社のみんなも俺のポリシーでやればいいのに。

・設定系は全部myapp.yml
　connect_infoもフォームのセレクトボックスも、
　DBには入れたくないけどハードコードしたくないのは全部myapp.yml

・myapp.ymlはリポジトリに入れず、myapp.yml.orgを入れる
　myapp.ymlは動いてる環境に合わせて。myapp.yml.orgはデフォルト
　更新があったらスクリプト使ってマージ。

・データベースの更新用にscript/updatedb.plとsql/update/を用意
　sql/update/の下にSQLファイルを作って、updatedb.pl走らせればおｋ

・テンプレートはDreamWeaverで編集
　タグとか打ってらんねーよ！

・ログは全部C::P::Log::Dispatch

・開発サーバは./script/run_script.pl ./script/myapp_lighttpd.plで
・本番サーバは./script/myapp_fcgi_starter.pl startで。
　場合によっては/etc/rc.d/init.d/にシンボリックを置く

まぁ　こんな所かな？

とりあえず「catalyst.pl MyApp」でできない部分。

MyApp/
+html_template/ # DreamWeaverで作ったテンプレート用ディレクトリ
+Templates/ # ttのファイルに変換するコマンド使って全部変換する
index.dwt # DreamWeaverのテンプレート これを元にheader.ttとfooter.ttを作る
+static/
+css/
+images/
+lib/
+MyApp/
+CRUDBase/ # C::P::CRUD使うときの継承元
+Common.pm
+Groups.pm
+Main.pm
menu.yml # 外に出してないC::P::MenuMaker用の設定ファイル
myapp.yml # myapp.ymlはsvnに入れない
myapp.yml.org # こっちを入れる
+run/ # ログ・セッション・キャッシュ等のファイル置き場
DEBUG.MyApp # 本番時は/var/run/myappや/var/log/myappに出す
session
+script/
dbic_console.pl # MyApp::Schemas::MyAppを使ってDBICでほにゃる用のコンソール
grant.pl # updastedb.plの部品
myapp_lighttpd.pl # typesterさんのC::H::Lighttpdを元にprocsとか設定できるようにしたやつ
myapp_fcgi_starter.pl # ./myapp_fcgi_starter.pl [start|stop|restart|status]でFCGIプロセスを立ち上げる
run_script.pl # /usr/lib/やMyApp/libに無いけど取り込みたいモジュールのパスを通す。startup.plみたいなもの？
updatedb.pl # MyApp/sql/update/以下のreleaseほげほげのファイルを使ってDBをアップデートする。
updateseq.pl # updatedb.plの部品
+sql/
base.sql # ベーススキーマ update以下にファイルが貯まってきたらここに統合
+update/ # SQLのアップデートファイルがいっぱい
release-YYYY-MM-DD-NN.sql
+template/ # TTのテンプレート置き場 root以下は嫌いです。html_templateからスクリプト使って吐き出される。

MTのバージョンあげたいなー
デザインも変えたいなー
というかブログ放置するならなくしちゃえばいいのにって思った。

Fedora 7を使ってるのだが、kernel 2.6.22.1-27だとVMwarePlayerのvmware-config.plがコケる。
なので
http://www.vmware.com/community/thread.jspa?messageID=645058
のパッチを/usr/lib/vmware/module/source/vmnet.tarを解凍して当ててやれば通るようになる。

今のところ普通に動いてます。

$ tar -zxvf ndiswrapper-1.41.tar.gz
$ cd ndiswrapper-1.41
$ rpmbuild -ba ndiswrapper.spec

$ rpmbuild -ta ndiswrapper-1.41.tar.gz

$ su
# rpm -ivh ndiswrapper-1.41-1.i386.rpm kernel-module-ndiswrapper-2.6.20-1.2933.fc6-1.41-1.i386.rpm

$ cabextract 7iwc21ww.exe -d 7iwc21ww
$ cd 7iwc21ww
$ su
# /usr/sbin/ndiswrapper -i ./WINXP_2K/NET5416.INF

# ndiswrapper -l
net5416 : driver installed
        device (168C:0024) present

options ndiswrapper if_name=wlan0
alias wlan0 ndiswrapper

# modprobe ndiswrapper

wlan0     IEEE 802.11g  ESSID:off/any  
          Mode:Managed  Frequency:2.462 GHz  Access Point: Not-Associated   
          Bit Rate=54 Mb/s   
          Encryption key:off
          Power Management:off
          Link Quality:0  Signal level:0  Noise level:0
          Rx invalid nwid:0  Rx invalid crypt:0  Rx invalid frag:0
          Tx excessive retries:0  Invalid misc:0   Missed beacon:0

sub add_group {
  my ($self, $group, @names) = @_;
  $self->add_group(Primary => $names[0])
    if ($group eq "All" or $group eq "Essential")
        and not $self->group_cols('Primary');
  $self->add_group(Essential => @names)
    if $group eq "All"
       and !$self->essential;
  @names = _unique($self->primary, @names) if $group eq "Essential";
  
  my @cols = map $self->add_column($_), @names;
  unless($group eq "All") {
    foreach my $col ($self->all_columns) {
      delete $col->{_groups}->{$group} if(exists $col->{_groups}->{$group});
    }
  }
  $_->add_group($group) foreach @cols;
  $self->{_groups}->{$group} = \@cols;
  return $self;
}

SELECT id, admin_only, name FROM table;

my @org_essential = $model->columns('Essential');
$model->columns('Essential' => qw/id admin_only name/);
my $it = $model->search_where(ほげほげ);
$model->columns('Essential' => @org_essential);

columns(Essential => qw/ほげほげ/);

Log::Dispatch:
 -class: File
  file:__path_to(debug.log)__
  min_level: debug
  mode:append

つーか Subversion系のビルドってば何でこんなに大変なんだ_no
この記事一度ビルド成功した後まっさらにしてもう一度やりつつ書いてるんだが、
次成功しなかったらどうしよう(笑

ってわけで、本文は続きに。

フリープログラミング for windows内の
Visual C++ Express Editionを使ってみる(Windows Platform SDK編)と
Visual C++ Express EditionでwxWidgetsを使ってみる

なお、今回は普通に使うバイナリがほしいのですべてReleaseでビルドする。

wxWidgetsの設定が終わった後、
環境変数にWX=%WXWIN%をセットしておく。

必要なファイルのダウンロードと配置

・RapidSVNの最新ソース
RapidSVNの最新ソースは
http://rapidsvn.tigris.org/svn/rapidsvn/trunk
からsvn checkoutすればいい。
既存のRapidSVNなりTortoiseSVNなりを使って、
C:\temp\RapidSVNにチェックアウトする。
今回はコマンドラインのSubversionを使ったので以下のコマンドでチェックアウトした。

cd c:\temp
svn co http://rapidsvn.tigris.org/svn/rapidsvn/trunk RapidSVN

・Subversionのソース
Subversionのソースは最新は1.4.Xだが、
1.3.Xならaprやらexpatやらneonやら、Subversion自体のビルドに必要なものが同封されているので
こちらを使った
http://subversion.tigris.org/servlets/ProjectDocumentList?folderID=6781&expandFolder=6781&folderID=0
ここから
subversion-1.3.2.zipをダウンロードし、
C:\svnに解凍する。

・OpenSSL
有志の方がWin32向けのビルドをしてくれている、
http://www.slproweb.com/products/Win32OpenSSL.html
から
Win32OpenSSL-0_9_8d.exe
をダウンロードし、インストールする。

・db4-win32
http://subversion.tigris.org/servlets/ProjectDocumentList?folderID=688&expandFolder=688&folderID=6781
こちらのSubversionのページより
db-4.4.20-win32.zipをダウンロードし、
C:\db4-win32に解凍する。

・libintl
http://subversion.tigris.org/servlets/ProjectDocumentList?folderID=2627&expandFolder=2627&folderID=688
同じくこちらのSubversionのページより
svn-win32-libintl.zipをダウンロードし、
C:\svn-win32-libintlに解凍する。

環境変数の設定
ビルド時に必要になる以下の環境変数を設定する。

SUBVERSION=C:\svn
OPENSSL_SRC=C:\OpenSSL
LIBINTL=C:\svn-win32-libintl

ソースファイルの修正

C:\svn\build\win32\build_neon.batの編集

デフォルトではsubversionのパスがスタティックに書かれているので修正。

/home/dave/svn/env/.dist_sandbox/subversion-1.3.2

%SUBVERSION%

C:\svn\neon\neon.makの編集

今回ダウンロードしたOpenSSL-0.9.8dはフォルダ構成が違うので以下の部分を修正する。

OPENSSL_FLAGS = /I "$(OPENSSL_SRC)\inc32" /D NE_HAVE_SSL /D HAVE_OPENSSL

OPENSSL_FLAGS = /I "$(OPENSSL_SRC)\include" /D NE_HAVE_SSL /D HAVE_OPENSSL

!IF "$(OPENSSL_SRC)" != ""
LIB32_OBJS = $(LIB32_OBJS) "$(INTDIR)\ne_openssl.obj"
!IFDEF OPENSSL_STATIC
LIB32_OBJS = $(LIB32_OBJS) "$(OPENSSL_SRC)\out32\libeay32.lib" \
　　　　　　　　　　　　"$(OPENSSL_SRC)\out32\ssleay32.lib"
!ELSE
LIB32_OBJS = $(LIB32_OBJS) "$(OPENSSL_SRC)\out32dll\libeay32.lib" \
　　　　　　　　　　　　"$(OPENSSL_SRC)\out32dll\ssleay32.lib"
!ENDIF

!IF "$(OPENSSL_SRC)" != ""
LIB32_OBJS = $(LIB32_OBJS) "$(INTDIR)\ne_openssl.obj"
!IFDEF OPENSSL_STATIC
LIB32_OBJS = $(LIB32_OBJS) "$(OPENSSL_SRC)\lib\VC\libeay32MT.lib" \
　　　　　　　　　　　　"$(OPENSSL_SRC)\lib\VC\ssleay32MT.lib"
!ELSE
LIB32_OBJS = $(LIB32_OBJS) "$(OPENSSL_SRC)\lib\VC\libeay32MD.lib" \
　　　　　　　　　　　　"$(OPENSSL_SRC)\lib\VC\ssleay32MD.lib"
!ENDIF

C:\svn\neon\src\ne_xml.c編集

expat.hよりXML_MAJOR_VERSIONを引っ張ってきているのだが、
ビルド時にエラーが出るので以下の部分をコメントアウトする

#if !defined(XML_MAJOR_VERSION) || (XML_MAJOR_VERSION < 2 \
　　　　　　　　　　　　　　　　&& XML_MINOR_VERSION == 95 \
　　　　　　　　　　　　　　　　&& XML_MICRO_VERSION < 2)
#define NEED_BOM_HANDLING
#endif

//#if !defined(XML_MAJOR_VERSION) || (XML_MAJOR_VERSION < 2 \
//　　　　　　　　　　　　　　　　&& XML_MINOR_VERSION == 95 \
//　　　　　　　　　　　　　　　　&& XML_MICRO_VERSION < 2)
//#define NEED_BOM_HANDLING
//#endif

いよいよビルド
まずはSubversionのビルドから。
C:\svn\subversion_msvc.dswを開き、プロジェクトを変換する。
zlib.dspでエラーが出るが、気にしなくてよい。

ビルドに入る前にdb4のインクルードファイルのパスが違うので修正する。
ソリューションエクスプローラーより
libsvn_fs_baseを探し、
右クリック→プロパティ→構成プロパティ→C/C++→全般と選択し、
追加のインクルードディレクトリ内の
..\..\..\db4-win32 を C:\db4-win32 に変更する

今回はSubversion自体をビルドするわけではないので、
以下のものだけ選択してビルドする。

libapr
libaprutil
neon
libsvn_client
libsvn_delta
libsvn_diff
libsvn_fs_base
libsvn_fs
libsvn_fs_fs
libsvn_ra
libsvn_ra_dav
libsvn_ra_local
libsvn_ra_svn
libsvn_repos
libsvn_subr
libsvn_wc

それぞれ単品をビルドするには、
ソリューションエクスプローラーより目的の物を右クリックし、ビルドを選べばよい。

最後にRapidSVNのビルドをする。
C:\temp\RapidSVN\rapidsvn.dswを開き、プロジェクトを変換する。

ここでまたライブラリのパス等の修正をする。
一つ目はdb4-libの修正
ソリューションエクスプローラよりrapidsvnを右クリック、
プロパティ→構成プロパティ→リンカ→全般と選択し、
追加のライブラリ ディレクトリにC:\db4-win32\libを追加する。

次にwxpng.libの外部参照エラーを解決するため、依存ファイルにwxzlib.libを追加する。
ソリューションエクスプローラよりrapidsvnを右クリック
プロパティ→構成プロパティ→リンカ→入力と選択し、
追加の依存ファイルにwxzlib.libを追加する。

以上で下準備は終了
あとは上部メニューよりビルド→ソリューションのビルドと選択すればrapidsvn.exeの出来上がり。

最後に出来上がったrapidsvn.exeを適当なディレクトリにコピーし、
同じディレクトリに以下のものをコピーすれば完了だ。

C:\svn\apr\Release\libapr.dll
C:\svn\apr-util\Release\libaprutil.dll
C:\svn\apr-iconv\Release\libapriconv.dll
C:\db4-win32\bin\libdb44.dll
C:\svn-win32-libintl\bin\intl3_svn.dll
C:\Windows\System32\ssleay32.dll
C:\Windows\System32\libeay32.dll

はぁ・・・・ にしても相変わらず文章下手だなぁ・・・ 死んだほうがよくね？

久しぶりすぎてどう書いたものか・・・

僕が思うにプログラマーになる為に一番必要なものは根性だ。

頭のよさ・発想力・経験値・扱える言語の数。　こんな物は時間さえかければ何とでもなる。

「初心者です。」と言っても教えてもらえることなど基本中の基本まで。
そこから先に行くためには少ない・体系化されていない情報の中で自己学習し、問題を解決しなければならない。
これにはある程度根性が必要だ。

また晴れて「職業：プログラマー」になれたとしても安心などできない。
顧客の無茶な要望に答えるために徹夜をし、
自分・もしくは他人のバグを治すために徹夜をし、
明らかに無理な納期を守るために徹夜をする。

今度はそんな状況に耐えうる精神的なタフさが求められる。

顧客に怒られ、上司に厭味を言われ、SEに罵倒される。
そんな状況でも外圧を力に変え、自ら成長していける根性が必要だ。

ある意味上のような状況でも楽しめるM気質と言ったほうがいいかもしれないが･･･

そんなわけで
・根性がない人
・打たれ弱い人
・すぐ投げ出してしまう人
こんな人にはプログラマーはまったくお勧めしない。

ただし「向いてるか向いてないか」とはまったく別問題なので注意。
根性さえあれば「プログラマー」にはなれるが、
「すごいプログラマー」になるには向いてる必要があるだろう。

いつも新刊が出てないか本屋に見に行くのが面倒だったのと、
気づかなくて買い忘れるとかよくあったから。

しばらく時間たって見ないとちゃんと動いてるかわからないけど、とりあえずこんな感じ。
　　　　　　　　　　↓
http://www.bindstorm.jp/anbs/

BloglinesとかRSSリーダ使ってる人は試してもらえると助かるっす(テスト丸投げ)

移行後に困ったのが、FTPの文字コード。
今まではVineLinuxだったのでホストの文字コードをEUC-JPにすればよかったのだが、
UTF-8に対応しているFTPクライアントでいいのが見つからない。

ってことでProFTPD側にパッチ当ててサーバ側でEUC-JP<=>UTF-8の変換をさせることにした。

ProFTPd本家から1.3.0のソースと、↓のページを参考にRPMパッケ作成。
pam認証あたりでてこずったけど、うまくいきました。
(つーか日本語使いたくねぇんだけどな････)

http://www.hakusan.tsg.ne.jp/tjkawa/software/misc/proftpd-iconv/index.jsp

んで、何かというとCatalyst-Plugin-UploadProgressを触りまして･･･
あのアップロードのプログレスバーをアップロード以外でも使いたいな！と・・

Catalyst-Plugin-UploadProgressからすごい勢いでパクリました。
Catalyst-Plugin-BasicProgress-0.01.tar.gz

ごめんなさい。

ドキュメントとかまったく何も書いてません。
Module-Starterが吐き出したやつそのままです。
サンプルCatalystアプリがついてるので感じてください。
基本的にバックグラウンド処理に入りたいところで$c->go_progress_fork(オプションほげほげ)と呼んでやるだけです。
UploadProgressと同様Cache系のプラグインが必須です。

さすがにこれはパクリすぎだからCPANにはあげないでおこう･･･

追記
うまいことプログレスバーの画面に飛ばない場合は、
go_progress_forkの直後に

my $time = time;
for(my $now = time; $now < $time + 10; $now = time) {
    # do nothing
}

等sleep以外のwaitを入れてみてください。

という無駄エントリ