#!/usr/local/bin/ruby
#encoding:utf-8
print "Content-type: text/html\n\n"
#
#test02.rb css適用 /css
#

### 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

### css
css=%Q[<link rel="stylesheet" href="./css/test02.css" type="text/css">]

### htmlテンプレ %reshtml%展開
wt=%Q[<!DOCTYPE html>
<html lang="ja">
<head>
<meta charset="utf-8">
#{css}
<title>#{pgmei}</title>
</head>
<body>
<h1>テスト投稿</h1>
<h2>#{pgmei}</h2>
<br>
<form action="#{pgmei}" method="post">
<input type="text" name="txt">
<input type="submit" value="書込">
</form>
<hr>
%reshtml%
<br>
#{code}
</body>
</html>
]

### データファイル名
$datamei="data.txt"
### 書込
def kakikomi(w)
   open($datamei,"a"){|f|
      f.write(w+"\n")
   }
end
### 読込
def yomikomi
   w=""
   open($datamei,"r:utf-8"){|f|
      f.each{|line|
         w=w+line.chomp!+"<br>"
      }
   }
   return w
end

### 初期判断
require"cgi"
pdata=CGI.new['txt']
pdata=CGI.escapeHTML(pdata)
kakikomi(pdata) if pdata!=""

### 表示
print wt.sub!("%reshtml%",yomikomi)