#! /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 { $link = "./chat.cgi?window=$window&reload=$reload&mode=$mode&name=$name"; print "Content-type: text/html\n\n"; print "