RESTful Webサービス

rest book

縁あって献本していただきました．ありがとうございます．貰ったからには書評を書こうと思うのですが，まだ全然手をつけていないので，もっと読み進めてから改めて書きたいと思います．あ，あと明日は第十回XML開発者の日なので，会場に持っていって監訳者…

2007-12-09

CPAN Author になりました

perl cpan

XML::Atom::Ext::Threading という XML::Atom に Atom Threading Extensions (RFC4685) の拡張を加えるモジュールを書きました． http://search.cpan.org/~masaki/XML-Atom-Ext-Threading-0.01/ これでやっと CPAN Author になれました．ちなみに coderepos …

2007-11-07

PoCo::Client::HTTPで認証付きプロキシを使えるようにする

perl poe

タイトルの通り． $ENV{HTTP_PROXY} = "http://username:password@proxy.example.com:8080"; みたいなときのために． --- POE/Component/Client/HTTP/RequestFactory.pm~ 2006-10-15 11:56:47.000000000 +0900 +++ POE/Component/Client/HTTP/RequestFactory…

2007-10-12

AtomPub (RFC 5023) 日本語訳

atompub

先日ついに AtomPub が RFC 5023 として公開されました． RFC 5023 - The Atom Publishing Protocol 個人的に interop に参加したりと絡んでいたわけですが，このたび RESTafarian 達と一緒に翻訳したので公開したいと思います． 2007/10/12 Atom Publishing…

2007-08-07

HTTP::Headers::ContentType

perl

HTTP::Negotiateの存在を知らずに自分でネゴシエーション処理しようと思ったら，Content-Typeって意外と扱いにくい感じがしたので勢いで書いた．今となっては… =head1 NAME HTTP::Headers::ContentType =head1 SYNOPSIS use HTTP::Headers::ContentType; my…

2007-07-30

July2007InteropTokyoに行ってきた

atompub

昨日書いた Atompub の接続試験に行ってきた．自分はというと Catalyst で作ったメディアリソース無しの簡易ブログサーバを持っていった．まだ全部書かれてないようだけど，現段階での結果はこちら．実装していた分については意外と成績よかったな．メディア…

2007-07-29

APP Interop in Tokyo

atompub

明日の APP Interop in Tokyo に参加します．前々から誘ってもらっていたのに，大人の事情でギリギリまで参加できるかどうかわからなかったのです．Catalyst 製のサーバ実装（クライアントは作りかけ）を持っていきます．この成果で Catalyst AtomPub Plugin…

2007-06-18

XML::Atomで atom:content[@type="text"] なentryを作りたい

perl

XML::Atom::Contentに動的に追加する方向でやってみた．ついでに atom:content[@src] もできるように． use XML::Atom; use XML::Atom::Entry; use XML::Atom::Content; $XML::Atom::DefaultVersion = '1.0'; { package XML::Atom::Content; use strict; use…

2007-06-18

とりあえず Text-Hatena-0.20 をスーパーpre記法（＋シンタックス・ハイライト）に対応させる

perl

追記：reedomさんが更に改良したパッチを公開されています．ご指摘ありがとう．こんなパッチでどうか． --- lib/Text/Hatena.pm.orig 2007-02-28 05:03:52.000000000 +0900 +++ lib/Text/Hatena.pm 2007-06-18 13:03:50.000000000 +0900 @@ -6,8 +6,10 @@ us…

2007-04-27

前半後半

perl

[id:tomyhero:20070426:1177583843] use utf8; use DateTime; use DateTime::Format::Strptime qw(strptime); sub fs_fazzy_birthday { my $age = (DateTime->today - strptime('%Y-%m-%d' => shift))->years; return sprintf '%d0代%s' => int($age / 10), …