khanat-opennel-code/code/nelns/login_system/www/public_html/service_connection.php

300 lines
6.6 KiB
PHP
Raw Normal View History

2010-05-06 00:08:41 +00:00
<?php
include_once('../config.php');
// Functions
class CMemStream
{
var $Buffer;
var $InputStream;
var $Pos;
function CMemStream ()
{
$this->InputStream = false;
$this->Pos = 0;
}
function setBuffer ($buffer)
{
$this->InputStream = true;
$this->Buffer = $buffer;
$this->Pos = 0;
}
function isReading () { return $this->InputStream; }
function serialuint8 (&$val)
{
if ($this->isReading())
{
if ($this->Pos+1 > strlen($this->Buffer))
return false;
$val = ord($this->Buffer{$this->Pos++});
//printf ("read uint8 '%d'<br>", $val);
}
else
{
$this->Buffer .= chr($val & 0xFF);
$this->Pos++;
//printf ("write uint8 '%d' %d<br>", $val, $this->Pos);
}
return true;
}
function serialuint32 (&$val)
{
if ($this->isReading())
{
if ($this->Pos+4 > strlen($this->Buffer))
return false;
$val = ord($this->Buffer{$this->Pos++});
$val += ord($this->Buffer{$this->Pos++})<<8;
$val += ord($this->Buffer{$this->Pos++})<<16;
$val += ord($this->Buffer{$this->Pos++})<<32;
//printf ("read uint32 '%d'<br>", $val);
}
else
{
$this->Buffer .= chr($val & 0xFF);
$this->Buffer .= chr(($val>>8) & 0xFF);
$this->Buffer .= chr(($val>>16) & 0xFF);
$this->Buffer .= chr(($val>>24) & 0xFF);
$this->Pos += 4;
//printf ("write uint32 '%d' %d<br>", $val, $this->Pos);
}
return true;
}
function serialstring (&$val)
{
if ($this->isReading())
{
if (!$this->serialuint32($size))
return false;
if ($this->Pos+$size > strlen($this->Buffer))
return false;
$val = substr ($this->Buffer, $this->Pos, $size);
//printf ("read string '%s'<br>", $val);
$this->Pos += strlen($val);
}
else
{
$this->serialuint32(strlen($val));
$this->Buffer .= $val;
$this->Pos += strlen($val);
//printf ("write string '%s' %d<br>", $val, $this->Pos);
}
return true;
}
}
// This function connect to the LS, ask it if the user uid can connect
// to shard shardid and return a bool that say it s ok or not.
// If true, $res contains the url to connect.
// If false, $res contains the reason why it s not okay.
function connectToLS(&$fp, &$res)
{
global $LSHost, $LSPort;
// connect to the login service
$fp = fsockopen ($LSHost, $LSPort, $errno, $errstr, 30);
if (!$fp)
{
$res = "Can't connect to the login service '$LSHost:$LSPort' ($errno: $errstr) (error code 41)";
}
else
{
$res = "";
}
}
function sendMessage ($fp, $msgout)
{
$size = $msgout->Pos;
$buffer = chr(($size>>24)&0xFF);
$buffer .= chr(($size>>16)&0xFF);
$buffer .= chr(($size>>8)&0xFF);
$buffer .= chr($size&0xFF);
$buffer .= $msgout->Buffer;
if (!fwrite ($fp, $buffer))
return false;
//printf ("sent packet size '%d'<br>", strlen($buffer));
// strange but flush returns false even if it s ok
fflush ($fp);
return true;
}
function waitMessage ($fp, &$msgin)
{
//echo "waiting a message";
$size = 0;
$val = fread ($fp, 1);
if (feof ($fp)) return false;
$size = ord($val) << 24;
$val = fread ($fp, 1);
if (feof ($fp)) return false;
$size = ord($val) << 16;
$val = fread ($fp, 1);
if (feof ($fp)) return false;
$size += ord($val) << 8;
$val = fread ($fp, 1);
if (feof ($fp)) return false;
$size += ord($val);
//printf ("receive packet size '%d'<br>", $size);
$fake = fread ($fp, 4);
if (feof ($fp)) return false;
$size -= 4; // remove the fake
$buffer = fread ($fp, $size);
if (feof ($fp)) return false;
$msgin = new CMemStream;
$msgin->setBuffer ($buffer);
return true;
}
function askClientConnection ($shardid, $uid, $name, $priv, $extended, &$res, &$patchURLS)
{
$ok = false;
connectToLS($fp, $res);
if($res!="")
return $ok;
// send the message that say that we want to add a user
$msgout = new CMemStream;
$fake = 0;
$msgout->serialuint32 ($fake); // fake used to number the packet
$messageType = 0;
$msgout->serialuint8 ($messageType);
$msgout->serialuint32 ($shardid);
$msgout->serialuint32 ($uid);
$msgout->serialstring ($name);
$msgout->serialstring ($priv);
$msgout->serialstring ($extended);
if (!sendMessage ($fp, $msgout))
{
$res = "Can't send message connection to the Login Service (error code 42)";
return $ok;
}
if (!waitMessage ($fp, $msgin))
{
$res = "Can't receive the answer from the Login Service (error code 43)";
return $ok;
}
if (!$msgin->serialstring($reason))
{
$res = "Can't read the reason (error code 44)";
return $ok;
}
//printf("reason size %d", strlen($reason));
if(strlen($reason) == 0)
{
// it s ok, let's connect
if (!$msgin->serialstring($cookie))
{
$res = "Can't read the cookie (error code 45)";
return $ok;
}
if (!$msgin->serialstring($addr))
{
$res = "Can't read the addr (error code 46)";
return $ok;
}
$patchURLS = '';
/*
if (!$msgin->serialstring($patchURLS))
{
$patchURLS = '';
}
*/
$res = $cookie.' '.$addr;
$ok = true;
}
else
{
// can't accept it, display the error
// echo "Can't connect to the shard: $reason";
$res = $reason;
}
//printf("receive response '$reason' '$cookie' '$addr'<br>");
fclose ($fp);
//echo "sent OK.<br><br>";
return $ok;
}
// This function connect to the LS, ask the LS to disconnect the user
function disconnectClient($shardid, $uid, &$res)
{
$ok = false;
connectToLS($fp, $res);
if(strlen($res) != 0)
return $ok;
// send the message that say that we want to add a user
$msgout = new CMemStream;
$fake = 0;
$msgout->serialuint32 ($fake); // fake used to number the packet
$messageType = 1;
$msgout->serialuint8 ($messageType);
$msgout->serialuint32 ($shardid);
$msgout->serialuint32 ($uid);
if (!sendMessage ($fp, $msgout))
{
$res = "Can't send message disconnect to the Login Service (error code 47)";
return $ok;
}
if (!waitMessage ($fp, $msgin))
{
$res = "Can't receive the answer from the Login Service (error code 48)";
return $ok;
}
if (!$msgin->serialstring($res))
{
$res = "Can't read the string (error code 49)";
return $ok;
}
//printf("reason size %d", strlen($res));
//if(strlen($res) == 0)
{
$ok = true;
}
//printf("receive response '$reason' '$cookie' '$addr'<br>");
fclose ($fp);
//echo "sent OK.<br><br>";
return $ok;
}
?>