「はてなダイアリー自動転記スクリプト開発(6) スクリプトによるPOST実験」記事へのコメント

posthatena.php

[fslasht (3370)]

#!/usr/local/bin/php
Post Hatena diary test
2003.12.14 FUKAYA Takashi (F/T)

<?php

    // テキストファイルを読み込む
    function ReadStr( $strFile = "" ) {
        $str = "";
        $fd = fopen( $strFile , "r" );
        if ( $fd ) {
            while (!feof($fd)) {
                $str .= fread( $fd , 1024 );
            }
            fclose($fd);
        }else{
            return "";
        }
        return $str;
    }

    // Webサーバへリクエストを送る (偽春奈に発言させる)
    //        入力パラメータ
    //               $adr:サーバのアドレス(ドメイン名)
    //              $data:送信データ
    //              $recv:受信データ（のバッファ）
    //        戻り値：エラー/ステータスコード
    //                 -1:接続が確立できなかった
    //               -2:webサーバから正常な応答がなかった
    //            0以上:HTTP応答コード
    function SendRequest($adr,$data,&$recv) {
        $errno = 0;
        $hostadr = gethostbyname( $adr );
        $lastsockerrmsg = 0;
        $recv = "";

        $sid = fsockopen( $hostadr , 80 , $errno , $lastsockerrmsg , 10 );
        if ( $sid == 0 ) return -1;                                // 接続エラー

        fputs( $sid ,$data);

        while (!feof($sid)) {
            $recv =$recv . fgets ($sid,128);
        }
        fclose( $sid );

        if ( substr($recv,0,9) != "HTTP/1.1 " ) return -2;        // 応答文字列エラー
        return  (int)substr($recv,9,3);                            // 成功
    }

// 送信ファイルを読み込む
$str = ReadStr( "post.txt" );

// 送信！ (POST)
$recv = "";
$stat = SendRequest( "d.hatena.ne.jp",$str,$recv);

// 受信した内容を表示
print( "Status:$stat\n" );
print( "***** BEGIN\n" );
print( $recv );
print( "***** END\n" );
?>

program has done.