Exemple #1
0
 /**
  * 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;
 }