rockmania-web

引っ越します

2006-04-02T13:00:00.000+09:00

sbでやることにしました。
http://kurt0027.arrow.jp/weblife/
今後ともよろしくです。

JSANをお試し（Form.Validator）

2006-03-21T19:51:00.000+09:00

さてまたまた久しぶりに更新です。

でJSといえばprototype.jsが大人気やけど、Perl likeなJSANが個人的にはくるかなーと。（Perl使いはたぶんうけいれられやすいかと。）

たとえばとあるクラスを使うときに

JSAN.use("Form.Validator");<
って

use FormValidator::Simple;
と似てるし。このあたりからお気に入り。でまあちょとForm.Validatorクラスを試してみた。

これでvalidatorの定義は完了。あとは入力ミスがあるとalertがでてエラーメッセージがでる。
これ自力でつくろうとすると闇でめんどくさかったりするわけやけど、なかなか便利。とはいえこれでもちゃんとサーバー側でもチェックはするべきやねんけど。

プロフィール用に画像をうぷ

2006-03-11T19:53:00.000+09:00

ひさしぶりに更新

2006-03-10T00:51:00.000+09:00

最近案件抱えすぎ状態がずーっと、つづいてて相当やられぎみなので約一週間ぶりの更新。
さぼってたらあかんなー。
っでなんだかんだHTML::EscapeEvil 0.04だしたりしたんだが。一部書き方とか直しただけやけど。
やけど仕様としてはやっぱ個人的にGLOBAL変数ってすきじゃないな。
ってわけでまたまた時間できたら変更してみる。もういい加減ちがうのんつくろうかな。。

In utero

2006-02-25T13:24:00.000+09:00

いまさらながらやけど、やっぱいいなあ。正直Nevermindどまりなやつらが多々いるわけだが、In uteroのよさがわからんやつはほんまのNirvanaずきじゃーないな。
っとまあそもそもNirvanaすきになったのもこれ聞いてからがそもそものはじまりなわけで。
正直kurtが自身で述べてる通りNevermindは商業主義に結局のっかってしまってそれから脱却したいためのアルバムがこれにあたる。
売れんくてもどっちでもいい。自分らのやりたいことを表現したのがIn uteroって形になったわけです。はい。
プロデューサーはShellac（今は活動してるのかわからんけど）のSteve Albini。ドラムの音の入れ方に定評があるひとなんですが、Nevermindと聞き比べると明らかにDrumが違う。もともとDaveのDrumって力強いねんけど、In uteroではほんまにDrumがずばぬけていい。テクもあるしねーこのひと。
っとまあこんなかんじでいいことだらけです（もちNevermindもすきやけど）。今までの人生でNirvanaを超えるバンドはいまだでてこず状態。
それくらいにはまったアルバムです。

1.Serve the servants
2.Scentless apprentice
3.Heart-shaped box
4.Rape me
5.Frances Framer will have her Revenge
6.Dump
7.Very ape
8.Milk it
9.Pennyroyal tea
10.Radio friendly unit shifter
11.Tourette's
12.All apologies

HTML::EscapeEvil 0.03 release

2006-02-22T01:10:00.000+09:00

とりあえずつくってみました。CPANにうぷしてみた。
内容的にはhttp://rockmania-web.blogspot.com/2006/02/htmlescapeevil.htmlなんです。

たとえばjavascriptは許可しないときって

$escapeevil->allow_script(0);

こんなやけど<a>は許可している。っでフィルタをかけたい文字列内に

<a href="javascript:alert('hello')">click</a>

とか

<a href="#" onclick="alert('hogeeeee')">hogehoge</a>

みたいにイベントハンドラとかhrefの中にいれられると当然ながらとおってました。というわけでこんな場合は

<a href="void(0)">click</a>

とか

<a href="#" onclick="void(0)">hogehoge</a>

みたいなかんじに何もおきないって感じにしてみた。しかしTTにはまさしくこんなプラグインがあったような。。

会社はTTつかわせてくれへんねんなー。ってわけでつくってみました。よかったら使ってやってくださいm(__)m

perl　HTML::EscapeEvil　cpan

ブログを書くならBlogWrite

CGI::Application::Plugin::Apacheのpatch

2006-02-13T15:52:00.000+09:00

早速 CGI::Application::Plugin::Apache をapache2 + mod_perl2環境で試してみたがエラーがでた。
どーやら

# override C::A's loading of CGI.pm
sub cgiapp_get_query {
my $self = shift;
my $r = $MP2 ? Apache2::RequestUtil::request() : Apache->request();
return _get_apreq($r);
}

