Mercurial > hgrepos > hgweb.cgi > skipweb

#!/usr/bin/env ruby
# -*- coding: utf-8 -*-
require 'yaml/store'
file = "db/point2.yaml"
bingoword = %w(かもめ とびうお ひとで) # 正解キーワード3つ

require 'cgi'
c = CGI.new(:accept_charset => "UTF-8")

# 前回のアクセスで既にcookieが定義されていたら取得
# ブラウザからのcookieは、c.cookies[変数名][0] で受け取る
cookie_id=c.cookies["id"][0]

# 前回のアクセスで入力された値を取得
form_name=c["playname"]        # nameをフォームから取得(もしあれば)
form_kwd=c["keyword"]          # keywordも取得(もしあれば)

if cookie_id == nil             # (1)もしcookieからのidがなければ新規生成
  # 新規idは、現在時刻を秒(to_i)にした文字列(to_s)と乱数の組み合わせ
  newid = Time.now.to_i.to_s + "/" + rand(99999).to_s
  id=newid                      # 新規idをidとする
else                            # (2)cookieからのidがあればそれをidとする
  id=cookie_id
end

# idをすぐcookieで相手ブラウザに送る
# 変数の期限を24時間に設定し、expire変数に入れる
expire = (Time.now+24*3600).gmtime.strftime("%a, %d %b %Y %H:%M:%S GMT")
printf("Content-type: text/html; charset=UTF-8\n")
printf("Set-Cookie: id=%s; expires=%s\n\n", id, expire)

db = YAML::Store.new(file)
db.transaction do
  info = db["info"] = db.fetch("info", Hash.new)
  if !info[id]              # もしそのユーザ情報が未登録(空)なら
    info[id] = Hash.new     # 新規ハッシュを割り当てる
  end
  if form_name > ""             # formからの名前設定がもしあれば
    info[id]["name"] = form_name # それをユーザ情報に記録
    info[id]["bingo"] = Hash.new # 正解した単語保存用のハッシュも作成
  end
  point = 0# 開始直後は0点
  if !info[id]["name"]      # もしユーザのプレイ名が未設定なら
    title = "ようこそ!"
    hello = "まちがいさがしスタート"
    guide = "あなたのプレイ名を決めます"
    input = '<input name="playname">'
  else                          # プレイ名設定済みならキーワード入力
    title = sprintf("%s さんのホーム", info[id]["name"])
    setumei = "絵から間違いを３個見つけよう!"
    setumei2 = "間違っている絵のパネルは全部で3個あるよ♪"
    guide = "キーワードを入れてください"
    input = '<input name="keyword">'
    seikai = '<img src="ans.jpg" width="450px" height="450px">'
    # プレイ名設定済みで、さらにキーワードが入力されていたら
    if form_kwd > ""
      index = bingoword.index(form_kwd) # 配列から入力単語(form_kwd)を探索
      hello = sprintf("現在のポイントは %dpt です。", 25*point)
      if index
        # 見付かった！ その単語をハッシュのキーとして適当に値(true)を入れておく
        info[id]["bingo"][bingoword[index]] = true
      end
    end
    point = info[id]["bingo"].length # ハッシュの長さで正解数が分かる
    bingos = info[id]["bingo"].keys.collect do |x|
      "「" + x + "」"# collectメソッドで 「 」 で括った単語を集めて
    end.join(", ")# joinメソッドで ,(カンマ) 区切りでつなげる
    boat = ""; boat2 = ""; boat3 = "";
    info[id]["bingo"].keys.each do |f|
      if /かもめ/ =~ f
        boat = '<img src="boat-0.png" width="450px" height="151px">'
      elsif /とびうお/ =~ f
        boat2 = '<img src="boat-1.png" width="450px" height="147px">'
      elsif /ひとで/ =~ f
        boat3 = '<img src="boat-2.png" width="450px" height="152px">'
      end
    end
  end
printf(<<-EOF,
<!DOCTYPE html>
<html lang="ja">
<head>
<title>まちがいみつけでみっちゃ</title>
<link rel="stylesheet" type="text/css" href="../attack.css">
</head>

<body>
<img src="../img/logo.png" width="900px" height="100px">
<h1>%s</h1>
<h2>%s</h2>
<h2>%s</h2>
<p>%s</p>
<p>開けたパネル(%d/%d): %s</p>
<form action="?" method="GET">
<p>%s: %s<br>
<input type="submit" value="送信">
<input type="reset" value="リセット"></p>
</form>
<p>%s</p>
<div class="don">
<div>%s</div>
<div>%s</div>
<div>%s</div>
</div>
</body></html>
EOF
         title, setumei, setumei2, hello, point, bingoword.length, bingos, guide, input, seikai, boat, boat2, boat3 )
end
author	OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
date	Wed, 20 Jul 2016 11:09:10 +0900
parents	551c27ff32b3
children	7fd8a7df98d6