Typesetter-Original-gtbu/include/tool/RemoteGet.php
2021-09-08 19:52:21 +02:00

872 lines
22 KiB
PHP

<?php
namespace gp\tool{
defined('is_running') or die('Not an entry point...');
class RemoteGet{
public static $redirected;
public static $maxlength = -1; // The maximum bytes to read. eg: stream_get_contents($handle, $maxlength)
public static $debug;
public static $methods = array('stream','curl','fopen','fsockopen');
protected $url_array = array();
protected $body = '';
protected $headers = '';
protected $bytes_written_total = 0;
/* determine if the functions exist for fetching remote files,
* test is done in order of preference
*
* notes from wordpress http.php
* The order for the GET/HEAD requests are Streams, HTTP Extension, Fopen,
* and finally Fsockopen. fsockopen() is used last, because it has the most
* overhead in its implementation. There isn't any real way around it, since
* redirects have to be supported, much the same way the other transports
* also handle redirects.
*
* @return mixed string indicates the method, False indicates it's not compatible
*/
public static function Test(){
foreach(static::$methods as $method){
if( static::Supported($method) ){
return $method;
}
}
return false;
}
/**
* Determine if a specific method is supported
*
*/
public static function Supported($method){
if( \gp\tool::IniGet('safe_mode') ){
return false;
}
switch($method){
case 'fsockopen':
return function_exists('fsockopen');
case 'curl';
return function_exists('curl_init') && function_exists('curl_exec');
}
//stream and fopen
return \gp\tool::IniGet('allow_url_fopen');
}
/**
* Return response only if successful, otherwise return false
*
*/
public static function Get_Successful($url,$args=array()){
$getter = new \gp\tool\RemoteGet();
$result = $getter->Get($url,$args);
if( is_array($result) ){
if( (int)$result['response']['code'] >= 200 && (int)$result['response']['code'] < 300 ){
return $result['body'];
}
}
return false;
}
/**
* Attempt to get the resource at $url
* Loop through all potential methods until successful
*/
public function Get($url,$args=array()){
static::$debug = array();
static::$debug['Redir'] = 0;
static::$debug['FailedMethods'] = '';
static::$debug['NotSupported'] = '';
static::$redirected = null;
return $this->_get($url,$args);
}
protected function _get($url, $args = array()){
//reset body, headers, bytes_written. Important for redirection, multiple requests using same object
$this->body = '';
$this->headers = '';
$this->bytes_written_total = 0;
//$url = rawurldecode($url);
$url = str_replace(' ','%20',$url); //spaces in the url can make the request fail
$url = static::FixScheme($url);
$this->url_array = static::ParseUrl($url);
if( $this->url_array === false ){
return false;
}
//arguments
$defaults = array(
'method' => 'GET',
'timeout' => 5,
'redirection' => 5,
'httpversion' => '1.0',
'user-agent' => 'Mozilla/5.0 (Typesetter RemoteGet) ',
'ignore_errors' => false,
//could be added
//'blocking' => true,
//'headers' => array(),
//'body' => null,
//'cookies' => array(),
);
$args += $defaults;
foreach(static::$methods as $method){
if( !static::Supported($method) ){
static::$debug['NotSupported'] .= $method.',';
continue;
}
$result = $this->GetMethod($method,$url,$args);
if( $result === false ){
static::$debug['FailedMethods'] .= $method.',';
return false;
}
static::$debug['Method'] = $method;
static::$debug['Len'] = strlen($result['body']);
return $result;
}
return false;
}
public function GetMethod($method,$url,$args=array()){
$func = $method.'_request';
if( method_exists($this,$func) ){
return $this->$func( $url, $args );
}
return false;
}
/**
* Fetch a url using php's stream_get_contents() function
*
*/
public function stream_request($url,$r){
$arrContext = $this->stream_context($url,$r);
$context = stream_context_create($arrContext);
$handle = fopen($url, 'r', false, $context);
if( $handle === false ){
static::$debug['stream'] = 'no handle';
return false;
}
static::stream_timeout($handle,$r['timeout']);
$strResponse = stream_get_contents($handle, static::$maxlength);
$theHeaders = static::StreamHeaders($handle);
fclose($handle);
$processedHeaders = static::processHeaders($theHeaders);
$this->body = static::chunkTransferDecode($strResponse,$processedHeaders);
return $this->ReturnRequest( $url, $r, $processedHeaders );
}
/**
* Create context array
*
*/
public function stream_context($url,$r){
//create context
$arrContext = array();
$arrContext['http'] = array(
'method' => 'GET',
'user_agent' => $r['user-agent'],
'max_redirects' => $r['redirection'],
'protocol_version' => (float) $r['httpversion'],
'timeout' => $r['timeout'],
'ignore_errors' => $r['ignore_errors'],
);
if( isset($r['http']) ){
$arrContext['http'] = $r['http'] + $arrContext['http'];
}
if( isset($r['headers']) ){
$arrContext['http']['header'] = '';
foreach($r['headers'] as $hk => $hv){
$arrContext['http']['header'] .= $hk.': '.$hv."\r\n";
}
$arrContext['http']['header'] = trim($arrContext['http']['header']);
}
return $arrContext;
}
/**
* Fetch a url using php's fopen() function
*
*/
public function fopen_request($url,$r){
$handle = fopen($url, 'r');
if( $handle === false ){
static::$debug['fopen'] = 'no handle';
return false;
}
static::stream_timeout($handle,$r['timeout']);
$strResponse = $this->ReadHandle($handle);
$theHeaders = static::StreamHeaders($handle);
fclose($handle);
$processedHeaders = static::processHeaders($theHeaders);
$this->body = static::chunkTransferDecode($strResponse,$processedHeaders);
return $this->ReturnRequest( $url, $r, $processedHeaders );
}
/**
* Parse a URL and return its components
*
*/
public static function ParseUrl($url){
$arr_url = parse_url($url);
if( is_array($arr_url) ){
$arr_url += array('path'=>'');
}elseif( \gp\tool::LoggedIn() ){
trigger_error('invalid url: '.$url.' '.pre($url));
}
return $arr_url;
}
/**
* Make sure the url has an http or https scheme
*
*/
public static function FixScheme($url){
preg_match('#^[a-z]+:#',$url,$match);
if( empty($match) ){
return 'http://'.$url;
}
$match[0] = strtolower($match[0]);
if( $match[0] !== 'http:' && $match[0] !== 'https:' ){
$url = substr($url,strlen($match[0]));
$url = 'http://'.ltrim($url,'/');
}
return $url;
}
/**
* Fetch a url using php's fsockopen() function
*
*/
public function fsockopen_request($url,$r){
$fsockopen_host = $this->url_array['host'];
//fsockopen has issues with 'localhost' with IPv6 with certain versions of PHP, It attempts to connect to ::1,
// which fails when the server is not setup for it. For compatibility, always connect to the IPv4 address.
if ( 'localhost' == strtolower($fsockopen_host) )
$fsockopen_host = '127.0.0.1';
$iError = null; // Store error number
$strError = null; // Store error string
$port = 80;
if( !empty($this->url_array['port']) ){
$port = 80;
}
$handle = fsockopen( $fsockopen_host, $port, $iError, $strError, $r['timeout'] );
if( $handle === false ){
static::$debug['fsock'] = 'no handle';
return false;
}
static::stream_timeout($handle,$r['timeout']);
$strHeaders = $this->ReqHeader($r);
fwrite($handle, $strHeaders);
$strResponse = $this->ReadHandle($handle);
fclose($handle);
$process = static::processResponse($strResponse);
$processedHeaders = static::processHeaders($process['headers']);
$this->body = static::chunkTransferDecode($process['body'],$processedHeaders);
return $this->ReturnRequest( $url, $r, $processedHeaders );
}
/**
* Return request header string
*
*/
protected function ReqHeader($r){
$requestPath = $this->url_array['path'] . ( isset($this->url_array['query']) ? '?' . $this->url_array['query'] : '' );
if ( empty($requestPath) )
$requestPath .= '/';
$strHeaders = strtoupper($r['method']) . ' ' . $requestPath . ' HTTP/' . $r['httpversion'] . "\r\n";
$strHeaders .= 'Host: ' . $this->url_array['host'] . "\r\n";
if ( isset($r['user-agent']) )
$strHeaders .= 'User-agent: ' . $r['user-agent'] . "\r\n";
$strHeaders .= "\r\n";
return $strHeaders;
}
/**
* Read all content from the handle
*
*/
protected function ReadHandle($handle){
$response = '';
while( !feof($handle) ){
$response .= fread($handle, 4096);
if( strlen($response) > static::$maxlength ){
break;
}
}
return $response;
}
/**
* Fetch a url using php's curl library
*
*/
protected function curl_request($url, $r){
$handle = curl_init();
if( $handle === false ){
return false;
}
/*
* CURLOPT_TIMEOUT and CURLOPT_CONNECTTIMEOUT expect integers. Have to use ceil since.
* a value of 0 will allow an unlimited timeout.
*/
$timeout = (int) ceil( $r['timeout'] );
curl_setopt( $handle, CURLOPT_CONNECTTIMEOUT, $timeout );
curl_setopt( $handle, CURLOPT_TIMEOUT, $timeout );
curl_setopt( $handle, CURLOPT_URL, $url);
curl_setopt( $handle, CURLOPT_RETURNTRANSFER, true );
//curl_setopt( $handle, CURLOPT_SSL_VERIFYHOST, ( $ssl_verify === true ) ? 2 : false );
//curl_setopt( $handle, CURLOPT_SSL_VERIFYPEER, $ssl_verify );
//if ( $ssl_verify ) {
// curl_setopt( $handle, CURLOPT_CAINFO, $r['sslcertificates'] );
//}
curl_setopt( $handle, CURLOPT_USERAGENT, $r['user-agent'] );
/*
* The option doesn't work with safe mode or when open_basedir is set, and there's
* a bug #17490 with redirected POST requests, so handle redirections outside Curl.
*/
curl_setopt( $handle, CURLOPT_FOLLOWLOCATION, false );
if ( defined( 'CURLOPT_PROTOCOLS' ) ) // PHP 5.2.10 / cURL 7.19.4
curl_setopt( $handle, CURLOPT_PROTOCOLS, CURLPROTO_HTTP | CURLPROTO_HTTPS );
curl_setopt( $handle, CURLOPT_CUSTOMREQUEST, $r['method'] );
curl_setopt( $handle, CURLOPT_HEADERFUNCTION, array( $this, 'curl_headers' ) );
curl_setopt( $handle, CURLOPT_WRITEFUNCTION, array( $this, 'curl_body' ) );
curl_setopt( $handle, CURLOPT_HEADER, 0 );
if( $r['httpversion'] == '1.0' ){
curl_setopt( $handle, CURLOPT_HTTP_VERSION, CURL_HTTP_VERSION_1_0 );
}else{
curl_setopt( $handle, CURLOPT_HTTP_VERSION, CURL_HTTP_VERSION_1_1 );
}
curl_exec( $handle );
if( !$r['ignore_errors'] && curl_errno( $handle ) ){
static::$debug['curl_error'] = curl_error( $handle );
curl_close( $handle );
return false;
}
curl_close( $handle );
$processedHeaders = static::processHeaders($this->headers);
return $this->ReturnRequest( $url, $r, $processedHeaders );
}
/**
* Grab the headers of the cURL request
*
* Each header is sent individually to this callback, so we append to the $header property for temporary storage
*
* @since 3.2.0
* @access private
* @return int
*/
private function curl_headers( $handle, $headers ) {
$this->headers .= $headers;
return strlen( $headers );
}
/**
* Grab the body of the cURL request
*
* The contents of the document are passed in chunks, so we append to the $body property for temporary storage.
* Returning a length shorter than the length of $data passed in will cause cURL to abort the request with CURLE_WRITE_ERROR
*
* @since 3.6.0
* @access private
* @return int
*/
private function curl_body( $handle, $data ) {
$data_length = strlen( $data );
$this->body .= $data;
$this->bytes_written_total += $data_length;
// Upon event of this function returning less than strlen( $data ) curl will error with CURLE_WRITE_ERROR.
return $data_length;
}
/**
* Set the stream timeout
*
*/
public static function stream_timeout($handle,$time){
if( !function_exists('stream_set_timeout') ){
return;
}
$timeout = (int) floor( $time );
$utimeout = $timeout == $time ? 0 : 1000000 * $time % 1000000;
stream_set_timeout( $handle, $timeout, $utimeout );
}
/**
* Return the response info or redirection
*
*/
public function ReturnRequest( $url, $r, $processedHeaders ){
// If location is found, then assume redirect and redirect to location.
$redir_location = $this->RedirectLocation($processedHeaders);
if( $redir_location !== false ){
if( $redir_location == $url ){
// redirecting to the same url
// need cookies
if( \gp\tool::LoggedIn() ){
msg('infinite redirection: '.$redir_location);
}
return false;
}
return $this->Redirect($redir_location,$r);
}
if( isset($processedHeaders['headers']['content-encoding']) && $processedHeaders['headers']['content-encoding'] == 'gzip' ){
$this->Inflate();
}
return array('headers' => $processedHeaders['headers'], 'body' => $this->body, 'response' => $processedHeaders['response'], 'cookies' => $processedHeaders['cookies']);
}
/**
* Inflate the gzipped content
*
*/
public function Inflate(){
$body = @gzdecode($this->body);
if( $body ){
$this->body = $body;
return true;
}
$body = @gzinflate(substr($this->body, 10));
if( $body ){
$this->body = $body;
return true;
}
trigger_error('RemoteGet::Inflate() failed. Content: '.substr($this->body,0,200));
return false;
}
/**
* Handle a redirect response
*
*/
public function Redirect($location,$r){
if( $r['redirection']-- < 0 ){
trigger_error('Too many redirects');
return false;
}
static::$redirected = $location;
static::$debug['Redir'] = 1;
return $this->_get($location, $r);
}
/**
* Get the redirect location
*
*/
public function RedirectLocation($headers){
if( empty($headers['headers']['location']) ){
return false;
}
//check location for releative value
$location = $headers['headers']['location'];
if( is_array($headers['headers']['location']) ){
do{
$location = array_pop($headers['headers']['location']);
$location = trim($location);
}while( count($headers['headers']['location']) && empty($location) );
}
$location = trim($location);
if( empty($location) ){
return false;
}
// //www.example.com
if( substr($location,0,2) == '//' ){
$location = $this->url_array['scheme'].':'.$location;
// ?page=test
}elseif( $location[0] == '?' ){
$location = $this->url_array['scheme'].'://'.rtrim($this->url_array['host'],'/').'/'.ltrim($this->url_array['path'],'/').$location;
// /page
}elseif( $location[0] == '/' ){
$location = $this->url_array['scheme'].'://'.rtrim($this->url_array['host'],'/').$location;
// http://www.example.com
}elseif( preg_match('#^[a-z]+:#i',$location) ){
// do nothing
// otherwise relative path
}else{
$urla = $this->url_array;
unset($urla['query'], $urla['fragment']);
if( empty($urla['path']) || $urla['path'] == '/' ){
$urla['path'] = $location;
}elseif( substr($urla['path'],-1) != '/' ){
$urla['path'] .= ltrim($location,'/');
}else{
$urla['path'] = rtrim(dirname($urla['path']),'/'). '/' . ltrim($location,'/');
}
$location = $this->unparse_url($urla);
}
return $location;
}
/**
* Convert a parsed url array to a url string
* @param array $parsed_url
* @return string
*
*/
public function unparse_url($parsed_url) {
$scheme = isset($parsed_url['scheme']) ? $parsed_url['scheme'] . '://' : '';
$host = isset($parsed_url['host']) ? $parsed_url['host'] : '';
$port = isset($parsed_url['port']) ? ':' . $parsed_url['port'] : '';
$user = isset($parsed_url['user']) ? $parsed_url['user'] : '';
$pass = isset($parsed_url['pass']) ? ':' . $parsed_url['pass'] : '';
$pass = ($user || $pass) ? "$pass@" : '';
$path = isset($parsed_url['path']) ? '/'.ltrim($parsed_url['path'],'/') : '';
$query = isset($parsed_url['query']) ? '?' . $parsed_url['query'] : '';
$fragment = isset($parsed_url['fragment']) ? '#' . $parsed_url['fragment'] : '';
return "$scheme$user$pass$host$port$path$query$fragment";
}
/**
* Decodes chunk transfer-encoding, based off the HTTP 1.1 specification.
*
* Based off the HTTP http_encoding_dechunk function. Does not support UTF-8. Does not support
* returning footer headers. Shouldn't be too difficult to support it though.
*
* @todo Add support for footer chunked headers.
* @access public
* @since 1.7
* @static
*
* @param string $body Body content
* @return string Chunked decoded body on success or raw body on failure.
*/
public static function chunkTransferDecode($body,$headers){
if( !static::IsChunked($body,$headers) ){
return $body;
}
$parsed_body = '';
// We'll be altering $body, so need a backup in case of error.
$body_original = $body;
while ( true ) {
$has_chunk = (bool) preg_match( '/^([0-9a-f]+)[^\r\n]*\r\n/i', $body, $match );
if ( ! $has_chunk || empty( $match[1] ) )
return $body_original;
$length = (int)hexdec( $match[1] );
$chunk_length = strlen( $match[0] );
// Parse out the chunk of data.
$parsed_body .= substr( $body, $chunk_length, $length );
// Remove the chunk from the raw data.
$body = substr( $body, $length + $chunk_length );
// End of the document.
if ( '0' === trim( $body ) )
return $parsed_body;
}
}
/**
* Return true if the response body is chunked
*
*/
public static function IsChunked($body, $headers){
$body = trim($body);
if( empty($body) ){
return false;
}
if( !isset( $headers['headers']['transfer-encoding'] ) || 'chunked' != $headers['headers']['transfer-encoding'] ){
return false;
}
// The body is not chunked encoded or is malformed.
if( ! preg_match( '/^([0-9a-f]+)[^\r\n]*\r\n/i',$body) ){
return false;
}
return true;
}
/**
* Gets stream headers, return false otherwise
*
* @access public
* @static
* @since 1.7
*
* @param resource $handle stream handle
* @return array|false Array with unprocessed string headers.
*/
public static function StreamHeaders($handle){
$meta = stream_get_meta_data($handle);
if( !isset($meta['wrapper_data']) ){
return $http_response_header; //$http_response_header is a PHP reserved variable which is set in the current-scope when using the HTTP Wrapper
}
$theHeaders = $meta['wrapper_data'];
if( isset($meta['wrapper_data']['headers']) ){
$theHeaders = $meta['wrapper_data']['headers'];
}
return $theHeaders;
}
/**
* Parses the responses and splits the parts into headers and body.
*
* @access public
* @static
* @since 1.7
*
* @param string $strResponse The full response string
* @return array Array with 'headers' and 'body' keys.
*/
public static function processResponse($strResponse) {
list($theHeaders, $theBody) = explode("\r\n\r\n", $strResponse, 2);
return array('headers' => $theHeaders, 'body' => $theBody);
}
/**
* Transform header string into an array.
*
* If an array is given then it is assumed to be raw header data with numeric keys with the
* headers as the values. No headers must be passed that were already processed.
*
* @access public
* @static
* @since 1.7
*
* @param string|array $headers
* @return array Processed string headers. If duplicate headers are encountered,
* Then a numbered array is returned as the value of that header-key.
*/
public static function processHeaders($headers) {
$headers = static::HeadersArray($headers);
$response = array('code' => 0, 'message' => '');
$cookies = array();
$newheaders = array();
foreach( $headers as $tempheader ){
if( false === strpos($tempheader, ':') ){
$stack = explode(' ', $tempheader, 3);
$stack[] = '';
list( , $response['code'], $response['message']) = $stack;
continue;
}
list($key, $value) = explode(':', $tempheader, 2);
$key = strtolower( $key );
$value = trim( $value );
if( isset( $newheaders[$key] ) ){
if( !is_array( $newheaders[$key] ) ){
$newheaders[$key] = array( $newheaders[$key] );
}
$newheaders[$key][] = $value;
}else{
$newheaders[$key] = $value;
}
}
static::$debug['Headers'] = count($newheaders);
return array('response' => $response, 'headers' => $newheaders, 'cookies' => $cookies);
}
/**
* Split header header string into array if needed
*
*/
protected static function HeadersArray($headers){
// split headers, one per array element
if ( is_string($headers) ) {
// tolerate line terminator: CRLF = LF (RFC 2616 19.3)
$headers = str_replace("\r\n", "\n", $headers);
// unfold folded header fields. LWS = [CRLF] 1*( SP | HT ) <US-ASCII SP, space (32)>, <US-ASCII HT, horizontal-tab (9)> (RFC 2616 2.2)
$headers = preg_replace('/\n[ \t]/', ' ', $headers);
// create the headers array
$headers = explode("\n", $headers);
}
$headers = (array)$headers;
$headers = array_filter($headers);
return $headers;
}
/**
* Output debug info about the most recent request
*
*/
public static function Debug($lang_key, $debug = array()){
$debug = array_merge(static::$debug,$debug);
return \gp\tool::Debug($lang_key, $debug);
}
}
}
namespace {
class gpRemoteGet extends \gp\tool\RemoteGet{}
}