sub cgiapp_get_queryのApache2::RequestUtil::request()って書き方がまずいらしい。
正しくは

# override C::A's loading of CGI.pm
sub cgiapp_get_query {
my $self = shift;
my $r = $MP2 ? Apache2::RequestUtil->request() : Apache->request();
return _get_apreq($r);

}

->で呼び出してあげないといけないのです。無事動いた。

っでpatch作ってみました。すごーく簡単なのでpatch作るほどでもないけど。

62c62
< my $r = $MP2 ? Apache2::RequestUtil::request() : Apache->request();
---
> my $r = $MP2 ? Apache2::RequestUtil->request() : Apache->request();

patch Apache.pm < patch.txtってやるとＯＫです。

perl CGI::Application mod_perl2

Picasa2で画像投稿

2006-02-13T02:40:00.000+09:00

しかしGoogleってお洒落で最先端。技術力すごいなー。
ってわけでPicasa2から投稿してみよう。どかな。

CGI::Application::Plugin::Apacheで

2006-02-13T01:51:00.000+09:00

何気にチェックしてみたらmod_perl2でも動くようになってるではないか
CGI::Application::Apache
地味にでるの待ってたけど、やっと出てくれた。ほっ。

BEGIN blockでmod_perl2か違うかのチェックしてるみたい。
これで安心してCGI::Application + mod_perl2の開発ができる。でえへんかったら最悪自作の覚悟（っていってもmod_perl2用に作るだけやっただけ）かもとか思ってたけどよかったよかった。

CGI::Application::Pluggableてすごーく便利

2006-02-12T22:54:00.000+09:00

よくCGI::Applicatinでソースを書くとPluginを定義するときに

package MyApp;
use base qw(CGI::Application); use CGI::Applicatin::Plugin::Hoge1;
use CGI::Applicatin::Plugin::Hoge2;
use CGI::Applicatin::Plugin::Hoge3;
use CGI::Applicatin::Plugin::Hoge4;
use CGI::Applicatin::Plugin::Hoge5;

とまあこんなかんじでPluginがずらーっと書かんとあかんねんけど２日前に知ったCGI::Application::Pluggableを使うと

package MyApp;
use base qw(CGI::Application);
use CGI::Application::Pluggable qw(Hoge1 Hoge2 Hoge3 Hoge4 Hoge5);

とこれだけでOKになってしまいます。今まで知らなかったおれってー。いっぱいPlugin書いてましたよ。。。
作者のAtushi Kobayashi様、どもですm(__)m
しかしぼちぼちCGI::Application慣れてきたのでPerlフレームワーク最高峰のCatalystに挑戦せんとあかんなー。

perl　CGI::Application

ブログを書くならBlogWrite

HTML::EscapeEvilをバージョンアップ計画

2006-02-10T01:41:00.000+09:00

少しバージョンアップしようとおもってみたり。
まず全てエスケープバージョン。まあこれはどっちでもいいかと思ったりするけど。個人的にはCGIオブジェクトとかよく使ってるので

$string = $q->escapeHTML($string);

でも話ははやいです。sで置換のがええかも。

逆に全てを許可。ってのがどっちかって言うとほしい。現状HTMLで使用できるタグってのいうのをぜーんぶしらべんといかんってのが一番問題かな。
これはめんどっちいけどせっかくなのでつくろうかなと。
あとはjavascriptを allow_script => 0 になってたりする場合でもよくある

とか<a href="javascript:alert%281111%29">

みたいな感じに書くと（このばやいだとbodyとかaを許可している場合）とおっちゃいます。結果完全にはjavascriptとかvbscriptとか

殺せないのです。

このあたりを少し改善してみよーかと。

これできたらCGI::Applicationのプラグインとかにしてみよーと計画中。

perl　CGI::Application　HTML::EscapeEvil

ブログを書くならBlogWrite

ITなおしごとって

2006-02-10T01:23:00.000+09:00

限りなく運動する暇がなくってこまる。確実に運動不足。最近は気をつかって昼ごはんちょっと減らしたり、帰りは一つ手前の駅から歩いてみたりと。

んー別に太ってるわけでもないのだが、やらんよりはましかと。

以上ひとりごと。

ブログを書くならBlogWrite

Showbiz

2006-02-06T00:57:00.000+09:00

