トップ «前の日記(2004-01-19 (Mon)) 最新 次の日記(2004-01-24 (Sat))» 編集

猫熊は燃えつきた?!日記

最近なんにもやっていませんが、なにかやったらこちらに置くようにしています。
2002|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|
2011|09|
2012|02|


2004-01-23 (Fri) ふみゃー [長年日記]

あまりに

疲れたので、今日は早く帰ってきた。

mew-fancy-refile

mew-dist に出してみた。

LDAP

知っている人は知っていると思うが、うちの会社(というか親会社)の LDAP server はひどいものである。どんなにひどいかは内緒だが、今週たまたま見た資料によると「氏名を全角カタカナ」で検索するのを推奨しているようだ。

じゃぁってんで、「モエ パンダ」を UTF-8 に符号化して手打ちでいろいろ試してみてもうまくいかない。正解が全然わからなかったので、やっとRFC2254を見たところ、送るほうは Base64 しないのね。どうやって、Base64 した文字列かどうか判定しているのか不思議だったんだわ。(ばかだから (cn:=xxxx) とかも試してしまった)

ローマ字 => カタカナ

したい。昔もできそうでできなかったんだけど、最近、どこかで聞いたことあるなぁと思ったら、おぉ灯台下暗し状態だわな。
(defun encode-ldap-utf8 (string)
  (let* ((utf8 (encode-coding-string string 'utf-8))
	 (len (length utf8))
	 (i 0)
	 ret)
    (while (< i len)
      (setq ret (concat ret (format "\\%02x" (aref utf8 i))))
      (setq i (1+ i)))
    ret))
 
(defun mew-ldap-custom-utf8 (str)
  (let ((strs (split-string str "\\."))
	kanas kana)
    (setq kana (mapconcat (lambda (x)
			    (japanese-katakana
			     (suikyo-convert-romaji-kana x)))
			  strs (japanese-zenkaku " ")))
    (when (string-match "\\.$" str)
      (concat kana (japanese-zenkaku " ")))
    (list (encode-ldap-utf8 kana))))
 
(mew-ldap-custom-utf8 "moe.panda")
=> ("\\e3\\83\\a2\\e3\\82\\a8\\e3\\80\\80\\e3\\83\\91\\e3\\83\\b3\\e3\\83\\80")

書いている人: 白井秀行 (mailto:shirai@meadowy。org)
訪問して下さった人: 今日: 人, 昨日: , 過去: 人 (2007年5月10日から)
RDF Feed