,,,,',array('height','alt','width','clear','size','class','border','style'));
break;
}
$aReturn[$ffTag] = $val;
}
}
foreach ($aTags as $key=>$val) {
if (!isset($aReturn[$key])) {
switch ($key) {
case 'pubDate':
$t = time();
$aReturn[$key] = date('d',$t).' '.$gaLang[date('M',$t)].' '.date(' Y H:i',$t);
break;
default:
$aReturn[$key] = '';
}
}
}
return $aReturn;
}
/*=========================================*/
function strip_tags_attributes($sSource, $aAllowedTags = '', $aDisabledAttributes = array()) {
if (empty($aDisabledAttributes)) return strip_tags($sSource, $aAllowedTags);
/*$aSpecialSymbols = array('■','●');
for ($i=0; $i < count($aSpecialSymbols); $i++) {
$sSource = str_replace($aSpecialSymbols[$i], '', $sSource);
}*/
$sSource = strip_tags($sSource, $aAllowedTags);
preg_match_all('/<(.*?)>/ie', $sSource, $aRes);
if (!empty($aRes) && !empty($aRes[0])) {
foreach ($aRes[0] as $key=>$val) {
$tPattern = $val;
$foundTag = false;
$foundQuote = false;
$startPos = 0;
$endPos = 0;
foreach ($aDisabledAttributes as $n=>$attr) {
$pos = mb_strpos($val,$attr,0,'UTF-8');
if ($pos === false) {
continue;
}
$foundTag = true;
$startPos = $pos;
$pos = mb_strpos($val, '=', $pos,'UTF-8');
if ($pos === false) {
continue;
}
do{
$pos ++;
$s = mb_substr($val, $pos, 1, 'UTF-8');
if ($s === '\'' || $s === '"') {
$foundQuote = $s;
break;
}
}while ($s === ' ' || $s === '\'' || $s === '"');
if ($foundQuote === false) {
$pos1 = mb_strpos($val, ' ',$pos,'UTF-8');
$pos2 = mb_strpos($val, '>',$pos,'UTF-8');
if ($pos1 === false && $pos2 !== false) {
$pos = $pos2;
}elseif ($pos2 === false && $pos1 !== false) {
$pos = $pos1;
}elseif ($pos2 !== false && $pos1 !== false) {
if ($pos1 < $pos2) {
$pos = $pos1;
}elseif ($pos1 > $pos2) {
$pos = $pos2;
}
}
}else {
$pos = mb_strpos($val, $foundQuote,$pos+1,'UTF-8')+1;
$foundQuote = false;
}
if ($pos !== false) {
$endPos = $pos;
}
$val = mb_substr($val,0,$startPos-1,'UTF-8').mb_substr($val,$endPos,(mb_strlen($val,'UTF-8')),'UTF-8');
$foundTag = false;
}
$aTmp = split(' ',$val);
if (!empty($aTmp)) {
foreach ($aTmp as $k=>$v) {
if (strpos($v,'=') !== false) {
$aTmp2 = split('=',$v);
$v = '';
if (count($aTmp2) > 0) {
$aTmp2[1] = str_replace('"','',$aTmp2[1]);
$aTmp2[1] = str_replace("'",'',$aTmp2[1]);
$aTmp2[1] = '"'.$aTmp2[1];
$t = $aTmp2[count($aTmp2)-1];
if (count($aTmp2)-1 > 1) {
$t = str_replace('"','',$t);
}
$t = str_replace("'",'',$t);
$t = str_replace(">",'',$t);
$aTmp2[count($aTmp2)-1] = $t.'"';
}
$v .= implode('=',$aTmp2);
}
$aTmp[$k] = $v;
}
if (strpos($aTmp[count($aTmp)-1],'>') === false) {
$aTmp[count($aTmp)-1] .= '>';
}
$val = implode(' ',$aTmp);
}
$sSource = str_replace($tPattern,$val,$sSource);
}
}
return $sSource;
}
/*=========================================*/
function xmParseFeedArray($aFeed) {
$aParentTag = array('rss'=>array('rss','rdf'));
$aFeedTags = array('channel'=>array('channel','feed'));
$aItemParentTags = array('item'=>array('item','entry'));
$aItemTags = array('title'=>array('title'),'description'=>array('content','description'),'link'=>array('id','link'),'pubDate'=>array('date','pubDate','pubdate','issued','modified'));
$aChannel = array('title'=>'','description'=>'','link'=>'','pubDate'=>'');
$aItems = array();
if (empty($aFeed)) {
return array($aChannel,$aItems);
}
foreach ($aFeed as $key=>$val) {
if (_in_array($key, $aParentTag['rss'])) {
$aFeed = $val;
break;
}
}
foreach ($aFeed as $key=>$val) {
if (_in_array($key, $aFeedTags['channel'])) {
$aChannel = $val;
break;
}
}
foreach ($aFeed as $key=>$val) {
if (_in_array($key, $aItemParentTags['item'])) {
$aItems = $val;
break;
}
}
if (empty($aItems)) {
foreach ($aChannel as $key=>$val) {
if (_in_array($key, $aItemParentTags['item'])) {
$aItems = $val;
break;
}
}
}
$aChannel = xmGetTagValues($aChannel);
foreach ($aItems as $key=>$val) {
$aItems[$key] = xmGetTagValues($val);
}
return array($aChannel,$aItems);
}
/*=========================================*/
function _in_array($search, $array) {
foreach ($array as $val) {
if (strpos($search,$val) !== false) {
return true;
}
}
return false;
}
/*=========================================*/
function htFindInvObj($Content) {
$t = preg_match_all('/\<(img\b[^>]*?\bsrc[\s]*='.
'[\s]*([\'"`]?)'.
'(([^>\'"`\s]+)\.(jpg|jpe|jpeg|gif|png))?'.
'\2[\s]*'.
'[^>]*?)\>/im', $Content, $a);
if(!empty($a) && is_array($a)){
foreach($a[1] AS $key => $value){
if(empty($a[4][$key])){
$Content = str_replace('<'.$value.'>', '<'.$value.'>', $Content);
}
}
}
return $Content;
}
/*=========================================*/
function htValidURL($url) {
if(!preg_match("~^(?:(?:https?|ftp|telnet)://(?:[a-z0-9_-]{1,32}".
"(?::[a-z0-9_-]{1,32})?@)?)?(?:(?:[a-z0-9-]{1,128}\.)+(?:com|net|".
"org|mil|edu|arpa|gov|biz|info|aero|inc|name|[a-z]{2})|(?!0)(?:(?".
"!0[^.]|255)[0-9]{1,3}\.){3}(?!0|255)[0-9]{1,3})(?:/[a-z0-9.,_@%&".
"?+=\~/-]*)?(?:#[^ '\"&<>]*)?$~i", $url)){
return false;
}
return true;
}
/*=========================================*/
function htCheckSslURL() {
Global $gRootURL, $gRootCustURL, $gRootUrlSSL, $gSSLActive, $gAccessLevel, $gaEvSSL, $gCurEvent;
//Init
$Ret = false;
$tSSLAct = (strtolower(vrGetSerVar('HTTPS')) == 'on') ? true : false;
//Prepare url with correct proto
$gRootUrlSSL = htSetSslURL($gRootURL);
//Validation of url - prepare return value if redirection required
if(!(!empty($gaEvSSL) && !empty($gaEvSSL[$gAccessLevel]))){
$gRootURL = $gRootUrlSSL;
if(empty($tSSLAct) ^ empty($gSSLActive)){
$Ret = $gRootURL;
}
}elseif(in_array($gCurEvent, $gaEvSSL[$gAccessLevel])){
$gRootURL = $gRootUrlSSL;
if(empty($tSSLAct) ^ empty($gSSLActive)){
$Ret = $gRootURL;
}
}elseif(!in_array($gCurEvent, $gaEvSSL[$gAccessLevel]) && !empty($tSSLAct)){
$Ret = $gRootURL;
}
if(empty($Ret) && !empty($gSSLActive) && $gRootURL == $gRootUrlSSL){
$gRootCustURL = htSetSslURL($gRootCustURL);
}
//Exit
return $Ret;
}
/*=========================================*/
function htSetSslURL($Url) {
Global $gSSLActive;
//Parse url
$tUrl = htParseURL($Url);
//Prepare new proto
if(!empty($gSSLActive)){
$tUrl['scheme'] = 'https';
}else{
$tUrl['scheme'] = 'http';
}
//Prepare new url
$Url = $tUrl['scheme'].'://'.$tUrl['host'].(!empty($tUrl['port']) ? ':'.$tUrl['port'] : '').$tUrl['path'].(!empty($tUrl['query']) ? '?'.$tUrl['query'] : '');
//Exit
return $Url;
}
/*=========================================*/
function htParseURL($value) {
$aurl=array('scheme'=>'', 'host'=>'', 'port'=>'', 'useport'=>'', 'path'=>'', 'query'=>'');
$value=trim($value);
if(empty($value)){
return '';
}
if(preg_match("/^(https?:\/\/)?(.+)$/i", $value, $regs)){
$url=$regs[2];
}
$atmp=parse_url('http://'.$url);
//Host
if(isset($atmp['host'])){
$aurl['host']=$atmp['host'];
}else{
return $aurl;
}
//Proto
if((strpos($value, '://')) !== false){
$aurl['scheme']=substr($value, 0, strpos($value, '://'));
}else{
$aurl['scheme']='http';
}
//Port
if(isset($atmp['port'])){
$aurl['port']=$atmp['port'];
}else{
$aurl['port']='';
}
//Actual Port
if(!empty($atmp['port'])){
$aurl['useport']=$atmp['port'];
}elseif(strtolower($aurl['scheme']) == 'https'){
$aurl['useport']='443';
}elseif(strtolower($aurl['scheme']) == 'http'){
$aurl['useport']='80';
}
//Path after domain
if(isset($atmp['path'])){
$aurl['path']=$atmp['path'];
}else{
$aurl['path']='/';
}
//Query after path
if(isset($atmp['query'])){
$aurl['query']=$atmp['query'];
}else{
$aurl['query']='';
}
//Exit
return $aurl;
}
/*=========================================*/
function htCanonicalizeURL($URL) {
//Init, get proto, split to array
$URL=str_replace("\\", '/', $URL);
$url_up=strtoupper($URL);
if((strpos($url_up, 'HTTP://')===false || strpos($url_up, 'HTTP://')!=0) && (strpos($url_up, 'HTTPS://')===false || strpos($url_up, 'HTTPS://')!=0)){
$URL='http://'.$URL;
}
$URLa=explode('/', $URL);
//Canonicalize
foreach($URLa AS $key => $value){
if($key <= 2){continue;}
switch($value){
case '.' : {
unset($URLa[$key]);
break;
}
case '..' : {
unset($URLa[$key]);
for($i=$key; $i > 2; $i--){
if(isset($URLa[$i-1]) && ($i-1) > 2){
unset($URLa[$i-1]);
break;
}
}
break;
}
}
}
//Formatting
$URL=implode('/', $URLa);
$URL=preg_replace('/\s/s', '+', $URL);
$URL=str_replace('&', '&', $URL);
//Exit
return $URL;
}
/*=========================================*/
function htGetPageContent($URL, $Content, $HttpMethod, $GetBody, $ConvCharset=1, $ParseContent=0) {
Global $gRequestMethod, $gaCrwValidCodes, $gtsHost;
Global $gResponceContent, $gtiWrongHeader, $gtRespTime; //Internal
$PC=array();
$PC['URL']=$URL;
$PC['Size']=0;
$PC['UTime']=0;
$PC['RTime']=0;
$PC['Code']='';
$PC['Error']='';
$PC['Cache']='';
$PC['Title']='';
$PC['Header']='';
$PC['Content']='';
$PC['BaseURL']='';
$PC['Charset']='';
$PC['Keywords']='';
$PC['Description']='';
$PC['Content-Type']='';
$PC['Last-Modified']='';
$gResponceContent = Array('Header'=>'','Body'=>'','Error'=>'','BaseURL'=>'');
$gtiWrongHeader = 0;
$gtRespTime = 0;
if(empty($gtsHost)){
$gtsHost = htParseURL($URL);
$gtsHost = $gtsHost['host'];
}
$TimeStart = erGetMicroTime();
$Content=htHTTPRequest($URL, $Content, $gRequestMethod, $HttpMethod, $GetBody);
$TimeEnd = erGetMicroTime();
$PC['UTime'] = $TimeEnd - $TimeStart;
if(empty($gtRespTime)){
$gtRespTime = $TimeEnd;
}
$PC['RTime'] = $gtRespTime - $TimeStart;
unset($TimeStart, $TimeEnd, $gtRespTime);
//Get header and body
$PC['Header'] =$Content['Header'];
$PC['Content'] =$Content['Body'];
$PC['Error'] =$Content['Error'];
//Page size
$PC['Size']=strlen($PC['Content']);
//Get responce code
$array1=array();
if(!preg_match("/^[^\s]+ (\d{3})/i", $PC['Header'], $array1)){
$PC['Code']='';
}else{
$PC['Code']=trim($array1[1]);
}
if(!in_array($PC['Code'], $gaCrwValidCodes)){
$PC['Content']='';
$PC['Size']=0;
return $PC;
}
//Base URL
$array1=array();
if(!preg_match('/]+href[\s]*=[\s]*[\'"`]?([^>\'"`\s]+)[\'"`]?[\s]*[^>]*>/i', $PC['Content'], $array1)){
$PC['BaseURL'] = $Content['BaseURL'];
}else{
$PC['BaseURL'] = rtrim($array1[1], '/');
}
if(!empty($GetBody) && !empty($ConvCharset)){
//Get charset type from body
$array1=array();
$text=eregi_replace(">", " >", $PC['Content']);
if(!preg_match('/()/smi', $text, $array1)){
if(!preg_match('/()/smi', $text, $array1)){
$PC['Charset']='';
}else{
if(!preg_match('/encoding=([\'"`]?)([^>\'"`\s]+)\1/', $array1[1], $array2)){
$PC['Charset']='';
}else{
$PC['Charset']=strtoupper(trim($array2[2]));
}
}
}else{
if(!preg_match('/charset=([^"\';]+)/', $array1[1], $array2)){
$PC['Charset']='';
}else{
$PC['Charset']=strtoupper(trim($array2[1]));
}
}
//If charset not found in the body try to get it from the head
if($PC['Charset']==''){
//Get charset and content type from header
$text=eregi_replace(">", " >", $PC['Header']);
$array1=array();
if(!preg_match('/(Content-Type:.*charset.*\r?\n)/smi', $text, $array1)){
$PC['Charset']='';
}else{
$array2=array();
if(!preg_match('/charset=([^\r\n]+)/', trim($array1[1]), $array2)){
$PC['Charset']='';
}else{
$PC['Charset']=strtoupper(trim($array2[1]));
}
}
}
}
if(!empty($GetBody) && !empty($ParseContent)){
//Get data of last modification
$array1=array();
if(!preg_match("/\r?\nLast\-Modified[\s]*\: ([a-z]{3}, \d{1,2} [a-z]{3} \d{4} \d{1,2}\:\d{1,2}\:\d{1,2}[a-z ]+)\r?\n/i", $PC['Header'], $array1)){
$array1=array();
if(!preg_match("/\r?\nDate[\s]*\: ([a-z]{3}, \d{1,2} [a-z]{3} \d{4} \d{1,2}\:\d{1,2}\:\d{1,2}[a-z ]+)\r?\n/i", $PC['Header'], $array1)){
$PC['Last-Modified']='';
}else{
$PC['Last-Modified']=trim($array1[1]);
}
}else{
$PC['Last-Modified']=trim($array1[1]);
}
//----
//Get Cache
$array1=array();
if(!preg_match("/\r?\nCache\-Control[\s]*\:([^\r\n]+)\r?\n/i", $PC['Header'], $array1)){
$array1=array();
if(!preg_match("/\r?\nPragma[\s]*\:([^\r\n]+)\r?\n/i", $PC['Header'], $array1)){
$PC['Cache']='';
}else{
$PC['Cache']=trim($array1[1]);
}
}else{
$PC['Cache']=trim($array1[1]);
}
//----
//Remove comments
if($ParseContent == 2){
$PC['Content'] = preg_replace('/).)*-->/m', '', $PC['Content']);
$PC['Content'] = preg_replace('/(]*>)((?!<\/script>).)+(<\/script>)/is', '$1$3', $PC['Content']);
}
//----
//Get title
$array1=array();
if(!preg_match('|(.+)|Usi', $PC['Content'], $array1)){
$PC['Title']='';
}else{
$PC['Title']=trim($array1[1]);
}
//----
//Get description
$array1=array();
if(!preg_match('|]*description[^>]*content="([^>]+)"[^>]*>|Usi', $PC['Content'], $array1)){
$PC['Description']='';
}else{
$PC['Description']=trim($array1[1]);
}
//----
//Get keywords
$array1=array();
if(!preg_match('|]*keywords[^>]*content="([^>]+)"[^>]*>|Usi', $PC['Content'], $array1)){
$PC['Keywords']='';
}else{
$PC['Keywords']=trim($array1[1]);
}
//----
//Get content type from body
$array1=array();
if(!preg_match('/]*content="([^>]+);/', $PC['Content'], $array1)){
$PC['Content-Type']='';
}else{
$PC['Content-Type']=$array1[1];
}
//----
//If Content-Type not found in the body...
if($PC['Content-Type']==''){
if(!preg_match("/Content-Type: ([\/-\w]+)/", $PC['Header'], $mtch)){
$PC['Content-Type']='';
}else{
$PC['Content-Type']=trim($mtch[1]);
}
}
}
//Remove tag
if(!empty($PC['Content']) && preg_match("/<(rss|rdf|feed)[^>]*>/i", $PC['Content'], $areg)) {
$format = '';
if (isset($areg[1])) {
$format = $areg[1];
}
$pos=strpos($PC['Content'], '<'.$format);
if($pos!==false){
$PC['Content']=substr($PC['Content'], $pos);
}
}
//Encode fields to UTF-8
if(!empty($PC['Charset'])){
$EncodeFields=array('Content','Header','Title');
foreach($EncodeFields as $field){
if(isset($PC[$field]) && !empty($PC[$field])){
if(!empty($ConvCharset) && $ConvCharset == 2){
$str = mb_convert_encoding($PC[$field], 'UTF-8', strtolower($PC['Charset']));
}else{
$str = mb_convert_encoding($PC[$field], 'UTF-8', $PC['Charset'].', ISO-8859-1, auto');
}
if(empty($str)){
continue;
}
$PC[$field]=$str;
}
}
}
return $PC;
}
/*=========================================*/
function htMakeBaseURL($URL) {
$tLP = htParseURL($URL);
$pos = strrpos($tLP['path'], '/');
$tLP['path'] = rtrim(substr($tLP['path'], 0, $pos), '/');
$BaseURL = $tLP['scheme'].'://'.$tLP['host'].(!empty($tLP['port']) ? ':'.$tLP['port']:'').$tLP['path'];
return $BaseURL;
}
/*=========================================*/
function htHTTPRequest($URL, $Content, $RequestMethod=0, $HTTPMethod='POST', $IncludeBody=true) {
Global $gAccessTimeOut, $gAuth, $gCRLF, $gHCRLF;
Global $gtiWrongHeader, $gtDoRedirect, $gtRedirected, $gResponceContent, $gtMaxWrited;//Internal
/** Some servers do not allow HEAD requests */
Global $gbIncludeBody;//Internal
//Check url is xml or web page with xml url
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, $URL);
curl_setopt($ch, CURLOPT_USERAGENT, "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1) Gecko/20061010 Firefox/2.0");
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
$content = curl_exec($ch);
curl_close($ch);
//Get rss url
preg_match_all("||U", $content, $aurls);
$rss_url = '';
foreach ($aurls[0] as $value) {
if (strpos($value,'application/rss+xml') != 0 || strpos($value,'application/rdf+xml') != 0 || strpos($value,'application/atom+xml') != 0) {
$rss_url = substr($value, (strpos($value, 'href="')+6));
$URL=substr($rss_url, 0, (strpos($rss_url, '"')) - strlen($rss_url));
}
}
//Init
$gtiWrongHeader = 0;
$gbIncludeBody = $IncludeBody;
$buff_in = Array('Header'=>'','Body'=>'','Error'=>'','BaseURL'=>'');
if(!isset($gResponceContent)){$gResponceContent = Array('Header'=>'','Body'=>'','Error'=>'','BaseURL'=>'');}
if(!isset($gAccessTimeOut)){$gAccessTimeOut=60;}
$Cookie = htProcCookieGet($URL);
$url_data=htParseURL($URL);
switch($RequestMethod){
case 0 : {
//Do CURL Request
$buff_out=$Content;
$ch=curl_init();
curl_setopt($ch, CURLOPT_URL, $URL);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($ch, CURLOPT_TIMEOUT, $gAccessTimeOut);
curl_setopt($ch, CURLOPT_WRITEFUNCTION, 'htReadBody');
curl_setopt($ch, CURLOPT_HEADERFUNCTION, 'htReadHeader');
curl_setopt($ch, CURLOPT_FOLLOWLOCATION, false);
/** Some servers do not allow HEAD requests
* if(!$IncludeBody){
* curl_setopt($ch, CURLOPT_NOBODY, 1);
* }
*/
if(!empty($Cookie)){
curl_setopt($ch, CURLOPT_COOKIE, $Cookie);
}
if(!empty($gAuth)){
curl_setopt($ch, CURLOPT_USERPWD, $gAuth['B']);
}
if($HTTPMethod=='POST'){
curl_setopt($ch, CURLOPT_POST, 1);
curl_setopt($ch, CURLOPT_POSTFIELDS, $buff_out);
}
curl_exec($ch);
if(empty($gtMaxWrited)){
$buff_in['Error'] = curl_error($ch);
}
curl_close($ch);
break;
}
case 1 : {
//Open socket for request
ini_set('default_socket_timeout', $gAccessTimeOut);
ini_set('max_input_time', $gAccessTimeOut);
/** Some servers do not allow HEAD requests
* if($HTTPMethod == 'GET' && !$IncludeBody){
* $HTTPMethod = 'HEAD';
* }
*/
if(empty($url_data['useport'])){
$url_data['useport']='80';
}elseif($url_data['useport'] == '443'){
$url_data['host'] = 'ssl://'.$url_data['host'];
}
$buff_out=$HTTPMethod.' '.$url_data['path'].' HTTP/1.1'.$gHCRLF;
$buff_out.='Host: '.$url_data['host'].$gHCRLF;
$buff_out.='Connection: Close'.$gHCRLF;
$buff_out.='User-Agent: HTTPRequest() by php lib (c) eTek'.$gHCRLF;
if(!empty($Cookie)){
$buff_out.='Cookie: '.$Cookie.$gHCRLF;
}
if(!empty($gAuth)){
$buff_out.='Authorization: Basic '.base64_encode($gAuth['B']).$gHCRLF;
}
if($HTTPMethod=='POST'){
$buff_out.='Content-Type: application/x-www-form-urlencoded'.$gHCRLF;
$buff_out.='Content-Length: '.strlen($Content).$gHCRLF;
}
$buff_out.=$gHCRLF;
if($HTTPMethod=='POST'){
$buff_out.=$Content.$gCRLF;
}
if(($fp=fsockopen($url_data['host'], $url_data['useport'], $tSockErrNum, $tSockErrStr, $gAccessTimeOut))){
stream_set_timeout($fp, $gAccessTimeOut);
stream_set_blocking($fp, false);
fwrite($fp, $buff_out);
while(!feof($fp)){
$tState = htProcSockCont(fgets($fp, 4096), $IncludeBody);
if(!$tState){
break;
}
}
fclose($fp);
}
$buff_in['Error'] = $tSockErrStr;
break;
}
}
//Make Redirect (Header->Location:)
if(isset($gtDoRedirect) && !empty($gtDoRedirect) && empty($gtRedirected)){
$gtRedirected = 1;
$tURL = $gtDoRedirect;
$gResponceContent['BaseURL'] = htMakeBaseURL($tURL);
htReadHeader('', '');
$gResponceContent = htHTTPRequest($tURL, '', $RequestMethod, 'GET', $IncludeBody);
}
//Prepare return value
$buff_in['Header'] = $gResponceContent['Header'];
$buff_in['Body'] = $gResponceContent['Body'];
$buff_in['BaseURL']= !empty($gResponceContent['BaseURL']) ? $gResponceContent['BaseURL'] : htMakeBaseURL($URL);
//Exit
return $buff_in;
}
/*=========================================*/
function htReadHeader($ch, $string) {
Global $gMaxRedirects, $gtaAlwHdrCT;
Global $gResponceContent, $gtsHost, $gtiWrongHeader, $gHeaderWrited;//Internal
Global $gtDoRedirect, $gtRedirected, $gtRespTime;//Internal
Static $RedirectsDone=0;
//Determine New Analyze
if(empty($gResponceContent['Header']) && empty($gResponceContent['Body'])){
$RedirectsDone=0;
$gHeaderWrited=0;
$gtRespTime = erGetMicroTime();
}
if(!isset($gMaxRedirects)){$gMaxRedirects=10;}
if(!isset($gtaAlwHdrCT) || !is_array($gtaAlwHdrCT)){$gtaAlwHdrCT=array();}
if(isset($gtRedirected) && !empty($gtRedirected)){
$gHeaderWrited=0;
$gtRedirected=0;
$gtDoRedirect='';
}
$length = strlen($string);
$h = $gResponceContent['Header'].$string;
//Parse headers
$ahead = array();
$atmp=explode("\n", $h);
foreach($atmp as $key=>$value){
if($key==0){
if(preg_match("/HTTP\/1\.(0|1) ([\d]{3})/i", $h, $areg)){
$ahead['Status']=$areg[2];
}else{//error
return 0;
}
}else{
$afield=array();
$afield=explode(': ', $value);
if(isset($afield[1])){
$ahead[$afield[0]]=$afield[1];
}
}
}
//Reject Pages With Content-Type Differ From "text/*"
/*if(isset($ahead['Content-Type'])){
$tCT = $ahead['Content-Type'];
if (strpos($tCT,';') !== false) {
$tCT = trim(substr($tCT, 0, (strpos($tCT, ';'))));
}
$pos = strpos($tCT, 'text/');
if(($pos === false || $pos != 0) && !in_array($tCT, $gtaAlwHdrCT)){
$gtiWrongHeader=1;
}
}*/
//Determine Header Redirection
if((isset($ahead['Location']) || isset($ahead['Content-Location'])) && empty($gtiWrongHeader) && $RedirectsDone<$gMaxRedirects){
//Prepare Redirection URL
$loc = isset($ahead['Location'])?$ahead['Location']:$ahead['Content-Location'];
if((strpos($loc, '://'))===false){
$loc = $gtsHost.'/'.ltrim($loc, '/');
}
$location = htCanonicalizeURL($loc);
$locparsed = htParseURL($location);
if($locparsed['host'] != $gtsHost){
//Reject Redirections To Foreign Hosts
$gtiWrongHeader=2;
}else{
//Mark to Redirect
$gtDoRedirect = $location.(($loc{strlen($loc)-1}=='/') ? '/':'');
$RedirectsDone++;
}
}
//Set Cookie
htProcCookieSet($string);
//Determine End of Header
if(preg_match("/^\r?\n$/", $string)){
$gHeaderWrited = 1;
if(!empty($gtiWrongHeader)){
$length = 0;
}
}
$gResponceContent['Header'] .= $string;
return $length;
}
/*=========================================*/
function htReadBody($ch, $string) {
Global $gResponceContent, $gtiMaxSize, $gtMaxWrited, $gtiWrongHeader, $gtDoRedirect, $gbIncludeBody;//Internal
$length = strlen($string);
$gtMaxWrited = 0;
//Reject Pages Which Headers Don't Satisfy General Conditions
if(isset($gtiWrongHeader) && ($gtiWrongHeader == 1 || $gtiWrongHeader == 2)){
$length = 0;
}
//Return on Header-Redirection Event
if(!empty($gtDoRedirect)){
$length = 0;
}
/** Some servers do not allow HEAD requests
* Return on not required body
*/
if(empty($gbIncludeBody)){
$length = 0;
}
if(!empty($length)){
$gResponceContent['Body'] .= $string;
}
//Reject Pages With Size Greater Than MaxSize
if(!empty($gtiMaxSize) && $gtiMaxSize < strlen($gResponceContent['Body'])){
$gResponceContent['Body'] = substr($gResponceContent['Body'], 0, $gtiMaxSize);
$gtMaxWrited = 1;
$length = 0;
}
return $length;
}
/*=========================================*/
function htProcSockCont($string, $IncludeBody) {
Global $gResponceContent, $gtiWrongHeader, $gHeaderWrited;//Internal
$tReturn = 1;
$tLength = 0;
//Determine New Analyze
if(empty($gResponceContent['Header']) && empty($gResponceContent['Body'])){
$gHeaderWrited=0;
}
if(empty($gHeaderWrited)){
//Process Header Content
$tLength = htReadHeader('', $string);
}else{
//Process Body Content
if($IncludeBody != false && !(isset($gtiWrongHeader) && ($gtiWrongHeader == 1 || $gtiWrongHeader == 2))){
$tLength = htReadBody('', $string);
}
}
//Make Comparison For Determine Header or Body Process Error
if(strlen($string) != $tLength){
$tReturn = 0;
}
return $tReturn;
}
/*=========================================*/
function htProcCookieSet($HeadStr) {
Global $gCookie;
if(!isset($gCookie)){$gCookie = array();}
$pos = strpos(trim(strtolower($HeadStr)), 'set-cookie');
if($pos !== false && $pos == 0){
$Coo = explode(';', trim(substr($HeadStr, (strpos($HeadStr, ':')+1))));
if(sizeof($Coo) > 0 && strlen(trim($Coo[0])) > 0 && strpos(trim($Coo[0]), '=') > 0){
foreach($Coo AS $key => $value){
$pos = strpos($value, '=');
if($pos > 0){
$key1 = trim(substr($value, 0, $pos));
$val1 = trim(substr($value, ($pos+1), strlen($value)));
if($key == 0){
if(isset($gCookie[$key1])){
unset($gCookie[$key1]);
}
if($val1 != ''){
$CooName = $key1;
$gCookie[$CooName]['value'] = $val1;
}else{
continue;
}
}elseif(!empty($val1) && !empty($CooName)){
if($key1 == 'expires'){
$val1 = dtStrToTime($val1);
}
$gCookie[$CooName][$key1] = $val1;
}
}
}
}
}
return;
}
/*=========================================*/
function htProcCookieGet($URL) {
Global $gCookie;
if(!isset($gCookie)){$gCookie = array();}
$tReturn = '';
if(!empty($gCookie)){
$Prsd = '';
$Coo = array();
foreach($gCookie AS $key => $value){
if(!empty($gCookie[$key]['expires'])){
if($gCookie[$key]['expires'] <= time()){
unset($gCookie[$key]);
continue;
}
}
if(!empty($gCookie[$key]['domain'])){
if(empty($Prsd)){$Prsd = htParseURL($URL);}
if(empty($Prsd) || !preg_match('/'.preg_quote($gCookie[$key]['domain'], '/').'$/i', $Prsd['host'])){
continue;
}
}
if(!empty($gCookie[$key]['path'])){
if(empty($Prsd)){$Prsd = htParseURL($URL);}
if(empty($Prsd) || !preg_match('/^'.preg_quote($gCookie[$key]['path'], '/').'/', $Prsd['path'])){
continue;
}
}
$Coo[] = $key.'='.$gCookie[$key]['value'];
}
if(!empty($Coo)){
$tReturn = implode('; ', $Coo);
}
}
return $tReturn;
}
/*=========================================*/
//Get Response Headers
function htGetResponseHeaders($text) {
//text - text of response (STR)
$ahead=array();
$repl=strpos($text, "\r\n\r\n");
if($repl!==false){
$text=substr($text, 0, $repl);
}else{
$repl=strpos($text, "\n\n");
if($repl!==false){
$text=substr($text, 0, $repl);
}
}
$atmp=explode("\n", $text);
foreach($atmp as $key=>$value){
if($key==0){
if(preg_match("/HTTP\/1\.(0|1) ([\d]{3})/i", $text, $areg)){
$ahead['Status']=$areg[2];
}else{//error
return 0;
}
}else{
$afield=array();
$afield=explode(': ', $value);
if(isset($afield[1])){
$ahead[$afield[0]]=$afield[1];
}
}
}
return $ahead;
}
/*=========================================*/
function erGetMicroTime(){
list($usec, $sec)=explode(' ', microtime());
return ((float)$usec+(float)$sec);
}
/*=========================================*/
function dtStrToTime($str, $mode=0, $action=0){
global $gUTC, $gCurUTC;
//Check Date
if(preg_match("/(\d{4}\-\d{2}\-\d{2})T(\d{2}\:\d{2}\:\d{2})Z/i", $str, $ar)){
$tstamp=strtotime($ar[1].' '.$ar[2]);
}elseif(preg_match("/(\d{4})\-(\d{2})\-(\d{2})T(\d{2})\:(\d{2})\:(\d{2})(\+|\-)(\d{2})\:(\d{2})/i", $str, $ar)){
if($ar[7]=='+'){
$ar[8]='-'.$ar[8];
$ar[9]='-'.$ar[9];
}
$tstamp=gmmktime($ar[4]+$ar[8], $ar[5]+$ar[9], $ar[6], $ar[2], $ar[3], $ar[1]);
}else{
if($str=='now'){
$tstamp=time();
$mode=0;
}else{
$tstamp=strtotime($str);
}
}
if($mode==1){
$tstamp=$tstamp-$gUTC;
}elseif($mode==2){
$tstamp=$tstamp+$gUTC;
}
if(!empty($action) && $action == 1){
$tstamp = $tstamp - $gCurUTC;
$tstamp = $tstamp - dtGetDayLightSave($tstamp);
}elseif(!empty($action) && $action == 2){
$tstamp = $tstamp + $gCurUTC;
$tstamp = $tstamp + dtGetDayLightSave($tstamp);
}
return $tstamp;
}
/*=========================================*/
function dtGetDayLightSave($tunix=0){
Global $gSetDayLghtSave;
$DLST = 0;
if(empty($gSetDayLghtSave)){
return $DLST;
}
if(empty($tunix)){
$tunix = time();
}
$DLST = gmdate('I', $tunix);
if(empty($DLST)){
$tY = gmdate('Y', $tunix);
$tM = array(3,10);
foreach($tM AS $key => $value){
for($i=31; $i>0; $i--){
$tT = gmmktime(3, 0, 1, $value, $i, $tY);
if(gmdate('w', $tT) == 0){
$tM[$key]=$tT;
unset($tT);
break;
}
}
}
//$tT = time();
$tT = $tunix;
if($tT > $tM[0] && $tT < $tM[1]){
$DLST=1;
}
unset($tM, $tT, $tY);
}
$DLST = $DLST*3600;
return $DLST;
}
/*=========================================*/
?>