Museの一発目のアルバム。なんですがー実は２日前にかったばっか。なんでそんなふるいのをかったかってゆーと、何気にMuseの全アルバムをかいそろえてみよーとおもったわけで。
そもそもDeadStarにやられるまでしょーもないギタポやってるバンドやとおもってた。
まあそれはさておきGoogleVideo（ちなみにこれはSunburn）で昔のMuseってどんなんやってるんやろうと思って聞いてみたんがそもそものこのアルバムを買った始まり。
Loudではないけど、激しいってかなんてーか。間違いなく何か新しいタイプのRockってかんじでしょーか。そのへんのやつらと音の厚みがちゃうな。3Pとは思えん。pianoとかはいってるのも個人的にポイントがたかい。
ライブではおなじみのShowbizとかMuscle Museumとか初期の名曲がずらーっとはいってるわけです。
Nirvanaに続いてやっぱRockってえーなーって思わせる一枚。
って訳でお勧めはSunburn、Muscle Museum、Showbiz、Unoあたり。なんだかんだアルバム名にもなってるShowbizか

muse　rock　sunburn　showbiz

GD::SecurityImageをためしてみたり

2006-02-03T05:36:00.000+09:00

なんだかんだ仕事でPerlつかったりしてる。

っで認証チェックのIDとPASSを入力する以外にロボットとかで悪さできないようにするのんがこれ。最近はあっちこっちの認証フォームに使われているあれです。PerlではGD::SecurityImageってのを使う。

当然ながら名前どおりGDがはいってないとだめ。

#!/usr/bin/perl

use GD::SecurityImage; use strict;

my $image = GD::SecurityImage->new(

width =>200, height => 80, lines => 1, font => "/usr/share/fonts/japanese/TrueType/kochi-gothic-subst.ttf", scramble => 1, bgcolor => "#999999", ); $image->random("nankamojiretu"); $image->create(ttf => "box",,[0,0,0], [200,200,200]); my($image_data,$mime_type,$random_number) = $image->out(force =>"jpeg",compress => 10);

print "random_number : $random_number\n"; print "mime_type : $mime_type\n"; print "create securityimage : \n"; open FILE,"> security02.jpg"; binmode FILE; print FILE $image_data; close FILE;

（フォントのパスとかはmy serverの環境）っでまあこんな感じで適当にスクリプトを書いて実行するとなにやらそれっぽい画像ができあがります。

実装としては nankamojiretu の情報をsessionなりにもたいといてーみたいなんになるんやろう。

個人的によく使うCGI::Applicationのプラグインで

http://search.cpan.org/~cromedome/CGI-Application-Plugin-CAPTCHA-0.01/lib/CGI/Application/Plugin/CAPTCHA.pm

ってのもでてるみたい。とりあえず今度つかってみる。

perl GD 　 CGI::Application

粉もんはやっぱ関西

2006-01-28T22:01:00.000+09:00

タイトルどおり粉もんは関西がいっちゃんうまい。っでメリケン亭ってとこ。しかし大阪は南にいくほどお好み焼き屋がおおい。んでもってうまい。

っで広島焼を食ってきた。んー写真がないんが残念。

ちなみに季節もんのカキの広島焼なんです。しかしやばうま！もんじゃ焼きとかもあったけど、どーもべとべとしててだめだ。

それなりにうまいっちゃーうまいけど

粉もん広島焼

ブログを書くならBlogWrite

The poison

2006-01-28T16:41:00.000+09:00

めっちゃぶちぎれたUKからの新人さん。聞く限りでは新人の枠こえちゃってますなこれ。これを買う前にもBullet for my valentineってまあバンド名とおんなじ名前のミニアルバムがでててそれ聞いたときもかなりやられたりしたわけで。
基本的にはスクリーモとかになるんでしょう。とはいってもメタル臭もぷんぷんしてたり。っで突っ走り系なんやけど、ギターテクとかすげー。攻撃力満点やな。ラウドなんやけどややキャッチーやったり。あんまりこっち系聞いてなくてもすんなり入れると思う。

おすすめは Her voice resides,Hand of blood,Room 409,The poison（個人的にはこれが一番）,10 years today。
アルバムがこれまたかっこよすぎるというかヤバイというか。
まあ聞いたことない人は一回聞いてみそ。http://video.google.com/videoplay?docid=-3791280570158522279&q=Bullet+For+My+Valentine

Bullet For My Valentine poison

ブログを書くならBlogWrite

Sliver

2006-01-28T15:38:00.000+09:00

