Mercurial > hgrepos > hgweb.cgi > skipweb

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/minato2014/admin/chusen.html	Wed Jul 23 21:12:44 2014 +0900
@@ -0,0 +1,26 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
+	"http://www.w3.org/TR/html4/strict.dtd">
+<html>
+<head>
+<title>Database delete</title>
+</style>
+<link rel="stylesheet" type="text/css" href="design.css">
+</head>
+
+<body>
+<h1>抽選用ページ</h1>
+<p>実行するとデータベースが書き変えられます。</p>
+<p>実行する際は注意してください。</p>
+<form method="POST" action="./chusen.rb">
+<p>抽選を行いますか?<br>
+はい<input type="radio" name="check" value="OK">
+いいえ<input type="radio" name="check" value="NO">
+</p>
+<input type="submit" value="削除">
+<input type="reset" value="リセット">
+</form>
+
+<address>c111126@g.koeki-u.ac.jp</address>
+
+</body>
+</html>
--- a/minato2014/admin/chusen.rb	Wed Jul 23 20:41:40 2014 +0900
+++ b/minato2014/admin/chusen.rb	Wed Jul 23 21:12:44 2014 +0900
@@ -7,43 +7,46 @@
 c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8")
 db = SQLite3::Database.new("../sql/stamp.sq3")

-begin
-  result = db.execute("select id,exp,rank from main;")
-rescue
-  exit
-end
-
-all = Array.new
-for id,lv,rank in result
-  if id == "ID" || lv == 0 || rank.to_i != 0
-    next
+check = c['check']
+if check == "OK"
+  begin
+    result = db.execute("select id,exp,rank from main;")
+  rescue
+    exit
+  end
+  all = Array.new
+  for id,lv,rank in result
+    if id == "ID" || lv == 0 || rank.to_i != 0
+      next
+    end
+    lv.to_i.times do
+      all << id
+    end
   end
-  lv.to_i.times do
-    all << id
+
+  tousen = Array.new(0)
+  atari1 = rand(all.length)
+  tousen << all[atari1]
+  all.delete_if {|x| x == tousen[0]}
+
+  sql = "update main set rank = 1 where id = ?;"
+  db.execute(sql,tousen[0])
+
+  sql = "update main set rank = 2 where id = ?;"
+  while tousen.length < 4
+    srand
+    atari2 = rand(all.length)
+    hoge = all[atari2]
+    tousen << all[atari2]
+    all.delete_if {|x| x == hoge}
+    db.execute(sql,hoge)
   end
+
+  i=0
+  printf("Content-type: text/html; charset=UTF-8\n\n")
+
+  printf("<p>1等はIDが%04dの方!おめでとー!</p>\n",tousen[i].to_i)
+  printf("<p>2等はIDが%04dと%04dと%04dの方!おめでとー!</p>\n",tousen[i+=1].to_i,tousen[i+=1].to_i,tousen[i+=1].to_i)
+else
+  print"<p>抽選はまだ行いませんよ</p>"
 end
-
-tousen = Array.new(0)
-atari1 = rand(all.length)
-tousen << all[atari1]
-all.delete_if {|x| x == tousen[0]}
-
-sql = "update main set rank = 1 where id = ?;"
-db.execute(sql,tousen[0])
-
-sql = "update main set rank = 2 where id = ?;"
-while tousen.length < 4
-  srand
-  atari2 = rand(all.length)
-  hoge = all[atari2]
-  tousen << all[atari2]
-  all.delete_if {|x| x == hoge}
-  db.execute(sql,hoge)
-end
-
-i=0
-printf("Content-type: text/html; charset=UTF-8\n\n")
-
-printf("<p>1等はIDが%04dの方!おめでとー!</p>\n",tousen[i].to_i)
-printf("<p>2等はIDが%04dと%04dと%04dの方!おめでとー!</p>\n",tousen[i+=1].to_i,tousen[i+=1].to_i,tousen[i+=1].to_i)
-