Mercurial > hgrepos > hgweb.cgi > skipweb

annotate opencampus2015/acc2.rb @ 3359:8671ae3ffa49

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
daizu.csv Êѹ¹
author OOTANI Hiroyuki <c115036@g.koeki-u.ac.jp>
date Mon, 24 Jul 2017 15:55:14 +0900
parents 2b1e8df14228
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
1 #!/usr/bin/env ruby22
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
2 # -*- coding: utf-8 -*-
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
3
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
4 require 'sqlite3'
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
5 require 'kconv'
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
6 require 'cgi'
2602
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2600
diff changeset
7 require 'csv'
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
8
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
9 c = CGI.new(:tag_maker => "html5", :accept_charest => "UTF-8")
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
10 db = SQLite3::Database.new("sql/main.sq3")
2602
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2600
diff changeset
11 csv = "list.csv"
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
12
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
13 sql = "insert into test values(?, ?, ?, ?, ?, ?, ?, ?, ?)"
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
14
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
15 toi = "insert into toi values (?, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)"
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
16 item = "insert into goods values (?, 0, 0, 0, 0, 0, 0)"
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
17
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
18 name = c["name"]
2597
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2557
diff changeset
19 pswd = c["pswd"]
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2557
diff changeset
20 cle1 = "CREATE TABLE IF NOT EXISTS test(id, name, cal, age, sex, pswd, exp, pt, lv)"
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
21 cle2 = "CREATE TABLE IF NOT EXISTS toi(id, q1, q2, q3, q4, q5, q6, q7, q8, q9, q10)"
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
22 cle3 = "CREATE TABLE IF NOT EXISTS goods(id, g1, g2, g3, g4, g5, g6)"
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
23 cle4 = "CREATE TABLE IF NOT EXISTS time(cd, now, id)"
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
24 cle5 = "CREATE TABLE IF NOT EXISTS num(cd, id)"
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
25 cle6 = "CREATE TABLE IF NOT EXISTS pass(id, pass, name)"
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
26
2597
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2557
diff changeset
27 cle7 = "CREATE TABLE IF NOT EXISTS zukan(no, name, tah, lv2, lv3, lv4, lv5)"
2603
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
28 cle8 = "CREATE TABLE IF NOT EXISTS box(id, no1, e1, t1, tm1, no2, e2, t2, tm2, no3, e3, t3, tm3)"
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
29 ins8 = "insert into box values(?,?,0,?,?,0,0,0,0,0,0,0,0)"
2597
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2557
diff changeset
30
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
31 ins4 = 'insert into time values(?, 61, "n")'
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
32 ins5 = 'insert into num values("aa",0)'
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
33 ins6 = 'insert into pass values(?, ?, ?)'
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
34 num = "select id from num where cd = ?"
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
35 numup = "update num set id = ? where cd = ?"
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
36
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
37 db.execute(cle1)
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
38 db.execute(cle2)
2597
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2557
diff changeset
39 #db.execute(cle3)
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
40 db.execute(cle4)
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
41 db.execute(cle5)
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
42 db.execute(cle6)
2597
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2557
diff changeset
43 db.execute(cle7)
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2557
diff changeset
44 db.execute(cle8)
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
45 if name == "createman789789789"
2602
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2600
diff changeset
46 ("a".."j").each{|x|db.execute(ins4,x)}
2604
0be0b8e32fea -system
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2603
diff changeset
47 db.execute(ins5)
0be0b8e32fea -system
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2603
diff changeset
48 #system `sqlite3 -separator , /sql/main.sq3 ".import list.csv zukan"` #(ins7)
0be0b8e32fea -system
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2603
diff changeset
49 CSV.foreach(csv) do |row|
0be0b8e32fea -system
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2603
diff changeset
50 db.execute("INSERT INTO zukan VALUES(?,?,?,?,?,?,?)",*row)
0be0b8e32fea -system
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2603
diff changeset
51 end
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
52 end
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
53
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
54 name = c["name"]
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
55 namae = "#{name}"
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
56 cal = c["cal"]
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
57 age = c["age"]
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
58 sex = c["sex"]
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
59 aria = c["aria"]
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
60
2603
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
61
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
62 id = c.cookies["id"][0]
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
63 pass = c.cookies["pass"][0]
2603
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
64 no1 = db.execute("select no from zukan where name = ?",cal)[0][0]
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
65 t1 = db.execute("select tah from zukan where name = ?",cal)[0][0]
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
66
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
67
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
68 if id == nil
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
69 number = db.execute(num, "aa")
2603
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
70 begin
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
71 id = number[0][0].to_i + 1
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
72 rescue
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
73 ("a".."j").each{|x| db.execute(ins4,x)}
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
74 # db.execute(ins4, "b")
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
75 # db.execute(ins4, "c")
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
76 # db.execute(ins4, "d")
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
77 # db.execute(ins4, "e")
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
78 # db.execute(ins4, "f")
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
79 # db.execute(ins4, "g")
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
80 # db.execute(ins4, "h")
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
81 # db.execute(ins4, "i")
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
82 # db.execute(ins4, "j")
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
83 db.execute(ins5)
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
84 id = number[0][0].to_i + 1
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
85 end
2557
3e60e112134a hogehoge
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2556
diff changeset
86 exp = 0
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
87 pt = 0
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
88 lv = 1
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
89 cd = "aa"
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
90 if pass == nil
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
91 pass = id
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
92 end
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
93 db.execute(ins6, id, pass, name)
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
94 db.execute(sql, id, name, cal, age, sex, aria, exp, pt, lv)
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
95 db.execute(toi, id)
2603
e32bd1884bb1 cle7-box-zukan
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2602
diff changeset
96 # db.execute(item, id)
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
97 db.execute(numup, id, cd)
2614
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2605
diff changeset
98 db.execute(ins8,id,no1,t1.to_i/5,t1.to_i/5)
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
99 end
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
100 # srand(id.to_i)
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
101 # id2 = rand(1000000)
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
102 id2 = pass
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
103
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
104
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
105
2622
4c8008560e9b hogehge
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2615
diff changeset
106 expires = "SUN, 5, MAR 2017 00:00:00 GMT"
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
107
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
108 printf("Content-type: text/html; charset=UTF-8
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
109 Set-Cookie:id=%s ;expires=%s
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
110 Set-Cookie:pass=%s ;expires=%s\n\n", id, expires, id2, expires)
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
111
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
112 printf(<<_EOS_, name, id.to_i)
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
113 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
114 <html>
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
115 <head>
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
116
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
117 <meta name="viewport" content="width=device-width,initial-scale=1,maximum-scale=1,user-scalable=no">
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
118 <meta name="format-detection" content="telephone=no">
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
119 <link media="only screen and (max-device-width:480px)" href="smart.css" type="text/css" rel="stylesheet" />
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
120 <link media="screen and (min-device-width:481px)" href="profeel.css" type="text/css" rel="stylesheet" />
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
121
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
122
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
123
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
124
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
125 <link rel="shortcut icon" href="./img/cabage.png"/>
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
126 <title>Registering Account</title>
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
127
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
128 </head>
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
129 <body>
2600
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2599
diff changeset
130 <h1>Miyazac Quest</h1>
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2599
diff changeset
131 <h2>登録完了!</h2>
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2599
diff changeset
132 <p>よãããŸ_ %s _よ!</p>
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2599
diff changeset
133 <p>ãŠã¾ãˆã®IDã¯%04dã !</p>
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
134 <div class="f1"><a href="prof.rb"><div class="lets"><span>始ã‚よã†!</span></div></a></div>
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
135 <form method="POST" type="text">
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
136 </form>
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
137 </body></html>
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
138 _EOS_
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
139 if name == "createman987987987"
2604
0be0b8e32fea -system
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2603
diff changeset
140 filename ='sql/main.sq3'
0be0b8e32fea -system
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents: 2603
diff changeset
141 File.delete filename
2554
ARAKI Tsuyohito <c113007@e.koeki-u.ac.jp>
parents:
diff changeset
142 end

yatex.org