Mercurial > hgrepos > hgweb.cgi > skipweb

annotate coop/entry.rb @ 2180:428be07823ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entry.rb md5 => digest
author SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
date Fri, 24 Jan 2014 15:32:35 +0900
parents 483100968342
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2164
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
1 #!/usr/bin/env ruby
2180
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
2 # coding: euc-jp
2164
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
3
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
4 require 'cgi'
2180
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
5 #require 'digest'
2164
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
6
2174
483100968342 cgiをcに修正
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2173
diff changeset
7 c = CGI.new('html4Tr')
483100968342 cgiをcに修正
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2173
diff changeset
8 me = File.basename(c.script_name)
2173
44a4dd946a73 クッキー作成機能追加
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2169
diff changeset
9
2180
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
10 c0 = c.cookies['id']
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
11 ip = ENV['REMOTE_ADDR']
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
12 i = 0
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
13
2173
44a4dd946a73 クッキー作成機能追加
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2169
diff changeset
14
2180
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
15 srand(56384679263254687)
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
16 10000.times {rand(1000000)}
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
17 idlist = (1..100).collect{rand(10000000)}
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
18
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
19 cookie = CGI::Cookie.new({'name' => 'id',
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
20 'value' => "#{ip}",
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
21 'domain' => c.server_name,
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
22 'path' => c.script_name})
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
23
2173
44a4dd946a73 クッキー作成機能追加
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2169
diff changeset
24 cookie.expires = Time.now + 10
44a4dd946a73 クッキー作成機能追加
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2169
diff changeset
25
2174
483100968342 cgiをcに修正
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2173
diff changeset
26 c.out({'cookie' => cookie}) do
483100968342 cgiをcに修正
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2173
diff changeset
27 c.html({'PRETTY' => ' '}) do
483100968342 cgiをcに修正
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2173
diff changeset
28 c.head do
483100968342 cgiをcに修正
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2173
diff changeset
29 c.title {'サンプル'}
483100968342 cgiをcに修正
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2173
diff changeset
30 end + c.body do
2173
44a4dd946a73 クッキー作成機能追加
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2169
diff changeset
31 if idlist.index(ARGV[0].to_i)
2180
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
32 c.p{'おめでとう'} +
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
33 c.p{
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
34 c.code{cookie[0]}}
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
35 elsif i >= 50
2174
483100968342 cgiをcに修正
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2173
diff changeset
36 c.p{'ごめんなさい'}
2180
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
37 else
428be07823ba entry.rb md5 => digest
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2174
diff changeset
38 c.p{'error'}
2173
44a4dd946a73 クッキー作成機能追加
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2169
diff changeset
39 end
44a4dd946a73 クッキー作成機能追加
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2169
diff changeset
40 end
44a4dd946a73 クッキー作成機能追加
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2169
diff changeset
41 end
44a4dd946a73 クッキー作成機能追加
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2169
diff changeset
42 end

yatex.org