/*
** 主机に文をPOSTする
*/
function PostToHost($url, $data) {
$url = parse_url($url);
if (!$url) return 「URL を解析できませんでした」;
if (!isset($url['port'])) { $url['port'] = ""; }
if (!isset($url['query'])) { $url['query'] = ""; }
$encoded = "";
while (list($k,$v) = each($data)) {
$encoded .= ($encoded ? "&" : "");
$encoded .= rawurlencode($k)."=".rawurlencode($v);
}
$port = $url['port'] ? $url['ポート'] : 80;
$fp = fsockopen($url['host'], $port, $errno, $errstr);
if (!$fp) return 「$url[host] $port へのソケットのオープンに失敗しました。エラー: $errno - $errstr」;
fputs($fp, sprintf("POST %s%s%s HTTP/1.0\n", $url['path'], $url['query'] ? "?" : "", $url[ 'クエリ']));
fputs($fp, "ホスト: $url[ホスト]\n");
fputs($fp, "Content-type: application/x-www-form-urlencoded\n");
fputs($fp, "Content-length: " . strlen($encoded) . "\n");
fputs($fp, "接続: 閉じる\n\n");
fputs($fp, "$encoded\n");
$line = fgets($fp,1024);
if (!eregi("^HTTP/1\.. 200", $line)) return;
$結果 = ""; $inheader = 1;
while(!feof($fp)) {
$line = fgets($fp,1024);
if ($inheader &&($line == "\n" || $line == "\r\n")) {
$inheader = 0;
}
elseif (!$inheader) {
$results .= $line;
}
}
fclose($fp);
$results を返す;
}/* 関数の終了 PostToHost */
?>