人に読ませる文章を書くのって難しいでつね。 プログラムだったら簡単な説明のせておいて、 ソースはっつけとけばいいけど。（Blogの場合ね）文章を書くことで収入を得る人ってやっぱすげーわ。 そんなこんなでとある雑誌でとある記事を書くことになって今さ…

なんかDoCoMoの端末だとリファラが取れないしぃ〜。 リファラだけに頼るのもなんだしぃ〜。 まあ、前回URLに戻すだけならAFTER_OUTPUTフェーズとかで現在URLを セッションに入れとけばぁ〜とかいわれたしぃ〜。やってみました。 package Sledge::Plugin::Red…

なんかwml:goにはStickyQueryできなかったので。 $ diff StickyQuery.pm StickyQuery.pm.org 75c75wml:go') { - > if ($tagname ne 'a') { $どうでしょう？id:ikebeさん あまりにもしょぼいパッチなのでメール送るの気が引けました。 そんなの勝手にやれとい…

まえのは見通しが悪いとの意見を社内よりいただいたので。 sub convert_param { my $self = shift; my $page = shift; if ( $page->mobile->agent->is_non_mobile ) { croak "non mobile"; } for my $p ($page->r->param) { my @v = ( map { Encode::encode(…

ってのは、UNIVERSAL::monikerで使われてて、 plural_monikerメソッドで単語を複数形にしてくれるのですが、memoをplural_monikerメソッドかけると、 memoesになった。でも、色々調べてもmemoの複数形はmemosだし〜。 memosだと思ってたおれは瞬間はまったし…

とか作ったの忘れてた。 いま、思い出した。 Apache::Uploadってどこー？？？とか、 どういう形で拡張したらいいか微妙に悩んだような希ガス。 package Apache::Upload::Util; use strict; use warnings;sub import { my $self = shift; { no strict 'refs';…

携帯の絵文字がウザーなので 文字化けないようにする方法をためしてる。Sledge::Charsetの部分で。 use Encode; use Encode::JP::Mobile; use Carp;sub convert_param { my $self = shift; my $page = shift; my $agent_code; if ( $page->mobile->agent->is…

package Sledge::Plugin::RedirectReferer;use warnings; use strict; use URI;our $VERSION = '0.03';sub import { my $self = shift; my $pkg = caller; no strict 'refs'; *{"$pkg\::redirect_referer"} = sub { my ($self , $url) = @_; if ( $self->r->…

package Proj::Pages::PC::Index; use base qw(Proj::Pages::PC Proj::PagesPiece::Index); use NEXT; sub dispatch_index { $self->NEXT::dispatch_index(); } 1; package Proj::Pages::Mobile::Index; use base qw(Proj::Pages::Mobile Proj::PagesPiece::…

でっちあげてみた。 package Class::Plugged; use strict; use warnings; use Class::Inspector;sub import { my $class = shift; my $pkg = caller; for my $method ( @{Class::Inspector->methods($class) || []} ) { next if $method eq 'import'; no str…

moge.jp/hoge/mogeとアクセスさせるとmoge.jp/hoge/moge/にアクセス行きやがる！Vodafone703○H うぜ！

が、落ちてる。 調べたいことあるのにぃ〜。

作ったけど却下なやつ。 ってかもしやるなら、searchを呼ぶのではなく、find_or_createをよぶべしべし。 $ svn diff Class/DBI/FromSledge.pm Index: Class/DBI/FromSledge.pm =================================================================== --- Cla…

見てきた。 ってか、今日は横浜の花火大会で人大杉。 うぜー。

ジョニーめっちゃうまい。 かなりうまい。 さすが、男前豆腐！オイラの従兄弟は男前豆腐で働いとります。 ジョニーおくってくれー。

最近暑すぎ！ でも、昔はこれくらいの暑さでも何とか耐えられていた希ガス。。 おっさん化現象？！やばすやばす。 とかいいつつ、クーラーつけてる。

を、MoFedgeベースで少し（ほんの少し）書いてみたら、 すげー小さくなった。

別れあり。 おつかれした。

嫁てなかったらしいからけしたよ。 Boofy!

HTTP::MobileAgent::DoCoMoのパッチ書いて送ってみた。

http://caspeee.jp/channels/erika_ura/この人。 会社に来たので。 セグウェイ乗ってた。

どうかを調べるのに、HTTP::MobileAgentでは判定するメソッドとか無いみたい。 多分。 ってか$agent->versionで、みりゃいいのか。（追記） DoCoMoの場合はなかった。 EZの場合はあった。

普段、フレームワークを使った開発をしていればしているほど、 趣味のアプリとか小さいアプリを書くときにフレームワーク無しではありえない。ってのも、まんどくさい処理をほぼ全てやってくれるから。 あえて、そこらへんを自分で書こうとはおもわんなぁ。…

png画像をjpegに変換して、サイズを６０＊６０にしようとして、 下みたいにしてると、生成される画像サイズが、６０＊８０になる罠 use Imager; my $jpeg = Imager->new; $jpeg->read( data => $image->get('png150') ) or die $jpeg->errstr; my $scaled = …

毎回、リファラチェックするの面倒なので。 どうすかねぇ。 package Sledge::Plugin::RedirectReferer; use strict; use warnings; our $VERSION = '0.01';sub import { my $self = shift; my $pkg = caller; no strict 'refs'; *{"$pkg\::redirect_referer"…

につながらん。 ものすごいアクセス殺到してるんだろうなぁ。みんなリロードしまくるから 田代砲とかわらんよ。もちつけもちつけ。まあ、私も田代砲の一発になってしまってますが＾＾；