#!/usr/local/bin/perl # # おみくじスクリプト $chance = 24; # 保持期間単位：時間 #################################################################################### # ↓おみくじ表示文　(個数は任意) # # ・' 'の間に書く。 # ・シングルクォーテーション'を書く場合は ' ' ではなく " " で囲む。 # ・@words の１番目が表示されるときは @words2 の１番目のメッセージが表示されます。 @words = ( '大吉', '吉', '中吉', '小吉', '凶', '大凶', ); # #################################################################################### # ↓おみくじ表示文　(個数は任意) @words と対になっているので、数は合わせてください。 @words2 = ( 'いいことあるよ', 'ポジティブにいこう', '何かいいことあるかな', 'なんくるないさー', '素直になろう', '今日はおとなしく過ごそう', ); # #################################################################################### # ↓保持期間内に再アクセスされた場合の表示文　(個数は任意) # # ・上から順番に表示されます。 @errors = ( 'またひきたいの？', '何度ひいても同じよ！', 'しつこいわね', 'もういやっ', "$chance時間経過しないと結果は変わりません", ); # #################################################################################### @pairs = split(/;/,$ENV{'HTTP_COOKIE'}); foreach $pair (@pairs) { ($key,$val) = split(/=/,$pair,2); $key =~ s/ //g; if ($key eq "omikuji") { $time2 = $val; last; } } if ($time2 eq "") { $times = 0; srand(time|$$); $roll = int(rand($#words +1)); } else { ($roll,$times) = split(/-/,$time2,2); $times ++; if ($times > $#errors) { $words2[$roll] = $errors[$#errors]; } else { $words2[$roll] = $errors[$times -1]; } } ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + $chance*60*60); @youbi = ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"); @monthg = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"); $date_gmt = sprintf("%s\, %02d\-%s\-%04d %02d:%02d:%02d GMT",$youbi[$wdayg],$mdayg,$monthg[$mong],$yearg +1900,$hourg,$ming,$secg); $time = time; print "Set-Cookie: omikuji=$roll\-$times; expires=$date_gmt\n"; print "Content-type: text/html\n\n"; #################################################################################### # ↓おみくじ画面 print <<"EOF";

今日の運勢　＜$words[$roll]＞

- $words2[$roll] -

閉じる

EOF # #################################################################################### # # 製作・著作 # ネットサーフレスキュー[Ｗｅｂ裏技] (c)CGI-RESCUE http://www.rescue.ne.jp/

今日の運勢 ＜$words[$roll]＞

今日の運勢　＜$words[$roll]＞