#!/usr/bin/perl
## おみくじスクリプト
## lucky.cgi v1.6 (1998/07/19)
## (c)1997-1999 Kent Web (webmaster@kent-web.com)
## http://www.kent-web.com/
## 基本設定
## 0=おみくじ 1=URLジャンプ 2=SSIモード
$kind =1;
## --- 出力結果を設定
## --- URLへジャンプさせる場合は絶対パスでファイルを指定 ($kind=1; のとき）
$luck1 = 'http://jqueen.com/rune/date/ansur.html';
$luck2 = 'http://jqueen.com/rune/date/beorc.html';
$luck3 = 'http://jqueen.com/rune/date/deag.html';
$luck4 = 'http://jqueen.com/rune/date/ehwaz.html';
$luck5 = 'http://jqueen.com/rune/date/eoii.html';
$luck6 = 'http://jqueen.com/rune/date/eole.html';
$luck7 = 'http://jqueen.com/rune/date/feo.html';
$luck8 = 'http://jqueen.com/rune/date/ger.html';
$luck9 = 'http://jqueen.com/rune/date/gyfu.html';
$luck10 = 'http://jqueen.com/rune/date/hagal.html';
$luck11 = 'http://jqueen.com/rune/date/ing.html';
$luck12 = 'http://jqueen.com/rune/date/is.html';
$luck13 = 'http://jqueen.com/rune/date/ken.html';
$luck14 = 'http://jqueen.com/rune/date/lagu.html';
$luck15 = 'http://jqueen.com/rune/date/man.html';
$luck16 = 'http://jqueen.com/rune/date/nyd.html';
$luck17 = 'http://jqueen.com/rune/date/odel.html';
$luck18 = 'http://jqueen.com/rune/date/peorth.html';
$luck19 = 'http://jqueen.com/rune/date/rad.html';
$luck20 = 'http://jqueen.com/rune/date/sigel.html';
$luck21 = 'http://jqueen.com/rune/date/thorn.html';
$luck22 = 'http://jqueen.com/rune/date/tyr.html';
$luck23 = 'http://jqueen.com/rune/date/ur.html';
$luck24 = 'http://jqueen.com/rune/date/wyn.html';
## 基本設定ここまで
# 乱数を発生
&rand;
# おみくじ
if ($kind == 0) {
&omikuji;
}
# URLジャンプ
elsif ($kind == 1) {
print "Location: $luck\n\n";
}
# SSIモード
else {
print "$luck\n";
}
exit;
## --- 乱数を発生
sub rand {
srand;
$x = rand;
# $x は 0 から 100 までの整数値を返します。
$x = int($x * 100);
# 確率 5%
if ($x < 5) { $luck = "$luck1"; }
# 確率 5%
elsif ($x < 10) { $luck = "$luck2"; }
# 確率 5%
elsif ($x < 15) { $luck = "$luck3"; }
# 確率 5%
elsif ($x < 20) { $luck = "$luck4"; }
# 確率 4%
elsif ($x < 24) { $luck = "$luck5"; }
# 確率 4%
elsif ($x < 28) { $luck = "$luck6"; }
# 確率 4%
elsif ($x < 32) { $luck = "$luck7"; }
# 確率 4%
elsif ($x < 36) { $luck = "$luck8"; }
# 確率 4%
elsif ($x < 40) { $luck = "$luck9"; }
# 確率 4%
elsif ($x < 44) { $luck = "$luck10"; }
# 確率 4%
elsif ($x < 48) { $luck = "$luck11"; }
# 確率 4%
elsif ($x < 52) { $luck = "$luck12"; }
# 確率 4%
elsif ($x < 56) { $luck = "$luck13"; }
# 確率 4%
elsif ($x < 60) { $luck = "$luck14"; }
# 確率 4%
elsif ($x < 64) { $luck = "$luck15"; }
# 確率 4%
elsif ($x < 68) { $luck = "$luck16"; }
# 確率 4%
elsif ($x < 72) { $luck = "$luck17"; }
# 確率 4%
elsif ($x < 76) { $luck = "$luck18"; }
# 確率 4%
elsif ($x < 80) { $luck = "$luck19"; }
# 確率 4%
elsif ($x < 84) { $luck = "$luck20"; }
# 確率 4%
elsif ($x < 88) { $luck = "$luck21"; }
# 確率 4%
elsif ($x < 92) { $luck = "$luck22"; }
# 確率 4%
elsif ($x < 96) { $luck = "$luck23"; }
# 確率 4%
else { $luck = "$luck24"; }
}
## --- おみくじHTMLを出力 ($kind=0; のとき）
sub omikuji {
print "Content-type: text/html\n\n";
print <<"HTML";
今日の運勢
あなたの今日の運勢
$luck
HTML
}