CPA-LAB管理人用

短答式の極意

スポック — Mon, 19 May 2008 13:37:11 GMT

それは・・・・
奨学生の皆さんにはメールしました。

あけましておめでとうございます

スポック — Fri, 04 Jan 2008 11:31:11 GMT

CPA-LAB奨学生の勝負の年です。
暖かく見守りください。

お正月には、神田明神にて奨学生の合格祈願をしてきました。

グランドオープン！CPA-LAB奨学生ブログ's

スポック — Sun, 09 Dec 2007 13:58:09 GMT

2008年度CPA-LAB奨学生ブログ's特設コーナーがオープンしました。

2008年度（平成20年度）は、5名の奨学生が論文一括合格に挑みます。
どうぞ暖かく見守りください。

ドコモ端末でログインできない(一応解決)adiary1.44

スポック — Fri, 07 Dec 2007 10:11:26 GMT

なぜか、ドコモ(Docomo)の701シリーズの携帯電話端末でログインできない事象が。。。
たぶんクッキー(Cookie)が使えないことが問題か？（でも他の端末もクッキー利用不可だよね）
これまで多くの人が使用しているのだから、おそらくこちらの設定かサーバーの問題か。。。。
たぶん、IDとセッションIDの引き回しがうまくいっていないのが原因だと思っていたら。。。

通常のログインができないことへの対策

diary.pmの