結局Nirvanaもんはでるとかってしまうなー。Nirvanaの出現で今まで聞いてたのん全部きかへんくなったくらいなんで。バンドまで始めてしまった始末で。ってわけで今まで未収録だったり海外でしかでてなかったのんがちょこちょこはいってたりする。

NirvanaのNevermindだけ好きとかそんな人にはまずわからないでしょー。コアな人のみ聞くって感じで。お勧めは Sappy,Oh the guiltとか。Nirvana BestにもはいってるYou know you're rightのアコースティック版とかもいい。D-7とかはいってたりするとよかったんやけどなー。

なんやかんやいってこんなアコギなんがしたかったんやろーなーkurtって。

Nirvana　Sliver

ブログを書くならBlogWrite

ちず窓中

2006-01-28T15:01:00.000+09:00

このへんでよく出没中。決してぶらぶらしてるわけじゃーないよ。仕事で。

しかしこれはめっちゃ便利やなー。

地図窓

ブログを書くならBlogWrite

おもしろいのをみつけた

2006-01-28T13:53:00.000+09:00

これでもかって忙しい！！ってわけで久々にblogを更新。
っでflickrちっくなロゴを作成できるところを発見ってわけで早速

http://flickr.nosv.org/?s=rockmania-web

こんなかんじになった。んむ。なかなかかっこいい。

flickr

HTML::EscapeEvil ver.0.02

2006-01-22T22:04:00.000+09:00

バージョンアップしました。
詳しくはpod見てください。一つmethod追加しただけです。自分でつかってて少々めんどくさかったのでparse(parse_file) + filtered_html(filtered_file) + clear_content + eofを一つにしたfilteredってメソッド追加してます。

なんだかんだ使ってもらえるとうれしいのです。はい。

Simply Blue

2006-01-17T12:17:00.000+09:00

おすすめです。Akikoなんです。
仕事中とかPunk,Hardcoreなんかを聞きながらやるとすごくのりのりでスムーズにことが進むわけなのだが、３，４ヶ月前からJazzなんかにもはまり中。
相当やられています。大阪だとJazzでライブしているとこってったらBlueNoteしかしらない。ライブハウスとかだとかなりしってたりするんだが。すごーく生でみにいきたい。

初CPANその２

2006-01-16T19:55:00.000+09:00

というわけでHTML::EscapeEvilの告知です。
webアプリを開発するさいに一番めんどくさいのはとにかくformの処理。っで対外はXSS対策にHTMLタグとかを

<img src="hogehoge.jpg" /> => <img src="hogehoge.jpg" />

みたいにエスケープするのですが、a,imgだけはエスケープしたくないというケースもあります。一度エスケープしたものを正規表現をつかって特定のタグだけ元に戻すという方法もないこともないんやけど、書き込む人がただしくHTMLを書いてくれるとは限らない（e.g. タグを閉じ忘れ）ので正規表現だけでは少々むりがある。
ってわけでHTML::EscapeEvilの出番というわけで出番。こんなかんじです。

#!/usr/bin/perl

use strict;
use HTML::EscapeEvil;

my $evil = HTML::EscapeEvil->new(allow_tags => [qw(a img br strong)]);
my $html = <<HTML;
<em>これはエスケープされる</em><br/>
<a href="allow.html">ここはそのまま残ります</a>
HTML
$evil->parse($html);
print $evil->filtered_html;
$evil->clear;

っとまあこんな感じにやるわけで。期待通り

<em>これはエスケープされる</em><br/>
<a href="allow.html">ここはそのまま残ります</a>

allow_tagsで指定したタグはエスケープせずにそのまま残すことができるというわけです。
っというわけなので入り用でしたら使ってやってくださいm(__)m

ちなみにHTML::Filter（こっちは標準で入ってると思うのでだいじょぶでしょう）、Class::Accessor（こっちはインストールしないとないかもねー）が必要です。

詳しくはmanをみましょう。

初CPANしてみる

2006-01-16T11:13:00.000+09:00

というわけで初めてCPANに登録してみた。まだ申請してから間がないのでCPANで公開されるようになってからこのblogでも紹介しようかと。※ソースみたらわかりますがなんてことないモジュールですが、あればそれなりにやくにたつんじゃないかなーと。
とりあえずモジュールのパッケージを作ってみる。まずはCPANに登録したいモジュール（これはできている前提として）

ちなみに先にPAUSEでアカウントを作成しておかないといけない。
http://pause.perl.org/
ここで先に取得してから。

おはつだよん

2006-01-16T11:05:00.000+09:00

もうMTは設置とかめんどっちくなっちゃったんでこっちに引越しということで。よろよろー