#! /usr/local/bin/perl # #ゆいぼっとMulti(chat.cgi) # require './jcodeLE.pl'; require './pref.cgi'; require './bot.pl'; $| = 1; &init; &decode; &jikan; srand($times); &get; &sanka; if ($chat){&write; }elsif( -M "$chat_file" > 0.0007){#ボットに独り言。0.0007=1分くらいの間隔 $bot = $bots[rand($#bots+1)]; &readlog; &bot4; &writelog; } &html; &ended(); exit; sub html { $link = "./chat.cgi?window=$window&reload=$reload&mode=$mode&name=$name"; print "Content-type: text/html\n\n"; print "