ふるふる日記

どうも、朝から、眼の奥が痛いような、かゆいような、いやんなかんじで、仕事もイマイチ進まない。

夕方になって、
おれ「体調悪いから帰るわ」
後輩「どうしたんですか？」
おれ「いや、目がしぱしぱするし、眼の奥が痛いような感じするし、調子悪いから帰る」
後輩「それ、去年も言ってましたよ。花粉症じゃないんですか？」
おれ「そうか？去年も言ったのか。じゃぁ、花粉症なかなぁ。でも、鼻水でないよ？」
後輩「それも去年言ってました」
おれ「そうか。ま、とりあえず、帰るよ……」　

とか、そんな感じです。でも、２１時のNHKニュースを見ていると、花粉じゃなくて、黄砂だ。きっと……。

いつものように、絵本を持って突進してくる子供を、膝の上に座らせ、絵本を読んでいたら、「ぴんぽーん」と、玄関のチャイムが。

「三菱電機のものですが、省エネのご案内に来ました」

そういえば、この前は、「三洋電機のものですが（ｒｙ」とか言って、太陽光発電を薦められたっけ？とか、思いつつ、玄関を開けると、やっぱり、

「省エネ対策として太陽光発電をおすすめしているんです」とか……。

しょうがないので、IHも、エコキュートも、太陽光発電も使ってます。と、追い払う。

この前の三洋のおじさんもそうだったけれど、いわゆる、それを専門にやっている工務店とか、そういう雰囲気じゃなくて、本社の人が、肩たたき研修の一環か何かでチラシ一枚持たされて、一軒一軒回ってますという、雰囲気で、なにやら哀愁が漂っているんだよね。

でも、たんなる、悪徳業者だったりするんだろうか？気をつけてね。＞ご近所さん

そういえば、いいかげん、AmazonのECS 3.0からECS 4.0へ移行しないとだめなんじゃないか？と、その昔作ったmt-amazon.plをいろいろいじり始める。

とはいえ、Net::Amazonというモジュールを使っているのだから、簡単に対応できるだろう。と、いうわけで、最新版をインストール

NetBSDの場合、pkgsrc-wipから、wip/p5-Net-Amazonをインストールすると、必要なものも全部インストールしてくれるので楽ちん。NetBSDじゃないひとは、CPANモジュールを使うと楽ちんですね。

で、いろいろやってみたんだけど、昔と違って、affiliateのリンクが作成されない。というか、そもそも、affiliate_idを指定しても、なにもやってないじゃん……。ってな感じで、あるバージョン以降、そういう風になったみたいだ。

--- /usr/pkg/lib/perl5/vendor_perl/5.8.0/Net/Amazon.pm    2008-01-14　10:03:02.000000000 +0900
+++ extlib/Net/Amazon.pm        2008-03-25 01:13:13.000000000 +0900
@@ -152,6 +152,7 @@
         $url->query_form(
             'Service'        => 'AWSECommerceService',
             'AWSAccessKeyId' => $self->{token},
+            'AssociateTag'   => $self->{affiliate_id},
             'Version'        => $WSDL_DATE,
             map { $_, $params{$_} } sort keys %params,
         );

ってな、パッチを当ててやればいいわけですが、これだと、affiliate_idを指定しなかったときにちゃんと動かなくなるので、もうすこし、マトモに対応してあげる必要がありそうｗｗ。

でも、もう、めんどうだから、これでいいや的。

ただ、mt-amazon自身は、mt-という接頭語をつけるのは、よろしくない。と、sixapartが言っていることと、設定を画面上から行うようにした方がいいんじゃないか？という理由で、もう少し、いじるとするかな。

今の状態が、欲しいという人は、送ることは出来ますが、おそらく、必要なモジュールを大量にインストールするのが面倒になるような気がします。

【追記】

あー、うそだうそだ。

    use Net::Amazon;
    use Net::Amazon::Request::Artist;
    use Data::Dumper;


    die "usage: $0 artist\n(use Zwan as an example)\n"
        unless defined $ARGV[0];


    my $ua = Net::Amazon->new(
        token       => 'YOUR_AMZN_TOKEN',
    );


    my $req = Net::Amazon::Request::Artist->new(
        artist  => $ARGV[0],
        AssociateTag => [your associate id],
    );


       # Response is of type Net::Amazon::Artist::Response
    my $resp = $ua->request($req);


    if($resp->is_success()) {
        print $resp->as_string, "\n";
    } else {
        print $resp->message(), "\n";
    }

ってな感じで使えばいいだけじゃないか……。すまぬ。単純に以前と同じようには使えない。というだけだったのね……

せっかく久しぶりにプログラムをいじったので、最近読んだ。というか、今、目の前に読み終わった本が転がっているので、ずらーっと、並べてみるテスト

奥さまはマリナーゼ2 (Next BOOKS)
ほしの ゆみ
宙出版 / ￥ 924 / 2007-11-07

いわずとしれた、マリナーゼ２巻。なんというか、和みます。

一緒に遭難したいひと 3 (3) (ワイドKC)
西村 しのぶ
講談社 / ￥ 830 /

西村さんの本は、発売予定。と書いてあっても、本当に本屋に並んでいるのを見るまで安心できない感じで、うっかりしていると、売り切れて入手できないかもしれないというドキドキ感がたまりません。キリちゃんマキちゃんシリーズは、ほわほわ感がたまりませんね。

問題解決プロフェッショナル「思考と技術」
齋藤 嘉則,グロービス
ダイヤモンド社 / ￥ 2,447 /

勢い込んで、この手の本はいろいろ買ってみるわけですが、結局、ぼくの悩みを直接的に解決してくれるわけではなく、しょうがないわけですが、じわじわと、じわじわと、解決に向けて少しずつ動いている今日この頃です。

私はこうして受付からCEOになった
カーリー・フィオリーナ
ダイヤモンド社 / ￥ 1,680 /

いろいろ言われているけれど、リーダーとして、彼女はすばらしい人だったと思うし、この本を読んだ後で、その思いを強くした。というか、リーダーとマネージャーは別物で、今の社長ってばマネージャーなんじゃないかな。

変人力―人と組織を動かす次世代型リーダーの条件
樋口 泰行
ダイヤモンド社 / ￥ 1,575 /

リーダーと言えば、この人も、リーダー。マネージャーっていう感じじゃない。この愚直さは、見習いたい。というか、こういう、泥臭さが、もっと欲しい。

機動戦士ガンダムさん みっつめの巻 (角川コミックス・エース 40-20)
大和田 秀樹
角川書店 / ￥ 567 /

あいかわらず、アホだ