nelns/admin/public_html/las_connection.php

   1 <?php
   2 // NeL - MMORPG Framework <http://dev.ryzom.com/projects/nel/>
   3 // Copyright (C) 2010  Winch Gate Property Limited
   4 //
   5 // This program is free software: you can redistribute it and/or modify
   6 // it under the terms of the GNU Affero General Public License as
   7 // published by the Free Software Foundation, either version 3 of the
   8 // License, or (at your option) any later version.
   9 //
  10 // This program is distributed in the hope that it will be useful,
  11 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 // GNU Affero General Public License for more details.
  14 //
  15 // You should have received a copy of the GNU Affero General Public License
  16 // along with this program.  If not, see <http://www.gnu.org/licenses/>.
  17
  18         //include_once('../config.php');
  19
  20         // Functions
  21
  22         // This function connect to the LAS
  23         $LASPort = 49899;
  24         function connectToLAS($LASHost, &$fp, &$res)
  25         {
  26                 global $LASPort;
  27
  28                 // connect to the login service
  29                 $fp = fsockopen ($LASHost, $LASPort, $errno, $errstr, 30);
  30                 if (!$fp)
  31                 {
  32                         $res = "Can't connect to the log analyser service '$LASHost:$LASPort' ($errno: $errstr) (error code 1)";
  33                         return false;
  34                 }
  35                 else
  36                 {
  37                         $res = "";
  38                         return true;
  39                 }
  40         }
  41
  42         function disconnectFromLAS(&$fp)
  43         {
  44                 fclose($fp);
  45         }
  46
  47         function        logQuery($LASHost, $query, &$result, &$queryId)
  48         {
  49                 if (!connectToLAS($LASHost, $fp, $result))
  50                 {
  51                         $result = "Failed to connect to LAS $LASHost (ec 1)";
  52                         return false;
  53                 }
  54
  55                 // send the message that say that we want to add a user
  56                 $msgout = new CMemStream;
  57
  58                 $fake = 0;
  59                 $msgout->serialuint32 ($fake);                  // fake used to number the packet
  60
  61                 $messageType = 0;
  62                 $msgout->serialuint8 ($messageType);
  63
  64                 $msgout->serialstring($query);
  65
  66                 if (!sendMessage ($fp, $msgout))
  67                 {
  68                         $result = "Failed to send query to LAS $LASHost (ec 2)";
  69                         return false;
  70                 }
  71
  72                 if (!waitMessage ($fp, $msgin))
  73                 {
  74                         $result = "Failed to wait for LAS $LASHost (ec 3)";
  75                         return false;
  76                 }
  77
  78                 $result = '';
  79                 if (!$msgin->serialstring($result))
  80                 {
  81                         $result = "Failed to decode LAS message $LASHost (ec 4)";
  82                         return false;
  83                 }
  84
  85                 fclose ($fp);
  86
  87                 $pos = strpos($result, ':');
  88                 if ($pos === FALSE)
  89                 {
  90                         $result = "Failed to decode LAS message $LASHost (ec 5)";
  91                         return false;
  92                 }
  93
  94                 $success = (substr($result, 0, $pos) == '1');
  95
  96                 $result = substr($result, $pos+1);
  97
  98                 if ($success)
  99                 {
 100                         $pos = strpos($result, ':');
 101                         if ($pos == FALSE)
 102                         {
 103                                 $result = "Failed to decode LAS message $LASHost (ec 6)";
 104                                 return false;
 105                         }
 106
 107                         $queryId = substr($result, 0, $pos);
 108                         $result = substr($result, $pos+1);
 109                 }
 110
 111                 return $success;
 112         }
 113
 114         function        getQueryResult($LASHost, $id, &$result, &$page, &$numpages)
 115         {
 116                 if (!connectToLAS($LASHost, $fp, $result))
 117                 {
 118                         $result = "Failed to connect to LAS $LASHost (ec 7)";
 119                         return false;
 120                 }
 121
 122                 // send the message that say that we want to add a user
 123                 $msgout = new CMemStream;
 124
 125                 $fake = 0;
 126                 $msgout->serialuint32 ($fake);                  // fake used to number the packet
 127
 128                 $messageType = 1;
 129                 $msgout->serialuint8 ($messageType);
 130
 131                 $str = $id.":".$page;
 132                 $msgout->serialstring($str);
 133
 134                 if (!sendMessage ($fp, $msgout))
 135                 {
 136                         $result = "Failed to send query to LAS $LASHost (ec 8)";
 137                         return false;
 138                 }
 139
 140                 if (!waitMessage ($fp, $msgin))
 141                 {
 142                         $result = "Failed to wait for LAS $LASHost (ec 9)";
 143                         return false;
 144                 }
 145
 146                 $result = '';
 147                 if (!$msgin->serialstring($result))
 148                 {
 149                         $result = "Failed to decode LAS message $LASHost (ec 10)";
 150                         return false;
 151                 }
 152
 153                 fclose ($fp);
 154
 155                 $pos = strpos($result, ':');
 156                 if ($pos === FALSE)
 157                 {
 158                         $result = "Failed to decode LAS message $LASHost (ec 11)";
 159                         return false;
 160                 }
 161
 162                 $success = (substr($result, 0, $pos) == '1');
 163
 164                 if ($success)
 165                 {
 166                         ++$pos;
 167                         $npos = strpos($result, ':', $pos);
 168                         $numpages = substr($result, $pos, $npos-$pos);
 169                         ++$npos;
 170                         $pos = strpos($result, ':', $npos);
 171                         $page = substr($result, $npos, $pos-$npos);
 172
 173                         $result = substr($result, $pos+1);
 174                 }
 175                 else
 176                 {
 177                         $result = substr($result, $pos+1);
 178                 }
 179
 180                 return $success;
 181         }
 182
 183         function        displayLASQueries($LASHost, &$result)
 184         {
 185                 if (!connectToLAS($LASHost, $fp, $result))
 186                 {
 187                         $result = "Failed to connect to LAS $LASHost (ec 12)";
 188                         return false;
 189                 }
 190
 191                 // send the message that say that we want to add a user
 192                 $msgout = new CMemStream;
 193
 194                 $fake = 0;
 195                 $msgout->serialuint32 ($fake);                  // fake used to number the packet
 196
 197                 $messageType = 2;
 198                 $msgout->serialuint8 ($messageType);
 199
 200                 if (!sendMessage ($fp, $msgout))
 201                 {
 202                         $result = "Failed to send query to LAS $LASHost (ec 13)";
 203                         return false;
 204                 }
 205
 206                 if (!waitMessage ($fp, $msgin))
 207                 {
 208                         $result = "Failed to wait for LAS $LASHost (ec 14)";
 209                         return false;
 210                 }
 211
 212                 $result = '';
 213                 if (!$msgin->serialstring($result))
 214                 {
 215                         $result = "Failed to decode LAS message $LASHost (ec 15)";
 216                         return false;
 217                 }
 218
 219                 fclose ($fp);
 220
 221                 $pos = strpos($result, ':');
 222                 if ($pos === FALSE)
 223                 {
 224                         $result = "Failed to decode LAS message $LASHost (ec 16)";
 225                         return false;
 226                 }
 227
 228                 $success = (substr($result, 0, $pos) == '1');
 229
 230                 if ($success)
 231                 {
 232                         ++$pos;
 233                         $npos = strpos($result, "\n", $pos);
 234                         $result = substr($result, $npos);
 235                 }
 236                 else
 237                 {
 238                         $result = substr($result, $pos+1);
 239                 }
 240
 241                 return $success;
 242         }
 243 ?>