<?php
/*************************************************
 *
 * Snoopy - the PHP net client
 * Author: Monte Ohrt <monte@ohrt.com>
 * Copyright (c): 1999-2014, all rights reserved
 * Version: 2.0.0
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 * You may contact the author of Snoopy by e-mail at:
 * monte@ohrt.com
 *
 * The latest version of Snoopy can be obtained from:
 * http://snoopy.sourceforge.net/
 *************************************************/

namespace VcySDK\Net;

class Snoopy {

	// Public variables
	/* user definable vars */
	var $scheme = 'http'; // http or https
	var $host = "www.php.net"; // host name we are connecting to
	var $port = 80; // port we are connecting to
	var $proxy_host = ""; // proxy host to use
	var $proxy_port = ""; // proxy port to use
	var $proxy_user = ""; // proxy user to use
	var $proxy_pass = ""; // proxy password to use

	var $agent = "Snoopy v2.0.0"; // agent we masquerade as
	var $referer = ""; // referer info to pass
	// array of cookies to pass, $cookies["username"]="joe";
	var $cookies = array();
	// array of raw headers to send, $rawheaders["Content-type"]="text/html";
	var $rawheaders = array();
	var $maxredirs = 5; // http redirection depth maximum. 0 = disallow
	var $lastredirectaddr = ""; // contains address of last redirected address
	var $offsiteok = true; // allows redirection off-site
	var $maxframes = 0; // frame content depth maximum. 0 = disallow
	// expand links to fully qualified URLs. this only applies to fetchlinks(), submitlinks(), and submittext()
	var $expandlinks = true;
	var $passcookies = true; // pass set cookies back through redirects

	// NOTE: this currently does not respect
	// dates, domains or paths.
	var $user = ""; // user for http authentication
	var $pass = ""; // password for http authentication

	// http accept types
	var $accept = "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*";
	var $results = ""; // where the content is put
	var $error = ""; // error messages sent here
	var $response_code = ""; // response code returned from server
	var $headers = array(); // headers returned from server sent here
	var $maxlength = 500000; // max return data length (body)
	var $read_timeout = 10; // timeout on read operations, in seconds
	// supported only since PHP 4 Beta 4
	// set to 0 to disallow timeouts
	var $timed_out = false; // if a read operation timed out
	var $status = 0; // http request status

	var $temp_dir = "/tmp"; // temporary directory that the webserver
	// has permission to write to.
	// under Windows, this should be C:\temp
	var $curl_path = false;
	// deprecated, snoopy no longer uses curl for https requests,
	// but instead requires the openssl extension.
	// send Accept-encoding: gzip?
	var $use_gzip = true;

	// file or directory with CA certificates to verify remote host with
	var $cafile;
	var $capath;

	// Private variables
	var $_maxlinelen = 4096; // max line length (headers)
	var $_httpmethod = "GET"; // default http request method
	var $_httpversion = "HTTP/1.0"; // default http request version
	var $_submit_method = "POST"; // default submit method
	var $_submit_type = "application/x-www-form-urlencoded"; // default submit type
	var $_mime_boundary = ""; // MIME boundary for multipart/form-data submit type
	var $_redirectaddr = false; // will be set if page fetched is a redirect
	var $_redirectdepth = 0; // increments on an http redirect
	var $_frameurls = array(); // frame src urls
	var $_framedepth = 0; // increments on frame depth
	var $_isproxy = false; // set if using a proxy server
	var $_fp_timeout = 10; // timeout for socket connection

	// by zhuxun, async
	var $_async = false;
	// end.

