#! /usr/local/bin/perl $Cgi_Main = "./jinro.cgi"; ##################### require './jcode.pl'; ##################### Main &SYSIN_TIME; &STDIN_QUERY_STRING; &FILEIN_MSG; if( $Query_Tbl{'mode'} ){ if( $Query_Tbl{ 'msg' } ne "" ){ &FILEOUT_MSG; } print "Location: $Cgi_Main\n\n"; }else{ &STDOUT_HTML; } exit(0); ##################### sub STDOUT_HTML { print "Content-type: text/html\n\n"; print "