Mercurial > hgrepos > hgweb.cgi > skipweb

comparison 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
comparison
equal deleted inserted replaced
2166:48381ff72d4a 2167:7611cb9532c1
6 c = CGI.new(:accept_charset => "EUC-JP") 6 c = CGI.new(:accept_charset => "EUC-JP")
7 7
8 i = 0 8 i = 0
9 ip = ENV['REMOTE_ADDR'] 9 ip = ENV['REMOTE_ADDR']
10 10
11
11 print "Content-type: text/html; charset=EUC-JP\n\n" 12 print "Content-type: text/html; charset=EUC-JP\n\n"
12 print "<html> 13 print "<html>
13 <head><title>サンプル</title><link rel=\"stylesheet\" 14 <head><title>サンプル</title><link rel=\"stylesheet\"
14 type = \"text/css\" href=\"data.css\"></head><body>" 15 type = \"text/css\" href=\"data.css\"></head><body>"
16
15 17
16 srand(56384679263254687) 18 srand(56384679263254687)
17 10000.times {rand(1000000)} 19 10000.times {rand(1000000)}
18 idlist = (1..100).collect{rand(10000000)} 20 idlist = (1..100).collect{rand(10000000)}
19 if idlist.index(ARGV[0].to_i) 21 if idlist.index(ARGV[0].to_i)
21 print"<p>#{ip}</p>" 23 print"<p>#{ip}</p>"
22 elsif 24 elsif
23 print"<p>残念</p>" 25 print"<p>残念</p>"
24 end 26 end
25 27
26
27 print"</body></html>\n" 28 print"</body></html>\n"

yatex.org