$title

#! /usr/local/bin/perl # # Simpleゆいちゃっと # Japanese version--sjis表示専用 # Copyright(c) 1997 yui@cup.com # # Maintained by Yui Suzuki # http://www.cup.com/yui/ # #enter.cgiは、入室時の処理などを行います。 require './jcodeLE.pl'; require './pref.cgi'; $| = 1; &init; &getcookie; &htmlenter if($ARGV[0] eq 'enter'); &decode; &jikan; $autoclear = $FORM{'autoclear'}; &setcookie; &hide; &html; &readlog; $brauza = $ENV{'HTTP_USER_AGENT'}; $brauza=~s/管理人 > $nameさん、おいでやすぅ。 $brauza($date $host)

\n"; &writelog;&ended(); exit; sub getcookie{#くっきーを頂きます。 $cooks = $ENV{'HTTP_COOKIE'}; $cooks=~s/.*yuidataS=(.*)yuiendS.*/$1/; ($name,$reload,$email) = split(/\t/, $cooks); if(!$reload){#くっきーの無い場合のデフォルト値 $reload=30;} }#getcookie END sub setcookie{#くっきーをブラウザにプレゼントします。 local($dmy,$mdc,$monc,$yrc,$wdayc,$mc,$yc); ($dmy,$dmy,$dmy,$mdc,$monc,$yrc,$wdayc,$dmy,$dmy) = localtime($times + 7776000); $yc = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday') [$wdayc]; $mc = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec') [$monc]; $yrc = $yrc+1900; $mdc = "0$mdc" if ($mdc < 10); $data="$name\t$reload\t$email\tyuiendS"; $data='deleted' if($FORM{'cook'} ne 'ok'); print "Set-Cookie: yuidataS=$data; expires=$yc, $mdc-$mc-$yrc 00:00:00 GMT\n"; }#このクッキーはだいたい3ヶ月間有効です。 sub html{ print "Content-type: text/html\n\n"; print <<"_HTML_"; $title$metacode $body $hidden

おなまえ:$name$reload秒更新

発言:

自動消去:自動消去にはJavaScriptを利用しています。
上下を分けている境界線は自由に移動できますよ。
各種設定を変更したい場合はこちらへ。

_HTML_ }#html END sub htmlenter{#入室前の画面 print "Content-type: text/html\n\n"; print <<"_HTML_"; $title$metacode$body

$title

おなまえ:記入してね！

メールアドレス:

リロード時間:0秒なら、手動です。

_HTML_ &ended(); }#htmlenter END __END__