ゆいちゃっと2000研究室
準備中です（＾＾； とりあえず圧縮ファイルを置いておきます。
・・・と言って２年以上そのまま。永遠に準備中ってことで。
・2000.lzh lzh圧縮ファイル
・2000.exe 自己解凍形式
内容は同じです。詳しくはreadme.txtを読んでください。
追加情報あり。詳しくはこのページの下を参照（03/03/16更新）
サンプルはこちらにあります。
一部機能が制限してあります。また、配布版と一部異なる部分があります。
チャットを楽しみたい方はこちらへどうぞ。人がいる確率ははぐれメタルのエンカウント率以下ですが。
◆本ページで公開しているCGIスクリプトのオリジナルは、ゆいちゃっとHomePageで入手できます。
◆本ページでの再配布は、こちらの再配布条件に従った正規なものです。
◆改造した点は、入退室メッセージを自分で書けるようにしたところです。大きなところはそこだけです（死） 細かいところでは、間違い探し程度には…（＾＾；
追加機能に関する質問をオリジナル作者のゆいさん宛にしないようにお願いします。
|
↑ゆいちゃっとのＨＰにあった表記例そのままに近い（笑）
掲示板
トップページ
設置に関するサポートは掲示板かメールで受け付けます。遠慮なくどうぞ。
「ファイル転送＆パーミッションって何？」ってのでもＯＫです（笑）
設置されたときは、事後でいいですからメールか掲示板で教えて下さいね。
かなり励みになります。
※追加情報その３
「参加者名に色付けしちゃおう計画」
pref.cgiを書き換える（赤色部分を追加）
105行目 ($timerec, $name, $color2, $host2,$dmy) = split(/\t/, $line);
109行目 $line = "$times\t$N\t$color\t$host\td\n";
110行目 $flag =0;$name = $N;$color2 = $color;
112行目 push (@sanka3, "<font color=$color2>$name</font>☆") if($name ne $host2);
119行目 push(@sanka,"$times\t$N\t$color\t$host\td\n");
120行目 push (@sanka3, "<font color=$color>$N</font>☆") if($N ne $host);
chat.cgiも書き換える（赤色部分を追加）
21行目 print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"$R;URL=./chat.cgi?W=${W}&R=${R}&color=${color}&L=${L}&S=${S}&B=${B}&N=${N}\">\n" if($R);
22行目 print "</HEAD>$body<A HREF=\"./chat.cgi?W=${W}&R=${R}&color=${color}&L=${L}&S=${S}&B=${B}&N=${N}\">[リロード]</A>\n";
tool.cgiも書き換える（赤色部分を追加）
30行目 ($timerec, $cname, $color, $host,$dmy) = split(/\t/, $line);
33行目 print "<a href=\"mailto:$host\"><font color=$color>$cname</font></a>($time2 秒前）<BR>";
※追加情報その２
「おみくじの設置方法」（サポートページの掲示板より・・・って、勝手に引用して良かったのかな（＾＾；）
chat.cgiの
sub write {
以下に
#おみくじ機能
if ($chat eq 'おみくじ') {
srand($times);
$kuji_file = './kuji.dat';#おみくじファイル。
unshift( @lines,$value);#おみくじ発言を@linesに収納
open(DB,"$kuji_file") || &ended('$kuji_file open error');
@lines2 = <DB>;
close(DB);
$msg= $lines2[rand($#lines2+1)];
chop $msg;
$mikoN = "巫女";
$mikocolor = "pink";
$value = "$mikoN\t$mikocolor\t\t$msg\t\t$date\t$host\t\t\t\t\n";
}#おみくじ機能ここまで。
を追加してください。
面倒な方はこれに差し替えてください（笑）
#おみくじ機能ここから とかは不要ですが、あったほうがわかりやすいです。
そして、kuji.datを同じディレクトリに置いてください。
ゆいちゃっとのデフォルトはこれです。
パーミッションの変更は不要です。
※追加情報
「ＩＰアドレスが出てホスト名が出ないサーバーにおける設定方法」
pref.cgiの
$host=$ENV{'REMOTE_HOST'} || $ENV{'REMOTE_ADDR'};
を
$addr = $ENV{'REMOTE_ADDR'};
$host = gethostbyaddr(pack('C4',split(/\./,$addr)),2);
にするといいかもしれません。
サーバーによっては、
$addr = $ENV{'REMOTE_ADDR'};
$host = gethostbyaddr(pack('C4',split(/\./,$host)),2);
にした方がいいかもしれません。
以上。
実は、ここのサーバーのperlのバージョンが変わって、上のように書き換えないとホスト名がＩＰアドレスでしか表示されなくなったんで（＾＾；