Mercurial > hgrepos > hgweb.cgi > skipweb

annotate coop/entry.rb @ 2169:c2c3932b63af

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:17:00 +0900
parents d29fe5c60dbb
children baaeb73afad3
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
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
11 print "Content-type: text/html; charset=EUC-JP\n\n"
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
12 print "<html>
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
13 <head><title>サンプル</title><link rel=\"stylesheet\"
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
14 type = \"text/css\" href=\"data.css\"></head><body>"
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
15
2168
d29fe5c60dbb display ENV
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2167
diff changeset
16 print"<table>"
d29fe5c60dbb display ENV
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2167
diff changeset
17 ENV.each { |k,v|
2167
7611cb9532c1 間違い直し
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2166
diff changeset
18
2168
d29fe5c60dbb display ENV
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2167
diff changeset
19 print "<tr><td>#{k}</td><td>#{v}</td></tr>\n"
d29fe5c60dbb display ENV
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2167
diff changeset
20 }
d29fe5c60dbb display ENV
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2167
diff changeset
21
d29fe5c60dbb display ENV
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2167
diff changeset
22 print"</table>"
d29fe5c60dbb display ENV
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2167
diff changeset
23
2169
c2c3932b63af 環境変数の表示
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2168
diff changeset
24 srand(56384679263254687)
c2c3932b63af 環境変数の表示
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2168
diff changeset
25 10000.times {rand(1000000)}
c2c3932b63af 環境変数の表示
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2168
diff changeset
26 idlist = (1..100).collect{rand(10000000)}
c2c3932b63af 環境変数の表示
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2168
diff changeset
27 if idlist.index(ARGV[0].to_i)
c2c3932b63af 環境変数の表示
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2168
diff changeset
28 print"<p>おめでとう</p>"
c2c3932b63af 環境変数の表示
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2168
diff changeset
29 print"<p>#{ip}</p>"
2168
d29fe5c60dbb display ENV
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2167
diff changeset
30
2169
c2c3932b63af 環境変数の表示
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2168
diff changeset
31 elsif
c2c3932b63af 環境変数の表示
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2168
diff changeset
32 print"<p>残念</p>"
2168
d29fe5c60dbb display ENV
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents: 2167
diff changeset
33
2164
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
34 end
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
35
f9699cc5cd0e copy file
SUZUKI Takehisa <c110128@e.koeki-u.ac.jp>
parents:
diff changeset
36 print"</body></html>\n"

yatex.org