#module
#include "hspsock.as"
;///////////////////////////////////////////////////////////
;//     タイムタグ情報データベースに送信
;//
;//     SendTimeTagDB p1,p2
;//
;//     p1      : POSTする文字列
;//     p2=変数 : 返ってきたメッセージを入れる文字列変数
;//     
;///////////////////////////////////////////////////////////
#deffunc SendTimeTagDB str p1, var p2

    prm = p1
    prm_len=strlen(prm)

    sdim buf,64000          ;受信内容を格納する変数
    sdim temp_buf,32000

    sockopen 0, "timetag.main.jp", 80
    sockput "POST /herodb/herodb.cgi?table=timetag HTTP/1.1\nHost: timetag.main.jp\nConnection: Close\nContent-type: application/x-www-form-urlencoded\nContent-length: "+prm_len+"\n\n", 0
    sockput prm, 0

    flg=0
;取得ループ
    repeat 1000
        ;パケット取得部分
        sockget temp_buf, 32000, 0
        if stat!0 {
            flg=0
            break
        }
        ;内容確認
        if peek(temp_buf, 0)=0 {
            ;受信終了したなら
            flg = 1
            break
        }
        buf+=temp_buf
        await 100
    loop
    ;フラグ判定
    if flg!0 {
        ;受信成功したなら
        p2=buf
    } else {
        ;受信失敗したなら
        buf=""
    }
    sockclose 0

    return flg

#global

;// 使用する命令の詳細
;
;   sockopen ソケットID番号, "URL", ポート番号
;   sockput "送信するメッセージ", ソケットID番号
;   sockget 受信内容格納変数, 受信サイズ, ソケットID番号
;   sockclose ソケットID番号
;
;※受信したメッセージに"Content-Length: "が無く"Transfer-Encoding: chunked"が含まれる場合があります。
;　その場合はうまく処理してあげる必要があるのでご注意下さい。