はてなブックマーク

January 04, 200919:20 Eye-Fi から S3 にアップロード カテゴリ技術ネタ ブログネタ：Webアプリケーション に参加中！ 昨年末に発売された Eye-Fi Share の日本語版ですが、これまで個人的なバックアップ用途に利用していた Amazon S3 が使えないようだったので Gallery の Protocol を受けとって S3 にアップロードする Proxy 的なアプリを書いて対応してみました。 http://coderepos.org/share/browser/lang/perl/GR2S3/trunk http://svn.coderepos.org/share/lang/perl/GR2S3/trunk/ ソースは CodeRepos に入れておきました。Catalyst 使ってます。 Catalyst 以外に Catalyst::Plugin

November 21, 200811:00 社内で使った Apache モジュールの資料 カテゴリ技術ネタ 社内の技術MTGで Apache モジュール入門なプレゼンをしたので、資料公開します。 非常に基礎的な内容ですが。 実際の Web サービスでの Apache モジュールの使いどころとしては、translate_name フェーズでゴニョる事が多いですね。 ユーザーへみせる URL と実体の場所との関係が複雑化してきた際には Rewrite でがんばるよりモジュール書いちゃった方がスッキリします。Apache ModuleView SlideShare presentation or Upload your own. (tags: apache module) 「技術ネタ」カテゴリの最新記事 タグ ：#apache#presentation

May 07, 200716:42 OpenID 実装した件 カテゴリ技術ネタ OpenIDを実装してみました。 このブログでもさっそく、delegate 設定しました。 とりあえず、サーバ側の提供ですが、OpenID を利用したサービスも何か出来るといいかなと思ってます。 実装自体は Net::OpenID::Server を使ったので非常に簡単でした。 一つハマったのが Net::OpenID::Server は Crypt::DH を使ってるのですが、Math::BigInt::Pari か Math::BigInt::GMP をインストールしておかないと非常に動作が遅くなってしまいます。 素の Math::BigInt を使ってても、遅いだけで正常に動作するのでなかなか気づきづらいです。。 Perl で OpenID 実装しようと思ってる方はご注意を。 「技術ネタ」カテゴリの最新記

April 13, 200714:54 Twitter が更新されすぎてるので Growl で見る事に。。 カテゴリ技術ネタ Twitter 流行ってるわけですが、通知先を IM にしてるとピコピコうるさいので、一定期間毎に新着だけを Growl に通知する事にしてみた。 Perl で Mac::Growl とか使って実装。 Net::Twitter だと since とかのパラメータ渡せないみたいなので LWP で。 ソースはここ 一回コマンドラインで叩いて、ID,パスワードを保存してから Cron に登録する感じです。 「技術ネタ」カテゴリの最新記事

September 29, 200615:01 Plagger モドキ Deploy ツール カテゴリ技術ネタ 空前の deploy tool ブームの中いかがお過ごしでしょうか。 http://blog.nomadscafe.jp/archives/000704.html http://d.hatena.ne.jp/tokuhirom/20060929/1159495175 うちもまだ実運用には入れてないですが、作ってるとこだったりします。 以下のような Plagger マルパクリな YAML で設定します。 プラグインは prepare - 下準備 svn co とか process - サーバの台数分だけループで呼ばれる。rsync とか finalize - 後片付けとかログ出力とか の3つのフェーズで処理を行います。 運用ツールを作るときに Plagger みたいにプラグイン機構

July 04, 200615:36 トップページリニューアルの件 カテゴリ技術ネタ 見た目もだけど、実は技術的な変化も結構大きいです。 - Apache1.3 - mod_perl - Template-Toolkit - memcached から - Apache2.0 - Apache module - ClearSilver - memcached てな感じです。 トップページってそんなに頻繁に変更するもんでも無いんでメンテナンス性とかをあまり考えずに C でゴリッと書きました。 ちなみに、もともとは mod_perl ですが Sledge は使ってませんでした。 トップページ一枚表示だけに Sledge はオーバースペックという事で生のハンドラ書いてました。 「技術ネタ」カテゴリの最新記事

December 27, 200517:39 TT でXSS対策 カテゴリ技術ネタ デフォルトで HTML フィルタかけたいって話。 こんな感じで STASH 継承しちゃうってのはどうでしょ。 http://shebang.jp/src/cpan/Template-Stash-EscapeHTML-0.01.tar.gz CPAN にも一応あげてみた。 package Template::Stash::EscapeHTML; use strict; use Template::Config; use base ($Template::Config::STASH); our $VERSION = '0.01'; sub get { my($self, @args) = @_; my($var) = $self->SUPER::get(@args); unless (ref($var)) {

December 01, 200518:33 ImageMagick で画像を HTML に変換 カテゴリ技術ネタ ImageMagick を調べてゴニョゴニョやってたら GetPixels なんでメソッドがあるのをはじめて知りました。 ほんとうはそういう事がやりたいわけではなかったのですが、現実逃避的に画像を HTML にするスクリプト書いてみました。。 #!/usr/local/bin/perl use strict; use Image::Magick; my $file = $ARGV[0]; my $image = Image::Magick->new; my($x, $y, $size, $format) = $image->Ping($file); $image->Read($file); my @color_info = $image->GetPixels(width=>$

