Mercurial > hgrepos > hgweb.cgi > skipweb

annotate coop/entry.rb @ 2167:7611cb9532c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
間違い直し
author SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
date Wed, 18 Dec 2013 20:11:25 +0900
parents 48381ff72d4a
children 2c385007aad5
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
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
2 # coding: euc-jp
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'
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
5
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
6 c = CGI.new(:accept_charset => "EUC-JP")
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
7
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
8 i = 0
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
9 ip = ENV['REMOTE_ADDR']
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
10
2167
7611cb9532c1 間違い直し
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2166
diff changeset
11
2164
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
12 print "Content-type: text/html; charset=EUC-JP\n\n"
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
13 print "<html>
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
14 <head><title>サンプル</title><link rel=\"stylesheet\"
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
15 type = \"text/css\" href=\"data.css\"></head><body>"
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
16
2167
7611cb9532c1 間違い直し
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2166
diff changeset
17
2166
48381ff72d4a DB関連削除
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2164
diff changeset
18 srand(56384679263254687)
48381ff72d4a DB関連削除
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2164
diff changeset
19 10000.times {rand(1000000)}
48381ff72d4a DB関連削除
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2164
diff changeset
20 idlist = (1..100).collect{rand(10000000)}
48381ff72d4a DB関連削除
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2164
diff changeset
21 if idlist.index(ARGV[0].to_i)
48381ff72d4a DB関連削除
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2164
diff changeset
22 print"<p>おめでとう</p>"
48381ff72d4a DB関連削除
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2164
diff changeset
23 print"<p>#{ip}</p>"
48381ff72d4a DB関連削除
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2164
diff changeset
24 elsif
48381ff72d4a DB関連削除
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2164
diff changeset
25 print"<p>残念</p>"
2164
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
26 end
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
27
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
28 print"</body></html>\n"

yatex.org