Передача данных на сервер веб-сокетов с переполнением стека

Мое исправление

<?PHP
$host = '127.0.0.1';  //where is the websocket server
$port = 10000;

$origin = "http://".$host."";  //url where this script run


// Generate the WebSocket key.
$key = generateKey();
//echo 'key: '.$key.'<br>';

$user_name='SERVER';
$user_message=$_GET['msg'];//'server side client message';
$user_color="000000";

$data =json_encode(array('type'=>'usermsg', 'name'=>$user_name, 'message'=>$user_message, 'color'=>$user_color));
$data =hybi10Encode($data);

$head = "GET / HTTP/1.1\r\n".
"Upgrade: websocket\r\n".
"Connection: Upgrade\r\n".
"Host: $host:$port\r\n".
"Origin: $origin\r\n".
"Sec-WebSocket-Key: $key\r\n".
"Sec-WebSocket-Version: 13\r\n\r\n";

if($sock = fsockopen($host, $port, $errno, $errstr)){

fwrite($sock, $head);
$header = fread($sock, 2000);
//echo nl2br($header).'<br/><br/>';
//echo 'handshake finished<br/>';

$headers = array();
$lines = preg_split("/\r\n/", $header);

//echo '<br>'.$lines[5].'<br>';
foreach($lines as $line)
{
$line = chop($line);
if(preg_match('/\A(\S+):(.*)\z/', $line, $matches))
{
$headers[$matches[1]] = $matches[2];
}
}


if($headers['Sec-WebSocket-Accept']===false){
//if (!preg_match('#Sec-WebSocket-Accept:\s(.*)$#mUi', $headers, $matches)) {
echo "Connection failed: Server sent invalid upgrade response:\n" . $headers.'<br>';
}else{
//$keyAccept = trim($headers['Sec-WebSocket-Accept']);
$keyAccept = $headers['Sec-WebSocket-Accept'];

//echo 'keyAccept: '.$keyAccept.'<br>';
//echo "Connection succefull: Server sent valid upgrade response:\n" . $keyAccept.'<br>';;

$expectedResonse = base64_encode(pack('H*', sha1($key . '258EAFA5-E914-47DA-95CA-C5AB0DC85B11')));

//echo "Connection succefull: Server sent valid upgrade response:\n" . $keyAccept.'<br>';;
if ($keyAccept !== $expectedResonse) {
//echo 'Server sent bad upgrade response.'.'<br>';
//echo "ExpectedResonse $expectedResonse".'<br>';
//echo "keyAccept ". $keyAccept.'<br>';
echo 0;

}else{
echo 1;
//echo 'Server sent correct upgrade response.'.'<br>';
//echo '<br/>sending data: '.$data.'<br/>';
fwrite($sock, $data ) or die('error:'.$errno.':'.$errstr); //Server ignores this message

$wsdata = fread($sock, 2000);
//var_dump(hybi10Decode($wsdata));

}
}
//echo 'closing...';
fclose($sock);

}else{
echo 'fsockopen failed';
}



/**
* Generate a random string for WebSocket key.
* @return string Random string
*/
function generateKey() {
$chars = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!"$&/()=[]{}0123456789';
$key = '';
$chars_length = strlen($chars);
for ($i = 0; $i < 16; $i++) $key .= $chars[mt_rand(0, $chars_length-1)];
return base64_encode($key);
}


function hybi10Decode($data)
{
$bytes = $data;
$dataLength = '';
$mask = '';
$coded_data = '';
$decodedData = '';
$secondByte = sprintf('%08b', ord($bytes[1]));
$masked = ($secondByte[0] == '1') ? true : false;
$dataLength = ($masked === true) ? ord($bytes[1]) & 127 : ord($bytes[1]);

if($masked === true)
{
if($dataLength === 126)
{
$mask = substr($bytes, 4, 4);
$coded_data = substr($bytes, 8);
}
elseif($dataLength === 127)
{
$mask = substr($bytes, 10, 4);
$coded_data = substr($bytes, 14);
}
else
{
$mask = substr($bytes, 2, 4);
$coded_data = substr($bytes, 6);
}
for($i = 0; $i < strlen($coded_data); $i++)
{
$decodedData .= $coded_data[$i] ^ $mask[$i % 4];
}
}
else
{
if($dataLength === 126)
{
$decodedData = substr($bytes, 4);
}
elseif($dataLength === 127)
{
$decodedData = substr($bytes, 10);
}
else
{
$decodedData = substr($bytes, 2);
}
}

return $decodedData;
}


function hybi10Encode($payload, $type = 'text', $masked = true) {
$frameHead = array();
$frame = '';
$payloadLength = strlen($payload);

switch ($type) {
case 'text':
// first byte indicates FIN, Text-Frame (10000001):
$frameHead[0] = 129;
break;

case 'close':
// first byte indicates FIN, Close Frame(10001000):
$frameHead[0] = 136;
break;

case 'ping':
// first byte indicates FIN, Ping frame (10001001):
$frameHead[0] = 137;
break;

case 'pong':
// first byte indicates FIN, Pong frame (10001010):
$frameHead[0] = 138;
break;
}

// set mask and payload length (using 1, 3 or 9 bytes)
if ($payloadLength > 65535) {
$payloadLengthBin = str_split(sprintf('%064b', $payloadLength), 8);
$frameHead[1] = ($masked === true) ? 255 : 127;
for ($i = 0; $i < 8; $i++) {
$frameHead[$i + 2] = bindec($payloadLengthBin[$i]);
}

// most significant bit MUST be 0 (close connection if frame too big)
if ($frameHead[2] > 127) {
$this->close(1004);
return false;
}
} elseif ($payloadLength > 125) {
$payloadLengthBin = str_split(sprintf('%016b', $payloadLength), 8);
$frameHead[1] = ($masked === true) ? 254 : 126;
$frameHead[2] = bindec($payloadLengthBin[0]);
$frameHead[3] = bindec($payloadLengthBin[1]);
} else {
$frameHead[1] = ($masked === true) ? $payloadLength + 128 : $payloadLength;
}

// convert frame-head to string:
foreach (array_keys($frameHead) as $i) {
$frameHead[$i] = chr($frameHead[$i]);
}

if ($masked === true) {
// generate a random mask:
$mask = array();
for ($i = 0; $i < 4; $i++) {
$mask[$i] = chr(rand(0, 255));
}

$frameHead = array_merge($frameHead, $mask);
}
$frame = implode('', $frameHead);
// append payload to frame:
for ($i = 0; $i < $payloadLength; $i++) {
$frame .= ($masked === true) ? $payload[$i] ^ $mask[$i % 4] : $payload[$i];
}

return $frame;
}

?>