November 16, 200520:03 OS X で画面録画(VNC2SWF) カテゴリ技術ネタ にぽたんが10分で作る Sledge アプリで Windows 上で Wink を使ってたのですが、使い慣れた OS X だったらもっと速いはずと思って OS X で画面を録画する環境を作ってみました。 OS X での録画はVNC2SWF というツールで録画出来ます。 VNC サーバとしゃべって、SWF にしてくれてるみたいです。 * 以下、手順のメモ まずは、OS X が VNC サーバとして動く事が必要なので、OSXvnc をインストールします。 http://www.redstonesoftware.com/vnc.htmlからダウンロードして /Applications にコピーするだけで OK です。 VNC2SWF には Python 版と C 版があるようなのですが、今回は

November 14, 200515:50 Yellow Fade Technique カテゴリ技術ネタ 最近、よく見かけるので prototype.js 使って実装してみる。 fat.js ってもっと便利なやつもあるけど、単純にやってる事がよく分かるように実装してみたつもり。 エフェクトをかけたい要素の id を指定して、 <script type="text/javascript"> new Fade('id'); </script> みたいな感じで使う。 var Fade = Class.create(); Fade.Colors = ['#ffff99', '#ffffaa', '#ffffbb', '#ffffcc', '#ffffdd', '#ffffee', '#ffffff',]; Fade.prototype = { initialize: function(eleme

November 04, 200518:36 そういえば Validation カテゴリ技術ネタ フレームワークとか O/R マッパーとか使って Web アプリを作ると全体の作業にしめるValidation の割合が相対的に多くなりがちで、どうにか楽出来ないかと考えています。~ で、Data::FormValidatorとかFormValidator::Simpleとかの Validation 条件を定義するタイプのやつもいいかなと思いつつ、中々手が出ません。 というのも、エラー文言の表示や「○○がある場合のみ××が存在しないといけない」みたいな条件がうまく定義出来るのかが心配で。 で、最近は以下のようにしています。 ^# $self->r is-a Apache::Request ^my $validator = Project::Validator->new($self->r); ^$

October 31, 200512:43 さて、昔話でもするかな。 カテゴリ まぁ、自分ももう30が見えてきたり、最近家族を持ったりと色々振り返ったりする年頃なので。。たまには自分の仕事の事とか。 自分が弊社を知ったのは大学生のときに京都であった Perl/Ruby カンファレンスでみやーんとかが話してるのを見たときです。module.jp の赤パン師匠も話してましたね。 当時の私は、大学もろくにいかずにパチスロかたまにフリーでプログラムを書いて生計を立てるというかなり駄目な生活をしてました。 そんな時期に、たいして歳も変わらない(というか俺の方が一個上)みやーん達があぁいった場で発表してるのにどうしようもなくやべーとか思ったのを覚えてます。 で、大学もいかなくなってたし、いっそ大学やめて東京いっちゃおうかなーと思いたちました。 そんなキッカケで 2001 年の春に大学に休学届けを出して

October 25, 200518:05 HyperEstraier の Perl バインディング カテゴリ技術ネタ HyperEstraier の Perl バインディングを試してみる。 ドキュメントが見つからないのでソース見たりゴニョゴニョして以下のような感じで動いた。 あってるのか不安ですが、メモという事で。 検索文書の登録 #!/usr/local/bin/perl use strict; use HyperEstraier; my $db = HyperEstraier::Database->new; $db->open("db", $HyperEstraier::Database::DBCREAT | $HyperEstraier::Database::DBWRITER) or die "$!"; my $doc1 = HyperEstraier::Document->new

September 13, 200514:24 Sledge::Dispatcher カテゴリ技術ネタ Sledge::Dispatcher をリリースしました。 社内で使ってた Sledge 用の mod_perl ハンドラです。 以下のような感じで使います。 # 詳細はソース読んでください。。 <Location /webapp> SetHandler perl-script PerlHandler Sledge::Dispatcher::Properties PerlSetVar SledgeMapFile /path/to/map.properties </Location> 上記の /path/to/map.properties は以下のような URI, クラスの対応を 記述したファイルになります。 / = YourProject::Pages::Root /foo = Your

September 12, 200516:45 prototype.js をちゃんと使ってみる。 カテゴリ技術ネタ prototype.js をちゃんと(仕事で)使ってみようという事でゴニョゴニョしたメモ。 やりたい事は通常のテキストを編集可能にして Ajax で保存っていうありがち(？)な事。 で、使い方の勉強がてら書いたコードをのせておくと以下のような感じ var Editable = Class.create(); Editable.prototype = { initialize: function(text, url) { this.view = $(text); this.url = url; Element.show(this.view); this.editor = document.createElement('input'); this.editor.type = "t