	/**
	 * fetch
	 * fetch the contents of a web page
	 * (and possibly other protocols in the
	 * future like ftp, nntp, gopher, etc.)
	 *
	 * @param string $URI the location of the page to fetch
	 * @return $this->results the output text from the fetch
	 */
	function fetch($URI) {

		$URI_PARTS = parse_url($URI);
		if (! empty($URI_PARTS["user"])) $this->user = $URI_PARTS["user"];
		if (! empty($URI_PARTS["pass"])) $this->pass = $URI_PARTS["pass"];
		if (empty($URI_PARTS["query"])) $URI_PARTS["query"] = '';
		if (empty($URI_PARTS["path"])) $URI_PARTS["path"] = '';
		$fp = null;
		switch (strtolower($URI_PARTS["scheme"])) {
			case "https" :
				if (! extension_loaded('openssl')) {
					trigger_error("openssl extension required for HTTPS", E_USER_ERROR);
					exit();
				}

				$this->port = 443;
			case "http" :
				$this->scheme = strtolower($URI_PARTS["scheme"]);
				$this->host = $URI_PARTS["host"];
				if (! empty($URI_PARTS["port"])) $this->port = $URI_PARTS["port"];
				if ($this->_connect($fp)) {
					if ($this->_isproxy) {
						// using proxy, send entire URI
						$this->_httprequest($URI, $fp, $URI, $this->_httpmethod);
					} else {
						$path = $URI_PARTS["path"] . ($URI_PARTS["query"] ? "?" . $URI_PARTS["query"] : "");
						// no proxy, send only the path
						$this->_httprequest($path, $fp, $URI, $this->_httpmethod);
					}

					$this->_disconnect($fp);
					if ($this->_redirectaddr) {
						/* url was redirected, check if we've hit the max depth */
						if ($this->maxredirs > $this->_redirectdepth) {
							// only follow redirect if it's on this site, or offsiteok is true
							if (preg_match("|^https?://" . preg_quote($this->host) . "|i", $this->_redirectaddr) || $this->offsiteok) {
								/* follow the redirect */
								$this->_redirectdepth ++;
								$this->lastredirectaddr = $this->_redirectaddr;
								$this->fetch($this->_redirectaddr);
							}
						}
					}

					if ($this->_framedepth < $this->maxframes && count($this->_frameurls) > 0) {
						$frameurls = $this->_frameurls;
						$this->_frameurls = array();
						while (list(, $frameurl) = each($frameurls)) {
							if ($this->_framedepth < $this->maxframes) {
								$this->fetch($frameurl);
								$this->_framedepth ++;
							} else break;
						}
					}
				} else {
					return false;
				}

				return $this;
			break;
			default :
				// not a valid protocol
				$this->error = 'Invalid protocol "' . $URI_PARTS["scheme"] . '"\n';
				return false;
			break;
		}

		return $this;
	}

	/**
	 * submit
	 * submit an http(s) form
	 *
	 * @param string $URI the location to post the data
	 * @param mixed $formvars the formvars to use. format: $formvars["var"] = "val";
	 * @param mixed $formfiles an array of files to submit format: $formfiles["var"] = "/dir/filename.ext";
	 * @return $this->results the text output from the post
	 */
	function submit($URI, $formvars = "", $formfiles = "") {

		unset($postdata);
		$postdata = $this->_prepare_post_body($formvars, $formfiles);
		$URI_PARTS = parse_url($URI);
		if (! empty($URI_PARTS["user"])) $this->user = $URI_PARTS["user"];
		if (! empty($URI_PARTS["pass"])) $this->pass = $URI_PARTS["pass"];
		if (empty($URI_PARTS["query"])) $URI_PARTS["query"] = '';
		if (empty($URI_PARTS["path"])) $URI_PARTS["path"] = '';
		switch (strtolower($URI_PARTS["scheme"])) {
			case "https" :
				if (! extension_loaded('openssl')) {
					trigger_error("openssl extension required for HTTPS", E_USER_ERROR);
					exit();
				}

				$this->port = 443;
			case "http" :
				$this->scheme = strtolower($URI_PARTS["scheme"]);
				$this->host = $URI_PARTS["host"];
				if (! empty($URI_PARTS["port"])) $this->port = $URI_PARTS["port"];
				if ($this->_connect($fp)) {
					if ($this->_isproxy) {
						// using proxy, send entire URI
						$this->_httprequest($URI, $fp, $URI, $this->_submit_method, $this->_submit_type, $postdata);
					} else {
						$path = $URI_PARTS["path"] . ($URI_PARTS["query"] ? "?" . $URI_PARTS["query"] : "");
						// no proxy, send only the path
						$this->_httprequest($path, $fp, $URI, $this->_submit_method, $this->_submit_type, $postdata);
					}

					$this->_disconnect($fp);
					if ($this->_redirectaddr) {
						/* url was redirected, check if we've hit the max depth */
						if ($this->maxredirs > $this->_redirectdepth) {
							if (! preg_match("|^" . $URI_PARTS["scheme"] . "://|", $this->_redirectaddr)) $this->_redirectaddr = $this->_expandlinks($this->_redirectaddr, $URI_PARTS["scheme"] . "://" . $URI_PARTS["host"]);
							// only follow redirect if it's on this site, or offsiteok is true
							if (preg_match("|^https?://" . preg_quote($this->host) . "|i", $this->_redirectaddr) || $this->offsiteok) {
								/* follow the redirect */
								$this->_redirectdepth ++;
								$this->lastredirectaddr = $this->_redirectaddr;
								if (strpos($this->_redirectaddr, "?") > 0) $this->fetch($this->_redirectaddr); // the redirect has changed the request method from post to get
								else $this->submit($this->_redirectaddr, $formvars, $formfiles);
							}
						}
					}

					if ($this->_framedepth < $this->maxframes && count($this->_frameurls) > 0) {
						$frameurls = $this->_frameurls;
						$this->_frameurls = array();
						while (list(, $frameurl) = each($frameurls)) {
							if ($this->_framedepth < $this->maxframes) {
								$this->fetch($frameurl);
								$this->_framedepth ++;
							} else break;
						}
					}
				} else {
					return false;
				}

				return $this;
			break;
			default :
				// not a valid protocol
				$this->error = 'Invalid protocol "' . $URI_PARTS["scheme"] . '"\n';
				return false;
			break;
		}

		return $this;
	}

