function HTTP_Send($Target, $Settings, $Get = array(), $Post = array(), $Addins = array())
{
/******************************************************************************/
$__args_types = array('string', 'array', 'array', 'string,array', 'array');
#-------------------------------------------------------------------------------
$__args__ = Func_Get_Args();
eval(FUNCTION_INIT);
/******************************************************************************/
$Default = array('Protocol' => 'tcp', 'Address' => 'localhost', 'Port' => 8080, 'Host' => 'localhost', 'Basic' => '', 'Charset' => 'UTF-8', 'Hidden' => '', 'IsLogging' => TRUE);
#-------------------------------------------------------------------------------
Array_Union($Default, $Settings);
#-------------------------------------------------------------------------------
$IsLogging = (bool) $Default['IsLogging'];
#-------------------------------------------------------------------------------
$Tmp = System_Element('tmp');
if (Is_Error($Tmp)) {
return ERROR | @Trigger_Error('[HTTP_Send]: не удалось определить путь временной директории');
}
#-------------------------------------------------------------------------------
$Config = Config();
#-------------------------------------------------------------------------------
$Address = $Default['Address'];
#-------------------------------------------------------------------------------
Debug(SPrintF('[HTTP_Send]: соединяемся с (%s:%u)', $Address, $Default['Port']));
#-------------------------------------------------------------------------------
# https://bugs.php.net/bug.php?id=52913
# пришлось заменить: $Address -> $Default['Host']
$Socket = @FsockOpen(SPrintF('%s://%s', $Protocol = $Default['Protocol'], $Default['Host']), $Port = $Default['Port'], $nError, $sError, $Config['Other']['Libs']['HTTP']['SocketTimeout']);
if (!Is_Resource($Socket)) {
#-------------------------------------------------------------------------------
$IsWrite = IO_Write(SPrintF('%s/logs/http-send.log', $Tmp), SPrintF("%s://%s:%u ошибка соединения\n\n", $Protocol, $Address, $Port));
if (Is_Error($IsWrite)) {
return ERROR | @Trigger_Error('[HTTP_Send]: не удалось записать данные в лог файл');
}
#-------------------------------------------------------------------------------
return ERROR | @Trigger_Error('[HTTP_Send]: не удалось соединиться с удаленным хостом');
#-------------------------------------------------------------------------------
}
#-------------------------------------------------------------------------------
# added by lissyara, 2012-01-04 in 08:42:54 MSK, for JBS-130
Stream_Set_TimeOut($Socket, $Config['Other']['Libs']['HTTP']['StreamTimeout']);
#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
$Charset = $Default['Charset'];
#-------------------------------------------------------------------------------
$Method = Count($Post) > 0 ? 'POST' : 'GET';
#-------------------------------------------------------------------------------
$Hidden = $Default['Hidden'];
#-------------------------------------------------------------------------------
if (Count($Get)) {
$Target .= SPrintF('?%s', HTTP_Query($Get, $Charset, $Hidden, $IsLogging));
}
#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
$Headers[] = SPrintF('%s %s HTTP/1.0', $Method, $Target);
#-------------------------------------------------------------------------------
$Headers[] = SPrintF('Host: %s', $Default['Host']);
#-------------------------------------------------------------------------------
$Headers[] = 'Connection: close';
#-------------------------------------------------------------------------------
$Headers = Array_Merge($Headers, $Addins);
#-------------------------------------------------------------------------------
if ($Basic = $Default['Basic']) {
#-------------------------------------------------------------------------------
$Basic = Base64_Encode($Basic);
#-------------------------------------------------------------------------------
$Headers[] = SPrintF('Authorization: Basic %s', $Basic);
#-------------------------------------------------------------------------------
}
#-------------------------------------------------------------------------------
$Body = '';
#-------------------------------------------------------------------------------
if ($Post) {
#-------------------------------------------------------------------------------
if (Is_Array($Post)) {
#-------------------------------------------------------------------------------
if (Count($Post) > 0) {
#-------------------------------------------------------------------------------
$Headers[] = 'Content-Type: application/x-www-form-urlencoded';
#-------------------------------------------------------------------------------
$Body = HTTP_Query($Post, $Charset, $Hidden, $IsLogging);
#-------------------------------------------------------------------------------
}
#-------------------------------------------------------------------------------
} else {
#-------------------------------------------------------------------------------
$Body = Mb_Convert_Encoding($Post, $Charset);
#-------------------------------------------------------------------------------
}
#-------------------------------------------------------------------------------
}
#-------------------------------------------------------------------------------
if ($Length = MB_StrLen($Body, 'ASCII')) {
$Headers[] = SPrintF('Content-Length: %u', $Length);
}
#-------------------------------------------------------------------------------
$Query = SPrintF("%s\r\n\r\n%s", Implode("\r\n", $Headers), $Body);
#-------------------------------------------------------------------------------
Debug(SPrintF("[HTTP_Send]: делаем запрос:\n%s", $Query));
#-------------------------------------------------------------------------------
if (!@Fwrite($Socket, $Query)) {
return ERROR | @Trigger_Error('[HTTP_Send]: не удалось записать в сокет');
}
#-------------------------------------------------------------------------------
# added by lissyara, 2014-01-28 in 14:19:08 MSK, for JBS-130
Stream_Set_TimeOut($Socket, $Config['Other']['Libs']['HTTP']['StreamTimeout']);
#-------------------------------------------------------------------------------
$Receive = '';
#-------------------------------------------------------------------------------
do {
#-------------------------------------------------------------------------------
$Bytes = @FGets($Socket);
#-------------------------------------------------------------------------------
$Receive .= $Bytes;
#-------------------------------------------------------------------------------
} while ($Bytes);
#-------------------------------------------------------------------------------
@Fclose($Socket);
#-------------------------------------------------------------------------------
if (Preg_Match('/Content-Type:[\\sa-zA-Z0-9\\/\\-\\;]+charset\\=([a-zA-Z0-9\\-]+)/i', $Receive, $Matches)) {
#-------------------------------------------------------------------------------
$Receive = Mb_Convert_Encoding($Receive, 'UTF-8', Next($Matches));
#-------------------------------------------------------------------------------
} else {
#-------------------------------------------------------------------------------
$Receive = Mb_Convert_Encoding($Receive, 'UTF-8', $Default['Charset']);
#-------------------------------------------------------------------------------
}
#-------------------------------------------------------------------------------
Debug(SPrintF("[HTTP_Send]: получили ответ:\n%s", $Receive));
#-------------------------------------------------------------------------------
$Log = SPrintF("%s://%s:%u [%s]\n%s\n%s\n\n", $Protocol, $Address, $Port, Date('r'), $Query, $Receive);
#-------------------------------------------------------------------------------
if ($Hidden) {
#-------------------------------------------------------------------------------
if (!Is_Array($Hidden)) {
$Hidden = array($Hidden);
}
#-------------------------------------------------------------------------------
foreach ($Hidden as $Pattern) {
#-------------------------------------------------------------------------------
$Pattern = UrlEncode(Mb_Convert_Encoding($Pattern, $Charset));
#-------------------------------------------------------------------------------
$Log = Str_Replace($Pattern, SPrintF('[HIDDEN=(%u)]', StrLen($Pattern)), $Log);
#-------------------------------------------------------------------------------
}
#-------------------------------------------------------------------------------
}
#-------------------------------------------------------------------------------
if ($Default['IsLogging']) {
#-------------------------------------------------------------------------------
$IsWrite = IO_Write(SPrintF('%s/logs/http-send.log', $Tmp), $Log);
if (Is_Error($IsWrite)) {
return ERROR | @Trigger_Error('[HTTP_Send]: не удалось записать данные в лог файл');
}
#-------------------------------------------------------------------------------
}
#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
$Heads = $Body = array();
#-------------------------------------------------------------------------------
foreach (Explode("\r\n\r\n", $Receive) as $Chunk) {
#-------------------------------------------------------------------------------
if (Preg_Match('#^HTTP/1\\.*#', $Chunk)) {
#-------------------------------------------------------------------------------
$Heads[] = $Chunk;
#-------------------------------------------------------------------------------
} else {
#-------------------------------------------------------------------------------
$Body[] = $Chunk;
#-------------------------------------------------------------------------------
}
#-------------------------------------------------------------------------------
}
#-------------------------------------------------------------------------------
if (SizeOf($Body) < 1) {
return ERROR | @Trigger_Error('[HTTP_Send]: ответ от сервера не верен');
}
#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
return array('Heads' => Implode("\r\n\r\n", $Heads), 'Body' => Implode("\r\n\r\n", $Body));
#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
#$Receive = Preg_Split('/\r\n\r\n/',$Receive,PREG_SPLIT_DELIM_CAPTURE);
#-------------------------------------------------------------------------------
#if(Count($Receive) < 2)
# return ERROR | @Trigger_Error('[HTTP_Send]: ответ от сервера не верен');
#-------------------------------------------------------------------------------
#$Receive = Array_Combine(Array('Heads','Body'),$Receive);
#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
#return $Receive;
#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
}
function HTMLDoc_CreatePDF($ModeID, $HTML, $Prefix = '/')
{
/****************************************************************************/
$__args_types = array('string', 'string,object', 'string');
#-----------------------------------------------------------------------------
$__args__ = Func_Get_Args();
eval(FUNCTION_INIT);
/****************************************************************************/
if (Is_Object($HTML)) {
#---------------------------------------------------------------------------
$Tables = $HTML->GetByTagName('TABLE');
#---------------------------------------------------------------------------
for ($i = 0; $i < Count($Tables); $i++) {
#-------------------------------------------------------------------------
$Table =& $Tables[$i];
#-------------------------------------------------------------------------
switch (@$Table->Attribs['class']) {
case 'Standard':
$Table->AddAttribs(array('border' => 2, 'cellspacing' => 0, 'cellpadding' => 5), TRUE);
break;
default:
# No more...
}
}
#---------------------------------------------------------------------------
$Tds = $HTML->GetByTagName('TD');
#---------------------------------------------------------------------------
for ($i = 0; $i < Count($Tds); $i++) {
#-------------------------------------------------------------------------
$Td =& $Tds[$i];
#-------------------------------------------------------------------------
switch (@$Td->Attribs['class']) {
case 'Head':
$Td->AddAttribs(array('bgcolor' => '#ADC1F0'), TRUE);
break;
case 'Separator':
$Td->AddAttribs(array('bgcolor' => '#EAEAEA'), TRUE);
break;
default:
# No more...
}
}
#---------------------------------------------------------------------------
$Imgs = $HTML->GetByTagName('IMG');
#---------------------------------------------------------------------------
for ($i = 0; $i < Count($Imgs); $i++) {
#-------------------------------------------------------------------------
$Img =& $Imgs[$i];
#-------------------------------------------------------------------------
$Img->AddAttribs(array('src' => SPrintF('%s/%s', $Prefix, $Img->Attribs['src'])), TRUE);
}
#---------------------------------------------------------------------------
$HTML = $HTML->Build();
}
#-----------------------------------------------------------------------------
$Config = Config();
#-----------------------------------------------------------------------------
$Settings = $Config['HTMLDOC'];
#-----------------------------------------------------------------------------
$Modes = $Settings['Modes'];
#-----------------------------------------------------------------------------
$Mode = isset($Modes[$ModeID]) ? $Modes[$ModeID] : $ModeID;
#-----------------------------------------------------------------------------
$Tmp = System_Element('tmp');
if (Is_Error($Tmp)) {
return ERROR | @Trigger_Error('[HTMLDoc_CreatePDF]: временная папка не найдена');
}
#-----------------------------------------------------------------------------
$Logs = SPrintF('%s/logs', $Tmp);
#-----------------------------------------------------------------------------
if (!File_Exists($Logs)) {
#---------------------------------------------------------------------------
if (!@MkDir($Logs, 0777, TRUE)) {
return ERROR | @Trigger_Error(500);
}
}
#-----------------------------------------------------------------------------
$HTML = @Mb_Convert_Encoding($HTML, $Settings['ConvertToCharset']);
if (!$HTML) {
return ERROR | @Trigger_Error('[HTMLDoc_CreatePDF]: не удалось преобразовать кодировку');
}
#-----------------------------------------------------------------------------
$UniqID = UniqID('HTMLDOC');
#-----------------------------------------------------------------------------
$File = IO_Write($Path = SPrintF('%s/%s', $Tmp, $UniqID), $HTML);
Debug($File);
if (Is_Error($File)) {
return ERROR | @Trigger_Error('[HTMLDoc_CreatePDF]: не удалось создать временный файл');
}
#-----------------------------------------------------------------------------
$Command = SPrintF('htmldoc %s %s', $Mode, $Path);
#-----------------------------------------------------------------------------
Debug($Command);
#-----------------------------------------------------------------------------
if (!PutENV('HTMLDOC_NOCGI=1')) {
return ERROR | @Trigger_Error('[HTMLDoc_CreatePDF]: не удалось установить переменную окружения HTMLDOC_NOCGI');
}
#-----------------------------------------------------------------------------
$HTMLDOC = @Proc_Open($Command, array(array('pipe', 'r'), array('pipe', 'w'), array('file', $Log = SPrintF('%s/HTMLDOC.log', $Logs), 'a')), $Pipes);
if (!Is_Resource($HTMLDOC)) {
return ERROR | @Trigger_Error('[HTMLDoc_CreatePDF]: не удалось открыть процесс');
}
#-----------------------------------------------------------------------------
$StdOut =& $Pipes[1];
#-----------------------------------------------------------------------------
$Result = '';
#-----------------------------------------------------------------------------
while (!Feof($StdOut)) {
$Result .= FRead($StdOut, 1024);
}
#-----------------------------------------------------------------------------
Proc_Close($HTMLDOC);
#-----------------------------------------------------------------------------
if (!UnLink($Path)) {
return ERROR | @Trigger_Error('[HTMLDoc_CreatePDF]: не удалось удалить временный файл');
}
#-----------------------------------------------------------------------------
if (!$Result) {
return ERROR | @Trigger_Error(SPrintF('[HTMLDoc_CreatePDF]: ошибка формирования PDF, смотрите (%s)', $Log));
}
#-----------------------------------------------------------------------------
return $Result;
}
return ERROR | @Trigger_Error(500);
}
#---------------------------------------------------------------------------
if (!Count($dMessages)) {
continue;
}
#---------------------------------------------------------------------------
$Messages = new Tag('Messages');
#---------------------------------------------------------------------------
foreach ($dMessages as $dMessage) {
#-------------------------------------------------------------------------
foreach (Array_Keys($dMessage) as $ColumnID) {
#-----------------------------------------------------------------------
$Column =& $dMessage[$ColumnID];
#-----------------------------------------------------------------------
$Column = Mb_Convert_Encoding($Column, 'UTF-8', $Charset);
}
#-------------------------------------------------------------------------
$Message = new Tag('Message');
#-------------------------------------------------------------------------
$Message->AddChild(new Tag('CreateDate', $dMessage['thedate']));
$Message->AddChild(new Tag('IsSupport', $dMessage['thetype'] != 'CUSTOMER' ? 1 : 0));
$Message->AddChild(new Tag('Content', Base64_Encode($dMessage['comments'])));
#-------------------------------------------------------------------------
$Messages->AddChild($Message);
}
#---------------------------------------------------------------------------
$Ticket->AddChild($Messages);
#---------------------------------------------------------------------------
$Tickets->AddChild($Ticket);
}
Debug("[comp/Tasks/ICQ]: login return false, error is '" . $WebIcqLite->error . "'");
unset($Links[$LinkID]);
#-------------------------------------------------------------------------
return 3600;
case 'true':
# No more...
Debug("[comp/Tasks/ICQ]: Connect to ICQ service is OK");
break;
default:
return ERROR | @Trigger_Error(101);
}
}
#-------------------------------------------------------------------------------
$WebIcqLite =& $Links[$LinkID];
#-------------------------------------------------------------------------------
$Message = Mb_Convert_Encoding($Message, $Settings['Params']['Encoding']);
# переводы строк
$Message = Str_Replace("\r", "", $Message);
$Message = Str_Replace("\n", "\n\r", $Message);
#-------------------------------------------------------------------------------
$IsMessage = $WebIcqLite->send_message((int) $UIN, $Message);
if (Is_Error($IsMessage)) {
#-----------------------------------------------------------------------------
unset($Links[$LinkID]);
#-----------------------------------------------------------------------------
Debug("[comp/Tasks/ICQ]: error sending message, error is '" . $WebIcqLite->error . "'");
#-----------------------------------------------------------------------------
return 3600;
}
#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
