forked from GNUsocial/gnu-social
		
	
		
			
				
	
	
		
			2371 lines
		
	
	
		
			54 KiB
		
	
	
	
		
			PHP
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			2371 lines
		
	
	
		
			54 KiB
		
	
	
	
		
			PHP
		
	
	
		
			Executable File
		
	
	
	
	
| <?php
 | |
| /*
 | |
| *	PHPTOCLIB: A library for AIM connectivity through PHP using the TOC protocal.
 | |
| *
 | |
| *	This library is free software; you can redistribute it and/or
 | |
| *	modify it under the terms of the GNU Lesser General Public
 | |
| *	License as published by the Free Software Foundation; either
 | |
| *	version 2.1 of the License, or (at your option) any later version.
 | |
| *
 | |
| *	This library is distributed in the hope that it will be useful,
 | |
| *	but WITHOUT ANY WARRANTY; without even the implied warranty of
 | |
| *	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 | |
| *	Lesser General Public License for more details.
 | |
| *
 | |
| *	You should have received a copy of the GNU Lesser General Public
 | |
| *	License along with this library; if not, write to the Free Software
 | |
| *	Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 | |
| *
 | |
| */
 | |
| /**
 | |
| * The version of PHPTOCLIB we are running right now
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("PHPTOCLIB_VERSION","1.0.0 RC1");
 | |
| 
 | |
| // Prevents Script from Timing Out
 | |
| //set_time_limit(0);
 | |
| 
 | |
| // Constant Declarations
 | |
| 
 | |
| /**
 | |
| * Maximum size for a direct connection IM in bytes
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| 
 | |
| define("MAX_DIM_SIZE",3072); //Default to 3kb
 | |
| 
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_WARN",74);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_MSG",75);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_UPDATEBUDDY",76);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_SIGNON",77);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_NICK",78);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_ERROR",79);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_CHATJ",80);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_CHATI",81);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_CHATUPDBUD",82);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_CHATINV",83);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_CHATLE",84);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_URL",85);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_NICKSTAT",86);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_PASSSTAT",87);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_RVOUSP",88);
 | |
| /**
 | |
| * Internally used for message type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("AIM_TYPE_NOT_IMPLEMENTED",666);
 | |
| 
 | |
| 
 | |
| 
 | |
| /**
 | |
| * Internally used for connection type
 | |
| *
 | |
| * Internal type for a normal connection
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("CONN_TYPE_NORMAL",1);
 | |
| /**
 | |
| * Internally used for connection type
 | |
| *
 | |
| * Internal type of a Dirct Connection
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("CONN_TYPE_DC",2);
 | |
| /**
 | |
| * Internally used for connection type
 | |
| *
 | |
| *Internal type for a file transfer connection
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("CONN_TYPE_FT",3);
 | |
| /**
 | |
| * Internally used for connection type
 | |
| *
 | |
| *Internal type for a file get connection
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("CONN_TYPE_FTG",4);
 | |
| 
 | |
| /**
 | |
| * Maximum size for a TOC packet
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("MAX_PACKLENGTH",2048);
 | |
| 
 | |
| /**
 | |
| * TOC packet type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_TYPE_SIGNON",1);
 | |
| /**
 | |
| * TOC packet type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_TYPE_DATA",2);
 | |
| /**
 | |
| * TOC packet type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_TYPE_ERROR",3);
 | |
| /**
 | |
| * TOC packet type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_TYPE_SIGNOFF",4);
 | |
| /**
 | |
| * TOC packet type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_TYPE_KEEPALIVE",5);
 | |
| /**
 | |
| * TOC packet type
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_MAX_LENGTH",1024);
 | |
| 
 | |
| 
 | |
| 
 | |
| /**
 | |
| * Service UID for a voice connection
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define('VOICE_UID', '09461341-4C7F-11D1-8222-444553540000');
 | |
| /**
 | |
| * Service UID for file sending 
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define('FILE_SEND_UID', '09461343-4C7F-11D1-8222-444553540000');
 | |
| /**
 | |
| * Service UID for file getting
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define('FILE_GET_UID', '09461348-4C7F-11D1-8222-444553540000');
 | |
| /**
 | |
| * Service UID for Direct connections 
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define('IMAGE_UID', '09461345-4C7F-11D1-8222-444553540000');
 | |
| /**
 | |
| * Service UID for Buddy Icons
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define('BUDDY_ICON_UID', '09461346-4C7F-11D1-8222-444553540000');
 | |
| /**
 | |
| * Service UID for stocks
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define('STOCKS_UID', '09461347-4C7F-11D1-8222-444553540000');
 | |
| /**
 | |
| * Service UID for games
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define('GAMES_UID', '0946134a-4C7F-11D1-8222-444553540000');
 | |
| 
 | |
| /**
 | |
| * FLAP return code
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_SUCCESS",0);
 | |
| /**
 | |
| * FLAP return code
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_ERR_UNKNOWN",1);
 | |
| /**
 | |
| * FLAP return code
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_ERR_ARGS",2);
 | |
| /**
 | |
| * FLAP return code
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_ERR_LENGTH",3);
 | |
| /**
 | |
| * FLAP return code
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_ERR_READ",4);
 | |
| /**
 | |
| * FLAP return code
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_ERR_SEND",5);
 | |
| 
 | |
| /**
 | |
| * FLAP version number
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_FLAP_VERSION",1);
 | |
| /**
 | |
| * FLAP TLV code
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_TLV_TAG",1);
 | |
| /**
 | |
| * Bytes in a FLAP header
 | |
| *
 | |
| * @access private
 | |
| * @var int
 | |
| */
 | |
| define("SFLAP_HEADER_LEN",6);
 | |
| 
 | |
| /** 
 | |
|  * PHPTocLib AIM Class
 | |
|  *
 | |
|  * @author Jeremy Bryant <pickleman78@users.sourceforge.net>
 | |
|  * @author Rajiv Makhijani <rajiv@blue-tech.org>
 | |
|  * @package phptoclib
 | |
|  * @version 1.0RC1
 | |
|  * @copyright 2005
 | |
|  * @access public
 | |
|  *
 | |
|  */
 | |
| class Aim
 | |
