wp/wp-includes/class-snoopy.php
author ymh <ymh.work@gmail.com>
Wed, 06 Nov 2013 03:21:17 +0000
changeset 0 d970ebf37754
child 7 cf61fcea0001
permissions -rw-r--r--
first import
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     1
<?php
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     2
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     3
/**
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     4
 * Deprecated. Use WP_HTTP (http.php, class-http.php) instead.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     5
 */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     6
_deprecated_file( basename( __FILE__ ), '3.0', WPINC . '/http.php' );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     7
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     8
if ( !class_exists( 'Snoopy' ) ) :
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
     9
/*************************************************
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    10
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    11
Snoopy - the PHP net client
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    12
Author: Monte Ohrt <monte@ispi.net>
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    13
Copyright (c): 1999-2008 New Digital Group, all rights reserved
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    14
Version: 1.2.4
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    15
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    16
 * This library is free software; you can redistribute it and/or
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    17
 * modify it under the terms of the GNU Lesser General Public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    18
 * License as published by the Free Software Foundation; either
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    19
 * version 2.1 of the License, or (at your option) any later version.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    20
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    21
 * This library is distributed in the hope that it will be useful,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    22
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    23
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    24
 * Lesser General Public License for more details.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    25
 *
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    26
 * You should have received a copy of the GNU Lesser General Public
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    27
 * License along with this library; if not, write to the Free Software
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    28
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    29
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    30
You may contact the author of Snoopy by e-mail at:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    31
monte@ohrt.com
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    32
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    33
The latest version of Snoopy can be obtained from:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    34
http://snoopy.sourceforge.net/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    35
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    36
*************************************************/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    37
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    38
class Snoopy
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    39
{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    40
	/**** Public variables ****/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    41
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    42
	/* user definable vars */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    43
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    44
	var $host			=	"www.php.net";		// host name we are connecting to
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    45
	var $port			=	80;					// port we are connecting to
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    46
	var $proxy_host		=	"";					// proxy host to use
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    47
	var $proxy_port		=	"";					// proxy port to use
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    48
	var $proxy_user		=	"";					// proxy user to use
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    49
	var $proxy_pass		=	"";					// proxy password to use
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    50
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    51
	var $agent			=	"Snoopy v1.2.4";	// agent we masquerade as
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    52
	var	$referer		=	"";					// referer info to pass
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    53
	var $cookies		=	array();			// array of cookies to pass
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    54
												// $cookies["username"]="joe";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    55
	var	$rawheaders		=	array();			// array of raw headers to send
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    56
												// $rawheaders["Content-type"]="text/html";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    57
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    58
	var $maxredirs		=	5;					// http redirection depth maximum. 0 = disallow
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    59
	var $lastredirectaddr	=	"";				// contains address of last redirected address
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    60
	var	$offsiteok		=	true;				// allows redirection off-site
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    61
	var $maxframes		=	0;					// frame content depth maximum. 0 = disallow
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    62
	var $expandlinks	=	true;				// expand links to fully qualified URLs.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    63
												// this only applies to fetchlinks()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    64
												// submitlinks(), and submittext()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    65
	var $passcookies	=	true;				// pass set cookies back through redirects
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    66
												// NOTE: this currently does not respect
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    67
												// dates, domains or paths.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    68
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    69
	var	$user			=	"";					// user for http authentication
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    70
	var	$pass			=	"";					// password for http authentication
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    71
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    72
	// http accept types
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    73
	var $accept			=	"image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    74
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    75
	var $results		=	"";					// where the content is put
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    76
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    77
	var $error			=	"";					// error messages sent here
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    78
	var	$response_code	=	"";					// response code returned from server
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    79
	var	$headers		=	array();			// headers returned from server sent here
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    80
	var	$maxlength		=	500000;				// max return data length (body)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    81
	var $read_timeout	=	0;					// timeout on read operations, in seconds
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    82
												// supported only since PHP 4 Beta 4
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    83
												// set to 0 to disallow timeouts
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    84
	var $timed_out		=	false;				// if a read operation timed out
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    85
	var	$status			=	0;					// http request status
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    86
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    87
	var $temp_dir		=	"/tmp";				// temporary directory that the webserver
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    88
												// has permission to write to.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    89
												// under Windows, this should be C:\temp
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    90
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    91
	var	$curl_path		=	"/usr/local/bin/curl";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    92
												// Snoopy will use cURL for fetching
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    93
												// SSL content if a full system path to
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    94
												// the cURL binary is supplied here.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    95
												// set to false if you do not have
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    96
												// cURL installed. See http://curl.haxx.se
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    97
												// for details on installing cURL.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    98
												// Snoopy does *not* use the cURL
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
    99
												// library functions built into php,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   100
												// as these functions are not stable
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   101
												// as of this Snoopy release.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   102
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   103
	/**** Private variables ****/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   104
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   105
	var	$_maxlinelen	=	4096;				// max line length (headers)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   106
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   107
	var $_httpmethod	=	"GET";				// default http request method
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   108
	var $_httpversion	=	"HTTP/1.0";			// default http request version
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   109
	var $_submit_method	=	"POST";				// default submit method
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   110
	var $_submit_type	=	"application/x-www-form-urlencoded";	// default submit type
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   111
	var $_mime_boundary	=   "";					// MIME boundary for multipart/form-data submit type
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   112
	var $_redirectaddr	=	false;				// will be set if page fetched is a redirect
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   113
	var $_redirectdepth	=	0;					// increments on an http redirect
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   114
	var $_frameurls		= 	array();			// frame src urls
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   115
	var $_framedepth	=	0;					// increments on frame depth
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   116
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   117
	var $_isproxy		=	false;				// set if using a proxy server
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   118
	var $_fp_timeout	=	30;					// timeout for socket connection
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   119
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   120
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   121
	Function:	fetch
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   122
	Purpose:	fetch the contents of a web page
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   123
				(and possibly other protocols in the
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   124
				future like ftp, nntp, gopher, etc.)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   125
	Input:		$URI	the location of the page to fetch
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   126
	Output:		$this->results	the output text from the fetch
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   127
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   128
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   129
	function fetch($URI)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   130
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   131
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   132
		//preg_match("|^([^:]+)://([^:/]+)(:[\d]+)*(.*)|",$URI,$URI_PARTS);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   133
		$URI_PARTS = parse_url($URI);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   134
		if (!empty($URI_PARTS["user"]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   135
			$this->user = $URI_PARTS["user"];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   136
		if (!empty($URI_PARTS["pass"]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   137
			$this->pass = $URI_PARTS["pass"];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   138
		if (empty($URI_PARTS["query"]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   139
			$URI_PARTS["query"] = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   140
		if (empty($URI_PARTS["path"]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   141
			$URI_PARTS["path"] = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   142
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   143
		switch(strtolower($URI_PARTS["scheme"]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   144
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   145
			case "http":
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   146
				$this->host = $URI_PARTS["host"];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   147
				if(!empty($URI_PARTS["port"]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   148
					$this->port = $URI_PARTS["port"];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   149
				if($this->_connect($fp))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   150
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   151
					if($this->_isproxy)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   152
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   153
						// using proxy, send entire URI
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   154
						$this->_httprequest($URI,$fp,$URI,$this->_httpmethod);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   155
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   156
					else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   157
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   158
						$path = $URI_PARTS["path"].($URI_PARTS["query"] ? "?".$URI_PARTS["query"] : "");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   159
						// no proxy, send only the path
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   160
						$this->_httprequest($path, $fp, $URI, $this->_httpmethod);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   161
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   162
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   163
					$this->_disconnect($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   164
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   165
					if($this->_redirectaddr)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   166
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   167
						/* url was redirected, check if we've hit the max depth */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   168
						if($this->maxredirs > $this->_redirectdepth)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   169
						{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   170
							// only follow redirect if it's on this site, or offsiteok is true
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   171
							if(preg_match("|^http://".preg_quote($this->host)."|i",$this->_redirectaddr) || $this->offsiteok)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   172
							{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   173
								/* follow the redirect */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   174
								$this->_redirectdepth++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   175
								$this->lastredirectaddr=$this->_redirectaddr;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   176
								$this->fetch($this->_redirectaddr);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   177
							}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   178
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   179
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   180
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   181
					if($this->_framedepth < $this->maxframes && count($this->_frameurls) > 0)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   182
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   183
						$frameurls = $this->_frameurls;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   184
						$this->_frameurls = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   185
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   186
						while(list(,$frameurl) = each($frameurls))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   187
						{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   188
							if($this->_framedepth < $this->maxframes)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   189
							{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   190
								$this->fetch($frameurl);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   191
								$this->_framedepth++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   192
							}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   193
							else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   194
								break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   195
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   196
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   197
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   198
				else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   199
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   200
					return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   201
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   202
				return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   203
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   204
			case "https":
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   205
				if(!$this->curl_path)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   206
					return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   207
				if(function_exists("is_executable"))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   208
				    if (!is_executable($this->curl_path))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   209
				        return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   210
				$this->host = $URI_PARTS["host"];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   211
				if(!empty($URI_PARTS["port"]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   212
					$this->port = $URI_PARTS["port"];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   213
				if($this->_isproxy)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   214
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   215
					// using proxy, send entire URI
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   216
					$this->_httpsrequest($URI,$URI,$this->_httpmethod);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   217
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   218
				else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   219
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   220
					$path = $URI_PARTS["path"].($URI_PARTS["query"] ? "?".$URI_PARTS["query"] : "");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   221
					// no proxy, send only the path
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   222
					$this->_httpsrequest($path, $URI, $this->_httpmethod);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   223
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   224
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   225
				if($this->_redirectaddr)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   226
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   227
					/* url was redirected, check if we've hit the max depth */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   228
					if($this->maxredirs > $this->_redirectdepth)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   229
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   230
						// only follow redirect if it's on this site, or offsiteok is true
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   231
						if(preg_match("|^http://".preg_quote($this->host)."|i",$this->_redirectaddr) || $this->offsiteok)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   232
						{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   233
							/* follow the redirect */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   234
							$this->_redirectdepth++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   235
							$this->lastredirectaddr=$this->_redirectaddr;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   236
							$this->fetch($this->_redirectaddr);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   237
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   238
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   239
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   240
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   241
				if($this->_framedepth < $this->maxframes && count($this->_frameurls) > 0)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   242
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   243
					$frameurls = $this->_frameurls;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   244
					$this->_frameurls = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   245
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   246
					while(list(,$frameurl) = each($frameurls))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   247
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   248
						if($this->_framedepth < $this->maxframes)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   249
						{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   250
							$this->fetch($frameurl);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   251
							$this->_framedepth++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   252
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   253
						else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   254
							break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   255
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   256
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   257
				return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   258
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   259
			default:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   260
				// not a valid protocol
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   261
				$this->error	=	'Invalid protocol "'.$URI_PARTS["scheme"].'"\n';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   262
				return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   263
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   264
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   265
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   266
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   267
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   268
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   269
	Function:	submit
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   270
	Purpose:	submit an http form
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   271
	Input:		$URI	the location to post the data
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   272
				$formvars	the formvars to use.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   273
					format: $formvars["var"] = "val";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   274
				$formfiles  an array of files to submit
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   275
					format: $formfiles["var"] = "/dir/filename.ext";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   276
	Output:		$this->results	the text output from the post
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   277
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   278
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   279
	function submit($URI, $formvars="", $formfiles="")
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   280
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   281
		unset($postdata);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   282
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   283
		$postdata = $this->_prepare_post_body($formvars, $formfiles);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   284
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   285
		$URI_PARTS = parse_url($URI);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   286
		if (!empty($URI_PARTS["user"]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   287
			$this->user = $URI_PARTS["user"];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   288
		if (!empty($URI_PARTS["pass"]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   289
			$this->pass = $URI_PARTS["pass"];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   290
		if (empty($URI_PARTS["query"]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   291
			$URI_PARTS["query"] = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   292
		if (empty($URI_PARTS["path"]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   293
			$URI_PARTS["path"] = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   294
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   295
		switch(strtolower($URI_PARTS["scheme"]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   296
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   297
			case "http":
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   298
				$this->host = $URI_PARTS["host"];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   299
				if(!empty($URI_PARTS["port"]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   300
					$this->port = $URI_PARTS["port"];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   301
				if($this->_connect($fp))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   302
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   303
					if($this->_isproxy)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   304
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   305
						// using proxy, send entire URI
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   306
						$this->_httprequest($URI,$fp,$URI,$this->_submit_method,$this->_submit_type,$postdata);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   307
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   308
					else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   309
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   310
						$path = $URI_PARTS["path"].($URI_PARTS["query"] ? "?".$URI_PARTS["query"] : "");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   311
						// no proxy, send only the path
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   312
						$this->_httprequest($path, $fp, $URI, $this->_submit_method, $this->_submit_type, $postdata);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   313
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   314
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   315
					$this->_disconnect($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   316
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   317
					if($this->_redirectaddr)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   318
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   319
						/* url was redirected, check if we've hit the max depth */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   320
						if($this->maxredirs > $this->_redirectdepth)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   321
						{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   322
							if(!preg_match("|^".$URI_PARTS["scheme"]."://|", $this->_redirectaddr))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   323
								$this->_redirectaddr = $this->_expandlinks($this->_redirectaddr,$URI_PARTS["scheme"]."://".$URI_PARTS["host"]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   324
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   325
							// only follow redirect if it's on this site, or offsiteok is true
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   326
							if(preg_match("|^http://".preg_quote($this->host)."|i",$this->_redirectaddr) || $this->offsiteok)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   327
							{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   328
								/* follow the redirect */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   329
								$this->_redirectdepth++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   330
								$this->lastredirectaddr=$this->_redirectaddr;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   331
								if( strpos( $this->_redirectaddr, "?" ) > 0 )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   332
									$this->fetch($this->_redirectaddr); // the redirect has changed the request method from post to get
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   333
								else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   334
									$this->submit($this->_redirectaddr,$formvars, $formfiles);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   335
							}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   336
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   337
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   338
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   339
					if($this->_framedepth < $this->maxframes && count($this->_frameurls) > 0)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   340
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   341
						$frameurls = $this->_frameurls;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   342
						$this->_frameurls = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   343
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   344
						while(list(,$frameurl) = each($frameurls))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   345
						{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   346
							if($this->_framedepth < $this->maxframes)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   347
							{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   348
								$this->fetch($frameurl);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   349
								$this->_framedepth++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   350
							}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   351
							else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   352
								break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   353
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   354
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   355
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   356
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   357
				else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   358
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   359
					return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   360
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   361
				return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   362
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   363
			case "https":
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   364
				if(!$this->curl_path)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   365
					return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   366
				if(function_exists("is_executable"))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   367
				    if (!is_executable($this->curl_path))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   368
				        return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   369
				$this->host = $URI_PARTS["host"];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   370
				if(!empty($URI_PARTS["port"]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   371
					$this->port = $URI_PARTS["port"];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   372
				if($this->_isproxy)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   373
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   374
					// using proxy, send entire URI
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   375
					$this->_httpsrequest($URI, $URI, $this->_submit_method, $this->_submit_type, $postdata);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   376
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   377
				else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   378
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   379
					$path = $URI_PARTS["path"].($URI_PARTS["query"] ? "?".$URI_PARTS["query"] : "");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   380
					// no proxy, send only the path
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   381
					$this->_httpsrequest($path, $URI, $this->_submit_method, $this->_submit_type, $postdata);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   382
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   383
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   384
				if($this->_redirectaddr)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   385
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   386
					/* url was redirected, check if we've hit the max depth */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   387
					if($this->maxredirs > $this->_redirectdepth)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   388
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   389
						if(!preg_match("|^".$URI_PARTS["scheme"]."://|", $this->_redirectaddr))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   390
							$this->_redirectaddr = $this->_expandlinks($this->_redirectaddr,$URI_PARTS["scheme"]."://".$URI_PARTS["host"]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   391
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   392
						// only follow redirect if it's on this site, or offsiteok is true
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   393
						if(preg_match("|^http://".preg_quote($this->host)."|i",$this->_redirectaddr) || $this->offsiteok)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   394
						{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   395
							/* follow the redirect */
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   396
							$this->_redirectdepth++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   397
							$this->lastredirectaddr=$this->_redirectaddr;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   398
							if( strpos( $this->_redirectaddr, "?" ) > 0 )
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   399
								$this->fetch($this->_redirectaddr); // the redirect has changed the request method from post to get
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   400
							else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   401
								$this->submit($this->_redirectaddr,$formvars, $formfiles);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   402
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   403
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   404
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   405
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   406
				if($this->_framedepth < $this->maxframes && count($this->_frameurls) > 0)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   407
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   408
					$frameurls = $this->_frameurls;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   409
					$this->_frameurls = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   410
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   411
					while(list(,$frameurl) = each($frameurls))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   412
					{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   413
						if($this->_framedepth < $this->maxframes)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   414
						{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   415
							$this->fetch($frameurl);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   416
							$this->_framedepth++;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   417
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   418
						else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   419
							break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   420
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   421
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   422
				return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   423
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   424
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   425
			default:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   426
				// not a valid protocol
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   427
				$this->error	=	'Invalid protocol "'.$URI_PARTS["scheme"].'"\n';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   428
				return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   429
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   430
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   431
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   432
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   433
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   434
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   435
	Function:	fetchlinks
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   436
	Purpose:	fetch the links from a web page
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   437
	Input:		$URI	where you are fetching from
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   438
	Output:		$this->results	an array of the URLs
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   439
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   440
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   441
	function fetchlinks($URI)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   442
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   443
		if ($this->fetch($URI))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   444
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   445
			if($this->lastredirectaddr)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   446
				$URI = $this->lastredirectaddr;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   447
			if(is_array($this->results))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   448
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   449
				for($x=0;$x<count($this->results);$x++)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   450
					$this->results[$x] = $this->_striplinks($this->results[$x]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   451
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   452
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   453
				$this->results = $this->_striplinks($this->results);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   454
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   455
			if($this->expandlinks)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   456
				$this->results = $this->_expandlinks($this->results, $URI);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   457
			return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   458
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   459
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   460
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   461
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   462
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   463
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   464
	Function:	fetchform
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   465
	Purpose:	fetch the form elements from a web page
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   466
	Input:		$URI	where you are fetching from
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   467
	Output:		$this->results	the resulting html form
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   468
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   469
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   470
	function fetchform($URI)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   471
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   472
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   473
		if ($this->fetch($URI))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   474
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   475
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   476
			if(is_array($this->results))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   477
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   478
				for($x=0;$x<count($this->results);$x++)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   479
					$this->results[$x] = $this->_stripform($this->results[$x]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   480
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   481
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   482
				$this->results = $this->_stripform($this->results);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   483
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   484
			return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   485
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   486
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   487
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   488
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   489
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   490
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   491
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   492
	Function:	fetchtext
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   493
	Purpose:	fetch the text from a web page, stripping the links
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   494
	Input:		$URI	where you are fetching from
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   495
	Output:		$this->results	the text from the web page
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   496
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   497
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   498
	function fetchtext($URI)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   499
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   500
		if($this->fetch($URI))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   501
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   502
			if(is_array($this->results))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   503
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   504
				for($x=0;$x<count($this->results);$x++)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   505
					$this->results[$x] = $this->_striptext($this->results[$x]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   506
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   507
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   508
				$this->results = $this->_striptext($this->results);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   509
			return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   510
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   511
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   512
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   513
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   514
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   515
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   516
	Function:	submitlinks
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   517
	Purpose:	grab links from a form submission
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   518
	Input:		$URI	where you are submitting from
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   519
	Output:		$this->results	an array of the links from the post
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   520
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   521
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   522
	function submitlinks($URI, $formvars="", $formfiles="")
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   523
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   524
		if($this->submit($URI,$formvars, $formfiles))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   525
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   526
			if($this->lastredirectaddr)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   527
				$URI = $this->lastredirectaddr;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   528
			if(is_array($this->results))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   529
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   530
				for($x=0;$x<count($this->results);$x++)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   531
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   532
					$this->results[$x] = $this->_striplinks($this->results[$x]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   533
					if($this->expandlinks)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   534
						$this->results[$x] = $this->_expandlinks($this->results[$x],$URI);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   535
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   536
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   537
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   538
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   539
				$this->results = $this->_striplinks($this->results);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   540
				if($this->expandlinks)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   541
					$this->results = $this->_expandlinks($this->results,$URI);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   542
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   543
			return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   544
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   545
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   546
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   547
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   548
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   549
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   550
	Function:	submittext
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   551
	Purpose:	grab text from a form submission
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   552
	Input:		$URI	where you are submitting from
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   553
	Output:		$this->results	the text from the web page
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   554
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   555
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   556
	function submittext($URI, $formvars = "", $formfiles = "")
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   557
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   558
		if($this->submit($URI,$formvars, $formfiles))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   559
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   560
			if($this->lastredirectaddr)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   561
				$URI = $this->lastredirectaddr;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   562
			if(is_array($this->results))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   563
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   564
				for($x=0;$x<count($this->results);$x++)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   565
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   566
					$this->results[$x] = $this->_striptext($this->results[$x]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   567
					if($this->expandlinks)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   568
						$this->results[$x] = $this->_expandlinks($this->results[$x],$URI);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   569
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   570
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   571
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   572
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   573
				$this->results = $this->_striptext($this->results);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   574
				if($this->expandlinks)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   575
					$this->results = $this->_expandlinks($this->results,$URI);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   576
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   577
			return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   578
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   579
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   580
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   581
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   582
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   583
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   584
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   585
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   586
	Function:	set_submit_multipart
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   587
	Purpose:	Set the form submission content type to
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   588
				multipart/form-data
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   589
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   590
	function set_submit_multipart()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   591
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   592
		$this->_submit_type = "multipart/form-data";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   593
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   594
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   595
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   596
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   597
	Function:	set_submit_normal
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   598
	Purpose:	Set the form submission content type to
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   599
				application/x-www-form-urlencoded
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   600
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   601
	function set_submit_normal()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   602
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   603
		$this->_submit_type = "application/x-www-form-urlencoded";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   604
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   605
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   606
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   607
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   608
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   609
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   610
	Private functions
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   611
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   612
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   613
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   614
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   615
	Function:	_striplinks
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   616
	Purpose:	strip the hyperlinks from an html document
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   617
	Input:		$document	document to strip.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   618
	Output:		$match		an array of the links
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   619
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   620
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   621
	function _striplinks($document)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   622
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   623
		preg_match_all("'<\s*a\s.*?href\s*=\s*			# find <a href=
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   624
						([\"\'])?					# find single or double quote
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   625
						(?(1) (.*?)\\1 | ([^\s\>]+))		# if quote found, match up to next matching
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   626
													# quote, otherwise match up to next space
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   627
						'isx",$document,$links);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   628
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   629
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   630
		// catenate the non-empty matches from the conditional subpattern
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   631
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   632
		while(list($key,$val) = each($links[2]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   633
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   634
			if(!empty($val))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   635
				$match[] = $val;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   636
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   637
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   638
		while(list($key,$val) = each($links[3]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   639
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   640
			if(!empty($val))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   641
				$match[] = $val;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   642
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   643
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   644
		// return the links
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   645
		return $match;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   646
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   647
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   648
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   649
	Function:	_stripform
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   650
	Purpose:	strip the form elements from an html document
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   651
	Input:		$document	document to strip.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   652
	Output:		$match		an array of the links
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   653
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   654
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   655
	function _stripform($document)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   656
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   657
		preg_match_all("'<\/?(FORM|INPUT|SELECT|TEXTAREA|(OPTION))[^<>]*>(?(2)(.*(?=<\/?(option|select)[^<>]*>[\r\n]*)|(?=[\r\n]*))|(?=[\r\n]*))'Usi",$document,$elements);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   658
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   659
		// catenate the matches
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   660
		$match = implode("\r\n",$elements[0]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   661
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   662
		// return the links
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   663
		return $match;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   664
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   665
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   666
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   667
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   668
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   669
	Function:	_striptext
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   670
	Purpose:	strip the text from an html document
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   671
	Input:		$document	document to strip.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   672
	Output:		$text		the resulting text
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   673
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   674
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   675
	function _striptext($document)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   676
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   677
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   678
		// I didn't use preg eval (//e) since that is only available in PHP 4.0.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   679
		// so, list your entities one by one here. I included some of the
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   680
		// more common ones.
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   681
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   682
		$search = array("'<script[^>]*?>.*?</script>'si",	// strip out javascript
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   683
						"'<[\/\!]*?[^<>]*?>'si",			// strip out html tags
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   684
						"'([\r\n])[\s]+'",					// strip out white space
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   685
						"'&(quot|#34|#034|#x22);'i",		// replace html entities
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   686
						"'&(amp|#38|#038|#x26);'i",			// added hexadecimal values
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   687
						"'&(lt|#60|#060|#x3c);'i",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   688
						"'&(gt|#62|#062|#x3e);'i",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   689
						"'&(nbsp|#160|#xa0);'i",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   690
						"'&(iexcl|#161);'i",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   691
						"'&(cent|#162);'i",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   692
						"'&(pound|#163);'i",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   693
						"'&(copy|#169);'i",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   694
						"'&(reg|#174);'i",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   695
						"'&(deg|#176);'i",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   696
						"'&(#39|#039|#x27);'",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   697
						"'&(euro|#8364);'i",				// europe
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   698
						"'&a(uml|UML);'",					// german
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   699
						"'&o(uml|UML);'",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   700
						"'&u(uml|UML);'",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   701
						"'&A(uml|UML);'",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   702
						"'&O(uml|UML);'",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   703
						"'&U(uml|UML);'",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   704
						"'&szlig;'i",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   705
						);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   706
		$replace = array(	"",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   707
							"",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   708
							"\\1",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   709
							"\"",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   710
							"&",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   711
							"<",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   712
							">",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   713
							" ",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   714
							chr(161),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   715
							chr(162),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   716
							chr(163),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   717
							chr(169),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   718
							chr(174),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   719
							chr(176),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   720
							chr(39),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   721
							chr(128),
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   722
							chr(0xE4), // ANSI &auml;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   723
							chr(0xF6), // ANSI &ouml;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   724
							chr(0xFC), // ANSI &uuml;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   725
							chr(0xC4), // ANSI &Auml;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   726
							chr(0xD6), // ANSI &Ouml;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   727
							chr(0xDC), // ANSI &Uuml;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   728
							chr(0xDF), // ANSI &szlig;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   729
						);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   730
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   731
		$text = preg_replace($search,$replace,$document);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   732
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   733
		return $text;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   734
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   735
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   736
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   737
	Function:	_expandlinks
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   738
	Purpose:	expand each link into a fully qualified URL
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   739
	Input:		$links			the links to qualify
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   740
				$URI			the full URI to get the base from
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   741
	Output:		$expandedLinks	the expanded links
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   742
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   743
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   744
	function _expandlinks($links,$URI)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   745
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   746
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   747
		preg_match("/^[^\?]+/",$URI,$match);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   748
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   749
		$match = preg_replace("|/[^\/\.]+\.[^\/\.]+$|","",$match[0]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   750
		$match = preg_replace("|/$|","",$match);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   751
		$match_part = parse_url($match);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   752
		$match_root =
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   753
		$match_part["scheme"]."://".$match_part["host"];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   754
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   755
		$search = array( 	"|^http://".preg_quote($this->host)."|i",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   756
							"|^(\/)|i",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   757
							"|^(?!http://)(?!mailto:)|i",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   758
							"|/\./|",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   759
							"|/[^\/]+/\.\./|"
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   760
						);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   761
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   762
		$replace = array(	"",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   763
							$match_root."/",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   764
							$match."/",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   765
							"/",
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   766
							"/"
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   767
						);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   768
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   769
		$expandedLinks = preg_replace($search,$replace,$links);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   770
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   771
		return $expandedLinks;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   772
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   773
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   774
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   775
	Function:	_httprequest
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   776
	Purpose:	go get the http data from the server
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   777
	Input:		$url		the url to fetch
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   778
				$fp			the current open file pointer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   779
				$URI		the full URI
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   780
				$body		body contents to send if any (POST)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   781
	Output:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   782
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   783
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   784
	function _httprequest($url,$fp,$URI,$http_method,$content_type="",$body="")
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   785
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   786
		$cookie_headers = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   787
		if($this->passcookies && $this->_redirectaddr)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   788
			$this->setcookies();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   789
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   790
		$URI_PARTS = parse_url($URI);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   791
		if(empty($url))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   792
			$url = "/";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   793
		$headers = $http_method." ".$url." ".$this->_httpversion."\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   794
		if(!empty($this->agent))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   795
			$headers .= "User-Agent: ".$this->agent."\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   796
		if(!empty($this->host) && !isset($this->rawheaders['Host'])) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   797
			$headers .= "Host: ".$this->host;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   798
			if(!empty($this->port) && $this->port != 80)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   799
				$headers .= ":".$this->port;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   800
			$headers .= "\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   801
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   802
		if(!empty($this->accept))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   803
			$headers .= "Accept: ".$this->accept."\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   804
		if(!empty($this->referer))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   805
			$headers .= "Referer: ".$this->referer."\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   806
		if(!empty($this->cookies))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   807
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   808
			if(!is_array($this->cookies))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   809
				$this->cookies = (array)$this->cookies;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   810
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   811
			reset($this->cookies);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   812
			if ( count($this->cookies) > 0 ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   813
				$cookie_headers .= 'Cookie: ';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   814
				foreach ( $this->cookies as $cookieKey => $cookieVal ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   815
				$cookie_headers .= $cookieKey."=".urlencode($cookieVal)."; ";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   816
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   817
				$headers .= substr($cookie_headers,0,-2) . "\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   818
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   819
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   820
		if(!empty($this->rawheaders))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   821
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   822
			if(!is_array($this->rawheaders))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   823
				$this->rawheaders = (array)$this->rawheaders;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   824
			while(list($headerKey,$headerVal) = each($this->rawheaders))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   825
				$headers .= $headerKey.": ".$headerVal."\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   826
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   827
		if(!empty($content_type)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   828
			$headers .= "Content-type: $content_type";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   829
			if ($content_type == "multipart/form-data")
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   830
				$headers .= "; boundary=".$this->_mime_boundary;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   831
			$headers .= "\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   832
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   833
		if(!empty($body))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   834
			$headers .= "Content-length: ".strlen($body)."\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   835
		if(!empty($this->user) || !empty($this->pass))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   836
			$headers .= "Authorization: Basic ".base64_encode($this->user.":".$this->pass)."\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   837
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   838
		//add proxy auth headers
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   839
		if(!empty($this->proxy_user))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   840
			$headers .= 'Proxy-Authorization: ' . 'Basic ' . base64_encode($this->proxy_user . ':' . $this->proxy_pass)."\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   841
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   842
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   843
		$headers .= "\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   844
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   845
		// set the read timeout if needed
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   846
		if ($this->read_timeout > 0)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   847
			socket_set_timeout($fp, $this->read_timeout);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   848
		$this->timed_out = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   849
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   850
		fwrite($fp,$headers.$body,strlen($headers.$body));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   851
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   852
		$this->_redirectaddr = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   853
		unset($this->headers);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   854
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   855
		while($currentHeader = fgets($fp,$this->_maxlinelen))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   856
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   857
			if ($this->read_timeout > 0 && $this->_check_timeout($fp))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   858
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   859
				$this->status=-100;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   860
				return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   861
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   862
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   863
			if($currentHeader == "\r\n")
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   864
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   865
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   866
			// if a header begins with Location: or URI:, set the redirect
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   867
			if(preg_match("/^(Location:|URI:)/i",$currentHeader))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   868
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   869
				// get URL portion of the redirect
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   870
				preg_match("/^(Location:|URI:)[ ]+(.*)/i",chop($currentHeader),$matches);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   871
				// look for :// in the Location header to see if hostname is included
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   872
				if(!preg_match("|\:\/\/|",$matches[2]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   873
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   874
					// no host in the path, so prepend
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   875
					$this->_redirectaddr = $URI_PARTS["scheme"]."://".$this->host.":".$this->port;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   876
					// eliminate double slash
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   877
					if(!preg_match("|^/|",$matches[2]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   878
							$this->_redirectaddr .= "/".$matches[2];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   879
					else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   880
							$this->_redirectaddr .= $matches[2];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   881
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   882
				else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   883
					$this->_redirectaddr = $matches[2];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   884
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   885
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   886
			if(preg_match("|^HTTP/|",$currentHeader))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   887
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   888
                if(preg_match("|^HTTP/[^\s]*\s(.*?)\s|",$currentHeader, $status))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   889
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   890
					$this->status= $status[1];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   891
                }
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   892
				$this->response_code = $currentHeader;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   893
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   894
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   895
			$this->headers[] = $currentHeader;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   896
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   897
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   898
		$results = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   899
		do {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   900
    		$_data = fread($fp, $this->maxlength);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   901
    		if (strlen($_data) == 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   902
        		break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   903
    		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   904
    		$results .= $_data;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   905
		} while(true);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   906
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   907
		if ($this->read_timeout > 0 && $this->_check_timeout($fp))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   908
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   909
			$this->status=-100;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   910
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   911
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   912
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   913
		// check if there is a redirect meta tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   914
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   915
		if(preg_match("'<meta[\s]*http-equiv[^>]*?content[\s]*=[\s]*[\"\']?\d+;[\s]*URL[\s]*=[\s]*([^\"\']*?)[\"\']?>'i",$results,$match))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   916
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   917
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   918
			$this->_redirectaddr = $this->_expandlinks($match[1],$URI);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   919
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   920
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   921
		// have we hit our frame depth and is there frame src to fetch?
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   922
		if(($this->_framedepth < $this->maxframes) && preg_match_all("'<frame\s+.*src[\s]*=[\'\"]?([^\'\"\>]+)'i",$results,$match))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   923
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   924
			$this->results[] = $results;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   925
			for($x=0; $x<count($match[1]); $x++)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   926
				$this->_frameurls[] = $this->_expandlinks($match[1][$x],$URI_PARTS["scheme"]."://".$this->host);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   927
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   928
		// have we already fetched framed content?
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   929
		elseif(is_array($this->results))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   930
			$this->results[] = $results;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   931
		// no framed content
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   932
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   933
			$this->results = $results;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   934
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   935
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   936
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   937
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   938
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   939
	Function:	_httpsrequest
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   940
	Purpose:	go get the https data from the server using curl
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   941
	Input:		$url		the url to fetch
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   942
				$URI		the full URI
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   943
				$body		body contents to send if any (POST)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   944
	Output:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   945
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   946
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   947
	function _httpsrequest($url,$URI,$http_method,$content_type="",$body="")
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   948
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   949
		if($this->passcookies && $this->_redirectaddr)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   950
			$this->setcookies();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   951
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   952
		$headers = array();
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   953
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   954
		$URI_PARTS = parse_url($URI);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   955
		if(empty($url))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   956
			$url = "/";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   957
		// GET ... header not needed for curl
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   958
		//$headers[] = $http_method." ".$url." ".$this->_httpversion;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   959
		if(!empty($this->agent))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   960
			$headers[] = "User-Agent: ".$this->agent;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   961
		if(!empty($this->host))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   962
			if(!empty($this->port))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   963
				$headers[] = "Host: ".$this->host.":".$this->port;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   964
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   965
				$headers[] = "Host: ".$this->host;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   966
		if(!empty($this->accept))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   967
			$headers[] = "Accept: ".$this->accept;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   968
		if(!empty($this->referer))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   969
			$headers[] = "Referer: ".$this->referer;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   970
		if(!empty($this->cookies))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   971
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   972
			if(!is_array($this->cookies))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   973
				$this->cookies = (array)$this->cookies;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   974
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   975
			reset($this->cookies);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   976
			if ( count($this->cookies) > 0 ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   977
				$cookie_str = 'Cookie: ';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   978
				foreach ( $this->cookies as $cookieKey => $cookieVal ) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   979
				$cookie_str .= $cookieKey."=".urlencode($cookieVal)."; ";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   980
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   981
				$headers[] = substr($cookie_str,0,-2);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   982
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   983
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   984
		if(!empty($this->rawheaders))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   985
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   986
			if(!is_array($this->rawheaders))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   987
				$this->rawheaders = (array)$this->rawheaders;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   988
			while(list($headerKey,$headerVal) = each($this->rawheaders))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   989
				$headers[] = $headerKey.": ".$headerVal;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   990
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   991
		if(!empty($content_type)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   992
			if ($content_type == "multipart/form-data")
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   993
				$headers[] = "Content-type: $content_type; boundary=".$this->_mime_boundary;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   994
			else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   995
				$headers[] = "Content-type: $content_type";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   996
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   997
		if(!empty($body))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   998
			$headers[] = "Content-length: ".strlen($body);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
   999
		if(!empty($this->user) || !empty($this->pass))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1000
			$headers[] = "Authorization: BASIC ".base64_encode($this->user.":".$this->pass);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1001
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1002
		for($curr_header = 0; $curr_header < count($headers); $curr_header++) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1003
			$safer_header = strtr( $headers[$curr_header], "\"", " " );
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1004
			$cmdline_params .= " -H \"".$safer_header."\"";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1005
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1006
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1007
		if(!empty($body))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1008
			$cmdline_params .= " -d \"$body\"";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1009
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1010
		if($this->read_timeout > 0)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1011
			$cmdline_params .= " -m ".$this->read_timeout;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1012
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1013
		$headerfile = tempnam($this->temp_dir, "sno");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1014
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1015
		exec($this->curl_path." -k -D \"$headerfile\"".$cmdline_params." \"".escapeshellcmd($URI)."\"",$results,$return);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1016
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1017
		if($return)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1018
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1019
			$this->error = "Error: cURL could not retrieve the document, error $return.";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1020
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1021
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1022
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1023
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1024
		$results = implode("\r\n",$results);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1025
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1026
		$result_headers = file("$headerfile");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1027
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1028
		$this->_redirectaddr = false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1029
		unset($this->headers);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1030
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1031
		for($currentHeader = 0; $currentHeader < count($result_headers); $currentHeader++)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1032
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1033
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1034
			// if a header begins with Location: or URI:, set the redirect
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1035
			if(preg_match("/^(Location: |URI: )/i",$result_headers[$currentHeader]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1036
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1037
				// get URL portion of the redirect
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1038
				preg_match("/^(Location: |URI:)\s+(.*)/",chop($result_headers[$currentHeader]),$matches);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1039
				// look for :// in the Location header to see if hostname is included
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1040
				if(!preg_match("|\:\/\/|",$matches[2]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1041
				{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1042
					// no host in the path, so prepend
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1043
					$this->_redirectaddr = $URI_PARTS["scheme"]."://".$this->host.":".$this->port;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1044
					// eliminate double slash
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1045
					if(!preg_match("|^/|",$matches[2]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1046
							$this->_redirectaddr .= "/".$matches[2];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1047
					else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1048
							$this->_redirectaddr .= $matches[2];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1049
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1050
				else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1051
					$this->_redirectaddr = $matches[2];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1052
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1053
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1054
			if(preg_match("|^HTTP/|",$result_headers[$currentHeader]))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1055
				$this->response_code = $result_headers[$currentHeader];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1056
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1057
			$this->headers[] = $result_headers[$currentHeader];
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1058
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1059
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1060
		// check if there is a redirect meta tag
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1061
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1062
		if(preg_match("'<meta[\s]*http-equiv[^>]*?content[\s]*=[\s]*[\"\']?\d+;[\s]*URL[\s]*=[\s]*([^\"\']*?)[\"\']?>'i",$results,$match))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1063
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1064
			$this->_redirectaddr = $this->_expandlinks($match[1],$URI);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1065
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1066
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1067
		// have we hit our frame depth and is there frame src to fetch?
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1068
		if(($this->_framedepth < $this->maxframes) && preg_match_all("'<frame\s+.*src[\s]*=[\'\"]?([^\'\"\>]+)'i",$results,$match))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1069
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1070
			$this->results[] = $results;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1071
			for($x=0; $x<count($match[1]); $x++)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1072
				$this->_frameurls[] = $this->_expandlinks($match[1][$x],$URI_PARTS["scheme"]."://".$this->host);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1073
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1074
		// have we already fetched framed content?
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1075
		elseif(is_array($this->results))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1076
			$this->results[] = $results;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1077
		// no framed content
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1078
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1079
			$this->results = $results;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1080
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1081
		unlink("$headerfile");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1082
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1083
		return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1084
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1085
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1086
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1087
	Function:	setcookies()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1088
	Purpose:	set cookies for a redirection
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1089
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1090
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1091
	function setcookies()
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1092
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1093
		for($x=0; $x<count($this->headers); $x++)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1094
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1095
		if(preg_match('/^set-cookie:[\s]+([^=]+)=([^;]+)/i', $this->headers[$x],$match))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1096
			$this->cookies[$match[1]] = urldecode($match[2]);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1097
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1098
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1099
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1100
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1101
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1102
	Function:	_check_timeout
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1103
	Purpose:	checks whether timeout has occurred
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1104
	Input:		$fp	file pointer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1105
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1106
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1107
	function _check_timeout($fp)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1108
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1109
		if ($this->read_timeout > 0) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1110
			$fp_status = socket_get_status($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1111
			if ($fp_status["timed_out"]) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1112
				$this->timed_out = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1113
				return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1114
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1115
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1116
		return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1117
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1118
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1119
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1120
	Function:	_connect
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1121
	Purpose:	make a socket connection
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1122
	Input:		$fp	file pointer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1123
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1124
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1125
	function _connect(&$fp)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1126
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1127
		if(!empty($this->proxy_host) && !empty($this->proxy_port))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1128
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1129
				$this->_isproxy = true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1130
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1131
				$host = $this->proxy_host;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1132
				$port = $this->proxy_port;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1133
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1134
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1135
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1136
			$host = $this->host;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1137
			$port = $this->port;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1138
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1139
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1140
		$this->status = 0;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1141
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1142
		if($fp = fsockopen(
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1143
					$host,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1144
					$port,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1145
					$errno,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1146
					$errstr,
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1147
					$this->_fp_timeout
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1148
					))
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1149
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1150
			// socket connection succeeded
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1151
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1152
			return true;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1153
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1154
		else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1155
		{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1156
			// socket connection failed
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1157
			$this->status = $errno;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1158
			switch($errno)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1159
			{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1160
				case -3:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1161
					$this->error="socket creation failed (-3)";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1162
				case -4:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1163
					$this->error="dns lookup failure (-4)";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1164
				case -5:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1165
					$this->error="connection refused or timed out (-5)";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1166
				default:
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1167
					$this->error="connection failed (".$errno.")";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1168
			}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1169
			return false;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1170
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1171
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1172
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1173
	Function:	_disconnect
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1174
	Purpose:	disconnect a socket connection
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1175
	Input:		$fp	file pointer
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1176
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1177
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1178
	function _disconnect($fp)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1179
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1180
		return(fclose($fp));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1181
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1182
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1183
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1184
/*======================================================================*\
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1185
	Function:	_prepare_post_body
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1186
	Purpose:	Prepare post body according to encoding type
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1187
	Input:		$formvars  - form variables
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1188
				$formfiles - form upload files
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1189
	Output:		post body
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1190
\*======================================================================*/
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1191
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1192
	function _prepare_post_body($formvars, $formfiles)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1193
	{
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1194
		settype($formvars, "array");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1195
		settype($formfiles, "array");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1196
		$postdata = '';
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1197
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1198
		if (count($formvars) == 0 && count($formfiles) == 0)
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1199
			return;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1200
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1201
		switch ($this->_submit_type) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1202
			case "application/x-www-form-urlencoded":
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1203
				reset($formvars);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1204
				while(list($key,$val) = each($formvars)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1205
					if (is_array($val) || is_object($val)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1206
						while (list($cur_key, $cur_val) = each($val)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1207
							$postdata .= urlencode($key)."[]=".urlencode($cur_val)."&";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1208
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1209
					} else
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1210
						$postdata .= urlencode($key)."=".urlencode($val)."&";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1211
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1212
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1213
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1214
			case "multipart/form-data":
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1215
				$this->_mime_boundary = "Snoopy".md5(uniqid(microtime()));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1216
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1217
				reset($formvars);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1218
				while(list($key,$val) = each($formvars)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1219
					if (is_array($val) || is_object($val)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1220
						while (list($cur_key, $cur_val) = each($val)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1221
							$postdata .= "--".$this->_mime_boundary."\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1222
							$postdata .= "Content-Disposition: form-data; name=\"$key\[\]\"\r\n\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1223
							$postdata .= "$cur_val\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1224
						}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1225
					} else {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1226
						$postdata .= "--".$this->_mime_boundary."\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1227
						$postdata .= "Content-Disposition: form-data; name=\"$key\"\r\n\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1228
						$postdata .= "$val\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1229
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1230
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1231
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1232
				reset($formfiles);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1233
				while (list($field_name, $file_names) = each($formfiles)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1234
					settype($file_names, "array");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1235
					while (list(, $file_name) = each($file_names)) {
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1236
						if (!is_readable($file_name)) continue;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1237
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1238
						$fp = fopen($file_name, "r");
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1239
						$file_content = fread($fp, filesize($file_name));
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1240
						fclose($fp);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1241
						$base_name = basename($file_name);
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1242
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1243
						$postdata .= "--".$this->_mime_boundary."\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1244
						$postdata .= "Content-Disposition: form-data; name=\"$field_name\"; filename=\"$base_name\"\r\n\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1245
						$postdata .= "$file_content\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1246
					}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1247
				}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1248
				$postdata .= "--".$this->_mime_boundary."--\r\n";
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1249
				break;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1250
		}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1251
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1252
		return $postdata;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1253
	}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1254
}
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1255
endif;
d970ebf37754 first import
ymh <ymh.work@gmail.com>
parents:
diff changeset
  1256
?>