なんだかよく判らない（笑）
夏も盛りにGo言語、最新バイナリアップされてるので欲しい方どうぞ。
ちまちまとIIS上のサイトなんかを作ってるんですが、PHPセットアップしたと思ったらしてなかったので、それならついでに、とGo言語でCGIを作ってみたｗ
欲しかったのはSSIで動作する埋め込みのカウンター。よくあるやつね。
いちおう、HTMLで動作できるようにIISを仕込んであって、後はGoで作成したexeファイルを動くようにさえしてしまえば良い状態だったし、色々と練習したかったのもあって、頑張ってみた。
package main
//使用する汎用パッケージ
import (
fmt "fmt";
util "io/ioutil"
strings "strings"
os "os"
template "template"
strconv "strconv"
time "time"
)
//テンプレートに引き渡す情報
type Record struct {
today string
yesterday string
total string
}
//ファイルレコード分析用
const (
Today = iota;
Yesterday;
Total;
Day;
)
//出力テンプレート
const tpl = `
<div class="counter">
<div class="ctToday">
<div class="hToday">Today:</div>
<div class="cToday">{today}</div>
</div>
<div class="ctYesterday">
<div class="hYesterday">YesterDay:</div>
<div class="cYesterday">{yesterday}</div>
</div>
<div class="ctTotal">
<div class="hTotal">Total:</div>
<div class="cTotal">{total}</div>
</div>
</div>
`
//ファイル名を取得
func getReadFileName() string {
//IISなので、SSIで動かす時はルート相対パス指定
//IISからみたURLのルートパス（URLのルート物理パス）
myrpath := strings.Split(os.Getenv("PATH_TRANSLATED"),"\\",-1)
//IISからみた実行スクリプトパス
myspath := strings.Split(os.Getenv("SCRIPT_NAME"),"/",-1)
//配列の一番後ろ＝スクリプトexeファイル名なので消去
myspath[len(myspath)-1] = "";
//ルートパス＋スクリプトパスにデータファイル名cnt.datを設定して物理パスを返す
return fmt.Sprintf("%s%scnt.dat",strings.Join(myrpath,"\\"),strings.Join(myspath,"\\"))
}
//メイン処理
func main() {
//読込データファイル（exeと同フォルダ内の固定ファイル）を読む
rFile := getReadFileName()
buf,er := util.ReadFile(rFile)
if er != nil {
fmt.Printf("Content-Type: text/html;charset=UTF-8\n\n")
fmt.Printf("%s\n",er.String())
return
}
//データレコードを分割して、順番に意味づけ
myCounter := strings.Split(fmt.Sprintf("%s",buf),",",-1)
wtotal,er := strconv.Atoi(myCounter[Total])
if er != nil {
fmt.Printf("Content-Type: text/html;charset=UTF-8\n\n")
fmt.Printf("%s\n",er.String())
return
}
wtoday,er := strconv.Atoi(myCounter[Today])
if er != nil {
fmt.Printf("Content-Type: text/html;charset=UTF-8\n\n")
fmt.Printf("%s\n",er.String())
return
}
wyesterday,er := strconv.Atoi(myCounter[Yesterday])
if er != nil {
fmt.Printf("Content-Type: text/html;charset=UTF-8\n\n")
fmt.Printf("%s\n",er.String())
return
}
wday,er := strconv.Atoi(myCounter[Day])
if er != nil {
fmt.Printf("Content-Type: text/html;charset=UTF-8\n\n")
fmt.Printf("%s\n",er.String())
return
}
//前回データ保持日付が記録されているので、比較して日付更新処理
now := time.LocalTime()
if now.Day != wday {
wyesterday = wtoday
wtoday = 1
wday = now.Day
}else{
wtoday++;
}
//トータルカウントアップ処理
wtotal++;
//データの書き込み
er = util.WriteFile(rFile, []byte(fmt.Sprintf("%d,%d,%d,%d",wtoday,wyesterday,wtotal,wday)),777)
if er != nil {
fmt.Printf("Content-Type: text/html;charset=UTF-8\n\n")
fmt.Printf("%s\n",er.String())
return
}
//テンプレの準備
var nowCounter Record;
nowCounter.today = fmt.Sprintf("%05d",wtoday);
nowCounter.yesterday = fmt.Sprintf("%05d",wyesterday);
nowCounter.total = fmt.Sprintf("%05d",wtotal);
//テンプレ書き出し
fmt.Printf("Content-Type: text/html;charset=UTF-8\n\n")
t := template.MustParse(tpl, nil);
t.Execute(nowCounter, os.Stdout);
return
}
動作バージョンは最新で。
でもって、テスト確認用にHTMLを作成して、testフォルダには「0,0,0,0,」とだけ書かれたテキストファイル(cnt.dat)を入れておく。
<html>
<body>
<!--#exec cgi="/test/counter.exe" -->
</body>
</html>
動作させると、
後は必要な所に組み込んで、CSSを書いて体裁を整えればOK。
IISでSSIでGoのexeを動かすと環境変数が何で来るのかさっぱり判らなくて、探って無理矢理しこんだ部分はあるから、もっと良い方法があるかもしれないね。
ま、動いてるからいいや＜おいこらまて