[static,style:tom,jcode,cache:on]
Last-modified: Tue, 10 Aug 1999 02:01:48 JST
[static,style:tom,jcode,cache:on]
慶州への旅立ち
7:20 起床遅くまでポーカーやってたが、 起きる時は起きる。
東ネのバスターミナルから、 高速バスで慶州へ。 なんとか山なんとか寺を見学。
やきにくー韓国で一番うまいと言われる焼肉屋へ行く。
ここは 死にたてのほやほやの牛肉を出してくれる。 頭置いてあったし、足切ってたし。 そう、肉が生々しいというか、赤々としているのだ。 そのまま食べても大丈夫なくらい。 かなり食った。
終わりにしょうが茶を飲んだ。 甘くてのどによさそうだ。
魚市場散策釜山に戻り、 魚市場を散策。 港町だけあって、 ものすごい活況だ。 なまこやら何やらのグロテスク系がうじゃうじゃしている。 なかでもグロッティーだったのは、 魚肉ソーセージというかみみずというか、 変なのがぐにゃぐにゃしてる奴。 とても高級品で美味しいらしいのだが、、、
繁華街散策市内に戻り、 繁華街を散策。
あまりに私が汚いジーンズ *1をはいていたので、 Lさんの指令の元にジーンズを買う。 20,000W。
とりあえず試着してみるのだが、 試着室というものが無い。 かなり躊躇したが、ここでは 恥ずかしがってはいけないので、 隣に女性客がいようとも店の奥でズボンを下ろす。
サイズもはき心地もなかなか良いので、 これに決める。
刺し身料理を食す。 一階のいけすで食べる魚を選び、 それをおろして上の階で食べる、という方式。
なまこがでてきて、 やっぱりグロッティなのだが、 こりこりして上手し。 他の魚（何かはよく分からなかった）も 多少生臭かったが、 しこしこして上手し。
からおけーロッテホテル前の「釜山港」という店でカラオケ。 日本の歌が入っている店は少なくて、しかも高いそうな。
といっても、 新しい曲は入っていない。 私が得意とする（と本人だけが思っている）B'z やミスチルは入っていない。 でも何故か やまだかつてないなんとかや おっぱいがいっぱいは入っている。
私が歌った曲リスト
帰宅25:00 に帰宅。 またまたポーカー。
遅い、朝連日の睡眠不足がたたったのか、 10:00 になってやっと起きる。 朝昼一緒で、 鳥雑炊の店で食す。 人参酒も頂く。
聖鷲寺というでっかい寺へ行く。 途中の休憩所で、 なんかの木と葉っぱを７年つけたという 幻の茶を頂く。 アルコールっぽかったが、 酒ではないらしい。 でも酔っ払ったような気持ち。
「天下大将軍、地上女将軍」という碑が多い。
遊園地TDLをちょっとパクったような遊園地へ行き、 ジェットコースターに乗る。
ゲームコーナーで、 パター勝負、バスケ勝負をする。
あんこう料理の店へ行く。 辛かったが、上手かった。
ソウルへ
朝の便でソウルに向かうため、 5:30 に起床。 7:15 発の特急に乗り、 12:15 ソウル着。 ソウルは横断歩道が少なく、 ほとんど地下道。 だから階段下ったり昇ったりで疲れる。
ホテルへホテルは南大門下のパレスホテル。 素泊まりで一泊 60,000W *1。 ４人だから 15,000W/人。 南大門市場をまたぎ、ホテルへ。 駅近くで地図を見ながらあれこれやってたら、 ６０代ぐらいのおじさんが道を教えてくれた。
12:00 にはチェックインできると聞いていたので、 13:00 ごろ着いた。 ホテルのスタッフに日本語が通じる人がいたので、 予約した旨を伝えると、 部屋の鍵をくれた。 けど、予約したのは 601 のはずなのに、 渡された鍵には 205 と書いてある。 あれ、っと思い聞いて見ると、
「その部屋は故障してます」
とのこと。 って渡す前に言えってばさ。 まあ、601より広い部屋らしいので行ってみると、 なぜか布団が乱れたまま敷きっぱなし。 ごみも散乱してる。 これは他の人が使ってるのでは、とフロントに戻ると、
「その部屋はまだ掃除が終わってません」
と平然と答える。 だから、前に言えって。 掃除に３０分ぐらいかかると言うので、 荷物を置いて少し街を歩こうと、 荷物を預かってもらおうと訊ねたら、
「そこの机の下に置いて下さい」
って、隅に置いてある机を指す。 げ、こんな所に置いたままにできないっちゅうの。 貴重品は無いとはいえ、 ロビーに置いたままにするのはさすがに危険なので、 掃除が終わるまで待つことに。
１０分たって様子を見に行くと、 まだ掃除が始まっていない。 いつまでたっても終わりそうにないので、 フロントにその旨伝えると、 催促の電話をかけたよう。 その甲斐あってか１０分後には用意が出来た。
部屋は以外に広く、床暖房 *2がちゃんと効いてる。 冷蔵庫が効いてなかったり、 バスが水浸しだったりしたが、 特に不都合は無かった。
明洞という繁華街に繰り出す。 若者がいっぱいいたぞよ。
やきにくーまだ韓国にきて一度も焼肉を食べていないのが約一名いたので、 焼肉を食いに行く。 が、ここでは案内してくれる人がいないので、 自分たちで探す。 とりあえず常套手段ということで、 ホテルの人にやすくて上手い焼肉屋を訊ねたら、 吉牛に連れてかれる、、、訳はなくて、 近くの店に案内してくれた。 なんだか提携的なものを感じたが、 なかなか店の雰囲気も、 味も良い店だった。 まーずガイドブックには乗らないだろうけど。
帰ってきました。とりあえず、無事です。
Readme! 新作レビューに 評価された らしい。
確かに当初の「たわごと」という意味づけからは外れてきているかも知れない。 ま、意味づけなんてないんだけど。
TDSが脊髄反射的に書くのにはいい、と書いてありますが、 ただ単に私がそういう使い方をしているだけで、 読み物風のも書けます。
ひとづまは京王線 。 もしかして同じ電車に乗ったことあったりして。
６日間で 452。 意外とすくないな。
[TDS] バグFN がちゃんと動いてなかった。
Schedule.pm で split("\t+", $line) とかやってたので、 ちゃんと動いてなかった。 split(/\t+/, $line) に修正。 アクセス解析結果を毎日メールできるようにもしたい。
擬似HTML の判別にバグあり。 修正。
日記観察え、 404 を返しますか？ うちからだと大丈夫だけど、、、
charsetはやっぱりちゃんと指定するべきだ。 韓国の L 氏宅から network に繋がせてもらったのだが、 基本はハングル。 私のページは、全部 charset=iso-2022-jp と指定しているので ちゃんと読めたのだが *1研究室の他の人たちのページは、 読めない。
hns-1.03-beta3のドキュメントを見て思ったこと：
[TDS] スケジュールすでに過去のものとなった予定は灰色、 今日の予定は赤で表示するようにした。 font タグを使用。 スタイルシートにしたほうが良かったかな？
ってわけでスタイルシートに変更。
TDSでは HTML4.0 Strict に従う方針。 FONTも廃止して COLOR,BIG,SMALL を追加。 BLOCKQUOTEの下に P を自動的に入れることはしない。
[TDS] 用語置換URL置換と用語置換を別にした。 term.datに記述。 タグも使用可能。
[TDS] ドキュメントを かなり追加。
クッキーID 発行の際、HTTP_USER_AGENT も使うようにした。
[EDI] Readme Review NHKより私は朝日新聞に載った時点でその 流行は終わっていると解釈しています。
ちなみにその朝のニュースは帰りの飛行機の中で見てたんですが、 happy99 に触れた所でちょっと聞いて見ようとイヤホンを用意したのですが、 聞けるようになったらすでに次のニュースでした。
[TDS] ref形式新リンク方式を仮実装。 LINKコマンドで、 '?ref=http:%2F%2Fwww.morito.mgmt.waseda.ac.jp%2F%7Etom%2Ftawagoto%2Fd199902c%2326-1' を query_string にセット。 すでに query が存在する場合は & で加えばいいのだが、 hns その他が var を伴わない query に対応していない可能性が高いので、 query が無い場合のみ付加した。 [/~#?] は query に使えないのでエスケープ。
初期リリース版では、undocument で default off にする予定。 この日記では試験的に on にしています。
CGI.pm を使うと、 ?19990212 のように var を伴わないと、keywords=19990212となり、 ?19990212&ref=http... とペアが一つでも存在すると 19990212="", ref="http.." となる。 そのため、以下のようにして判別する。
my $keywords = param('keywords');
if ($keywords eq ''){
for (param()){
if (param($_) eq '' && $_ =~ /^[0-9]+[abc]?$/){
$keywords = $_;
last;
}
}
}
セクションのカテゴリーということなら、 カテゴリーはセクションの属性と考えられますから、 NEWの下に来るのが自然ではないですか？
[TDS] すべて表示モードを加えた。 通常の日記では莫大な量になるので使わないが、 更新履歴などの用途に利用する。
[TDS] 検索バグ本文検索時に、コマンドが解釈されないバグ。 ヒットした単語を<span>で囲んでたため。 STRONGに置き換えることにより修正。
[TDS] プラス１日バグ動的生成の際、 一番新しい日記の日付が一日多くなるバグ。 ObjectTemplate.pm のバグが原因。
attributes がみな static 扱いになっているため、 同じ基本クラスから複数のクラスが派生し、 その中のどれかが基本クラスのメンバ変数を変えると、 他の派生クラスの変数も変わってしまう。
ObjectTemplate::attributes で、
# Define accessor only if it is not already present
unless ($pkg->can("$attr")) {
$code .= _define_accessor ($pkg, $attr);
}
というふうに、すでに基本クラスで用意されているメンバについては メソッドを用意しない。 これを基本クラスで用意されてても、 派生クラスごとに用意するように変更すると、うまくいった。
# Define accessor only if it is not already present
# unless ($pkg->can("$attr")) {
$code .= _define_accessor ($pkg, $attr);
# }
来訪者追跡が出来ていなかったバグ。 param('year') に依存していたせい。 空なら現在日時を使うよう修正。
[TDS] 用語置換 BUGなんかバグばっかり。 $conf::term_file をコメントアウトしたとき、 本文が空になってしまってた。 修正。
[TDS] ナビゲータバグまたまたバグ。 前後月へのナビゲータが表示されていないバグ：修正。
queryRFC1738では、
search = *[ uchar | ";" | ":" | "@" | "&" | "=" ] uchar = unreserved | escape unreserved = alpha | digit | safe | extra reserved = ";" | "/" | "?" | ":" | "@" | "&" | "="
なので 使えないはずなのですが、 RFC2396 を調べてみたら
query = *uric
uric = reserved | unreserved | escaped
reserved = ";" | "/" | "?" | ":" | "@" | "&" | "=" | "+" |
"$" | ","
となってたりします。 でも、
Within a query component, the characters ";", "/", "?", ":", "@", "&", "=", "+", ",", and "$" are reserved.
とも書いてあるのですが、 reserved purpuse がよく分からんです。
[/~#?]の内、 '~' が使えない、ってのは間違いで、 '#' は fragment delimiter で予約済み、 '?' は query delimiter、 '/' が分からんですな。
LaLa４月号購入。
キス：ごしちゃんかっこいー。 おれも自分で調律できたらなー。 かれかの：十波よ、今ごろ気づくか。 かたつむり：あいかわらず背景すくない。 BBJoker：先週のネタを使うなあ。 Natural：お、弓ひいてる。
朝日夕刊に庵野あにまげどんに庵野が出てた。 ああ、ついにかれかのも 終わってしまったか。
かれかのではギャクをやりたくて、 シリアスなのはうざったい、とのこと。
私に触れるもの今朝は久しぶりに恐い夢で金縛りにあった。 昔よく見た恐い夢は、 人形に追いかけられるだとか、 電車に轢かれそうになるだとか、 家族に置いてかれるだか、 どちらかというと現象的なものが多かったのだが、 この頃は、 近づく手にそっと首を絞められたり、 顔をなでられたり、腰を抱かれたり、というような、 触感的な恐怖が体を襲う。
それはあまりに生々しく、背筋に悪寒を走らせる。 逃れるように力の限り目を開くも、 まだ目覚めてはいない。 視覚として部屋の様子を見ることは出来るのだが、 体はまだ眠っている。
気を緩めるとその手に沈められ、 それでも目を開き、沈められる。 それを幾度か繰り返した後、ようやく身体的覚醒に辿り着く。
いや、違う。 それでもまだ逃れられてない。 天井には柳の集まったような固まりが、 こちらの様子を伺っている。
何？
そう思った瞬間、 その集合体は私の顔をめがけて落下してくる。 咄嗟によけた枕の上から、カサカサと音を立てるように、 それは部屋の片隅へ隠れた。
私はすがるように灯かりをつけ、 自分の視覚が正常に稼動しているのを確認し、 その恐怖を反芻してしまうのだ。
人形幼い頃私を苦しめたのは、 やはり人形である。
その頃家に、 キューピー人形を二回りほど大きくした人形があった。 寝かせている時は瞳を閉じ、 体を起こすと瞳が開く、というもので、 前屈の姿勢から体を起こすと 私に向かって瞳を開く。 その青々とした瞳が突然開く瞬間、 逃れられようのない恐怖が、私の体を固めるのだ。
現実世界での恐怖心は、 当然のように夢でも現れる。
家族で街に買い物に行っているときだった。 まず木に止まった梟が私を静かに見下ろす。 横道から大通りに出たその時、 向かいの店のショーウィンドウに、 あたかも私を待っていたかのように、 その人形は座っていた。 少し前かがみで、その瞳は閉じている。 が、その瞳が私を硬直させるのには一秒とかからなかった。
突然体を起こしたその人形は、 顔の半分をも占める大きな瞳を私に向けるのである。 もう、私は動けない。 家族は何も気づかず先を歩いていく。
「ま、、待ってよ、、」
声にはならない。 家族との距離と反比例するように、 その人形は私へ接近する。 一度近づき始めたら、もう止まることはない。 なおも速度を増してゆくその人形は、 やがて瞳のみとなって私の視界を埋めていった。
[TDS] リリース前のチェック[TDS] tdf-mode.el で hilit19を使って色をつける。 こんなかんじ：
(if (featurep 'hilit19)
(hilit-set-mode-patterns
'tdf-mode
'(("^!" "$" comment)
("^NEW " "$" comment)
("^CAT " "$" comment)
("^\\(LINK\\|URL\\) " "$" decl)
("^\\(BIG\\|SMALL\\|COLOR\\|STRONG\\) " "$" include)
("^HR" nil string)
("~$" nil string)
("^\\(CODE\\|CITE\\|PRE\\)$" "^\\(/CODE\\|/CITE\\|/PRE\\)$" define)
("^\\(UL\\|OL\\|DL\\)$" "^\\(/UL\\|/OL\\|/DL\\)$" define)
)
nil 'case-insensitive)
nil)
ほとんど html-helper-mode のパクリなんだけど。DIARY 1999 02 27
うるう年の計算4で割りきれて100で割りきれないか、400で割りきれること
(!(y%4) && y%100) || (!(y%400))
[TDS] MonthCollector.pmFileAdaptor.pm を廃止。 MonthCollector に移行。 起動時に日記ファイルリストを取得。 MMDD, MM/DD の二つをサポートするには、 こちらのほうがよさそうだ。 ファイルアクセスの付加が気になるが、、、
かれかの忘れうぉー、昨日は金曜だったのかぁ！
Skelton.pm の使い方use Skelton;
my $skelton = new Skelton(filename=>'skelton.html');
$skelton->Read;
$skelton->SetMacro("CONTENT", sub
{
my ($self, $cmd, $var) = @_;
...
return $html;
});
print $skelton->AsHTML;
こりゃ便利だ。
(let* ((year (substring (current-time-string) 20 24)) (month (substring (current-time-string) 4 7)) ..
とかしてたのは何？
suexecここを参考に。
# mkdir /usr/local/apache/sbin # cp suexec /usr/local/apache/sbin # cd /usr/local/apache/sbin # chown root suexec # chmod 4711 suexec
ここを見ると、
./configure --enable-suexec --suexec-caller=nob ody --suexec-userdir=www
でいいみたい。
\#!/usr/local/bin/perl use English; print "$UID, $EUID : "; print "$GID, $EGID";
を呼び出して、 自分の UID,GID と一致してるか調べる。
mod_perlcc だと const が通らないので、make CC=gcc。 なんで cc だったんだろう。
/usr/local/lib/gcc-lib/sparc-sun-sunos4.1.4/2.7.2.3.f.1/include/stdlib.h では void free() なのに、 /usr/local/lib/perl5/sun4-sunos/5.00403/CORE/proto.h では int なの？ 他にも memcpy とか strcpy とかが conflict おこしてる。 gcc-2.7.2.3.f.1 のインストールの問題か？
[TDS] SNEW導入。 通常の NEW は誰でも読めるトピックを生成するが、 SNEW(SecretNEW) は自分、すなわち $conf::manager_cookie_id に登録した 人しか読めない。 検索にも引っかかっても表示されない。 ただし動的モードの時のみ。 静的モードの時は無条件で非表示。
tdf ファイルが httpd reachable の所に置いてある場合は、 何をやっても直接参照できてしまうので、 他のディレクトリに置く。
下に「ひみつだよーん」というトピックがありますが、 動的モードでも見えないと思います *1。 本当は無いんだろうと疑う方は、 当該日記ファイルを直接 ご覧ください。
もし見えてたら教えて下さい。
[TDS] ReplacerReplaceURL と ReplaceTerm が似通っているため、 Replacer という基本クラスを作成し、 それぞれを派生させる。 ReplaceTerm は空。
[TDS] キャッシュ使用判定に todo, schedule を追加キャッシュを使うかどうかは、 キャッシュファイルと日記ファイルしか比較していなかったが、 todo, schedule も比較することに。 replace 系はべつにいいだろう。
[弓道] 弓ちゃんこれまた久しぶりになってしまったわりには思いのほかよくひけた。
弦がかなりぼろぼろなので、 二回も裏返ってしまった。 もう切れる寸前なので、変える。 中じかけは今度作ろう。
ツノミがちゃんと効いてくれればまっすぐ飛ぶんだがなあ。 ばしっていった時も、耳を打ってたりする。
おみやげの朝鮮人参ゼリーを配る。 口にいれた段階ではふつーのゼリーなのだが、 噛んだ後味は、やっぱ人参だ。
なるべく妻手の力を抜こうとするのだが、 やっぱ途中で抜けそうで恐いのね。 だって耳に当たると痛いんだってばさ。
離れで弓が２時８時になってしまう。 握りの上を強く押しすぎかな？
いろいろおおっと、塩崎さんにいろいろつっこまれてる ^^;) query に / が使えないのはだめだめエージェント対策とのことですが、 ちゃんとした理由付けってないのですかね。 reserved ってのは、将来的に予約ってことかしらん。
優先順位：ありゃ、間違っちゃいました。 とりあえずメモ程度に書いていたのですが、お恥ずかしい。 素直に (y%4==0 && y%100!=0) || (y%400==0)って書けばよかったです。
なんだか分からんけどめちゃくちゃだったダイジェストの日付は直しました。 うーん、なんであんななってたんだろう。
[TDS] 並び順月毎(Month::GetCollection) は古いもの順(1..31)
最新版、最近三ヶ月、すべては新しいもの順で。
ただし検索の時は新しいもの順がデフォルト。
[TDS] カテゴリー表示機能を実装。 動的モードのみ。 検索にチョコっと手を加えただけ。
弓ちゃん日記修復ずっと弓ちゃん日記が変な last-modified を返していたのだが、 どうにか修復。
[でんごー] でんごーいつのプレイだか忘れたが、メモ。
東海道緩行中級：
西宮まで all great だったが、芦屋でオーバーしてしまう。
この路線は非常に余裕時間があるので、
おおむね 80 キロ走行で間に合う。
一部 90 キロ出す必要があるが、
60 で十分な所もある。
237キロの最高スコア。
こまち中級：
やっぱこの路線が一番きもちよいかも。
ポイントぼんぼん入るし、
ジェットコースターみたいだし。
あるラインに乗ると、いい感じで定通が取れる。
/tmp fullなんだか file system full / とか起こるので 何かと思ったら、 /tmp に hina.$$ がぞろぞろ残ってた。 hina.sh で temp 消すの忘れてた。
[comp] www へ apache_1.3.4 をインストールまだ稼動はしていない。 現在稼動しているのは 1.2.4 で、 /usr/local/etc/apache/ 以下にあるので、重複はしないはず。
# make install # cd /usr/local # mv apache apache_1.3.4 # ln -s apache_1.3.4 apache
port 8000 で 試験運用。suExec が無事稼動。
query に '/'absoluteURI = scheme ":" ( hier_part | opaque_part ) relativeURI = ( net_path | abs_path | rel_path ) [ "?" query ] hier_part = ( net_path | abs_path ) [ "?" query ]
なので、
path を取り出すには、 '?' で split してから m!^(.*/)! すべきだと思います。
個人的には、PATH_INFO あたりの絡みなのかな、と推測しますが、 PATH_INFO 自体よく分かっていないので、よく分かりません。
eucにすると Mozilla で文字化けする。 リロードかけるとちゃんと表示されるのだが、 form の中とかは化けたまま。 ちゃんと charset=EUC-JP してるはずなんだがなぁ。 でも TsDiary.cgi だとちゃんと行くな。
あ、わかった。 .htaccess で AddType "text/html; charset=ISO-2022-JP" html してるからだ。 外したのでちゃんと上手く行くはず。
[TDS] カテゴリー内検索を実装。 指定したカテゴリーに属するトピックのみ検索。
いままで表示と検索を区別して考えてたが *1、 これを融合して考える。 検索ボタンを押せば検索と識別。 その際カテゴリーが 'ALL' 以外なら、 その中のみ検索。 ジャンプボタンが空でカテゴリーが指定してあれば、 カテゴリーに属するものを無条件で表示。 検索とジャンプの form を分ける必要が無くなった。
また、 「本文を検索」、「タイトルを検索」を廃止し、 「タイトルのみ検索」を導入。 カテゴリー内検索を検索語でやってた関係上、 本文、タイトル OFF でカテゴリー表示をやっていたが、 ちゃんとしたカテゴリー検索を実装したため不要に。
機能追加はこの辺にし、 3/3 の beta2 リリースに向け バグ出し、ドキュメントの整備を行う。
駅前の京樽とリリアンのミシン台の上の出会いがつぶれてた。 ってゆうか、前に倒産しなかったっけ？
変わりに出来るのは、DOCOMO かなんかの携帯屋。 この頃多いんだよね、この手の店。 そんな儲かるのかな。
携帯といえば、 うちの姉 *1がまた訳分からんストラップを買ってきて喜んでた。 あたしゃ携帯持ってないから分からんのだが、 ずばり、今年は リリアンで作る携帯ストラップが流行るとみた！
「世界で一つしかない、あなただけのストラップ！」
「色も模様も、好きなデザインが作れます！」
さあ、リリアンブームの再来だあ！！
[TDS] データファイルを dat に移動
このページは
Tomsoft Diary System 1.00-alpha4-unreleased
を用いて
生成されています。
![[TDS]](image/tds-banner.jpg){kind=small}
![[Tom's Squire]](/~tom/image/banner.gif){kind=small}