#!/usr/local/bin/ruby
#encoding:utf-8
print "Content-type: text/html\n\n"
#
# u_02http.rb http関連
#

### code表示 ,rbファイル名
pgmei=File.basename($0)
code=%Q[<br><a href="dispcode.rb?fmei=#{pgmei}" target="_blank">code</a>]
$pgmei=pgmei;load'cntsub.rb'   #cnt,cnt_ip

### htmlテンプレ %reshtml%展開内容
wt=%Q[<!DOCTYPE html>
<html lang="ja">
<head>
<meta charset="utf-8">
<title>#{pgmei}</title>
</head>
<body>
<h1>httpテスト</h1>
<h2>#{pgmei}  (http ヘッダ関連)</h2>
<br>
<hr>
%reshtml%
<br>
#{code}
</body>
</html>
]

### 表示
require"net/http"
require"uri"
url=URI.parse('http://yahoo.co.jp')
res=Net::HTTP.start(url.host,url.port) do |http|
   http.get('/')
end

w=""
w+=res.code+"<br>\n"
#w+=res.body+"<br>\n"
res.each_header do|name,value|
   w+=name+":"+value+"<br>\n"
end

print wt.sub!("%reshtml%",w)