#!/bin/perl #-------------------------------- # おみくじを引くプログラム # Ver-1.1 # CREATE:1998.08.10 # UPDATE:1999.04.21 # # AUTHOR:Kiichi Suga # #-----------初期設定------------- $kujidir = './kuji/kuji_' ; # #-----------くじを引く----------- srand(time | $$); $bangou = int(rand(50)) + 1 ; if ( $bangou < 10 ){ $kujifile = "${kujidir}0${bangou}.gif" ; }else{ $kujifile = "${kujidir}${bangou}.gif" ; } # #-----------HTMLの書き出し------- print "Content-type: text/html\n\n" ; print "\n" ; print "\n" ; print "\n" ; print "キイチ神社\n" ; print "\n" ; print "\n"; print "
\n"; print "
キイチ神社
\n" ; print "
\n" ; print "\"${bangou}番のくじです。\"\n" ; print "
\n" ; print "この御神籤は連絡を頂ければリンク自由ですが、画像のコピーは不可です。お金、かかっているもので。(^^;;

\n" ; print "キイチ君のホームページにいきます。

\n" ; print "

\n" ; print "\n" ; print "\n" ;