#! /usr/local/bin/perl # #ゆいちゃっとPro1.0(chat.cgi)+ゅぃぼっと # require './jcodeLE.pl'; require './pref.cgi'; require './bot.pl'; $| = 1; &init; &decode; &jikan; srand($times); &get; &sanka; &write if ($chat); &html; &ended(); exit; sub html { $buffer =~s/&chat=.*&/&/;$buffer =~s/reload=[\d]*/reload=${reload}/; $link = "./chat.cgi?${buffer}"; print "Content-type: text/html\n\n"; print "$title\n"; if($mode eq 'checked' ){ print "\n" if($reload); print "$body[リロード]\n"; }else{#ノンフレームの発言欄ここから &hide; print <<"_HTML_"; $body
$titleおなまえ:$name $hiddenログ行数:$logw $kao
発言: $hidden
(変更)
_HTML_ }#ノンフレームの発言欄ここまで #参加者表示 $num = @sanka3+1; print "参加者($num)："; print "@sanka3ゅぃ
\n"; #ログ表示 &readlog if(!@lines); (@lines < $window) || (@lines = @lines[0 .. $window - 1]); print "@lines\n"; print "
ゆいぼっと(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 { &tag if ($chat=~s/\t/ゅぃ>$key　には○○○（ぴぃ〜）と言えばよいのね。...めもめも";} }#学習 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"; } unshift( @lines,$value); #bot $chat='' if($botf eq '2');#学習後はそれ以上反応させない。 if ($chat eq 'おみくじ') {&bot3;$chat='';} if( $num == 2){ $chat.='＞ゅぃ' if($chat); }#二人きりのときだけ、特別。 if($chat =~/(ゅぃ|ゆい)/){ $rnd=rand(1); if( $rnd>0.11 ){ ⊥#辞書応答 }else{ &bot2;#つっこみ？ } } #bot $value=shift( @lines);#writelogルーチンが、@linesに、$valueを加えて書き込むため... &writelog; $dmy=shift( @lines) if($botflag);#ボットの応答を遅らせる...（この行は削除可） #botのための処理ここまで }#write END sub tag{ #このタグ閉じは、正しく閉じてある場合も余分に閉じます。（苦笑） $chat =~ s/
]*)>(.*)/$1/;
		$tag =~s/^\/(.*)//;
		$tag =~s/^([^\s]*).*/$1/;
	} 
	$chat.='>' if($chat=~/<\/$/);	
	@tags = reverse( @tags );
	foreach $tag ( @tags ){
		next if($tag =~/(img|^hr$|^br$)/i);
		$chat.="" if($tag);
	}
	$chat.='">タグえらー？' if( ($chat=~/.*<\/A>/i) );
	$chat =~ s/