	/**
	 * fetchlinks
	 * fetch the links from a web page
	 * @param string $URI where you are fetching from
	 * @return $this->results an array of the URLs
	 */
	function fetchlinks($URI) {

		if ($this->fetch($URI) !== false) {
			if ($this->lastredirectaddr) $URI = $this->lastredirectaddr;
			if (is_array($this->results)) {
				for($x = 0; $x < count($this->results); $x ++) {
					$this->results[$x] = $this->_striplinks($this->results[$x]);
				}
			} else {
				$this->results = $this->_striplinks($this->results);
			}

			if ($this->expandlinks) $this->results = $this->_expandlinks($this->results, $URI);
			return $this;
		} else return false;
	}

	/**
	 * Function: fetchform
	 * Purpose: fetch the form elements from a web page
	 * Input: $URI where you are fetching from
	 * Output: $this->results the resulting html form
	 */
	function fetchform($URI) {

		if ($this->fetch($URI) !== false) {
			if (is_array($this->results)) {
				for($x = 0; $x < count($this->results); $x ++) {
					$this->results[$x] = $this->_stripform($this->results[$x]);
				}
			} else {
				$this->results = $this->_stripform($this->results);
			}

			return $this;
		} else return false;
	}

	/**
	 * Function: fetchtext
	 * Purpose: fetch the text from a web page, stripping the links
	 * Input: $URI where you are fetching from
	 * Output: $this->results the text from the web page
	 */
	function fetchtext($URI) {

		if ($this->fetch($URI) !== false) {
			if (is_array($this->results)) {
				for($x = 0; $x < count($this->results); $x ++) {
					$this->results[$x] = $this->_striptext($this->results[$x]);
				}
			} else {
				$this->results = $this->_striptext($this->results);
			}

			return $this;
		} else return false;
	}

	/**
	 * Function: submitlinks
	 * Purpose: grab links from a form submission
	 * Input: $URI where you are submitting from
	 * Output: $this->results an array of the links from the post
	 */
	function submitlinks($URI, $formvars = "", $formfiles = "") {

		if ($this->submit($URI, $formvars, $formfiles) !== false) {
			if ($this->lastredirectaddr) $URI = $this->lastredirectaddr;
			if (is_array($this->results)) {
				for($x = 0; $x < count($this->results); $x ++) {
					$this->results[$x] = $this->_striplinks($this->results[$x]);
					if ($this->expandlinks) $this->results[$x] = $this->_expandlinks($this->results[$x], $URI);
				}
			} else {
				$this->results = $this->_striplinks($this->results);
				if ($this->expandlinks) $this->results = $this->_expandlinks($this->results, $URI);
			}

			return $this;
		} else return false;
	}

