2008年09月01日

movelog ubicast投稿試験

ubicastでの投稿がうまく動かないとの通報を受け、試験的に登録してみました。

HTMLメールなんかにも対応しているし、なかなか面白そうなんですけど、
最近ブログとか、mixiも含めてあまり書いてないんで、どうなんだろう…
これを機に復活?

2004年06月10日

錦秋湖SA

秋田道サービスエリア第一番
錦秋湖サービスエリアです
温泉もあるらしいですよ

[Yahoo!de地図を表示]

高速走ってます

梅雨に入ったと宣言されて数日。
いい天気です。
お出かけにはもってこいですね。

お出かけ〜

これから秋田ふるさと村へいってきます〜。

今日は、出先の会社が休みなので、便乗休暇。
ちょち遅いけど…(^−^;
これから出発します。

物産館&晩御飯


秋田ふるさと村の入り口の横に、「横手やきそば」ってカップ焼きそばが売られてました。
何で横手が焼きそばなのかは謎のままでしたが、やっぱ何かの理由があるんでしょうねぇ。

帰りはどうも疲れて寝てしまって、全部運転まかせてしまった(^−^;

で、帰りに焼肉屋によって晩御飯を食べました。
実は…こういうまともな焼肉屋ってほとんど入ったことが無くて、どれくらいたのんだらいいか、何を頼んだらいいか、さっぱりでした。
ま、適当に頼んで、冷麺食べて帰ってきました。

なかなかうまかった〜。

スペーシアand彫刻広場

プラネタリウムとお話が一緒になったスペーシア。
んー。ちょっと子供向けかな?
でも、ここも貸し切り状態でした(笑)

上の方に来ると、彫刻広場かあります。
さすが秋田県
「犬も歩けば・IN AKITA」…だそうです…

[Yahoo!de地図を表示]

チューチュートレイン

使用済み天ぷら油で走るチューチュートレインです。
とてもおいしそうな匂いがします(笑)

ってか、貸し切りかよ(爆)

ちっちゃな子供に手を振られるのは何故?(笑)

お昼ご飯

秋田ふるさと村到着です。
まずは…腹ごしらえ(笑)
ふるさと村入口の横にある「ふるさと食事館」へ。
3件あるお店から「七代佐藤養助」という稲庭うどん屋さんをセレクトしました。
やっぱ秋田といえば稲庭うどんでしょ。今まで釜あげうどんしか食べたこと無かったけどなかなかいいですよ〜。

あ、でも横手は何故か焼きそばが有名らしいですよ。

ちなみに、上が昼御膳、下が肉味噌うどんです。

うまかった〜。

[Yahoo!de地図を表示]

2004年06月03日

モブログの表示方法を変える

moblog.uva.ne.jp - moblog mail gatewayにあるmoblog.uva.ne.jpを利用させていただいてるのですが、記事の下に写真がくるのはどうも…。
って事で、今回はモブログから送られてくる記事の内容をフォーマットして表示する方法をやってみたいと思います。

うちのブログでは、外部からの書き込みなんかをするのはモブログだけですので、「XMLRPCServer.pm」を直接改造してしまうことにします。
と、書いてしまいましたが、Perlってイマイチわかんないんですよねぇ〜。
あと、正規表現ですか。
秀丸で少し使うくらいでそれ以外は全然なので、どなたかもっとスマートな書き方教えてください〜〜(T-T)

泣き言はこれくらいにして、と。

まず、改造箇所ですが、moblog.uva.ne.jp - moblog mail gatewayにある文字コード変換処理付近がターゲットになります。
前にもかいてますが、うちはブログを入れる際、eucを選択したので、utf8をeucに変換する処理をいれてるので、やってる最中に「あ〜、文字コード変換してるんだから、ここで記事情報書き換えられるな〜」と当たりをつけてました。
では、実際のコーディング。
文字コード変換処理は、147行目から5行のコードを挿入したので、このすぐ下、予想では152行目付近にいれてやればよい筈です。
まぁ、改行入ってたりすると行番号はずれてしまいますので、とりあえずは文字コード変換の後ろに次のコードを挿入します。
---
    $item->{'description'} = formatData($item->{'description'}, $item->{'title'});
---
はい、これで完成〜〜!!

なんてことには、もちろんなりません(笑)
ここでは、「formatData」という関数に「エントリーの内容」と「タイトル」を渡して、戻り値を「エントリーの内容に入れる」という処理です。
何故タイトルも渡すかというと…。これは後述。

じゃあ、次に本体を挿入しましょう。
挿入位置は…適当な位置で(爆)
ちなみに俺は「newPost」関数の上に入れました。
近くて見やすかったからという理由なので、どこでもいいと思います。
ま、うちのソースでは「newPost」上なので126行目付近から以下のコードを挿入します。
---
sub formatData {
    my($body, $subj) = @_;
    my($line, $lat, $lon, @parts, $cont, $pict, $amar);

    @parts = split(/<\/div>/, $body);

    foreach $line (@parts) {
        if ( $line =~ /<div class=\"photo\">/ig ) {
            $line =~s/<div class=\"photo\">//ig;
            $line =~s!/>!align=left style=\"margin-right:10px;margin-bottom:2px\" />!ig;
            $pict= "<p>$line</p>\n";
        } elsif ( $line =~ /<div class=\"caption\">/ig ) {
            $line =~s/<div class=\"caption\">//ig;
            if ( $line =~ /checkMap/ig ) {
                $line =~s/\[GPS.*URL\]\n//ig;
                $line =~s!http://www.at-navi.com/map/checkMap.jsp(.*)\n!!ig;
                $lat = $1;
                $lon = $1;
                $lat =~s/.*lat=\+([\d\.]+).*/$1/ig;
                $lon =~s/.*lon=\+([\d\.]+).*/$1/ig;
                $subj = "「$subj」の地図";
                $subj = Jcode->new($subj,"euc")->sjis;
                $subj =~ s/(\W)/sprintf("%%%02X", ord($1))/ego;
                $cont = "<p>\n\n$line\n\n<a href=\"http://map.yahoo.co.jp/print?nl=$lat&&el=$lon&sc=1&memo=$subj&mode=0\" target=_blank>[Yahoo!de地図表示]</a>\n";
            } else {
                $cont= "<p>\n\n$line\n";
            }
            $cont = $cont . "</p>\n";
        } else {
            $amar = "$amar [$line]";
        }
    }
    return ($pict . $cont . $amar);
}
---
えと、前にも書きましたが、「Perlとか正規表現はよくわかりません」(爆)
とりあえず動いてますが、誰か書き直してください(T-T)

ちなみに、うちの携帯はauのA5403CAなのですが、メールに「GPS情報付加」っていうのがあって、それをやると地図サイトのURLが本文に挿入されるので、折角だから地図サイトリンクを付けようって事で、入ってきたURLを使ってYahoo!の地図サイトを開くような仕組みを入れてます。

「URL来てるならそれを出せばいいじゃん」
…ってのはナシの方向で…。
今書いてて気づきました(汗)<アホ

ま…まぁ、ここまでやっておけば、Yahoo!じゃなくて「livedoorMAP」とか使いたいな〜と思ったら
「http://map.livedoor.com/map/?ZM=12&SZ=1024%2C768&MAP=E$latN$lon&CNT=1」とかすればOKな訳で…。

細かい事は気にしないでください(^-^;

ちなみに、何回も書いてますが、Perlとかよく分からずに書いてます。
「入れたら動かなくなったぞゴルァ」とか、そういうのは多分対応できません…。

アドバイスとかあったら是非お願いします。

では、そんな感じで。

…あ。
テンプレートPHP化した方が実は楽なのかも…。
ま、PHPなんて使ったことないから出来ないんだけれども。

2004年06月02日

青空

今日は、訳あって昼から会社に行きました。
普通は電車通勤だけど、久しぶりにマイカー通勤。
あまりにも空がキレイだったので、一枚撮って見ました。


2004年05月31日

Version 3.0D-BETA-jaでの文字化け回避

moblog.uva.ne.jp - moblog mail gatewayを参考に文字化け対策してみました。

ここのブログはEUC-JPで書かれているので、MV2.661と同様の対処をします。
バージョン違いで少し行番号が変わってますね。
修正対象のファイルは「lib/MT/XMLPRCServer.pm」です。

まず、9行目に以下の行を追加します。
---
use Jcode;
---
Perlは余り詳しくないけど、文字コード変換用のライブラリを使えるようにするのかな?

そして、の147行目にある
「my $mt = MT::XMLRPCServer::Util::mt_new(); ## Will die if MT->new fails.」
すぐ上に、以下のコードを挿入します。
---
for my $f (qw( title description mt_text_more
mt_excerpt mt_keywords )) {
next unless defined $item->{$f};
$item->{$f} = Jcode->new($item->{$f},"utf8")->euc;
}
---
このコード自体は、参照元のページにそのままあがってますので、挿入位置だけですね。

モブログ

登録してみました。
http://moblog.uva.ne.jp/
でも、文字化けで、結局今はパソコンでコメント修正してます…。
画像はアップできたんですけどね〜。

MV2.661の修正方法は出てたんですけど、3.0-JAについての記述はなかったんで、参考にして適当に直してみたんですが…。
ここからじゃあアップできない(爆)

とりあえず、画像が登録できることだけは確認したので…。
あとは、文字化け対策、がんばるっす。

とうがらしうめ茶

お気に入りの梅こぶ茶です。
でも、24袋(2g)入りで700円もするんです…
お茶なんて1個買えば当分買わんで済むもんだって意識があるので、なかなか買えないんですよね〜
でも、昆布茶が飲める方には是非とも試してみて欲しいです。