if ($auth->session_auth($1, $2)) {

で,session_authを呼び出した時、auth_auto.pmの

sub session_auth {
	my ($self, $id, $session_id) = @_;

で、引数を受け取っているだが、これがうまく引き渡せてないことがわかった。

しかし、ソースコードに問題があるとは思えない。。。。。
でも、引き渡し直前の$1,$2には、IDとセッションIDが入っているのに、session_auth側では、その値が入っていない。。。。

しかも、PCでのログインはできているわけだから、session_auth側の問題でなく、呼び出す側の問題と思って試行錯誤。

すると、diary.pmから呼び出す直前に

my $spok_1=$1;
my $spok_2=$2;

if ($auth->session_auth($spok_1, $spok_2)) {

と、いったん特殊変数から通常の変数にコピーしてから呼び出すと、うまく引き渡せた。

ネットで調べたが、そんな事象はどこにも書いていないし、さくらインターネットのPerlの設定のせいなのかなんなのか。
ちなみに

Perl : /usr/bin/perl (Ver 5.8.8)

う～。解明にはかなり時間かかりました。
もうすぐ他の奨学生ブログがオープンなので、まあまあなんとか応急処置ということで。
perlを知らない日曜プログラマには、ちょっと重荷の事象でした。

かんたんアクセスができないことへの対策

diary.pmの一部追加と変更

my $spok_11=$1;
##spok_changed  $1 →　$spok_11
		my $u = $auth->get_userinfo($spok_11);

通常ログインの変更と同じことですが。。。。

このツールにお世話になりました。
i-modeシミュレーター

■コメント（1件）

nabe『いつもいつもご報告ありがとうございます。こちらで試したところ再現しませんでしたが、症状からして Perl の Version に...』(2007/12/08 26:30)

■トラックバック（0件）

携帯電話用カテゴリリスト

スポック — Fri, 07 Dec 2007 10:12:28 GMT

携帯画面でもカテゴリリストが欲しい。。。。ということで見よう見まねでやってみた。
adiaryはカテゴリリストについては記事更新時に再作成する模様。
デフォルトではPC用しか作成されないので、携帯用も合わせて作るようにした。
（これがないとカテゴリ一覧がたぶん携帯では作れない）
記事かいてから、なんかもっと簡単にできるような気がしたけど、、、まいっか。

diary_auto.pm

#スケルトンの実行あたり

##spok_added 携帯電話用カテゴリリスト
	my $skelton_phone = $self->{format_skelton_dir} . 'category_list_phone';
	my $data_phone    = $ROBJ->call($skelton_phone, \@new_maindata);
	my $string_phone  = $ROBJ->chain_array($data_phone);
	$set->{category_list_phone}      = $string_phone;
##spok_end

category_list_phone.html

以下を、/diary.skel/format/category_list_phone.htmlとして保存。

<@2>	コマンド前空白除去
<@>
<@> 書式設定用ファイル spok_added 携帯電話用カテゴリリスト
<@>
<@>---------------------------------------------------------------------
<@>分類別記事数
<@>---------------------------------------------------------------------

カテゴリ一覧
<@forexec(t, argv#0, begin.category)>
<@ifexec(t.have_sub_category, begin, begin)>
	<@t.category> (<@t.ecount>)
	（
		<@forexec(t2, t.have_sub_category, begin)>
			<@t2.category_sub> (<@t2.ecount>)
		<$end>
	）
<$else>
　<@t.category> (<@t.ecount>)
<$end>
<$end.category>

■コメント（0件）

■トラックバック（0件）

階層カテゴリテスト

スポック — Sun, 02 Dec 2007 03:06:10 GMT

テストです。階層カテゴリが携帯でどう表示されるか

■コメント（0件）

■トラックバック（0件）

携帯から検索できない（解決）adiary1.44

スポック — Sun, 02 Dec 2007 01:31:26 GMT

携帯から検索するとうまく検索できない事象を発見。
環境：

UTF-8版
v.phone_sjis=1
テスト実機：auW31CA

いくつか修正

search.html

(修正前)

を

(修正後)

に修正。searchの前に「&」をつける。
こうしておかないと、Diary.pmの

 } elsif ($display_op eq '&search' && $query->{word} ne '') {	# 全文検索

と不整合を起こしてしまうようだ。（全文検索のルーチンに入らない）

Diary.pm

上記の＃全文検索の行のすぐに下にこれを追加

##spok_added
use Jcode; 
$query->{word} = Jcode->new( $query->{word})->h2z->utf8;
##spok_end

携帯電話からの入力SJISがそのまま渡されていたようなので、UTF-8に変換。一応、PC側でも大丈夫なことを確認。Jcode使ってすいません。

EUC版を使っている人は、末尾utf8をeucにする必要がきっとあるでしょう。

Diary.pm

ハイライト処理を担当する部分

 (修正前)　if ($options->{phone_mode}) {

 (修正後)　if ($self->{phone_mode}) {

たぶんあってると思うのだけど。

あくまでもあくまでも、応急処理。かってに修正してます。

■コメント（0件）

■トラックバック（0件）

携帯でのブログ一覧で「検索」が表示される

スポック — Sun, 02 Dec 2007 01:28:41 GMT

スケルトンの話でバグでもなんでもないけども一応。

携帯で日記一覧を表示しているとページ最後のほうに「検索」欄が表示される。何気なく検索すると、ブログを指定していないと怒られる。

なので、

_frame.html

(修正前)<@ifexec(!v.daybook_exists && !search_mode, begin)>

(修正後)<@ifexec(!v.daybook_exists && !search_mode && s.write_pass ne '', begin)>

write_passの有無でひっかけるのがいいのか悪いのか。これも応急処置ということで。

■コメント（0件）

■トラックバック（0件）

追加のアイコン

スポック — Thu, 29 Nov 2007 16:04:47 GMT

アイコンは、編集画面で「アイコン」ボタンを押すと挿入できます。下の記事のような[]で囲まなくても大丈夫です。（作者様ご指摘ありがとうございました。）

以下は推奨でない方法なので、忘れてください。

以下のようなアイコンを使うには、アイコンの右の記法をかけばOK

アイコン	記法
	[shou]
	[haato]
	[kira1]

自分でアイコンを追加することもできます。
参考：せりか式 - カスタマイズ - adiary - ユーザレベルでのカスタマイズ

以下のアイコンは、編集画面の右上の「アイコン」をクリックすると利用可能になる。

■コメント（0件）

■トラックバック（1件）

アイコン画像の追加（adiary開発日誌） by なべ

2007-11-29

スポック — Thu, 29 Nov 2007 16:42:33 GMT

アクセス解析
更新ping設定
ps送付
リンク集

■コメント（0件）

■トラックバック（0件）

ユーザー名の長さ制限(adiary1.44)はバイト数

スポック — Tue, 27 Nov 2007 16:51:21 GMT

UTF-8だとユーザー名は6文字までしか通用しない模様。
長いユーザー名を入れようとすると、
「ユーザー名は最大 20 文字（全角なら半分）までです」
と怒られる。
EUC、SJISは2バイトだけど、UTF-8は、全角で3バイトであるので、6文字までしか入れられない。
EUCも補助漢字は3バイトらしいけど。

デフォルト(Auth.pm)変えちゃダメかな～。データベースの方で制限かかっているとややこしそうだし。

■コメント（2件）

nabe『メール投稿のバグ報告ありがとうございます。ユーザー名の長さ制限もたしかにひどいですね。adiary.conf.cgiのユーザー...』(2007/11/29 26:05)
スポック『わざわざコメントありがとうございます。恐縮至極です。adiaryを使わせていただき感謝しております。』(2007/11/30 15:36)

■トラックバック（0件）

メール投稿エラーの原因(adiary1.44とauW31CA)

スポック — Mon, 26 Nov 2007 16:59:52 GMT

前に、auW31CAから、添付ファイル付きでメールを送った場合にエラーとなる現象があると書きました。
原因がわかりました。
この端末が出すmultipartが、ちょっとお行儀が悪かったのですね（もっともRFC的にはいいらしいのだが）

auW31CAがはき出すメールヘッダーの例：

Mime-Version: 1.0
Content-Type: Multipart/Mixed; boundary="-----=_NextPart_102934_116513_130092"

 -------=_NextPart_102934_116513_130092
Content-Type: text/plain; charset=ISO-2022-JP
Content-Transfer-Encoding: 7bit

パスワード
本文

 -------=_NextPart_102934_116513_130092
Content-Type: image/jpeg;name="071122_2220~0001.jpg"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="071122_2220~0001.jpg"

/9j/4QHtRXhpZgAATU0AKgAAAAgACgEOAAIAAAARAAAAhgEPAAIAAAAIAAAAmAEQAAIAAAAGAAAA
あとはデータ

■■このヘッダーとadiary1.44の相性が悪いところ

Multipart　←　最初が大文字
image/jpeg;name="071122_2220~0001.jpg"　←　nameの前に空白がない
charset=ISO-2022-JP　←　ダブルクオーテーション"がない。大文字である。

３についてはまあ対策しなくてもなんとかなる。
１と２については対策しないとW31CAからは画像投稿ができない。

いつか作者様に修正はお願いするとして応急処置の方法。

/lib/Satsuki/Base/Mail.pm

の本文の解析でmultipartを解析しているところの直前に

$mail->{content_type} =~ tr/A-Z/a-z/;

を書き足して、すべて小文字で比較しましょう。（lcでもいいかもかも）
これで、mUltipaRt でも　BoundAry でも大丈夫。

もうひとつ
Content-typeヘッダのname及びfilenameフィールドの正規表現を
[\s;]としましょう。

if ($encode eq 'base64' && ($type =~ /[\s;]filename="(.+?)"/ || $type =~ /[\s;]name="(.+?)"/))

こんな感じね。

応急処置ですが、まあとりあえず。