	/**
	 * Function: submittext
	 * Purpose: grab text from a form submission
	 * Input: $URI where you are submitting from
	 * Output: $this->results the text from the web page
	 */
	function submittext($URI, $formvars = "", $formfiles = "") {

		if ($this->submit($URI, $formvars, $formfiles) !== false) {
			if ($this->lastredirectaddr) $URI = $this->lastredirectaddr;
			if (is_array($this->results)) {
				for($x = 0; $x < count($this->results); $x ++) {
					$this->results[$x] = $this->_striptext($this->results[$x]);
					if ($this->expandlinks) $this->results[$x] = $this->_expandlinks($this->results[$x], $URI);
				}
			} else {
				$this->results = $this->_striptext($this->results);
				if ($this->expandlinks) $this->results = $this->_expandlinks($this->results, $URI);
			}

			return $this;
		} else return false;
	}

	/**
	 * Function: set_submit_multipart
	 * Purpose: Set the form submission content type to
	 * multipart/form-data
	 */
	function set_submit_multipart() {

		$this->_submit_type = "multipart/form-data";
		return $this;
	}

	/**
	 * Function: set_submit_normal
	 * Purpose: Set the form submission content type to
	 * application/x-www-form-urlencoded
	 */
	function set_submit_normal($type = '') {

		$type = empty($type) ? 'application/x-www-form-urlencoded' : $type;
		$this->_submit_type = $type;
		return $this;
	}

