$title

#! /usr/local/bin/perl # #ゆいちゃっとLite(chat.cgi) # require './jcodeLE.pl'; require './pref.cgi'; $| = 1; &init; &decode; &jikan; &get; &write if ($chat); &html;exit; sub html { $buffer =~s/&chat=.*&/&/; $link = "./chat.cgi?${buffer}"; print "Content-type: text/html\n\n"; print "$title$metacode\n"; if($mode eq 'checked' ){ print "\n" if($reload); print "$body[リロード]
\n"; }else{#ノンフレームの発言欄ここから &hide; print <<"_HTML_"; $body

$titleおなまえ:$name $hiddenログ行数:$logw $kao
発言: $hidden

			(変更)

_HTML_ }#ノンフレームの発言欄ここまで #ログ表示 &readlog if(!@lines); (@lines < $window) || (@lines = @lines[0 .. $window - 1]); print "@lines\n"; print "

ゆいちゃっと Lite(Free)

\n";#この行だけは消さないでっ！！ }#html END sub get{ $chat = $FORM{'chat'}; $emoji = $FORM{'emoji'};$emoji =~ s/\t/</eg; $emoji='(=＾＾=)' if($emoji eq '(=＾＾=)'); $emoji ='' if($emoji =~/なし/); $reload=30 if($reload>0 && $reload<30); $reload=$reload+5 if($reload);#サーバ負荷を少しでも減らすため.... }#get END sub write { &jcode'convert(*chat,'sjis'); &readlog; if ($chat eq '退室') { $value = "管理人 > $nameさん、またきておくれやすぅ。($date $host)

\n"; &writelog; print "Location: $endpage\n\n"; &ended; }elsif ($email) { $value = "$name |> $chat $emoji($date $host)

\n"; }else { $value = "$name > $chat $emoji($date $host)

\n"; } &writelog; }#write END __END__