#!/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"; １２星座運勢

１２星座運勢

ﾊﾝﾄﾞﾙﾈｰﾑ

性別　

生年月日19年

月

　日

　

topへ

© Funboo by iid
EOS exit; }