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