当分、ネットから隔離された生活になります。 理由は引越し等の為。 なので、情報が完全に遮断されていまいまふ。。。 引越し頑張ります。

Oracleのシーケンステーブルのnextval取得プラグインを さく〜と作ってみた。 package Class::DBI::Plugin::OracleSequence; use strict; use warnings; our $VERSION = '0.01'; use base qw/Class::DBI::Plugin/; use Carp; sub nextval : Plugged { my ($c…

かぜぶろさんのご意見頂戴！！ 即興修正。 とりあえず動いた。 package CGI::Application::Pluggable; use strict; use warnings; use base 'CGI::Application'; use UNIVERSAL::require '0.10'; our $VERSION = '0.03'; sub import { my ( $self, @options …

オプションをimportでけるようにした。 使い方はModule::Plaggable::Fast風味。 use CGI::Application::Pluggable no_option => [ qw/TT LogDispatch DebugScreen Session Redirect Forward/ ], 'Config::YAML' => [ qw/ config_file config_param config / …

下記のようにブクマしてたらご本人からトラックバックを頂きました。 [ruby]if :Rubyco.object_id == :Rubyco.object_idはいいの？RubycoはオブジェクトだけどもRubyco.object_idはオブジェクトでないから？ http://d.hatena.ne.jp/rubyco/20060124/intern r…

Class::DBI::Plugin::DigestColumnsに名前あわせてみて、 MD5とSHAを使えるようにしてみた。SHAに関してはSHA1とかSHA2とか色々あってどれが良いのか微妙だったけど、 Digest::SHAがレーティング高くて Perl extension for SHA-1/224/256/384/512 って言って…

DBICのメソッド拡張ですが、ResultSetManagerを使えばラクチンでした。 ResultSetManagerが王道になるのかな。参考：http://blog.hide-k.net/archives/2006/03/dbixclassresult.phpsearchメソッド実行させるときにシングルクォートのエスケープさせたかった…

Version0.02をアップしました。 http://nekokak.jf.land.to/wiki/wiki.cgi/sub?page=Perl%2FKittenどうでしょうか。

http://nekokak.jf.land.to/nekomemo/memo.cgi を一応V0.02で稼動中RSSも一応出すように変更。 ドキュメントは未だに・・・＾＾；

typoさんのUTF8Columns.pmからほぼパクリ package DBIx::Class::MD5Columns; use strict; use warnings; use base qw/DBIx::Class/; use Digest::MD5 qw(md5_hex); __PACKAGE__->mk_classdata( force_md5_columns => [] ); sub md5_columns { my $self = shi…

Kittenのソース公開しました。 下記よりもってってください。http://nekokak.jf.land.to/wiki/wiki.cgi/sub?page=Perl%2FKittenご意見いただけるとうれしいです。（追記） ドキュメントをまったく書かずにリリースしてやった。 さすが俺ｗ

Data::Page::NavigationをKittenで使ってるのですが、 すばらしい。DBIx::Classとの連携が気持ちよさ杉。GJです！！

取り合えずcore dumpの鯖でも動きました。 で、ソースですが公開してもいいかなと思ってます。（あまりたいしたソースじゃござんせんが） ですが、ひとつ問題があります。。。 アプリのいい名前が思い浮かばないｗ はじめあまり考えずに作り出したのでNekoMe…

例えばこんな感じで、 my $query = { year => '2000', mon => '2', day => '30', }; my $result = FormValidator::Simple->check( $query => [ { date => ['year', 'mon', 'day'] } => ['DATE'], ] );うるう年もチェックしてくれます。 スバラシス。しかし、…

core dumpの鯖にあげてみてテストしてみたら一個上手く動かない。セッション管理で、CAP::SessionのFileセッションをつかってるのですが、 例えば、 $self->session->param(-name => 'login', -value => '1');こうしてます。 自分のマシンならちゃんとlogin…

まあ、ぼちぼち手直ししてるのですが、 はまったことを書いてみるかなと。１．初めてCAP::Redirect使いました。 今まで、cgiapp_postrunで$self->header_propsを呼び出してヘッダ設定してたのですが、 これがいかんかった。 $self->redirectでリダイレクトを…

ほしくて作ってみた。大体動くかな。 Catalyst動かす鯖がないからCGI::Appで。core dumpの鯖においてみるつもり。 CLONの中身は見てないので全然別物ですが。 ちなみに、とりあえずはパーサ実装せずにそのまま表示系でやってみて徐々に機能追加してみるつも…

こんなに遅くまで起きているとハラへった。 でも食うと体に悪いから我慢して寝るべ。

串通す場合は、 ~/.subversion/servers の[global]セクションの http-proxy-host = example.hoge.com http-proxy-port = 8080 http-proxy-username = user http-proxy-password = passwd を設定のこと。 結局ここの環境だとcoできなかったので、CPANで入れま…