| {
 | |
| 	/** 
 | |
| 	 * AIM ScreenName
 | |
| 	 *
 | |
| 	 * @var String
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myScreenName;
 | |
| 	
 | |
| 	/** 
 | |
| 	 * AIM Password (Plain Text)
 | |
| 	 *
 | |
| 	 * @var String
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myPassword;
 | |
| 	
 | |
| 
 | |
| 	/** 
 | |
| 	 * AIM TOC Server
 | |
| 	 *
 | |
| 	 * @var String
 | |
| 	 * @access public
 | |
| 	 */
 | |
| 	var $myServer="toc.oscar.aol.com";
 | |
| 	
 | |
| 	/** 
 | |
| 	 * AIM Formatted ScreenName
 | |
| 	 *
 | |
| 	 * @var String
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myFormatSN;
 | |
| 	
 | |
| 	/** 
 | |
| 	 * AIM TOC Server Port
 | |
| 	 *
 | |
| 	 * @var String
 | |
| 	 * @access public
 | |
| 	 */
 | |
| 	var $myPort="5190";
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Profile Data
 | |
| 	 * Use setProfile() to update
 | |
| 	 *
 | |
| 	 * @var String
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myProfile="Powered by phpTOCLib. Please visit http://sourceforge.net/projects/phptoclib for more information";     //The profile of the bot
 | |
| 
 | |
| 	/** 
 | |
| 	 * Socket Connection Resource ID
 | |
| 	 *
 | |
| 	 * @var Resource
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myConnection;  //Connection resource ID
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Roasted AIM Password
 | |
| 	 *
 | |
| 	 * @var String
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myRoastedPass;
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Last Message Recieved From Server
 | |
| 	 *
 | |
| 	 * @var String
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myLastReceived;
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Current Seq Number Used to Communicate with Server
 | |
| 	 *
 | |
| 	 * @var Integer
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $mySeqNum;
 | |
| 	 
 | |
| 	 /** 
 | |
| 	 * Current Warning Level
 | |
| 	 * Getter: getWarning()
 | |
| 	 * Setter: setWarning()
 | |
| 	 *
 | |
| 	 * @var Integer
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myWarnLevel;   //Warning Level of the bot
 | |
| 	
 | |
| 	 /** 
 | |
| 	 * Auth Code
 | |
| 	 *
 | |
| 	 * @var Integer
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myAuthCode;
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Buddies
 | |
| 	 * Getter: getBuddies()
 | |
| 	 *
 | |
| 	 * @var Array
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myBuddyList;
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Blocked Buddies
 | |
| 	 * Getter: getBlocked()
 | |
| 	 *
 | |
| 	 * @var Array
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myBlockedList;
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Permited Buddies
 | |
| 	 * Getter: getBlocked()
 | |
| 	 *
 | |
| 	 * @var Array
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myPermitList;
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Permit/Deny Mode
 | |
| 	 * 1 - Allow All
 | |
| 	 * 2 - Deny All
 | |
| 	 * 3 - Permit only those on your permit list
 | |
| 	 * 4 - Permit all those not on your deny list
 | |
| 	 *
 | |
| 	 * @var Integer
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myPdMode;
 | |
| 	
 | |
| 	//Below variables added 4-29 by Jeremy: Implementing chat
 | |
| 
 | |
| 	/** 
 | |
| 	 * Contains Chat Room Info
 | |
| 	 * $myChatRooms['roomid'] = people in room
 | |
| 	 *
 | |
| 	 * @var Array
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myChatRooms;
 | |
| 		
 | |
| 	//End of chat implementation
 | |
| 	
 | |
| 
 | |
| 	/** 
 | |
| 	 * Event Handler Functions
 | |
| 	 *
 | |
| 	 * @var Array
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myEventHandlers = array();
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Array of direct connection objects(including file transfers)
 | |
| 	 *
 | |
| 	 * @var Array
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myDirectConnections = array();
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Array of the actual connections
 | |
| 	 *
 | |
| 	 * @var Array
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	var $myConnections = array();
 | |
| 	
 | |
| 	/**
 | |
| 	 * The current state of logging
 | |
| 	 * 
 | |
| 	 * @var Boolean
 | |
| 	 * @access private
 | |
| 	 */
 | |
| 	
 | |
| 	var $myLogging = false;
 | |
| 	
 | |
|     /** 
 | |
| 	 * Constructor
 | |
| 	 *
 | |
| 	 * Permit/Deny Mode Options
 | |
| 	 * 1 - Allow All
 | |
| 	 * 2 - Deny All
 | |
| 	 * 3 - Permit only those on your permit list
 | |
| 	 * 4 - Permit all those not on your deny list
 | |
| 	 *
 | |
| 	 * @param String $sn AIM Screenname
 | |
| 	 * @param String $password AIM Password
 | |
| 	 * @param Integer $pdmode Permit/Deny Mode
 | |
| 	 * @access public
 | |
| 	 */
 | |
| 	function Aim($sn, $password, $pdmode)
 | |
|     {
 | |
|         //Constructor assignment
 | |
| 		$this->myScreenName = $this->normalize($sn);
 | |
| 		$this->myPassword = $password;
 | |
| 		$this->myRoastedPass = $this->roastPass($password);
 | |
| 		$this->mySeqNum = 1;
 | |
| 		$this->myConnection = 0;
 | |
| 		$this->myWarnLevel = 0;
 | |
| 		$this->myAuthCode = $this->makeCode();
 | |
| 		$this->myPdMode = $pdmode;
 | |
| 		$this->myFormatSN = $this->myScreenName;
 | |
| 		
 | |
| 		$this->log("PHPTOCLIB v" . PHPTOCLIB_VERSION . " Object Created");
 | |
| 		
 | |
| 	}
 | |
| 
 | |
| 	/** 
 | |
| 	 * Enables debug logging (Logging is disabled by default)
 | |
| 	 *
 | |
| 	 * 
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 
 | |
| 	function setLogging($enable)
 | |
| 	{
 | |
| 		$this->myLogging=$enable;
 | |
| 	}
 | |
| 
 | |
| 	function log($data)
 | |
| 	{
 | |
| 	    if($this->myLogging){
 | |
|             error_log($data);
 | |
|         }
 | |
| 	}
 | |
| 	
 | |
| 	 /** 
 | |
| 	 * Logs a packet
 | |
| 	 *
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param Array $packary Packet
 | |
| 	 * @param String $in Prepend
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function logPacket($packary,$in)
 | |
| 	{
 | |
| 		if(!$this->myLogging || sizeof($packary)<=0 || (@strlen($packary['decoded'])<=0 && @isset($packary['decoded'])))
 | |
| 		   return;
 | |
| 		$towrite=$in . ":  ";
 | |
| 		foreach($packary as $k=>$d)
 | |
| 		{
 | |
| 			$towrite.=$k . ":" . $d . "\r\n";
 | |
| 		}
 | |
| 		$towrite.="\r\n\r\n";
 | |
| 		$this->log($towrite);
 | |
| 	}
 | |
| 	/** 
 | |
| 	 * Roasts/Hashes Password
 | |
| 	 *
 | |
| 	 * @param String $password Password
 | |
| 	 * @access private
 | |
| 	 * @return String Roasted Password
 | |
| 	 */
 | |
| 	function roastPass($password)
 | |
| 	{
 | |
| 		$roaststring = 'Tic/Toc';
 | |
| 		$roasted_password = '0x';
 | |
| 		for ($i = 0; $i < strlen($password); $i++)
 | |
| 			$roasted_password .= bin2hex($password[$i] ^ $roaststring[($i % 7)]);
 | |
| 		return $roasted_password;
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Access Method for myScreenName
 | |
| 	 *
 | |
| 	 * @access public
 | |
| 	 * @param $formated Returns formatted Screenname if true as returned by server
 | |
| 	 * @return String Screenname
 | |
| 	 */
 | |
| 	function getMyScreenName($formated = false)
 | |
| 	{
 | |
| 		if ($formated)
 | |
| 		{
 | |
| 			return $this->myFormatSN;
 | |
| 		}
 | |
| 		else
 | |
| 		{
 | |
| 			return $this->normalize($this->myScreenName);
 | |
| 		}
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Generated Authorization Code
 | |
| 	 *
 | |
| 	 * @access private
 | |
| 	 * @return Integer Auth Code
 | |
| 	 */
 | |
| 	function makeCode()
 | |
| 	{
 | |
| 		$sn = ord($this->myScreenName[0]) - 96;
 | |
| 		$pw = ord($this->myPassword[0]) - 96;
 | |
| 		$a = $sn * 7696 + 738816;
 | |
| 		$b = $sn * 746512;
 | |
| 		$c = $pw * $a;
 | |
| 
 | |
| 		return $c - $a + $b + 71665152;
 | |
| 	}
 | |
| 
 | |
| 
 | |
| 	/** 
 | |
| 	 * Reads from Socket
 | |
| 	 *
 | |
| 	 * @access private
 | |
| 	 * @return String Data
 | |
| 	 */
 | |
| 	function sflapRead()
 | |
| 	{
 | |
| 		if ($this->socketcheck($this->myConnection))
 | |
| 		{
 | |
| 			$this->log("Disconnected.... Reconnecting in 60 seconds");
 | |
| 			sleep(60);
 | |
| 			$this->signon();
 | |
| 		}
 | |
| 		
 | |
| 		$header = fread($this->myConnection,SFLAP_HEADER_LEN);
 | |
| 		
 | |
| 		if (strlen($header) == 0)
 | |
| 		{
 | |
| 			$this->myLastReceived = "";
 | |
| 			return "";
 | |
| 		}
 | |
| 		$header_data = unpack("aast/Ctype/nseq/ndlen", $header);
 | |
| 		$this->log(" . ", false);
 | |
| 		$packet = fread($this->myConnection, $header_data['dlen']);
 | |
| 		if (strlen($packet) <= 0 && $sockinfo['blocked'])
 | |
| 			$this->derror("Could not read data");
 | |
| 		
 | |
| 		if ($header_data['type'] == SFLAP_TYPE_SIGNON)
 | |
| 		{
 | |
| 			$packet_data=unpack("Ndecoded", $packet);
 | |
| 		}
 | |
| 		
 | |
| 		if ($header_data['type'] == SFLAP_TYPE_KEEPALIVE)
 | |
| 		{
 | |
| 			$this->myLastReceived = '';
 | |
| 			return 0;
 | |
| 		} 
 | |
| 		else if (strlen($packet)>0)
 | |
| 		{
 | |
| 			$packet_data = unpack("a*decoded", $packet);
 | |
| 		}
 | |
| 		$this->log("socketcheck check now");
 | |
| 		if ($this->socketcheck($this->myConnection))
 | |
| 		{
 | |
| 			$this->derror("Connection ended unexpectedly");
 | |
| 		}
 | |
| 		
 | |
| 		$data = array_merge($header_data, $packet_data);
 | |
| 		$this->myLastReceived = $data;
 | |
| 		$this->logPacket($data,"in");
 | |
| 		return $data;
 | |
|     }
 | |
| 
 | |
| 	/** 
 | |
| 	 * Sends Data on Socket
 | |
| 	 *
 | |
| 	 * @param String $sflap_type Type
 | |
| 	 * @param String $sflap_data Data
 | |
| 	 * @param boolean $no_null No Null
 | |
| 	 * @param boolean $formatted Format
 | |
| 	 * @access private
 | |
| 	 * @return String Roasted Password
 | |
| 	 */
 | |
| 	function sflapSend($sflap_type, $sflap_data, $no_null, $formatted)
 | |
| 	{
 | |
| 		$packet = "";
 | |
| 		if (strlen($sflap_data) >= MAX_PACKLENGTH)
 | |
| 			$sflap_data = substr($sflap_data,0,MAX_PACKLENGTH);
 | |
| 			
 | |
| 		if ($formatted)
 | |
| 		{
 | |
| 			$len = strlen($sflap_len);
 | |
| 			$sflap_header = pack("aCnn",'*', $sflap_type, $this->mySeqNum, $len);
 | |
| 			$packet = $sflap_header . $sflap_data;
 | |
| 		} else {
 | |
| 			if (!$no_null)
 | |
| 			{
 | |
| 				$sflap_data = str_replace("\0","", trim($sflap_data));
 | |
| 				$sflap_data .= "\0";
 | |
| 			}
 | |
| 			$data = pack("a*", $sflap_data);
 | |
| 			$len = strlen($sflap_data);
 | |
| 			$header = pack("aCnn","*", $sflap_type, $this->mySeqNum, $len);
 | |
| 			$packet = $header . $data;
 | |
| 		}
 | |
| 		
 | |
| 		//Make sure we are still connected
 | |
| 		if ($this->socketcheck($this->myConnection))
 | |
| 		{
 | |
| 			$this->log("Disconnected.... reconnecting in 60 seconds");
 | |
| 			sleep(60);
 | |
| 			$this->signon();
 | |
| 		}
 | |
| 		$sent = fputs($this->myConnection, $packet) or $this->derror("Error sending packet to AIM");
 | |
| 		$this->mySeqNum++;
 | |
| 		sleep(ceil($this->myWarnLevel/10));
 | |
| 		$this->logPacket(array($sflap_type,$sflap_data),"out");
 | |
| 	}
 | |
| 
 | |
| 	/** 
 | |
| 	 * Escape the thing that TOC doesn't like,that would be
 | |
| 	 * ",', $,{,},[,]
 | |
| 	 *
 | |
| 	 * @param String $data Data to Escape
 | |
| 	 * @see decodeData
 | |
| 	 * @access private
 | |
| 	 * @return String $data Escaped Data
 | |
| 	 */
 | |
| 	function encodeData($data)
 | |
| 	{
 | |
| 		$data = str_replace('"','\"', $data);
 | |
| 		$data = str_replace('$','\$', $data);
 | |
| 		$data = str_replace("'","\'", $data);
 | |
| 		$data = str_replace('{','\{', $data);
 | |
| 		$data = str_replace('}','\}', $data);
 | |
| 		$data = str_replace('[','\[', $data);
 | |
| 		$data = str_replace(']','\]', $data);
 | |
| 		return $data;
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Unescape data TOC has escaped
 | |
| 	 * ",', $,{,},[,]
 | |
| 	 *
 | |
| 	 * @param String $data Data to Unescape
 | |
| 	 * @see encodeData
 | |
| 	 * @access private
 | |
| 	 * @return String $data Unescape Data
 | |
| 	 */
 | |
| 	function decodeData($data)
 | |
| 	{
 | |
| 		$data = str_replace('\"','"', $data);
 | |
| 		$data = str_replace('\$','$', $data);
 | |
| 		$data = str_replace("\'","'", $data);
 | |
| 		$data = str_replace('\{','{', $data);
 | |
| 		$data = str_replace('\}','}', $data);
 | |
| 		$data = str_replace('\[','[', $data);
 | |
| 		$data = str_replace('\]',']', $data);
 | |
| 		$data = str_replace('"','"', $data);
 | |
| 		$data = str_replace('&','&', $data);
 | |
| 		return $data;
 | |
| 	}
 | |
| 
 | |
| 	/** 
 | |
| 	 * Normalize ScreenName
 | |
| 	 * no spaces and all lowercase
 | |
| 	 *
 | |
| 	 * @param String $nick ScreenName
 | |
| 	 * @access public
 | |
| 	 * @return String $nick Normalized ScreenName
 | |
| 	 */
 | |
| 	function normalize($nick)
 | |
| 	{
 | |
| 		$nick = str_replace(" ","", $nick);
 | |
| 		$nick = strtolower($nick);
 | |
| 		return $nick;
 | |
| 	}
 | |
| 
 | |
| 	/** 
 | |
| 	 * Sets internal info with update buddy
 | |
| 	 * Currently only sets warning level
 | |
| 	 * 
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function setMyInfo()
 | |
| 	{
 | |
| 		//Sets internal values bvase on the update buddy command
 | |
| 		$this->log("Setting my warning level ...");
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc_get_status " . $this->normalize($this->myScreenName),0,0);
 | |
| 		//The rest of this will now be handled by the other functions. It is assumed
 | |
| 		//that we may have other data queued in the socket, do we should just add this
 | |
| 		//message to the queue instead of trying to set it in here
 | |
| 	}
 | |
| 
 | |
| 	/** 
 | |
| 	 * Connects to AIM and Signs On Using Info Provided in Constructor
 | |
| 	 * 
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function signon()
 | |
| 	{
 | |
| 		$this->log("Ready to sign on to the server");
 | |
| 		$this->myConnection = fsockopen($this->myServer, $this->myPort, $errno, $errstr,10) or die("$errorno:$errstr");
 | |
| 		$this->log("Connected to server");
 | |
| 		$this->mySeqNum = (time() % 65536); //Select an arbitrary starting point for
 | |
| 										  //sequence numbers
 | |
| 		if (!$this->myConnection)
 | |
| 			$this->derror("Error connecting to toc.oscar.aol.com");
 | |
| 		$this->log("Connected to AOL");
 | |
| 		//Send the flapon packet
 | |
| 		fputs($this->myConnection,"FLAPON\r\n\n\0"); //send the initial handshake
 | |
| 		$this->log("Sent flapon");
 | |
| 		$this->sflapRead();  //Make sure the server responds with what we expect
 | |
| 		if (!$this->myLastReceived)
 | |
| 			$this->derror("Error sending the initialization string");
 | |
| 
 | |
| 		//send the FLAP SIGNON packet back with what it needs
 | |
| 		//There are 2 parts to the signon packet. They are sent in succession, there
 | |
| 		//is no indication if either packet was correctly sent
 | |
| 		$signon_packet = pack("Nnna".strlen($this->myScreenName),1,1,strlen($this->myScreenName), $this->myScreenName);
 | |
| 		$this->sflapSend(SFLAP_TYPE_SIGNON, $signon_packet,1,0);
 | |
| 		$this->log("sent signon packet part one");
 | |
| 		
 | |
| 		$signon_packet_part2 = 'toc2_signon login.oscar.aol.com 29999 ' . $this->myScreenName . ' ' . $this->myRoastedPass . ' english-US "TIC:TOC2:REVISION" 160 ' . $this->myAuthCode;
 | |
| 		$this->log($signon_packet_part2 . "");
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA, $signon_packet_part2,0,0);
 | |
| 		$this->log("Sent signon packet part 2... Awaiting response...");
 | |
| 
 | |
| 		$this->sflapRead();
 | |
| 		$this->log("Received Sign on packet, beginning initilization...");
 | |
| 		$message = $this->getLastReceived();
 | |
| 		$this->log($message . "\n");
 | |
| 		if (strstr($message,"ERROR:"))
 | |
| 		{
 | |
| 			$this->onError($message);
 | |
| 			die("Fatal signon error");
 | |
| 		}
 | |
| 		stream_set_timeout($this->myConnection,2);
 | |
| 		//The information sent before the config2 command is utterly useless to us
 | |
| 		//So we will just skim through them until we reach it
 | |
| 		
 | |
| 		//Add the first entry to the connection array
 | |
| 		$this->myConnections[] = $this->myConnection;
 | |
| 		
 | |
| 		
 | |
| 		//UPDATED 4/12/03: Now this will use the receive function and send the
 | |
| 		//received messaged to the assigned handlers. This is where the signon 
 | |
| 		//method has no more use
 | |
| 		
 | |
| 		$this->log("Done with signon proccess");
 | |
| 		//socket_set_blocking($this->myConnection,false);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Sends Instant Message
 | |
| 	 *
 | |
| 	 * @param String $to Message Recipient SN
 | |
| 	 * @param String $message Message to Send
 | |
| 	 * @param boolean $auto Sent as Auto Response / Away Message Style
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function sendIM($to, $message, $auto = false)
 | |
| 	{
 | |
| 		if ($auto) $auto = "auto";
 | |
| 		else $auto = "";
 | |
| 		$to = $this->normalize($to);
 | |
| 		$message = $this->encodeData($message);
 | |
| 		$command = 'toc2_send_im "' . $to . '" "' . $message . '" ' .  $auto;
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA, trim($command),0,0);
 | |
| 		$cleanedmessage = str_replace("<br>", "   ", $this->decodeData($message));
 | |
| 		$cleanedmessage = strip_tags($cleanedmessage);
 | |
| 		$this->log("TO - " . $to . " : " . $cleanedmessage);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Set Away Message
 | |
| 	 *
 | |
| 	 * @param String $message Away message (some HTML supported).
 | |
| 	 *   Use null to remove the away message
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function setAway($message)
 | |
| 	{
 | |
| 		$message = $this->encodeData($message);
 | |
| 		$command = 'toc_set_away "' . $message . '"';
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA, trim($command),0,0);
 | |
| 		$this->log("SET AWAY MESSAGE - " . $this->decodeData($message));
 | |
| 	}
 | |
| 
 | |
| 	/** 
 | |
| 	 * Fills Buddy List
 | |
| 	 * Not implemented fully yet
 | |
| 	 *
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function setBuddyList()
 | |
| 	{
 | |
| 		//This better be the right message
 | |
| 		$message = $this->myLastReceived['decoded'];
 | |
| 		if (strpos($message,"CONFIG2:") === false)
 | |
| 		{
 | |
| 			$this->log("setBuddyList cannot be called at this time because I got $message");
 | |
| 			return false;
 | |
| 		}
 | |
| 		$people = explode("\n",trim($message,"\n"));
 | |
| 		//The first 3 elements of the array are who knows what, element 3 should be
 | |
| 		//a letter followed by a person
 | |
| 		for($i = 1; $i<sizeof($people); $i++)
 | |
| 		{
 | |
|    			@list($mode, $name) = explode(":", $people[$i]);
 | |
| 			switch($mode)
 | |
| 			{
 | |
| 				case 'p':
 | |
| 					$this->myPermitList[] = $name;
 | |
| 					break;
 | |
| 				case 'd':
 | |
| 					$this->myBlockedList[] = $name;
 | |
| 					break;
 | |
| 				case 'b':
 | |
| 					$this->myBuddyList[] = $name;
 | |
| 					break;
 | |
| 				case 'done':
 | |
| 	 				break;
 | |
| 				default:
 | |
| 					//
 | |
| 			}
 | |
| 		}
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Adds buddy to Permit list
 | |
| 	 *
 | |
| 	 * @param String $buddy Buddy's Screenname
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function addPermit($buddy)
 | |
| 	{
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc2_add_permit " . $this->normalize($buddy),0,0);
 | |
| 		$this->myPermitList[] = $this->normalize($buddy);
 | |
| 		return 1;
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Blocks buddy
 | |
| 	 *
 | |
| 	 * @param String $buddy Buddy's Screenname
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function blockBuddy($buddy)
 | |
| 	{
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc2_add_deny " . $this->normalize($buddy),0,0);
 | |
| 		$this->myBlockedList[] = $this->normalize($buddy);
 | |
| 		return 1;
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Returns last message received from server
 | |
| 	 *
 | |
| 	 * @access private
 | |
| 	 * @return String Last Message from Server
 | |
| 	 */
 | |
| 	function getLastReceived()
 | |
| 	{
 | |
| 		if (@$instuff = $this->myLastReceived['decoded']){
 | |
| 			return $this->myLastReceived['decoded'];
 | |
| 		}else{
 | |
| 			return;
 | |
| 		}
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Returns Buddy List
 | |
| 	 *
 | |
| 	 * @access public
 | |
| 	 * @return array Buddy List
 | |
| 	 */
 | |
| 	function getBuddies()
 | |
| 	{
 | |
| 		return $this->myBuddyList;
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Returns Permit List
 | |
| 	 *
 | |
| 	 * @access public
 | |
| 	 * @return array Permit List
 | |
| 	 */
 | |
| 	function getPermit()
 | |
| 	{
 | |
| 		return $this->myPermitList;
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Returns Blocked Buddies
 | |
| 	 *
 | |
| 	 * @access public
 | |
| 	 * @return array Blocked List
 | |
| 	 */
 | |
| 	function getBlocked()
 | |
| 	{
 | |
| 		return $this->myBlockedList;
 | |
| 	}
 | |
| 	
 | |
| 	
 | |
| 
 | |
| 
 | |
| 	/** 
 | |
| 	 * Reads and returns data from server
 | |
| 	 *
 | |
| 	 * This is a wrapper for $Aim->sflap_read(), and only returns the $this->myLastReceived['data']
 | |
| 	 * portion of the message. It is preferred that you do not call $Aim->sflap_read() and use this
 | |
| 	 * function instead. This function has a return value. Calling this prevents the need to call
 | |
| 	 * $Aim->getLastReceived()
 | |
| 	 *
 | |
| 	 * @access public
 | |
| 	 * @return String Data recieved from server
 | |
| 	 */
 | |
| 	function read_from_aim()
 | |
| 	{
 | |
| 		$this->sflapRead();
 | |
| 		$returnme = $this->getLastReceived();
 | |
| 		return $returnme;
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Sets current internal warning level
 | |
| 	 * 
 | |
| 	 * This allows you to update the bots warning level when warned.
 | |
| 	 *
 | |
| 	 * @param int Warning Level %
 | |
| 	 * @access private
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function setWarningLevel($warnlevel)
 | |
| 	{
 | |
| 		$this->myWarnLevel = $warnlevel;
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Warns / "Evils" a User
 | |
| 	 *
 | |
| 	 * To successfully warn another user they must have sent you a message.
 | |
| 	 * There is a limit on how much and how often you can warn another user.
 | |
| 	 * Normally when you warn another user they are aware who warned them,
 | |
| 	 * however there is the option to warn anonymously.  When warning anon.
 | |
| 	 * note that the warning is less severe.
 | |
| 	 *
 | |
| 	 * @param String $to Screenname to warn
 | |
| 	 * @param boolean $anon Warn's anonymously if true. (default = false)
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function warnUser($to, $anon = false)
 | |
| 	{
 | |
| 		if (!$anon)
 | |
| 			$anon = '"norm"';
 | |
| 
 | |
| 		else
 | |
| 			$anon = '"anon"';
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc_evil " . $this->normalize($to) . " $anon",0,0);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Returns warning level of bot
 | |
| 	 *
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function getWarningLevel()
 | |
| 	{
 | |
| 		return $this->myWarningLevel;
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Sets bot's profile/info
 | |
| 	 *
 | |
| 	 * Limited to 1024 bytes.
 | |
| 	 *
 | |
| 	 * @param String $profiledata Profile Data (Can contain limited html: br,hr,font,b,i,u etc)
 | |
| 	 * @param boolean $poweredby If true, appends link to phpTOCLib project to profile
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function setProfile($profiledata, $poweredby = false)
 | |
| 	{
 | |
| 		if ($poweredby == false){
 | |
| 			$this->myProfile = $profiledata;
 | |
| 		}else{
 | |
| 			$this->myProfile = $profiledata . "<font size=1 face=tahoma><br><br>Powered by phpTOCLib<br>http://sourceforge.net/projects/phptoclib</font>";
 | |
| 		}
 | |
| 		
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc_set_info \"" . $this->encodeData($this->myProfile) . "\"",0,0);
 | |
| 		$this->setMyInfo();
 | |
| 		$this->log("Profile has been updated...");
 | |
| 	}
 | |
| 	
 | |
| 	//6/29/04 by Jeremy:
 | |
| 	//Added mthod to accept a rvous,decline it, and
 | |
| 	//read from the rvous socket
 | |
| 	
 | |
| 	//Decline
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Declines a direct connection request (rvous)
 | |
| 	 *
 | |
| 	 * @param String $nick ScreenName request was from
 | |
| 	 * @param String $cookie Request cookie (from server)
 | |
| 	 * @param String $uuid UUID
 | |
| 	 * 
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function declineRvous($nick, $cookie, $uuid)
 | |
| 	{
 | |
| 		$nick = $this->normalize($nick);
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc_rvous_cancel $nick $cookie $uuid",0,0);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Accepts a direct connection request (rvous)
 | |
| 	 *
 | |
| 	 * @param String $nick ScreenName request was from
 | |
| 	 * @param String $cookie Request cookie (from server)
 | |
| 	 * @param String $uuid UUID
 | |
| 	 * @param String $vip IP of User DC with
 | |
| 	 * @param int $port Port number to connect to
 | |
| 	 * 
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function acceptRvous($nick, $cookie, $uuid, $vip, $port)
 | |
| 	{
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc_rvous_accept $nick $cookie $uuid",0,0);
 | |
| 		
 | |
| 		//Now open the connection to that user
 | |
| 		if ($uuid == IMAGE_UID)
 | |
| 		{	
 | |
| 			$dcon = new Dconnect($vip, $port);
 | |
| 		}
 | |
| 		else if ($uuid == FILE_SEND_UID)
 | |
| 		{
 | |
| 			$dcon = new FileSendConnect($vip, $port);
 | |
| 		}
 | |
| 		if (!$dcon->connected)
 | |
| 		{
 | |
| 			$this->log("The connection failed");				
 | |
| 			return false;
 | |
| 		}
 | |
| 		
 | |
| 		//Place this dcon object inside the array
 | |
| 		$this->myDirectConnections[] = $dcon;
 | |
| 		//Place the socket in an array to
 | |
| 		$this->myConnections[] = $dcon->sock;
 | |
| 
 | |
| 		
 | |
| 		//Get rid of the first packet because its worthless
 | |
| 		//and confusing
 | |
| 		$dcon->readDIM();
 | |
| 		//Assign the cookie
 | |
| 		$dcon->cookie = $dcon->lastReceived['cookie'];
 | |
| 		$dcon->connectedTo = $this->normalize($nick);
 | |
| 		return $dcon;
 | |
| 	}	
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Sends a Message over a Direct Connection
 | |
| 	 *
 | |
| 	 * Only works if a direct connection is already established with user
 | |
| 	 *
 | |
| 	 * @param String $to Message Recipient SN
 | |
| 	 * @param String $message Message to Send
 | |
| 	 * 
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function sendDim($to, $message)
 | |
| 	{
 | |
| 		//Find the connection
 | |
| 		for($i = 0;$i<sizeof($this->myDirectConnections);$i++)
 | |
| 		{
 | |
| 			if ($this->normalize($to) == $this->myDirectConnections[$i]->connectedTo && $this->myDirectConnections[$i]->type == CONN_TYPE_DC)
 | |
| 			{
 | |
| 				$dcon = $this->myDirectConnections[$i];
 | |
| 				break;
 | |
| 			}
 | |
| 		}
 | |
| 		if (!$dcon)
 | |
| 		{
 | |
| 			$this->log("Could not find a direct connection to $to");
 | |
| 			return false;
 | |
| 		}
 | |
| 		$dcon->sendMessage($message, $this->normalize($this->myScreenName));
 | |
| 		return true;
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Closes an established Direct Connection
 | |
| 	 *
 | |
| 	 * @param DConnect $dcon Direct Connection Object to Close
 | |
| 	 * 
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function closeDcon($dcon)
 | |
| 	{
 | |
| 		
 | |
| 		$nary = array();
 | |
| 		for($i = 0;$i<sizeof($this->myConnections);$i++)
 | |
| 		{
 | |
| 			if ($dcon->sock == $this->myConnections[$i])
 | |
| 				unset($this->myConnections[$i]);
 | |
| 		}
 | |
| 		
 | |
| 		$this->myConnections = array_values($this->myConnections);
 | |
| 		unset($nary);
 | |
| 		$nary2 = array();
 | |
| 		
 | |
| 		for($i = 0;$i<sizeof($this->myDirectConnections);$i++)
 | |
| 		{
 | |
| 			if ($dcon == $this->myDirectConnections[$i])
 | |
| 				unset($this->myDirectConnections[$i]);
 | |
| 		}
 | |
| 		$this->myDirectConnections = array_values($this->myDirectConnections);
 | |
| 		$dcon->close();
 | |
| 		unset($dcon);
 | |
| 	}
 | |
| 	
 | |
| 	//Added 4/29/04 by Jeremy:
 | |
| 	//Various chat related methods
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Accepts a Chat Room Invitation (Joins room)
 | |
| 	 *
 | |
| 	 * @param String $chatid ID of Chat Room
 | |
| 	 * 
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function joinChat($chatid)
 | |
| 	{
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc_chat_accept " . $chatid,0,0);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Leaves a chat room
 | |
| 	 *
 | |
| 	 * @param String $chatid ID of Chat Room
 | |
| 	 * 
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function leaveChat($chatid)
 | |
| 	{
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc_chat_leave " . $chatid,0,0);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Sends a message in a chat room
 | |
| 	 *
 | |
| 	 * @param String $chatid ID of Chat Room
 | |
| 	 * @param String $message Message to send
 | |
| 	 * 
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function chatSay($chatid, $message)
 | |
| 	{
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc_chat_send " . $chatid . " \"" . $this->encodeData($message) . "\"",0,0);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Invites a user to a chat room
 | |
| 	 *
 | |
| 	 * @param String $chatid ID of Chat Room
 | |
| 	 * @param String $who Screenname of user
 | |
| 	 * @param String $message Note to include with invitiation
 | |
| 	 * 
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function chatInvite($chatid, $who, $message)
 | |
| 	{
 | |
| 		$who = $this->normalize($who);
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc_chat_invite " . $chatid . " \"" . $this->encodeData($message) . "\" " . $who,0,0);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Joins/Creates a new chat room
 | |
| 	 *
 | |
| 	 * @param String $name Name of the new chat room
 | |
| 	 * @param String $exchange Exchange of new chat room
 | |
| 	 * 
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function joinNewChat($name, $exchange)
 | |
| 	{
 | |
| 		//Creates a new chat
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc_chat_join " . $exchange . " \"" . $name . "\"",0,0);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Disconnect error handler, attempts to reconnect in 60 seconds
 | |
| 	 *
 | |
| 	 * @param String $message Error message (desc of where error encountered etc)
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function derror($message)
 | |
| 	{
 | |
| 		$this->log($message);
 | |
| 		$this->log("Error");
 | |
| 		fclose($this->myConnection);
 | |
| 		if ((time() - $GLOBALS['errortime']) <  600){
 | |
| 			$this->log("Reconnecting in 60 Seconds");
 | |
| 			sleep(60);
 | |
| 		}
 | |
| 		$this->signon();
 | |
| 		$GLOBALS['errortime'] = time();
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Returns connection type of socket (main or rvous etc)
 | |
| 	 *
 | |
| 	 * Helper method for recieve()
 | |
| 	 *
 | |
| 	 * @param Resource $sock Socket to determine type for
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @return void
 | |
| 	 * @see receive
 | |
| 	 */
 | |
| 	function connectionType($sock)
 | |
| 	{
 | |
| 		//Is it the main connection?
 | |
| 		if ($sock == $this->myConnection)
 | |
| 		   return CONN_TYPE_NORMAL;
 | |
| 		else
 | |
| 		{
 | |
| 			for($i = 0;$i<sizeof($this->myDirectConnections);$i++)
 | |
| 			{
 | |
| 				if ($sock == $this->myDirectConnections[$i]->sock)
 | |
| 				    return $this->myDirectConnections[$i]->type;
 | |
| 			}
 | |
| 		}
 | |
| 		return false;
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Checks for new data and calls appropriate methods
 | |
| 	 *
 | |
| 	 * This method is usually called in an infinite loop to keep checking for new data
 | |
| 	 * 
 | |
| 	 * @access public
 | |
| 	 * @return void
 | |
| 	 * @see connectionType
 | |
| 	 */ 
 | |
| 	function receive()
 | |
| 	{
 | |
| 		//This function will be used to get the incoming data
 | |
| 		//and it will be used to call the event handlers
 | |
| 		
 | |
| 		//First, get an array of sockets that have data that is ready to be read
 | |
| 		$ready = array();
 | |
| 		$ready = $this->myConnections;
 | |
| 		$numrdy = stream_select($ready, $w = NULL, $x = NULL,NULL);
 | |
| 		
 | |
| 		//Now that we've waited for something, go through the $ready
 | |
| 		//array and read appropriately
 | |
| 		
 | |
| 		for($i = 0;$i<sizeof($ready);$i++)
 | |
| 		{
 | |
| 			//Get the type
 | |
| 			$type = $this->connectionType($ready[$i]);
 | |
| 			if ($type == CONN_TYPE_NORMAL)
 | |
| 			{
 | |
| 				//Next step:Get the data sitting in the socket
 | |
| 				$message = $this->read_from_aim();
 | |
| 				if (strlen($message) <= 0)
 | |
| 				{
 | |
| 					return;
 | |
| 				}
 | |
| 				
 | |
| 				//Third step: Get the command from the server
 | |
| 				@list($cmd, $rest) = explode(":", $message);
 | |
| 				
 | |
| 				//Fourth step, take the command, test the type, and pass it off
 | |
| 				//to the correct internal handler. The internal handler will
 | |
| 				//do what needs to be done on the class internals to allow
 | |
| 				//it to work, then proceed to pass it off to the user created handle
 | |
| 				//if there is one
 | |
| 				$this->log($cmd);
 | |
| 				switch($cmd)
 | |
| 				{
 | |
| 					case 'SIGN_ON':
 | |
| 						$this->onSignOn($message);
 | |
| 						break;
 | |
| 					case 'CONFIG2':
 | |
| 						$this->onConfig($message);
 | |
| 						break;
 | |
| 					case 'ERROR':
 | |
| 						$this->onError($message);
 | |
| 						break;
 | |
| 					case 'NICK':
 | |
| 						$this->onNick($message);
 | |
| 						break;
 | |
| 					case 'IM_IN2':
 | |
| 						$this->onImIn($message);
 | |
| 						break;
 | |
| 					case 'UPDATE_BUDDY2':
 | |
| 						$this->onUpdateBuddy($message);
 | |
| 						break;
 | |
| 					case 'EVILED':
 | |
| 						$this->onWarn($message);
 | |
| 						break;
 | |
| 					case 'CHAT_JOIN':
 | |
| 						$this->onChatJoin($message);
 | |
| 						break;
 | |
| 					case 'CHAT_IN':
 | |
| 						$this->onChatIn($message);
 | |
| 						break;
 | |
| 					case 'CHAT_UPDATE_BUDDY':
 | |
| 						$this->onChatUpdate($message);
 | |
| 						break;
 | |
| 					case 'CHAT_INVITE':
 | |
| 						$this->onChatInvite($message);
 | |
| 						break;
 | |
| 					case 'CHAT_LEFT':
 | |
| 						$this->onChatLeft($message);
 | |
| 						break;
 | |
| 					case 'GOTO_URL':
 | |
| 						$this->onGotoURL($message);
 | |
| 						break;
 | |
| 					case 'DIR_STATUS':
 | |
| 						$this->onDirStatus($message);
 | |
| 						break;
 | |
| 					case 'ADMIN_NICK_STATUS':
 | |
| 						$this->onAdminNick($message);
 | |
| 						break;
 | |
| 					case 'ADMIN_PASSWD_STATUS':
 | |
| 						$this->onAdminPasswd($message);
 | |
| 						break;
 | |
| 					case 'PAUSE':
 | |
| 						$this->onPause($message);
 | |
| 						break;
 | |
| 					case 'RVOUS_PROPOSE':
 | |
| 						$this->onRvous($message);
 | |
| 						break;
 | |
| 					default:
 | |
| 						$this->log("Fell through: $message");
 | |
| 						$this->CatchAll($message);
 | |
| 						break;
 | |
| 				}
 | |
| 			}
 | |
| 			else
 | |
| 			{
 | |
| 				for($j = 0;$j<sizeof($this->myDirectConnections);$j++)
 | |
| 				{
 | |
| 					if ($this->myDirectConnections[$j]->sock == $ready[$i])
 | |
| 					{
 | |
| 						$dcon = $this->myDirectConnections[$j];
 | |
| 						break;
 | |
| 					}
 | |
| 				}
 | |
| 				//Now read from the dcon
 | |
| 				if ($dcon->type == CONN_TYPE_DC)
 | |
| 				{
 | |
| 					if ($dcon->readDIM() == false)
 | |
| 					{
 | |
| 						$this->closeDcon($dcon);
 | |
| 						continue;
 | |
| 					}
 | |
| 					
 | |
| 					$message['message'] = $dcon->lastMessage;
 | |
| 					if ($message['message'] == "too big")
 | |
| 					{
 | |
| 						$this->sendDim("Connection dropped because you sent a message larger that " . MAX_DCON_SIZE . " bytes.", $dcon->connectedTo);
 | |
| 						$this->closeDcon($dcon);
 | |
| 						continue;
 | |
| 					}
 | |
| 					$message['from'] = $dcon->connectedTo;
 | |
| 					$this->onDimIn($message);
 | |
| 				}
 | |
| 			}
 | |
| 		}
 | |
|         $this->conn->myLastReceived="";
 | |
| 		//Now get out of this function because the handlers should take care
 | |
| 		//of everything
 | |
| 	}
 | |
| 	
 | |
| 	//The next block of code is all the event handlers needed by the class
 | |
| 	//Some are left blank and only call the users handler because the class
 | |
| 	//either does not support the command, or cannot do anything with it
 | |
| 	// ---------------------------------------------------------------------
 | |
| 
 | |
| 	/** 
 | |
| 	 * Direct IM In Event Handler
 | |
| 	 *
 | |
| 	 * Called when Direct IM is received.
 | |
| 	 * Call's user handler (if available) for DimIn.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onDimIn($data)
 | |
| 	{
 | |
| 		$this->callHandler("DimIn", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Sign On Event Handler
 | |
| 	 *
 | |
| 	 * Called when Sign On event occurs.
 | |
| 	 * Call's user handler (if available) for SIGN_ON.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onSignOn($data)
 | |
| 	{
 | |
| 		$this->callHandler("SignOn", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Config Event Handler
 | |
| 	 *
 | |
| 	 * Called when Config data received.
 | |
| 	 * Call's user handler (if available) for Config.
 | |
| 	 * 
 | |
| 	 * Loads buddy list and other info
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onConfig($data)
 | |
| 	{
 | |
| 		$this->log("onConfig Message: " . $data);
 | |
| 		
 | |
| 		if (strpos($data,"CONFIG2:") === false)
 | |
| 		{
 | |
| 			$this->log("get_buddy_list cannot be called at this time because I got $data");
 | |
| 			//return false;
 | |
| 		}
 | |
| 		$people = explode("\n",trim($data,"\n"));
 | |
| 		//The first 3 elements of the array are who knows what, element 3 should be
 | |
| 		//a letter followed by a person
 | |
| 		
 | |
| 		//AIM decided to add this wonderful new feature, the recent buddy thing, this kind of
 | |
| 		//messes this funtion up, so we need to adapt it... unfortuneately, its not really
 | |
| 		//clear how this works, so we are just going to add their name to the permit list.
 | |
| 		
 | |
| 		//Recent buddies I believe are in the format
 | |
| 		//number:name:number.... I think the first number counts down from 25 how long its
 | |
| 		//been... but I don't know the second number,,,,
 | |
| 		
 | |
| 		//TODO: Figure out the new recent buddies system
 | |
| 		
 | |
| 		//Note: adding that at the bottom is a quick hack and may have adverse consequences...
 | |
| 		for($i = 1;$i<sizeof($people);$i++)
 | |
| 		{
 | |
|    			@list($mode, $name) = explode(":", $people[$i]);
 | |
| 			switch($mode)
 | |
| 			{
 | |
| 				case 'p':
 | |
| 					$this->myPermitList[] = $name;
 | |
| 					break;
 | |
| 				case 'd':
 | |
| 					$this->myBlockedList[] = $name;
 | |
| 					break;
 | |
| 				case 'b':
 | |
| 					$this->myBuddyList[] = $name;
 | |
| 					break;
 | |
| 				case 'done':
 | |
| 	 				break;
 | |
| 				default:
 | |
| 					//This is assumed to be recent buddies...
 | |
| 					$this->myPermitList[]=$name;
 | |
| 			}
 | |
| 		}
 | |
| 		
 | |
| 		//We only get the config message once, so now we should send our pd mode
 | |
| 		
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc2_set_pdmode " . $this->myPdMode,0,0);
 | |
| 		//Adds yourself to the permit list
 | |
| 		//This is to fix an odd behavior if you have nobody on your list
 | |
| 		//the server won't send the config command... so this takes care of it
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc2_add_permit " . $this->normalize($this->myScreenName),0,0); 
 | |
| 		
 | |
| 		//Now we allow the user to send a list, update anything they want, etc
 | |
| 		$this->callHandler("Config", $data);
 | |
| 		//Now that we have taken care of what the user wants, send the init_done message
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA,"toc_init_done",0,0);
 | |
| 		//'VOICE_UID' 
 | |
| 		//'FILE_GET_UID'
 | |
| 		//'IMAGE_UID'
 | |
| 		//'BUDDY_ICON_UID'
 | |
| 		//'STOCKS_UID'
 | |
| 		//'GAMES_UID'
 | |
| 		$this->sflapSend(SFLAP_TYPE_DATA, "toc_set_caps " . IMAGE_UID . " " .  FILE_SEND_UID ." " . FILE_GET_UID . " " . BUDDY_ICON_UID . "",0,0);
 | |
| 	}
 | |
| 	
 | |
| 
 | |
| 	/** 
 | |
| 	 * Error Event Handler
 | |
| 	 *
 | |
| 	 * Called when an Error occurs.
 | |
| 	 * Call's user handler (if available) for Error.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onError($data)
 | |
| 	{
 | |
| 	    static $errarg = '';
 | |
| 		static $ERRORS = array(
 | |
|             0=>'Success',
 | |
|             901 =>'$errarg not currently available',
 | |
|             902 =>'Warning of $errarg not currently available',
 | |
|             903 =>'A message has been dropped, you are exceeding
 | |
|                   the server speed limit',
 | |
|             911 =>'Error validating input',
 | |
|             912 =>'Invalid account',
 | |
|             913 =>'Error encountered while processing request',
 | |
|             914 =>'Service unavailable',
 | |
|             950 =>'Chat in $errarg is unavailable.',
 | |
|             960 =>'You are sending message too fast to $errarg',
 | |
|             961 =>'You missed an im from $errarg because it was too big.',
 | |
|             962 =>'You missed an im from $errarg because it was sent too fast.',
 | |
|             970 =>'Failure',
 | |
|             971 =>'Too many matches',
 | |
|             972 =>'Need more qualifiers',
 | |
|             973 =>'Dir service temporarily unavailable',
 | |
|             974 =>'Email lookup restricted',
 | |
|             975 =>'Keyword Ignored',
 | |
|             976 =>'No Keywords',
 | |
|             977 =>'Language not supported',
 | |
|             978 =>'Country not supported',
 | |
|             979 =>'Failure unknown $errarg',
 | |
|             980 =>'Incorrect nickname or password.',
 | |
|             981 =>'The service is temporarily unavailable.',
 | |
|             982 =>'Your warning level is currently too high to sign on.',
 | |
|             983 =>'You have been connecting and
 | |
|                	   disconnecting too frequently.  Wait 10 minutes and try again.
 | |
| 	               If you continue to try, you will need to wait even longer.',
 | |
|             989 =>'An unknown signon error has occurred $errarg'
 | |
|             );
 | |
| 		$data_array = explode(":", $data);
 | |
| 		for($i=0; $i<count($data_array); $i++)
 | |
| 		{
 | |
|             switch($i)
 | |
|             {
 | |
|                 case 0:
 | |
|                     $cmd = $data_array[$i];
 | |
|                     break;
 | |
|                 case 1:
 | |
|                     $errornum = $data_array[$i];
 | |
|                     break;
 | |
|                 case 2:
 | |
|                     $errargs = $data_array[$i];
 | |
|                     break;
 | |
|             }
 | |
| 		}
 | |
| 		eval("\$errorstring=\"\$ERRORS[" . $errornum . "]\";");
 | |
| 		$string = "\$errorstring=\"\$ERRORS[$errornum]\";";
 | |
| 		//This is important information! We need 
 | |
| 		// a A different outputter for errors
 | |
| 		// b Just to echo it
 | |
| 		//I'm just going to do a straight echo here, becuse we assume that
 | |
| 		//the user will NEED to see this error. An option to supress it will
 | |
| 		//come later I think. Perhaps if we did an error reporting level, similar
 | |
| 		//to PHP's, and we could probably even use PHP's error outputting system
 | |
| 		//I think that may be an idea.... 
 | |
| 		
 | |
| 		$this->log($errorstring . "\n");
 | |
| 		
 | |
| 		$this->callHandler("Error", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Nick Event Handler
 | |
| 	 *
 | |
| 	 * Called when formatted own ScreenName is receieved
 | |
| 	 * Call's user handler (if available) for Nick.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onNick($data)
 | |
| 	{
 | |
| 		//This is our nick, so set a field called "myFormatSN" which will represent
 | |
| 		//the actual name given by the server to us, NOT the normalized screen name
 | |
| 		@list($cmd, $nick) = explode(":", $data);
 | |
| 		$this->myFormatSN = $nick;
 | |
| 		
 | |
| 		$this->callHandler("Nick", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * IM In Event Handler
 | |
| 	 *
 | |
| 	 * Called when an Instant Message is received.
 | |
| 	 * Call's user handler (if available) for IMIn.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onImIn($data)
 | |
| 	{
 | |
| 		//Perhaps we should add an internal log for debugging purposes??
 | |
| 		//But now, this should probably be handled by the user purely
 | |
| 		
 | |
| 		$this->callHandler("IMIn", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * UpdateBuddy Event Handler
 | |
| 	 *
 | |
| 	 * Called when a Buddy Update is receieved.
 | |
| 	 * Call's user handler (if available) for UpdateBuddy.
 | |
| 	 * If info is about self, updates self info (Currently ownly warning).
 | |
| 	 *
 | |
| 	 * ToDo: Keep track of idle, warning etc on Buddy List
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onUpdateBuddy($data)
 | |
| 	{
 | |
| 		//Again, since our class currently does not deal with other people without
 | |
| 		//outside help, then this is also probably best left to the user. Though
 | |
| 		//we should probably allow this to replace the setMyInfo function above
 | |
| 		//by handling the input if and only if it is us
 | |
| 		//Check and see that this is the command expected
 | |
| 		if (strpos($data,"UPDATE_BUDDY2:") == -1)
 | |
| 		{
 | |
| 			$this->log("A different message than expected was received");
 | |
| 			return false;
 | |
| 		}
 | |
| 		
 | |
| 		//@list($cmd, $info['sn'], $info['online'], $info['warnlevel'], $info['signon'], $info['idle'], $info['uc']) = explode(":", $command['incoming']);
 | |
| 
 | |
| 		//@list($cmd, $sn, $online, $warning, $starttime, $idletime, $uc) = explode(":", $data);
 | |
| 		$info = $this->getMessageInfo($data);
 | |
| 		if ($this->normalize($info['sn']) == $this->normalize($this->myScreenName))
 | |
| 		{
 | |
| 			$warning = rtrim($info['warnlevel'],"%");
 | |
| 			$this->myWarnLevel = $warning;
 | |
| 			$this->log("My warning level is $this->myWarnLevel %");
 | |
| 		}
 | |
| 		
 | |
| 		$this->callHandler("UpdateBuddy", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Warning Event Handler
 | |
| 	 *
 | |
| 	 * Called when bot is warned.
 | |
| 	 * Call's user handler (if available) for Warn.
 | |
| 	 * Updates internal warning level
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onWarn($data)
 | |
| 	{
 | |
| 		/*
 | |
| 		For reference:
 | |
| 			$command['incoming'] .= ":0";
 | |
| 			$it = explode(":", $command['incoming']);
 | |
| 			$info['warnlevel'] = $it[1];
 | |
| 			$info['from'] = $it[2];		
 | |
| 		*/
 | |
| 		//SImply update our warning level
 | |
| 		//@list($cmd, $newwarn, $user) = explode(":", $data);
 | |
| 		
 | |
| 		$info = $this->getMessageInfo($data);
 | |
| 		
 | |
| 		$this->setWarningLevel(trim($info['warnlevel'],"%"));
 | |
| 		$this->log("My warning level is $this->myWarnLevel %");
 | |
| 		
 | |
| 		$this->callHandler("Warned", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Chat Join Handler
 | |
| 	 *
 | |
| 	 * Called when bot joins a chat room.
 | |
| 	 * Call's user handler (if available) for ChatJoin.
 | |
| 	 * Adds chat room to internal chat room list.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onChatJoin($data)
 | |
| 	{
 | |
| 		@list($cmd, $rmid, $rmname) = explode(":", $data);
 | |
| 		$this->myChatRooms[$rmid] = 0;
 | |
| 		
 | |
| 		$this->callHandler("ChatJoin", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Returns number of chat rooms bot is in
 | |
| 	 * 
 | |
| 	 * @access public
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return int
 | |
| 	 */
 | |
| 	function getNumChats()
 | |
| 	{
 | |
| 		return count($this->myChatRooms);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Chat Update Handler
 | |
| 	 *
 | |
| 	 * Called when bot received chat room data (user update).
 | |
| 	 * Call's user handler (if available) for ChatUpdate.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onChatUpdate($data)
 | |
| 	{
 | |
| 		$stuff = explode(":", $data);
 | |
| 		$people = sizeof($stuff);
 | |
| 		$people -= 2;
 | |
| 		
 | |
| 		$this->callHandler("ChatUpdate", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Chat Message In Handler
 | |
| 	 *
 | |
| 	 * Called when chat room message is received.
 | |
| 	 * Call's user handler (if available) for ChatIn.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onChatIn($data)
 | |
| 	{
 | |
| 		$this->callHandler("ChatIn", $data);
 | |
| 	}
 | |
| 	
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Chat Invite Handler
 | |
| 	 *
 | |
| 	 * Called when bot is invited to a chat room.
 | |
| 	 * Call's user handler (if available) for ChatInvite.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onChatInvite($data)
 | |
| 	{
 | |
| 		//@list($cmd, $name, $id, $from, $data) = explode(":", $data,6);
 | |
| 		//$data = explode(":",$data,6);
 | |
| 		//$nm = array();
 | |
| 		//@list($nm['cmd'],$nm['name'],$nm['id'],$nm['from'],$nm['message']) = $data;
 | |
| 		
 | |
| 		
 | |
| 		$this->callHandler("ChatInvite", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Chat Left Handler
 | |
| 	 *
 | |
| 	 * Called when bot leaves a chat room
 | |
| 	 * Call's user handler (if available) for ChatLeft.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onChatLeft($data)
 | |
| 	{
 | |
| 		$info = $this->getMessageInfo($data);
 | |
| 		unset($this->myChatRooms[$info['chatid']]);
 | |
| 		$this->callHandler("ChatLeft", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Goto URL Handler
 | |
| 	 *
 | |
| 	 * Called on GotoURL.
 | |
| 	 * Call's user handler (if available) for GotoURL.
 | |
| 	 * No detailed info available for this / Unsupported.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onGotoURL($data)
 | |
| 	{
 | |
| 		//This is of no use to the internal class
 | |
| 		
 | |
| 		$this->callHandler("GotoURL", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Dir Status Handler
 | |
| 	 *
 | |
| 	 * Called on DirStatus.
 | |
| 	 * Call's user handler (if available) for DirStatus.
 | |
| 	 * No detailed info available for this / Unsupported.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onDirStatus($data)
 | |
| 	{
 | |
| 		//This is not currently suported
 | |
| 		
 | |
| 		$this->callHandler("DirStatus", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * AdminNick Handler
 | |
| 	 *
 | |
| 	 * Called on AdminNick.
 | |
| 	 * Call's user handler (if available) for AdminNick.
 | |
| 	 * No detailed info available for this / Unsupported.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onAdminNick($data)
 | |
| 	{
 | |
| 		//NOt particularly useful to us		
 | |
| 		$this->callHandler("AdminNick", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * AdminPasswd Handler
 | |
| 	 *
 | |
| 	 * Called on AdminPasswd.
 | |
| 	 * Call's user handler (if available) for AdminPasswd.
 | |
| 	 * No detailed info available for this / Unsupported.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onAdminPasswd($data)
 | |
| 	{
 | |
| 		//Also not particlualry useful to the internals
 | |
| 		$this->callHandler("AdminPasswd", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Pause Handler
 | |
| 	 *
 | |
| 	 * Called on Pause.
 | |
| 	 * Call's user handler (if available) for Pause.
 | |
| 	 * No detailed info available for this / Unsupported.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onPause($data)
 | |
| 	{
 | |
| 		//This is pretty useless to us too...
 | |
| 		
 | |
| 		$this->callHandler("Pause", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Direct Connection Handler
 | |
| 	 *
 | |
| 	 * Called on Direct Connection Request(Rvous).
 | |
| 	 * Call's user handler (if available) for Rvous.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function onRvous($data)
 | |
| 	{
 | |
| 		$this->callHandler("Rvous", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * CatchAll Handler
 | |
| 	 *
 | |
| 	 * Called for unrecognized commands.
 | |
| 	 * Logs unsupported messages to array.
 | |
| 	 * Call's user handler (if available) for CatchAll.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function CatchAll($data)
 | |
| 	{
 | |
| 		//Add to a log of unsupported messages.
 | |
| 		
 | |
| 		$this->unsupported[] = $data;
 | |
| 		//$this->log($data);
 | |
| 		//print_r($data);
 | |
| 		
 | |
| 		$this->callHandler("CatchAll", $data);
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Calls User Handler
 | |
| 	 *
 | |
| 	 * Calls registered handler for a specific event.
 | |
| 	 * 
 | |
| 	 * @access private
 | |
| 	 * @param String $event Command (event) name (Rvous etc)
 | |
| 	 * @param String $data Raw message from server
 | |
| 	 * @see registerHandler
 | |
| 	 * @return void
 | |
| 	 */
 | |
| 	function callHandler($event, $data)
 | |
| 	{
 | |
| 		
 | |
| 		if (isset($this->myEventHandlers[$event]))
 | |
| 		{
 | |
| 			//$function = $this->myEventHandlers[$event] . "(\$data);";
 | |
| 			//eval($function);
 | |
| 			call_user_func($this->myEventHandlers[$event], $data);
 | |
| 		}
 | |
| 		else
 | |
| 		{
 | |
| 			$this->noHandler($data);
 | |
| 		}
 | |
| 	}
 | |
| 	
 | |
| 	/** 
 | |
| 	 * Registers a user handler
 | |
| 	 * 
 | |
| 	 * Handler List
 | |
| 	 * SignOn, Config, ERROR, NICK, IMIn, UpdateBuddy, Eviled, Warned, ChatJoin
 | |
| 	 * ChatIn, ChatUpdate, ChatInvite, ChatLeft, GotoURL, DirStatus, AdminNick
 | |
| 	 * AdminPasswd, Pause, Rvous, DimIn, CatchAll
 | |
| 	 *
 | |
| 	 * @access private
 | |
| 	 * @param String $event Event name
 | |
| 	 * @param String $handler User function to call
 | |
| 	 * @see callHandler
 | |
| 	 * @return boolean Returns true if successful
 | |
| 	 */
 | |
| 	function registerHandler($event, $handler)
 | |
| 	{
 | |
| 		if (is_callable($handler))
 | |
| 		{
 | |
| 			$this->myEventHandlers[$event] = $handler;
 | |
| 			return true;
 | |
| 		}
 | |
| 		else
 | |
| 		{
 | |
| 			return false;
 | |
| 		}
 | |
| 	}
 | |
| 
 | |
|     /** 
 | |
|      * No user handler method fall back.
 | |
|      *
 | |
|      * Does nothing with message.
 | |
|      *
 | |
|      * @access public
 | |
|      * @param String $message Raw server message
 | |
|      * @return void
 | |
|      */
 | |
|     function noHandler($message)
 | |
|     {
 | |
| 	    //This function intentionally left blank
 | |
| 	    //This is where the handlers will fall to for now. I plan on including a more
 | |
| 	    //efficent check to avoid the apparent stack jumps that this code will produce
 | |
| 	    //But for now, just fall into here, and be happy
 | |
| 	    return;
 | |
|     }
 | |
| 
 | |
|     //GLOBAL FUNCTIONS
 | |
| 
 | |
|     /** 
 | |
|      * Finds type, and returns as part of array ['type']
 | |
|      * Puts message in ['incoming']
 | |
|      *
 | |
|      * Helper method for getMessageInfo.
 | |
|      *
 | |
|      * @access public
 | |
|      * @param String $message Raw server message
 | |
|      * @see msg_parse
 | |
|      * @see getMessageInfo
 | |
|      * @return array
 | |
|      */
 | |
|     static function msg_type($message)
 | |
|     {
 | |
| 	    $command = array();
 | |
| 	    @list($cmd, $rest) = explode(":", $message);
 | |
| 	    switch($cmd)
 | |
| 	    {
 | |
| 		    case 'IM_IN2':
 | |
| 			    $type = AIM_TYPE_MSG;
 | |
| 		    break;
 | |
| 		
 | |
| 		    case 'UPDATE_BUDDY2':
 | |
| 			    $type = AIM_TYPE_UPDATEBUDDY;
 | |
| 		    break;
 | |
| 		
 | |
| 		    case 'EVILED':
 | |
| 			    $type = AIM_TYPE_WARN;
 | |
| 		    break;
 | |
| 		
 | |
| 		    case 'SIGN_ON':
 | |
| 			    $type = AIM_TYPE_SIGNON;
 | |
| 		    break;
 | |
| 		
 | |
| 		    case 'NICK':
 | |
| 			    $type = AIM_TYPE_NICK;
 | |
| 		    break;
 | |
| 		
 | |
| 		    case 'ERROR':
 | |
| 			    $type = AIM_TYPE_ERROR;
 | |
| 		    break;
 | |
| 		
 | |
| 		    case 'CHAT_JOIN':
 | |
| 			    $type = AIM_TYPE_CHATJ;
 | |
| 		    break;
 | |
| 		
 | |
| 		    case 'CHAT_IN':
 | |
| 			    $type = AIM_TYPE_CHATI;
 | |
| 		    break;
 | |
| 		
 | |
| 		    case 'CHAT_UPDATE_BUDDY':
 | |
| 			    $type = AIM_TYPE_CHATUPDBUD;
 | |
| 		    break;
 | |
| 		
 | |
| 		    case 'CHAT_INVITE':
 | |
| 			    $type = AIM_TYPE_CHATINV;
 | |
| 		    break;
 | |
| 		
 | |
| 		    case 'CHAT_LEFT':
 | |
| 			    $type = AIM_TYPE_CHATLE;
 | |
| 		    break;
 | |
| 		
 | |
| 		    case 'GOTO_URL':
 | |
| 			    $type = AIM_TYPE_URL;
 | |
| 		    break;
 | |
| 		
 | |
| 		    case 'ADMIN_NICK_STATUS':
 | |
| 			    $type = AIM_TYPE_NICKSTAT;
 | |
| 		    break;
 | |
| 		
 | |
| 		    case 'ADMIN_PASSWD_STATUS':
 | |
| 			    $type = AIM_TYPE_PASSSTAT;
 | |
| 		    break;
 | |
| 		
 | |
| 		    case 'RVOUS_PROPOSE':
 | |
| 			    $type = AIM_TYPE_RVOUSP;
 | |
| 		    break;
 | |
| 		
 | |
| 		    default:
 | |
| 			    $type = AIM_TYPE_NOT_IMPLEMENTED;
 | |
| 		    break;
 | |
| 	    }
 | |
| 	    $command['type'] = $type;
 | |
| 	    $command['incoming'] = $message;
 | |
| 	    return $command;
 | |
|     }
 | |
| 
 | |
|     /** 
 | |
|      * Parses message and splits into info array
 | |
|      *
 | |
|      * Helper method for getMessageInfo.
 | |
|      *
 | |
|      * @access public
 | |
|      * @param String $command Message and type (after msg_type)
 | |
|      * @see msg_type
 | |
|      * @see getMessageInfo
 | |
|      * @return array
 | |
|      */
 | |
|     static function msg_parse($command)
 | |
|     {
 | |
| 	    $info = array();
 | |
| 	    switch($command['type'])
 | |
| 	    {
 | |
| 		    case AIM_TYPE_WARN:
 | |
| 			    $command['incoming'] .= ":0";
 | |
| 			    $it = explode(":", $command['incoming']);
 | |
| 			    $info['warnlevel'] = $it[1];
 | |
| 			    $info['from'] = $it[2];
 | |
| 
 | |
| 		    break;
 | |
| 		
 | |
| 		    case AIM_TYPE_MSG:
 | |
| 			    $it = explode(":", $command['incoming'],5);
 | |
| 			    $info['auto'] = $it[2];
 | |
| 			    $info['from'] = $it[1];
 | |
| 			    $info['message'] = $it[4];
 | |
| 		    break;
 | |
| 		
 | |
| 		    case AIM_TYPE_UPDATEBUDDY:
 | |
| 			    @list($cmd, $info['sn'], $info['online'], $info['warnlevel'], $info['signon'], $info['idle'], $info['uc']) = explode(":", $command['incoming']);
 | |
| 		    break;
 | |
| 		
 | |
| 		    case AIM_TYPE_SIGNON:
 | |
| 			    @list($cmd, $info['version']) = explode(":", $command['incoming']);		
 | |
| 		    break;
 | |
| 		
 | |
| 		    case AIM_TYPE_NICK:
 | |
| 			    @list($cmd, $info['nickname']) = explode(":", $command['incoming']);		
 | |
| 		    break;
 | |
| 		    case AIM_TYPE_ERROR:
 | |
| 			    @list($cmd, $info['errorcode'], $info['args']) = explode(":", $command['incoming']);
 | |
| 		    break;
 | |
| 		
 | |
| 		    case AIM_TYPE_CHATJ:
 | |
| 			    @list($cmd, $info['chatid'], $info['chatname']) = explode(":", $command['incoming']);
 | |
| 		    break;
 | |
| 		
 | |
| 		    case AIM_TYPE_CHATI:
 | |
| 			    @list($cmd, $info['chatid'], $info['user'], $info['whisper'], $info['message']) = explode(":", $command['incoming'],5);
 | |
| 		    break;
 | |
| 		
 | |
| 		    case AIM_TYPE_CHATUPDBUD:
 | |
| 			    @list($cmd, $info['chatid'], $info['inside'], $info['userlist']) = explode(":", $command['incoming'],3);	
 | |
| 		    break;
 | |
| 		
 | |
| 		    case AIM_TYPE_CHATINV:
 | |
| 			    @list($cmd, $info['chatname'], $info['chatid'], $info['from'], $info['message']) = explode(":", $command['incoming'],5);
 | |
| 		    break;
 | |
| 		
 | |
| 		    case AIM_TYPE_CHATLE:
 | |
| 			    @list($cmd, $info['chatid']) = explode(":", $command['incoming']);		
 | |
| 		    break;
 | |
| 		
 | |
| 		    case AIM_TYPE_URL:
 | |
| 			    @list($cmd, $info['windowname'], $info['url']) = explode(":", $command['incoming'],3);
 | |
| 		    break;
 | |
| 		
 | |
| 		    case AIM_TYPE_RVOUSP:
 | |
| 			    @list($cmd,$info['user'],$info['uuid'],$info['cookie'],$info['seq'],$info['rip'],$info['pip'],$info['vip'],$info['port'],$info['tlvs']) = explode(":",$command['incoming'],10);
 | |
| 		    break;
 | |
| 		
 | |
| 		    case AIM_TYPE_NICKSTAT:
 | |
| 		    case AIM_TYPE_PASSSTAT:
 | |
| 			    @list($cmd, $info['returncode'], $info['opt']) = explode(":", $command['incoming'],3);		
 | |
| 		    break;
 | |
| 		
 | |
| 		    default:
 | |
| 		    $info['command'] = $command['incoming'];
 | |
| 	    }
 | |
| 	    return $info;
 | |
|     }
 | |
| 
 | |
|     /** 
 | |
|      * Returns a parsed message
 | |
|      *
 | |
|      * Calls msg_parse(msg_type( to first determine message type and then parse accordingly
 | |
|      *
 | |
|      * @access public
 | |
|      * @param String $command Raw server message
 | |
|      * @see msg_type
 | |
|      * @see msg_parse
 | |
|      * @return array
 | |
|      */
 | |
|     static function getMessageInfo($message)
 | |
|     {
 | |
| 	    return self::msg_parse(self::msg_type($message));
 | |
|     }
 | |
| 
 | |
|     /** 
 | |
|      * Checks socket for end of file
 | |
|      *
 | |
|      * @access public
 | |
|      * @param Resource $socket Socket to check
 | |
|      * @return boolean true if end of file (socket) 
 | |
|      */
 | |
|     static function socketcheck($socket){
 | |
| 	    $info = stream_get_meta_data($socket);
 | |
| 	    return $info['eof'];
 | |
| 	    //return(feof($socket));
 | |
|     }
 | |
| }
 | |
| 
 | |
| ?>
 |