#-----------------------------------------------------------------------------
$Result = $Link->Query(SPrintF("SELECT SUM(`bonus`) as `Balance` FROM `partner` WHERE `userid` = %u", $dUser['ID']));
if (Is_Error($Result)) {
return $Link->GetError();
}
#-----------------------------------------------------------------------------
$dBonuses = MySQL::Result($Result);
if (Is_Error($dBonuses)) {
return ERROR | @Trigger_Error(500);
}
#-----------------------------------------------------------------------------
$dBonuse = Current($dBonuses);
#-----------------------------------------------------------------------------
$Contract->AddChild(new Tag('Balance', Round($Result['Balance'] * $Course)));
#-----------------------------------------------------------------------------
$Contracts->AddChild($Contract);
#-----------------------------------------------------------------------------
$User->AddChild($Contracts);
#-----------------------------------------------------------------------------
$Users->AddChild($User);
}
#-------------------------------------------------------------------------------
$Dump = $Users->ToXMLString();
#-------------------------------------------------------------------------------
$IsWrite = IO_Write('/work/ClientExec.xml.gz', GzEncode($Dump), TRUE);
if (Is_Error($IsWrite)) {
return ERROR | @Trigger_Error(500);
}
#-------------------------------------------------------------------------------
return 'Ok';
#-------------------------------------------------------------------------------
case 'array':
$Result = JSON_Encode($Result);
case 'string':
#---------------------------------------------------------------------------
if (!Headers_Sent()) {
#-------------------------------------------------------------------------
list($Micro, $Seconds) = Explode(' ', MicroTime());
#-------------------------------------------------------------------------
Header(SPrintF('Waiting-Time: %01.2f sec', (double) $Micro + (double) $Seconds - START_TIME));
#-------------------------------------------------------------------------
$Size = MB_StrLen($Result, 'ASCII');
#-------------------------------------------------------------------------
if ($Size > 30720 && Preg_Match('/gzip/', (string) @$_SERVER['HTTP_ACCEPT_ENCODING'])) {
#-----------------------------------------------------------------------
Header(SPrintF('Real-Content-Length: %u', $Size));
#-----------------------------------------------------------------------
$Result = GzEncode($Result);
#-----------------------------------------------------------------------
Header('Content-Encoding: gzip');
Header(SPrintF('Content-Length: %u', MB_StrLen($Result, 'ASCII')));
}
}
#---------------------------------------------------------------------------
echo $Result;
break;
default:
# No more...
}
#-------------------------------------------------------------------------------
return TRUE;
#-------------------------------------------------------------------------------
$Ticket->AddChild($Messages);
#---------------------------------------------------------------------------
$Tickets->AddChild($Ticket);
}
#-----------------------------------------------------------------------------
$User->AddChild($Tickets);
#-----------------------------------------------------------------------------
$Users->AddChild($User);
}
#-------------------------------------------------------------------------------
$Dump = $Users->ToXMLString();
#-------------------------------------------------------------------------------
$Tmp = System_Element('tmp');
if (Is_Error($Tmp)) {
return ERROR | @Trigger_Error(500);
}
#-------------------------------------------------------------------------------
$File = SPrintF('Bpanel[%s%s].xml.gz', Md5($_SERVER['REMOTE_ADDR']), Date('d.m.Y'));
#-------------------------------------------------------------------------------
$IsWrite = IO_Write(SPrintF('%s/files/%s', $Tmp, $File), GzEncode($Dump), TRUE);
if (Is_Error($IsWrite)) {
return ERROR | @Trigger_Error(500);
}
#-------------------------------------------------------------------------------
echo SPrintF('<A href="/GetTemp?File=%s&Name=Bpanel.xml.gz&Mime=application/gzip">[Сохранить файл базы данных]</A>', $File);
#-------------------------------------------------------------------------------
echo <<<EOD
</BODY>
</HTML>
EOD;
#-------------------------------------------------------------------------------