	// Private functions
	/**
	 * Function: _striplinks
	 * Purpose: strip the hyperlinks from an html document
	 * Input: $document document to strip.
	 * Output: $match an array of the links
	 */
	function _striplinks($document) {

		preg_match_all("'<\s*a\s.*?href\s*=\s*		# find <a href=
						([\"\'])?					# find single or double quote
						(?(1) (.*?)\\1 | ([^\s\>]+))		# if quote found, match up to next matching
															# quote, otherwise match up to next space
						'isx", $document, $links);
		// catenate the non-empty matches from the conditional subpattern
		while (list($key, $val) = each($links[2])) {
			if (! empty($val)) $match[] = $val;
		}

		while (list($key, $val) = each($links[3])) {
			if (! empty($val)) $match[] = $val;
		}

		// return the links
		return $match;
	}

	/**
	 * Function: _stripform
	 * Purpose: strip the form elements from an html document
	 * Input: $document document to strip.
	 * Output: $match an array of the links
	 */
	function _stripform($document) {

		preg_match_all("'<\/?(FORM|INPUT|SELECT|TEXTAREA|(OPTION))[^<>]*>(?(2)(.*(?=<\/?(option|select)[^<>]*>[\r\n]*)|(?=[\r\n]*))|(?=[\r\n]*))'Usi", $document, $elements);
		// catenate the matches
		$match = implode("\r\n", $elements[0]);
		// return the links
		return $match;
	}

	/**
	 * Function: _striptext
	 * Purpose: strip the text from an html document
	 * Input: $document document to strip.
	 * Output: $text the resulting text
	 */
	function _striptext($document) {

		// I didn't use preg eval (//e) since that is only available in PHP 4.0.
		// so, list your entities one by one here. I included some of the
		// more common ones.
		$search = array(
			"'<script[^>]*?>.*?</script>'si", // strip out javascript
			"'<[\/\!]*?[^<>]*?>'si", // strip out html tags
			"'([\r\n])[\s]+'", // strip out white space
			"'&(quot|#34|#034|#x22);'i", // replace html entities
			"'&(amp|#38|#038|#x26);'i", // added hexadecimal values
			"'&(lt|#60|#060|#x3c);'i",
			"'&(gt|#62|#062|#x3e);'i",
			"'&(nbsp|#160|#xa0);'i",
			"'&(iexcl|#161);'i",
			"'&(cent|#162);'i",
			"'&(pound|#163);'i",
			"'&(copy|#169);'i",
			"'&(reg|#174);'i",
			"'&(deg|#176);'i",
			"'&(#39|#039|#x27);'",
			"'&(euro|#8364);'i", // europe
			"'&a(uml|UML);'", // german
			"'&o(uml|UML);'",
			"'&u(uml|UML);'",
			"'&A(uml|UML);'",
			"'&O(uml|UML);'",
			"'&U(uml|UML);'",
			"'&szlig;'i",
		);
		$replace = array(
			"",
			"",
			"\\1",
			"\"",
			"&",
			"<",
			">",
			" ",
			chr(161),
			chr(162),
			chr(163),
			chr(169),
			chr(174),
			chr(176),
			chr(39),
			chr(128),
			"ä",
			"ö",
			"ü",
			"Ä",
			"Ö",
			"Ü",
			"ß",
		);

        $text = preg_replace($search, $replace, $document);

        return $text;
    }

	/**
	 * Function: _expandlinks
	 * Purpose: expand each link into a fully qualified URL
	 * Input: $links the links to qualify
	 * $URI the full URI to get the base from
	 * Output: $expandedLinks the expanded links
	 */
	function _expandlinks($links, $URI) {

		preg_match("/^[^\?]+/", $URI, $match);
		$match = preg_replace("|/[^\/\.]+\.[^\/\.]+$|", "", $match[0]);
		$match = preg_replace("|/$|", "", $match);
		$match_part = parse_url($match);
		$match_root = $match_part["scheme"] . "://" . $match_part["host"];
		$search = array("|^http://" . preg_quote($this->host) . "|i", "|^(\/)|i", "|^(?!http://)(?!mailto:)|i", "|/\./|", "|/[^\/]+/\.\./|");
		$replace = array("", $match_root . "/", $match . "/", "/", "/");
		$expandedLinks = preg_replace($search, $replace, $links);
		return $expandedLinks;
	}

	/**
	 * Function: _httprequest
	 * Purpose: go get the http(s) data from the server
	 * Input: $url the url to fetch
	 * $fp the current open file pointer
	 * $URI the full URI
	 * $body body contents to send if any (POST)
	 * Output:
	 */
	function _httprequest($url, $fp, $URI, $http_method, $content_type = "", $body = "") {

		$cookie_headers = '';
		if ($this->passcookies && $this->_redirectaddr) $this->setcookies();
		$URI_PARTS = parse_url($URI);
		if (empty($url)) $url = "/";
		$headers = $http_method . " " . $url . " " . $this->_httpversion . "\r\n";
		if (! empty($this->host) && ! isset($this->rawheaders['Host'])) {
			$headers .= "Host: " . $this->host;
			if (! empty($this->port) && $this->port != '80') $headers .= ":" . $this->port;
			$headers .= "\r\n";
		}

		if (! empty($this->agent)) $headers .= "User-Agent: " . $this->agent . "\r\n";
		if (! empty($this->accept)) $headers .= "Accept: " . $this->accept . "\r\n";
		if ($this->use_gzip) {
			// make sure PHP was built with --with-zlib
			// and we can handle gzipp'ed data
			if (function_exists('gzinflate')) {
				$headers .= "Accept-encoding: gzip\r\n";
			} else {
				trigger_error("use_gzip is on, but PHP was built without zlib support." . "  Requesting file(s) without gzip encoding.", E_USER_NOTICE);
			}
		}

		if (! empty($this->referer)) $headers .= "Referer: " . $this->referer . "\r\n";
		if (! empty($this->cookies)) {
			if (! is_array($this->cookies)) $this->cookies = (array)$this->cookies;
			reset($this->cookies);
			if (count($this->cookies) > 0) {
				$cookie_headers .= 'Cookie: ';
				foreach ($this->cookies as $cookieKey => $cookieVal) {
					$cookie_headers .= $cookieKey . "=" . urlencode($cookieVal) . "; ";
				}

				$headers .= substr($cookie_headers, 0, - 2) . "\r\n";
			}
		}

		if (! empty($this->rawheaders)) {
			if (! is_array($this->rawheaders)) $this->rawheaders = (array)$this->rawheaders;
			while (list($headerKey, $headerVal) = each($this->rawheaders)) {
				$headers .= $headerKey . ": " . $headerVal . "\r\n";
			}
		}

		if (! empty($content_type)) {
			$headers .= "Content-type: $content_type";
			if ($content_type == "multipart/form-data") $headers .= "; boundary=" . $this->_mime_boundary;
			$headers .= "\r\n";
		}

		if (! empty($body)) $headers .= "Content-length: " . strlen($body) . "\r\n";
		if (! empty($this->user) || ! empty($this->pass)) $headers .= "Authorization: Basic " . base64_encode($this->user . ":" . $this->pass) . "\r\n";
		// add proxy auth headers
		if (! empty($this->proxy_user)) $headers .= 'Proxy-Authorization: ' . 'Basic ' . base64_encode($this->proxy_user . ':' . $this->proxy_pass) . "\r\n";
		$headers .= "\r\n";
		// set the read timeout if needed
		if ($this->read_timeout > 0) socket_set_timeout($fp, $this->read_timeout);
		$this->timed_out = false;
		fwrite($fp, $headers . $body, strlen($headers . $body));
		$this->_redirectaddr = false;
		unset($this->headers);
		// content was returned gzip encoded?
		$is_gzipped = false;
		// by zhuxun, 增加返回值的长度
		$len = 0;
		// end.
		while ($currentHeader = fgets($fp, $this->_maxlinelen)) {
			if ($this->read_timeout > 0 && $this->_check_timeout($fp)) {
				$this->status = - 100;
				return false;
			}

			if ($currentHeader == "\r\n") break;
			// if a header begins with Location: or URI:, set the redirect
			if (preg_match("/^(Location:|URI:)/i", $currentHeader)) {
				// get URL portion of the redirect
				preg_match("/^(Location:|URI:)[ ]+(.*)/i", chop($currentHeader), $matches);
				// look for :// in the Location header to see if hostname is included
				if (! preg_match("|\:\/\/|", $matches[2])) {
					// no host in the path, so prepend
					$this->_redirectaddr = $URI_PARTS["scheme"] . "://" . $this->host . ":" . $this->port;
					// eliminate double slash
					if (! preg_match("|^/|", $matches[2])) $this->_redirectaddr .= "/" . $matches[2];
					else $this->_redirectaddr .= $matches[2];
				} else $this->_redirectaddr = $matches[2];
			}

			if (preg_match("|^HTTP/|", $currentHeader)) {
				if (preg_match("|^HTTP/[^\s]*\s(.*?)\s|", $currentHeader, $status)) {
					$this->status = $status[1];
				}

				$this->response_code = $currentHeader;
			}

			if (preg_match("/Content-Encoding:\s*gzip/i", $currentHeader)) {
				$is_gzipped = true;
			}

			$this->headers[] = $currentHeader;
			// by zhuxun, 获取返回值的长度
			if (preg_match('/Content\-Length\:\s*(\d+)/i', $currentHeader, $matches)) {
				$len = $matches[1];
			}
			// end.
		}

		$results = '';
		// 已读取长度
		$readed_len = 0;
		do {
			// by zhuxun, 如果有长度值, 则读取指定长度的信息
			//$_data = fread($fp, $this->maxlength);
			if (0 < $len) {
				// 剩余字节长度
				$left = $len - $readed_len;
				$_data = fread($fp, 4096 < $left ? 4096 : $left);
			} else {
				$_data = fread($fp, $this->maxlength);
			}

			// 已读取长度
			$data_len = strlen($_data);
			//if (strlen($_data) == 0) {
			if (0 == $data_len) {
			// end.
				break;
			}

			$results .= $_data;
			// by zhuxun, 判断读取的消息是否全部已读取
			$readed_len += $data_len;
			if (0 < $len && $readed_len == $len) {
				break;
			}
			// end.
		} while (true);

		// gunzip
		if ($is_gzipped) {
			// per http://www.php.net/manual/en/function.gzencode.php
			$results = substr($results, 10);
			$results = gzinflate($results);
		}

		if ($this->read_timeout > 0 && $this->_check_timeout($fp)) {
			$this->status = - 100;
			return false;
		}

		// check if there is a a redirect meta tag
		if (preg_match("'<meta[\s]*http-equiv[^>]*?content[\s]*=[\s]*[\"\']?\d+;[\s]*URL[\s]*=[\s]*([^\"\']*?)[\"\']?>'i", $results, $match)) {
			$this->_redirectaddr = $this->_expandlinks($match[1], $URI);
		}

		// have we hit our frame depth and is there frame src to fetch?
		if (($this->_framedepth < $this->maxframes) && preg_match_all("'<frame\s+.*src[\s]*=[\'\"]?([^\'\"\>]+)'i", $results, $match)) {
			$this->results[] = $results;
			for($x = 0; $x < count($match[1]); $x ++) {
				$this->_frameurls[] = $this->_expandlinks($match[1][$x], $URI_PARTS["scheme"] . "://" . $this->host);
			}
		} elseif (is_array($this->results)) $this->results[] = $results;  // have we already fetched framed content?
		// no framed content
		else $this->results = $results;
		return $this;
	}

	/**
	 * Function: setcookies()
	 * Purpose: set cookies for a redirection
	 */
	function setcookies() {

		for($x = 0; $x < count($this->headers); $x ++) {
			if (preg_match('/^set-cookie:[\s]+([^=]+)=([^;]+)/i', $this->headers[$x], $match)) $this->cookies[$match[1]] = urldecode($match[2]);
		}

		return $this;
	}

	/**
	 * Function: _check_timeout
	 * Purpose: checks whether timeout has occurred
	 * Input: $fp file pointer
	 */
	function _check_timeout($fp) {

		if ($this->read_timeout > 0) {
			$fp_status = socket_get_status($fp);
			if ($fp_status["timed_out"]) {
				$this->timed_out = true;
				return true;
			}
		}

		return false;
	}

	/**
	 * Function: _connect
	 * Purpose: make a socket connection
	 * Input: $fp file pointer
	 */
	function _connect(&$fp) {

		if (! empty($this->proxy_host) && ! empty($this->proxy_port)) {
			$this->_isproxy = true;
			$host = $this->proxy_host;
			$port = $this->proxy_port;
			if ($this->scheme == 'https') {
				trigger_error("HTTPS connections over proxy are currently not supported", E_USER_ERROR);
				exit();
			}
		} else {
			$host = $this->host;
			$port = $this->port;
		}

		$this->status = 0;
		$context_opts = array();
		if ($this->scheme == 'https') {
			// if cafile or capath is specified, enable certificate
			// verification (including name checks)
			if (isset($this->cafile) || isset($this->capath)) {
				$context_opts['ssl'] = array('verify_peer' => true, 'CN_match' => $this->host, 'disable_compression' => true);
				if (isset($this->cafile)) $context_opts['ssl']['cafile'] = $this->cafile;
				if (isset($this->capath)) $context_opts['ssl']['capath'] = $this->capath;
			}

			$host = 'ssl://' . $host;
		}

		$context = stream_context_create($context_opts);
		if (version_compare(PHP_VERSION, '5.0.0', '>')) {
			if ($this->scheme == 'http') $host = "tcp://" . $host;
			$fp = stream_socket_client("$host:$port", $errno, $errmsg, $this->_fp_timeout, STREAM_CLIENT_CONNECT, $context);
		} else {
			$fp = fsockopen($host, $port, $errno, $errstr, $this->_fp_timeout, $context);
		}

		if ($fp) {
			// socket connection succeeded
			// by zhuxun, 设置异步(非阻塞)操作
			if ($this->_async) {
				stream_set_blocking($fp, 0);
				// 自动转回同步操作
				$this->_async = false;
			}
			// end.
			return true;
		} else {
			// socket connection failed
			$this->status = $errno;
			switch ($errno) {
				case - 3 :
					$this->error = "socket creation failed (-3)";
				case - 4 :
					$this->error = "dns lookup failure (-4)";
				case - 5 :
					$this->error = "connection refused or timed out (-5)";
				default :
					$this->error = "connection failed (" . $errno . ")";
			}

			return false;
		}
	}

	/**
	 * Function: _disconnect
	 * Purpose: disconnect a socket connection
	 * Input: $fp file pointer
	 */
	function _disconnect($fp) {

		return (fclose($fp));
	}

	/**
	 * Function: _prepare_post_body
	 * Purpose: Prepare post body according to encoding type
	 * Input: $formvars - form variables
	 * $formfiles - form upload files
	 * Output: post body
	 */
	function _prepare_post_body($formvars, $formfiles) {

		// by zhuxun, begin. 不强制进行类型转换
		// settype($formvars, "array");
		// end.
		settype($formfiles, "array");
		$postdata = '';
		// by zhuxun, begin.
		// if (count($formvars) == 0 && count($formfiles) == 0) return;
		if (empty($formvars) && count($formfiles) == 0) return '{}';
		// end.
		switch ($this->_submit_type) {
			case 'application/json':
				if (is_array($formvars)) {
					$postdata = rjson_encode($formvars);
				} else {
					$postdata = $formvars;
				}
			break;
			case "application/x-www-form-urlencoded" :
				// by zhuxun, begin. 如果不是数组
				if (!is_array($formvars)) {
					$postdata = empty($formvars) ? '' : (string)$formvars;
					$formvars = array();
				} else {
					settype($formvars, 'array');
				}
				// end.

				reset($formvars);
				while (list($key, $val) = each($formvars)) {
					if (is_array($val) || is_object($val)) {
						while (list($cur_key, $cur_val) = each($val)) {
							$postdata .= urlencode($key) . "[]=" . urlencode($cur_val) . "&";
						}

					} else $postdata .= urlencode($key) . "=" . urlencode($val) . "&";
				}
			break;
			case "multipart/form-data" :
				$this->_mime_boundary = "Snoopy" . md5(uniqid(microtime()));
				// by zhuxun, begin. 如果不是数组
				settype($formvars, 'array');
				// end.

				reset($formvars);
				while (list($key, $val) = each($formvars)) {
					if (is_array($val) || is_object($val)) {
						while (list($cur_key, $cur_val) = each($val)) {
							$postdata .= "--" . $this->_mime_boundary . "\r\n";
							$postdata .= "Content-Disposition: form-data; name=\"$key\[\]\"\r\n\r\n";
							$postdata .= "$cur_val\r\n";
						}
					} else {
						$postdata .= "--" . $this->_mime_boundary . "\r\n";
						$postdata .= "Content-Disposition: form-data; name=\"$key\"\r\n\r\n";
						$postdata .= "$val\r\n";
					}
				}

				reset($formfiles);
				while (list($field_name, $file_names) = each($formfiles)) {
					settype($file_names, "array");
					if (isset($file_names['tmp_name'])) {
						$file_names = array($file_names);
					}

					while (list(, $file_name) = each($file_names)) {
						// by zhuxun, 增加对文件名的支持
						if (is_array($file_name)) {
							if (isset($file_name['path'])) {
								$base_name = $file_name['name'];
								$file_name = $file_name['path'];
							} elseif (isset($file_name['tmp_name'])) {
								$base_name = $file_name['name'];
								$file_name = $file_name['tmp_name'];
							}
						}
						// end.
						if (! is_readable($file_name)) continue;
						$fp = fopen($file_name, "r");
						$file_content = fread($fp, filesize($file_name));
						fclose($fp);
						// by zhuxun, 判断是否已经有文件名
						//$base_name = basename($file_name);
						if (empty($base_name)) {
							$base_name = basename($file_name);
						}
						// end.
						$postdata .= "--" . $this->_mime_boundary . "\r\n";
						$postdata .= "Content-Disposition: form-data; name=\"$field_name\"; filename=\"$base_name\"\r\n\r\n";
						$postdata .= "$file_content\r\n";
					}
				}

				$postdata .= "--" . $this->_mime_boundary . "--\r\n";
			break;
		}

		return $postdata;
	}

	/**
	 * Function: getResults
	 * Purpose: return the results of a request
	 * Output: string results
	 */
	function getResults() {

		return $this->results;
	}

	// by zhuxun, begin.
	public function set_results($results) {

		$this->results = $results;
	}

	public function set_submit_method($method) {

		$this->_submit_method = $method;
	}
	// end.

}