/**
* Perform an interaction of a URL.
*
* @param string $url A URL.
* @param string $pxhost The host name of a proxy.
* If it is `null', it is not used.
* @param int $pxport The port number of the proxy.
* @param int $outsec Timeout in seconds.
* If it is negative, it is not used.
* @param array $reqheads An array of extension headers.
* If it is `null', it is not used.
* @param string $reqbody The pointer of the entitiy body of request.
* If it is `null', "GET" method is used.
* @param object $res EstraierPure_Response
* an object into which headers and
* the entity body of response are stored.
* If it is `null', it is not used.
* @return int The status code of the response.
* On error, returns PEAR_Error.
* @access public
* @static
* @uses PEAR
* @uses HTTP_Request2
*/
static function shuttle_url($url, $pxhost = null, $pxport = null, $outsec = -1, $reqheads = null, $reqbody = null, $res = null)
{
// HTTPS checking disabled.
/*$https = preg_match('!^https://!i', $url);
if ($https && !extension_loaded('openssl')) {
$err = PEAR::raiseError('HTTPS is not supported.');
self::push_error($err);
return $err;
}*/
if (is_null($reqheads)) {
$reqheads = array();
}
$reqheads['User-Agent'] = sprintf('EstraierPure/%s (for PHP 5.1)', ESTRAIERPURE_VERSION);
if (ESTRAIERPURE_USE_HTTP_STREAM) {
// {{{ using stream functions
// set request parameters
$params = array('http' => array());
if (is_null($reqbody)) {
$params['http']['method'] = 'GET';
} else {
$params['http']['method'] = 'POST';
$params['http']['content'] = $reqbody;
$reqheads['Content-Length'] = strlen($reqbody);
}
if (!is_null($pxhost)) {
/*if ($https && version_compare(phpversion(), '5.1.0', 'lt')) {
$err = PEAR::raiseError('HTTPS proxies are not supported.');
self::push_error($err);
return $err;
}*/
$params['http']['proxy'] = sprintf('tcp://%s:%d', $pxhost, $pxport);
}
$params['http']['header'] = '';
foreach ($reqheads as $key => $value) {
$params['http']['header'] .= sprintf("%s: %s\r\n", $key, $value);
}
$context = stream_context_create($params);
// open a stream and send the request
$fp = fopen($url, 'r', false, $context);
if (!$fp) {
$err = PEAR::raiseError(sprintf('Cannot connect to %s.', $url));
self::push_error($err);
return $err;
}
if ($outsec >= 0) {
stream_set_timeout($fp, $outsec);
}
// process the response
$meta_data = stream_get_meta_data($fp);
if (strcasecmp($meta_data['wrapper_type'], 'cURL') == 0) {
$errmsg = 'EstraierPure does not work with the cURL' . ' HTTP stream wrappers, please use PEAR::HTTP_Request2.';
$err = PEAR::raiseError($errmsg);
self::push_error($err);
return $err;
}
if (!empty($meta_data['timed_out'])) {
$err = PEAR::raiseError('Connection timed out.');
self::push_error($err);
return $err;
}
$first_header = array_shift($meta_data['wrapper_data']);
if (!preg_match('!^HTTP/(.+?) (\\d+) ?(.*)!', $first_header, $matches)) {
$err = PEAR::raiseError('Malformed response.');
self::push_error($err);
return $err;
}
$code = intval($matches[2]);
if ($res instanceof EstraierPure_Response) {
if ($res->save_heads) {
foreach ($meta_data['wrapper_data'] as $header) {
list($name, $value) = explode(':', $header, 2);
$res->add_head(strtolower($name), ltrim($value));
}
}
if ($res->save_body) {
$res->set_body(stream_get_contents($fp));
}
}
// close the stream
fclose($fp);
// }}}
} else {
// {{{{ using PEAR::HTTP_Request2
// set request parameters
$params = array();
$params['requestHeaders'] = $reqheads;
if (isset($params['requestHeaders']['Content-Type'])) {
unset($params['requestHeaders']['Content-Type']);
$params['requestHeaders']['content-type'] = $reqheads['Content-Type'];
}
if (!is_null($pxhost)) {
$params['proxy_host'] = $pxhost;
$params['proxy_port'] = $pxport;
}
if ($outsec >= 0) {
$params['timeout'] = floatval($outsec);
$params['readTimeout'] = array($outsec, 0);
}
// create an instance of HTTP_Request2
$req = new HTTP_Request2($url, $params);
if (is_null($reqbody)) {
$req->setMethod('GET');
} else {
$req->setMethod('POST');
$req->setBody($reqbody);
}
// send the request
$err = $req->sendRequest(is_object($res) && !empty($res->save_body));
if (PEAR::isError($err)) {
self::push_error($err);
return $err;
}
$code = $req->getResponseCode();
// process the response
if ($res instanceof EstraierPure_Response) {
if ($res->save_heads) {
$res->set_heads($req->getResponseHeader());
}
if ($res->save_body) {
$res->set_body($req->getResponseBody());
}
}
// }}}
}
return $code;
}