#!/usr/local/bin/perl use DBI; require '../admin/pl/jcode.pl'; require '../admin/pl/library.pl'; require '../admin/pl/conf.pl'; &conf; $script = './uranai3.cgi'; $contents = 'uranai3'; #------------------------------------------------------------------------------- &decode; &main; &error; #------------------------------------------------------------------------------- sub main{ print "Content-type: text/html\n\n"; print <<"EOS";