1144 lines
28 KiB
PHP
1144 lines
28 KiB
PHP
|
<?php
|
||
|
|
/*
|
||
|
|
+---------------------------------------------------------------------------
|
||
|
|
| PHP-IRC v2.2.1 Service Release
|
||
|
|
| ========================================================
|
||
|
|
| by Manick
|
||
|
|
| (c) 2001-2005 by http://www.phpbots.org/
|
||
|
|
| Contact: manick@manekian.com
|
||
|
|
| irc: #manekian@irc.rizon.net
|
||
|
|
| ========================================
|
||
|
|
+---------------------------------------------------------------------------
|
||
|
|
| > parser module
|
||
|
|
| > Module written by Manick
|
||
|
|
| > Module Version Number: 2.2.0
|
||
|
|
+---------------------------------------------------------------------------
|
||
|
|
| > This program is free software; you can redistribute it and/or
|
||
|
|
| > modify it under the terms of the GNU General Public License
|
||
|
|
| > as published by the Free Software Foundation; either version 2
|
||
|
|
| > of the License, or (at your option) any later version.
|
||
|
|
| >
|
||
|
|
| > This program 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 General Public License for more details.
|
||
|
|
| >
|
||
|
|
| > You should have received a copy of the GNU General Public License
|
||
|
|
| > along with this program; if not, write to the Free Software
|
||
|
|
| > Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||
|
|
+---------------------------------------------------------------------------
|
||
|
|
| Changes
|
||
|
|
| =======-------
|
||
|
|
| > If you wish to suggest or submit an update/change to the source
|
||
|
|
| > code, email me at manick@manekian.com with the change, and I
|
||
|
|
| > will look to adding it in as soon as I can.
|
||
|
|
+---------------------------------------------------------------------------
|
||
|
|
*/
|
||
|
|
|
||
|
|
class parser {
|
||
|
|
|
||
|
|
private $cmd;
|
||
|
|
private $args;
|
||
|
|
private $timers = array();
|
||
|
|
|
||
|
|
private $cmdList = array();
|
||
|
|
private $cmdTypes = array();
|
||
|
|
|
||
|
|
private $fileModified = array();
|
||
|
|
private $loadDefError = false;
|
||
|
|
|
||
|
|
//Classes
|
||
|
|
private $ircClass;
|
||
|
|
private $dccClass;
|
||
|
|
private $timerClass;
|
||
|
|
private $socketClass;
|
||
|
|
private $db;
|
||
|
|
|
||
|
|
/* Part of easy alias idea I've been working on..., look below for large bit of commented out code
|
||
|
|
for info...
|
||
|
|
|
||
|
|
private $aliasArray = array( "notice" => "ircClass",
|
||
|
|
"privMsg" => "ircClass",
|
||
|
|
"action" => "ircClass",
|
||
|
|
"sendRaw" => "ircClass",
|
||
|
|
"getNick" => "ircClass",
|
||
|
|
"isOnline" => "ircClass",
|
||
|
|
"isMode" => "ircClass",
|
||
|
|
"isChanMode" => "ircClass",
|
||
|
|
"sendFile" => "dccClass",
|
||
|
|
"dccInform" => "dccClass",
|
||
|
|
"addTimer" => "timerClass",
|
||
|
|
"addListener" => "socketClass",
|
||
|
|
"removeTimer" => "timerClass",
|
||
|
|
);
|
||
|
|
*/
|
||
|
|
|
||
|
|
public function __construct() {
|
||
|
|
$this->fileModified = array();
|
||
|
|
}
|
||
|
|
|
||
|
|
public function init()
|
||
|
|
{
|
||
|
|
|
||
|
|
if ($this->ircClass->getClientConf('functionfile') != "")
|
||
|
|
{
|
||
|
|
$this->loadFuncs($this->ircClass->getClientConf('functionfile'));
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
public function setDccClass($class)
|
||
|
|
{
|
||
|
|
$this->dccClass = $class;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function setIrcClass($class)
|
||
|
|
{
|
||
|
|
$this->ircClass = $class;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function setTimerClass($class)
|
||
|
|
{
|
||
|
|
$this->timerClass = $class;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function setSocketClass($class)
|
||
|
|
{
|
||
|
|
$this->socketClass = $class;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function setDatabase($class)
|
||
|
|
{
|
||
|
|
$this->db = $class;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function getCmdList($type = "")
|
||
|
|
{
|
||
|
|
if ($type == "")
|
||
|
|
{
|
||
|
|
return $this->cmdList;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if (isset($this->cmdList[$type]))
|
||
|
|
{
|
||
|
|
return $this->cmdList[$type];
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
public function destroyModules()
|
||
|
|
{
|
||
|
|
if (is_array($this->cmdList) && count($this->cmdList) > 0)
|
||
|
|
{
|
||
|
|
if (isset($this->cmdList['file']) && is_array($this->cmdList['file']))
|
||
|
|
{
|
||
|
|
foreach ($this->cmdList['file'] AS $index => $data)
|
||
|
|
{
|
||
|
|
if (is_object($data['class']))
|
||
|
|
{
|
||
|
|
$data['class']->destroy();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
private function readFile($file)
|
||
|
|
{
|
||
|
|
|
||
|
|
$configRaw = file_get_contents($file);
|
||
|
|
|
||
|
|
if ($configRaw === false)
|
||
|
|
{
|
||
|
|
if (DEBUG == 1)
|
||
|
|
{
|
||
|
|
echo "Could not find function file '$file' or error.\n";
|
||
|
|
}
|
||
|
|
$this->dccClass->dccInform("Could not find function file '$file' or error.");
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
return $configRaw;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
public function include_recurse($file)
|
||
|
|
{
|
||
|
|
$configRaw = $this->readFile($file);
|
||
|
|
|
||
|
|
if ($configRaw === false)
|
||
|
|
{
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$configRaw = preg_replace("/;(.*\n?)?/", "\n", $configRaw);
|
||
|
|
$configRaw = preg_replace("/~.*\n/", "", $configRaw);
|
||
|
|
|
||
|
|
$configRaw = trim($configRaw);
|
||
|
|
|
||
|
|
$lines = explode("\n", $configRaw);
|
||
|
|
|
||
|
|
$num = 0;
|
||
|
|
$lineNo = 1;
|
||
|
|
$extra = 0;
|
||
|
|
$fullLine = "";
|
||
|
|
foreach ($lines as $line)
|
||
|
|
{
|
||
|
|
$line = trim($line);
|
||
|
|
|
||
|
|
if ($line == "")
|
||
|
|
{
|
||
|
|
$lineNo++;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$line = trim($fullLine . " " . $line);
|
||
|
|
|
||
|
|
$newLine = $this->parseFunc($file, $lineNo, $line);
|
||
|
|
|
||
|
|
$lineNo += $extra + 1;
|
||
|
|
$extra = 0;
|
||
|
|
$fullLine = "";
|
||
|
|
|
||
|
|
if ($newLine === false)
|
||
|
|
{
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($newLine['type'] == "type")
|
||
|
|
{
|
||
|
|
$this->cmdTypes[$newLine['typeArray']['name']]['numArgs'] = count($newLine['typeArray']);
|
||
|
|
$this->cmdTypes[$newLine['typeArray']['name']]['args'] = $newLine['typeArray'];
|
||
|
|
}
|
||
|
|
else if ($newLine['type'] == "include")
|
||
|
|
{
|
||
|
|
if (isset($newLine['typeArray'][0]))
|
||
|
|
{
|
||
|
|
$num += $this->include_recurse($newLine['typeArray'][0]);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if (DEBUG == 1)
|
||
|
|
{
|
||
|
|
echo "Malformed include line on line " . $lineNo . " of function file: " . $file . "\n";
|
||
|
|
}
|
||
|
|
$this->dccClass->dccInform("Malformed include line on line " . $lineNo . " of function file: " . $file);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if (!isset($newLine['typeArray']['name']))
|
||
|
|
{
|
||
|
|
$name = irc::randomHash() . "_" . rand(1,1024);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$name = $newLine['typeArray']['name'];
|
||
|
|
}
|
||
|
|
|
||
|
|
unset($newLine['typeArray']['name']);
|
||
|
|
|
||
|
|
$this->cmdList[$newLine['type']][$name] = $newLine['typeArray'];
|
||
|
|
|
||
|
|
if (isset($this->cmdList[$newLine['type']][$name]['usage']))
|
||
|
|
{
|
||
|
|
if (isset($oldCmdList[$newLine['type']][$name]['usage']))
|
||
|
|
{
|
||
|
|
$this->cmdList[$newLine['type']][$name]['usage'] = $oldCmdList[$newLine['type']][$name]['usage'];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
$num++;
|
||
|
|
}
|
||
|
|
|
||
|
|
return $num;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
public function loadFuncs($file)
|
||
|
|
{
|
||
|
|
$error = false;
|
||
|
|
|
||
|
|
clearstatcache();
|
||
|
|
|
||
|
|
$this->destroyModules();
|
||
|
|
|
||
|
|
$oldCmdList = $this->cmdList;
|
||
|
|
if (!is_array($oldCmdList))
|
||
|
|
{
|
||
|
|
$oldCmdList = array();
|
||
|
|
}
|
||
|
|
|
||
|
|
unset($this->cmdList);
|
||
|
|
unset($this->cmdTypes);
|
||
|
|
$this->cmdList = array();
|
||
|
|
$this->cmdTypes = array();
|
||
|
|
|
||
|
|
$this->dccClass->dccInform("Rehashing Function File, please wait...");
|
||
|
|
if (DEBUG == 1)
|
||
|
|
{
|
||
|
|
echo "Rehashing Function File, please wait...\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
//Read in main function file
|
||
|
|
$num = $this->include_recurse($file);
|
||
|
|
|
||
|
|
//Book keeping
|
||
|
|
foreach ($this->cmdList AS $cmd => $data)
|
||
|
|
{
|
||
|
|
ksort($this->cmdList[$cmd]);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (isset($this->cmdList['file']))
|
||
|
|
{
|
||
|
|
foreach ($this->cmdList['file'] AS $file => $data)
|
||
|
|
{
|
||
|
|
|
||
|
|
$classDef = $this->loadClassDef($data['filename'], $file);
|
||
|
|
|
||
|
|
if ($this->loadDefError == true)
|
||
|
|
{
|
||
|
|
$error = true;
|
||
|
|
}
|
||
|
|
$this->loadDefError = false;
|
||
|
|
|
||
|
|
if ($classDef === false)
|
||
|
|
{
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
//require_once($data['filename']);
|
||
|
|
|
||
|
|
$this->cmdList['file'][$file]['class'] = new $classDef;
|
||
|
|
|
||
|
|
$this->cmdList['file'][$file]['class']->__setClasses( $this->ircClass,
|
||
|
|
$this->dccClass,
|
||
|
|
$this->timerClass,
|
||
|
|
$this,
|
||
|
|
$this->socketClass,
|
||
|
|
$this->db
|
||
|
|
);
|
||
|
|
$this->cmdList['file'][$file]['class']->init();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$this->dccClass->dccInform("Successfully loaded " . $num . " functions into memory.");
|
||
|
|
if (DEBUG == 1)
|
||
|
|
{
|
||
|
|
echo "Successfully loaded " . $num . " functions into memory.\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
return $error;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
private function loadClassError($filename, $msg)
|
||
|
|
{
|
||
|
|
$this->ircClass->log("Error loading $filename: $msg");
|
||
|
|
$this->dccClass->dccInform("Error loading $filename: $msg");
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Okay..
|
||
|
|
* This method is really freaking cool. It loads a module file with fopen, then
|
||
|
|
* it finds the classname, and gives it a random name (changes it) so that you can
|
||
|
|
* include functions you've changed multiple times without having to restart the bot!
|
||
|
|
* Also, easier names than having to use $this->ircClass->blah() all the time, you can
|
||
|
|
* just use blah()... These are defined in an array somewhere... I'm not sure where yet...
|
||
|
|
* because I haven't written that yet!!!!!!!!!!!!111oneone.
|
||
|
|
*/
|
||
|
|
|
||
|
|
private function loadClassDef($filename, $classname)
|
||
|
|
{
|
||
|
|
|
||
|
|
$stat = stat($filename);
|
||
|
|
|
||
|
|
if ($stat === false)
|
||
|
|
{
|
||
|
|
$this->loadClassError($filename, "Could not find function file");
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$modified = $stat['mtime'];
|
||
|
|
|
||
|
|
if (isset($this->fileModified[$filename]))
|
||
|
|
{
|
||
|
|
if ($modified == $this->fileModified[$filename]['modified'])
|
||
|
|
{
|
||
|
|
return $this->fileModified[$filename]['classdef'];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
$fileData = file_get_contents($filename);
|
||
|
|
|
||
|
|
if ($fileData === false)
|
||
|
|
{
|
||
|
|
$this->loadClassError($filename, "Could not find function file");
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
//Okay, we have the module now.. now we need to find some stuff.
|
||
|
|
|
||
|
|
if (!preg_match("/class[\s]+?".$classname."[\s]+?extends[\s]+?module[\s]+?{/", $fileData))
|
||
|
|
{
|
||
|
|
$this->loadClassError($filename, "Could not find valid classdef in function file");
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
//Okay, our module is in the file... replace it with random hash.
|
||
|
|
|
||
|
|
$newHash = irc::randomHash();
|
||
|
|
|
||
|
|
$newClassDef = $classname . "_" . $newHash;
|
||
|
|
|
||
|
|
$fileData = preg_replace("/(class[\s]+?)".$classname."([\s]+?extends[\s]+?module[\s]+?{)/", "\\1" . $newClassDef . "\\2", $fileData);
|
||
|
|
|
||
|
|
/* Interesting idea, but lets leave it out for now
|
||
|
|
foreach($this->aliasArray AS $func => $class)
|
||
|
|
{
|
||
|
|
$fileData = preg_replace("/([=\n\(\t\s]+?)".$func."[\s\t\n\r]*?\(/s", "\\1\$this->" . $class . "->" . $func . "(", $fileData);
|
||
|
|
}
|
||
|
|
*/
|
||
|
|
|
||
|
|
$success = eval("?>" . $fileData . "<?php ");
|
||
|
|
|
||
|
|
if ($success === false)
|
||
|
|
{
|
||
|
|
$this->loadClassError($filename, "Error in function file");
|
||
|
|
|
||
|
|
/* Attempt to fallback on a previous revision that worked! */
|
||
|
|
if (isset($this->fileModified[$filename]))
|
||
|
|
{
|
||
|
|
$this->loadClassError($filename, "Using a cached version of the class definition");
|
||
|
|
$this->loadDefError = true;
|
||
|
|
return $this->fileModified[$filename]['classdef'];
|
||
|
|
}
|
||
|
|
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$this->fileModified[$filename]['modified'] = $modified;
|
||
|
|
$this->fileModified[$filename]['classdef'] = $newClassDef;
|
||
|
|
|
||
|
|
return $newClassDef;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
//Used to show array, as there seems to be some crazy bug in var_dump/print_r that
|
||
|
|
//shows EVERY variable in my program when I do var_dump($this->cmdList) or use print_r the same way
|
||
|
|
//This isn't used anywhere in the production copy of this script. (DEBUG ONLY!)
|
||
|
|
private function show_all($title, $array, $level)
|
||
|
|
{
|
||
|
|
echo $title . " = array(" . "\r\n";
|
||
|
|
|
||
|
|
foreach($array AS $index => $val)
|
||
|
|
{
|
||
|
|
for ($i = 0; $i < $level; $i++)
|
||
|
|
{
|
||
|
|
echo " ";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (is_array($val))
|
||
|
|
{
|
||
|
|
$this->show_all($index, $val, $level + 1);
|
||
|
|
}
|
||
|
|
else if (is_object($val))
|
||
|
|
{
|
||
|
|
echo "[$index] => [object]\r\n";
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
echo "[$index] => [$val]\r\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
for ($i = 0; $i < $level; $i++)
|
||
|
|
{
|
||
|
|
echo " ";
|
||
|
|
}
|
||
|
|
|
||
|
|
echo ")\r\n";
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
public function setCmdListValue($type, $cmd, $var, $value)
|
||
|
|
{
|
||
|
|
if (isset($this->cmdList[$type][$cmd][$var]))
|
||
|
|
{
|
||
|
|
$this->cmdList[$type][$cmd][$var] = $value;
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
private function parseFunc($file, $lineNo, $line)
|
||
|
|
{
|
||
|
|
$strings = array();
|
||
|
|
$line = str_replace("\t", " ", $line);
|
||
|
|
|
||
|
|
$quotes = array("'", "\"");
|
||
|
|
|
||
|
|
foreach($quotes AS $quote)
|
||
|
|
{
|
||
|
|
$currPos = 0;
|
||
|
|
$extraPos = 0;
|
||
|
|
while (($firstPos = strpos($line, $quote, $currPos)) !== false && substr($line, strpos($line, $quote, $currPos)-1, 1) != "\\")
|
||
|
|
{
|
||
|
|
|
||
|
|
while (($secondPos = strpos($line, $quote, $firstPos + 1 + $extraPos)) !== false && substr($line, strpos($line, $quote, $firstPos + 1 + $extraPos)-1, 1) == "\\")
|
||
|
|
{
|
||
|
|
$extraPos = $secondPos;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($secondPos === false)
|
||
|
|
{
|
||
|
|
if (DEBUG == 1)
|
||
|
|
{
|
||
|
|
echo "Syntax Error on line " . $lineNo . " of function file: " . $file . ". Expected '".$quote."', got end of line.\n";
|
||
|
|
}
|
||
|
|
$this->dccClass->dccInform("Syntax Error on line " . $lineNo . " of function file: " . $file . ". Expected '".$quote."', got end of line.");
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$strings[$quote][] = substr($line, $firstPos + 1, $secondPos - $firstPos - 1);
|
||
|
|
$currPos = $secondPos + 1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach ($strings AS $string)
|
||
|
|
{
|
||
|
|
$line = str_replace($string, "", $line);
|
||
|
|
}
|
||
|
|
|
||
|
|
$lineElements = explode(chr(32), $line);
|
||
|
|
|
||
|
|
$type = "";
|
||
|
|
$currElement = 0;
|
||
|
|
$typeArray = array();
|
||
|
|
|
||
|
|
foreach($lineElements AS $element)
|
||
|
|
{
|
||
|
|
if (trim($element) == "")
|
||
|
|
{
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$currElement++;
|
||
|
|
|
||
|
|
if ($currElement == 1)
|
||
|
|
{
|
||
|
|
$element = irc::myStrToLower($element);
|
||
|
|
|
||
|
|
if ($element == "type")
|
||
|
|
{
|
||
|
|
$type = "type";
|
||
|
|
}
|
||
|
|
else if ($element == "include")
|
||
|
|
{
|
||
|
|
$type = "include";
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if (isset($this->cmdTypes[$element]))
|
||
|
|
{
|
||
|
|
$type = $element;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if (DEBUG == 1)
|
||
|
|
{
|
||
|
|
echo "Error: Undefined type, '" . $element . "' on line " . $lineNo . " of function file: " . $file . "\n";
|
||
|
|
}
|
||
|
|
$this->dccClass->dccInform("Error: Undefined type, '" . $element . "' on line " . $lineNo . " of function file: " . $file . "");
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($element == "\"\"")
|
||
|
|
{
|
||
|
|
$element = array_shift($strings["\""]);
|
||
|
|
}
|
||
|
|
else if ($element == "''")
|
||
|
|
{
|
||
|
|
$element = array_shift($strings["'"]);
|
||
|
|
}
|
||
|
|
|
||
|
|
$element = str_replace("\\" . "'", "'", $element);
|
||
|
|
$element = str_replace("\\" . '"', '"', $element);
|
||
|
|
|
||
|
|
if ($type == "type")
|
||
|
|
{
|
||
|
|
if ($currElement == 2)
|
||
|
|
{
|
||
|
|
$typeArray['name'] = $element;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$typeArray[] = $element;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else if ($type == "include")
|
||
|
|
{
|
||
|
|
$typeArray[] = $element;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ($currElement > $this->cmdTypes[$type]['numArgs'])
|
||
|
|
{
|
||
|
|
if (DEBUG == 1)
|
||
|
|
{
|
||
|
|
echo "Error on line " . $lineNo . " of function file: " . $file . ", too many arguments\n";
|
||
|
|
}
|
||
|
|
$this->dccClass->dccInform("Error on line " . $lineNo . " of function file: " . $file . ", too many arguments");
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
|
||
|
|
$element = (irc::myStrToLower($element) == "true" ? true : $element);
|
||
|
|
$element = (irc::myStrToLower($element) == "false" ? false : $element);
|
||
|
|
|
||
|
|
$typeArray[$this->cmdTypes[$type]['args'][ $currElement - 2 ]] = $element;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($type != "type" && $type != "include")
|
||
|
|
{
|
||
|
|
if ($currElement < $this->cmdTypes[$type]['numArgs'])
|
||
|
|
{
|
||
|
|
if (DEBUG == 1)
|
||
|
|
{
|
||
|
|
echo "Error on line " . $lineNo . " of function file: " . $file . ", not enough arguments\n";
|
||
|
|
}
|
||
|
|
$this->dccClass->dccInform("Error on line " . $lineNo . " of function file: " . $file . ", not enough arguments");
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return array('type' => $type, 'typeArray' => $typeArray);
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
public function parseDcc($chat, $handler)
|
||
|
|
{
|
||
|
|
|
||
|
|
$chat->readQueue = str_replace("\r", "", $chat->readQueue);
|
||
|
|
|
||
|
|
// if (!($offSet = strpos($chat->readQueue, "\n")))
|
||
|
|
// {
|
||
|
|
// return false;
|
||
|
|
// }
|
||
|
|
// $rawLine = trim(substr($chat->readQueue, 0, $offSet));
|
||
|
|
// $chat->readQueue = substr($chat->readQueue, $offSet + 1);
|
||
|
|
|
||
|
|
$rawLine = $chat->readQueue;
|
||
|
|
$chat->readQueue = "";
|
||
|
|
|
||
|
|
$this->ircClass->log("DCC Chat(" . $chat->nick . "): " . $rawLine);
|
||
|
|
|
||
|
|
$line = $this->createLine($rawLine);
|
||
|
|
|
||
|
|
if ($line == false)
|
||
|
|
{
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($handler != false)
|
||
|
|
{
|
||
|
|
if (is_object($handler))
|
||
|
|
{
|
||
|
|
$handler->handle($chat, $line);
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($chat->isAdmin == true && $chat->verified == false)
|
||
|
|
{
|
||
|
|
if (md5($line['cmd']) == $this->ircClass->getClientConf('dccadminpass'))
|
||
|
|
{
|
||
|
|
$this->dccClass->dccInform("DCC: " . $chat->nick . " has successfully logged in.");
|
||
|
|
$chat->verified = true;
|
||
|
|
$chat->dccSend("You have successfully logged in.");
|
||
|
|
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$chat->dccSend("Invalid password, bye bye.");
|
||
|
|
$this->dccClass->disconnect($chat);
|
||
|
|
}
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
$cmdLower = irc::myStrToLower($line['cmd']);
|
||
|
|
|
||
|
|
if (isset($this->cmdList['dcc'][$cmdLower]))
|
||
|
|
{
|
||
|
|
if ($this->cmdList['dcc'][$cmdLower]['admin'] == 1 && !$chat->isAdmin)
|
||
|
|
{
|
||
|
|
$chat->dccSend("Request Denied. You must have admin access to use this function.");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($line['nargs'] < $this->cmdList['dcc'][$cmdLower]['numArgs'])
|
||
|
|
{
|
||
|
|
$chat->dccSend("Usage: " . $cmdLower . " " . $this->cmdList['dcc'][$cmdLower]['usage']);
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
$module = $this->cmdList['dcc'][$cmdLower]['module'];
|
||
|
|
$class = $this->cmdList['file'][$module]['class'];
|
||
|
|
$func = $this->cmdList['dcc'][$cmdLower]['function'];
|
||
|
|
|
||
|
|
$class->$func($chat, $line);
|
||
|
|
|
||
|
|
if ($chat->isAdmin)
|
||
|
|
{
|
||
|
|
$chat->dccSend("ADMIN " . irc::myStrToUpper($cmdLower) . " Requested");
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$chat->dccSend("CLIENT " . irc::myStrToUpper($cmdLower) . " Requested");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$chat->dccSend("Invalid Command: " . $line['cmd']);
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
public static function createLine($rawLine)
|
||
|
|
{
|
||
|
|
|
||
|
|
$line = array();
|
||
|
|
$rawLineArray = explode(chr(32), $rawLine);
|
||
|
|
$lineCount = count($rawLineArray);
|
||
|
|
|
||
|
|
if ($lineCount < 1)
|
||
|
|
{
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
else if ($lineCount == 1)
|
||
|
|
{
|
||
|
|
$line['cmd'] = irc::myStrToLower($rawLine);
|
||
|
|
$line['nargs'] = 0;
|
||
|
|
$line['query'] = "";
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$line['nargs'] = 0;
|
||
|
|
$line['cmd'] = irc::myStrToLower(array_shift($rawLineArray));
|
||
|
|
while (($arg = array_shift($rawLineArray)) !== NULL) // NULL fixed contributed by cortex, 05/01/05
|
||
|
|
{
|
||
|
|
if (trim($arg) == "")
|
||
|
|
{
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$line['arg' . ++$line['nargs']] = $arg;
|
||
|
|
if ($line['nargs'] > MAX_ARGS-1)
|
||
|
|
{
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$line['query'] = trim(substr($rawLine, strlen($line['cmd']) + 1));
|
||
|
|
}
|
||
|
|
|
||
|
|
return $line;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
public function parseLine($line)
|
||
|
|
{
|
||
|
|
if (DEBUG==1)
|
||
|
|
{
|
||
|
|
//print_r($line);
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($this->ircClass->checkIgnore($line['from']))
|
||
|
|
{
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
switch($line['cmd'])
|
||
|
|
{
|
||
|
|
case "PRIVMSG":
|
||
|
|
$args = $this->createLine($line['text']);
|
||
|
|
$cmdLower = irc::myStrToLower($args['cmd']);
|
||
|
|
if (isset($this->cmdList['priv'][$cmdLower]))
|
||
|
|
{
|
||
|
|
if ($this->cmdList['priv'][$cmdLower]['active'] == true)
|
||
|
|
{
|
||
|
|
$theCase = $this->ircClass->floodCheck($line);
|
||
|
|
|
||
|
|
switch ($theCase)
|
||
|
|
{
|
||
|
|
case STATUS_NOT_BANNED:
|
||
|
|
if ($this->cmdList['priv'][$cmdLower]['inform'] == true)
|
||
|
|
{
|
||
|
|
$this->dccClass->dccInform("Sending " . irc::myStrToUpper($line['text']) . " to " . $line['fromNick']);
|
||
|
|
}
|
||
|
|
$this->cmdList['priv'][$cmdLower]['usage']++;
|
||
|
|
$func = $this->cmdList['priv'][$cmdLower]['function'];
|
||
|
|
$module = $this->cmdList['priv'][$cmdLower]['module'];
|
||
|
|
$class = $this->cmdList['file'][$module]['class'];
|
||
|
|
|
||
|
|
if ($this->ircClass->getTextQueueLength() > 5)
|
||
|
|
{
|
||
|
|
$this->ircClass->notice($line['fromNick'], "Request Queued. Please wait " . $this->ircClass->getTextQueueLength() . " seconds for your data.", 0);
|
||
|
|
}
|
||
|
|
|
||
|
|
$class->$func($line, $args);
|
||
|
|
break;
|
||
|
|
case STATUS_JUST_BANNED:
|
||
|
|
$this->ircClass->notice($line['fromNick'], "Flood Detected. All of your queues have been discarded and you have been banned from using this bot for ". $this->ircClass->getClientConf('floodtime') . " seconds.");
|
||
|
|
$this->dccClass->dccInform("BAN: (*!". irc::myStrToUpper($line['fromHost']) . "): " . $line['fromNick'] . " is on ignore for " . $this->ircClass->getClientConf('floodtime') . " seconds.");
|
||
|
|
break;
|
||
|
|
case STATUS_ALREADY_BANNED:
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$this->dccClass->dccInform("FUNCTION: " . $line['fromNick'] . " attempted to use deactivated command '" . $cmdLower . "'");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ($line['to'] == $this->ircClass->getNick())
|
||
|
|
{
|
||
|
|
if (strpos($line['text'], chr(1)) !== false)
|
||
|
|
{
|
||
|
|
$this->ircClass->floodCheck($line);
|
||
|
|
$this->parseCtcp($line);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$this->dccClass->dccInform("PRIVMSG: <" . $line['fromNick'] . "> " . $line['text']);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if (strpos($line['text'], chr(1)) !== false)
|
||
|
|
{
|
||
|
|
$this->parseCtcp($line, "CHAN: " . $line['to']);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$chanData = $this->ircClass->getChannelData($line['to']);
|
||
|
|
|
||
|
|
if ($chanData == NULL)
|
||
|
|
{
|
||
|
|
$this->dccClass->dccInform("CHAN PRIVMSG [".$line['to']."]: <" . $line['fromNick'] . "> " . $line['text']);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "MODE":
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "NOTICE":
|
||
|
|
$chan = $line['to'] != $this->ircClass->getNick() ? ":" . $line['to'] : "";
|
||
|
|
$this->dccClass->dccInform("NOTICE: <" . ($line['fromNick'] == "" ? $line['from'] : $line['fromNick']) . $chan . "> " . $line['text']);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "JOIN":
|
||
|
|
if ($line['fromNick'] == $this->ircClass->getNick())
|
||
|
|
{
|
||
|
|
$this->dccClass->dccInform("Joined: " . irc::myStrToUpper($line['text']));
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "PART":
|
||
|
|
if ($line['fromNick'] == $this->ircClass->getNick())
|
||
|
|
{
|
||
|
|
$this->dccClass->dccInform("Parted: " . irc::myStrToUpper($line['to']));
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "KICK":
|
||
|
|
if ($line['params'] == $this->ircClass->getNick())
|
||
|
|
{
|
||
|
|
$this->dccClass->dccInform("Kicked: " . $line['fromNick'] . " kicked you from " . $line['to']);
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "ERROR":
|
||
|
|
$this->dccClass->dccInform("Server Error: " . $line['text']);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "366":
|
||
|
|
$params = explode(chr(32), $line['params']);
|
||
|
|
$channel = $params[0];
|
||
|
|
$this->dccClass->dccInform("Finished receiving NAMES list for " . $channel);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "005":
|
||
|
|
if ($this->ircClass->getServerConf("NETWORK") != "")
|
||
|
|
{
|
||
|
|
//Only show this once...
|
||
|
|
if (strpos($line['params'],"NETWORK") !== false)
|
||
|
|
{
|
||
|
|
$this->dccClass->dccInform("Parsing IRC-Server specific configuration...");
|
||
|
|
$this->dccClass->dccInform("Network has been identified as " . $this->ircClass->getServerConf("NETWORK") .
|
||
|
|
"(" . $line['from'] . ")");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "315":
|
||
|
|
$params = explode(chr(32), $line['params']);
|
||
|
|
$this->dccClass->dccInform("Finished receiving WHO list for: " . $params[0]);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "368":
|
||
|
|
$params = explode(chr(32), $line['params']);
|
||
|
|
$this->dccClass->dccInform("Finished receiving ban list for: " . $params[0]);
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "433":
|
||
|
|
$this->dccClass->dccInform("Nick collision! Unable to change your nick. Nickname already in use!");
|
||
|
|
break;
|
||
|
|
|
||
|
|
default:
|
||
|
|
break;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
// Lets alias 004 to CONNECT, for the n00bs
|
||
|
|
|
||
|
|
if ($line['cmd'] == "004")
|
||
|
|
{
|
||
|
|
$line['cmd'] = "connect";
|
||
|
|
}
|
||
|
|
if ($line['cmd'] == "error")
|
||
|
|
{
|
||
|
|
$line['cmd'] = "disconnect";
|
||
|
|
}
|
||
|
|
|
||
|
|
// Action type handler
|
||
|
|
if (isset($this->cmdList['action']) && strtolower($line['cmd']) == "privmsg")
|
||
|
|
{
|
||
|
|
if (substr($line['text'], 0, 8) == chr(1) . "ACTION ")
|
||
|
|
{
|
||
|
|
$newLine = $line;
|
||
|
|
$newLine['text'] = substr($line['text'], 8, strlen($line['text']) - 9);
|
||
|
|
|
||
|
|
$sArgs = $this->createLine($newLine['text']);
|
||
|
|
|
||
|
|
foreach($this->cmdList['action'] AS $item)
|
||
|
|
{
|
||
|
|
$func = $item['function'];
|
||
|
|
$class = $this->cmdList['file'][$item['module']]['class'];
|
||
|
|
$class->$func($newLine, $sArgs);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
// Raw type handler
|
||
|
|
if (isset($this->cmdList['raw']))
|
||
|
|
{
|
||
|
|
if (!isset($args))
|
||
|
|
{
|
||
|
|
$args = $this->createLine($line['text']);
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach($this->cmdList['raw'] AS $item)
|
||
|
|
{
|
||
|
|
$func = $item['function'];
|
||
|
|
$class = $this->cmdList['file'][$item['module']]['class'];
|
||
|
|
$class->$func($line, $args);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
// Here we will call any type
|
||
|
|
|
||
|
|
if (isset($this->cmdList[irc::myStrToLower($line['cmd'])]))
|
||
|
|
{
|
||
|
|
if (!isset($args))
|
||
|
|
{
|
||
|
|
$args = $this->createLine($line['text']);
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach($this->cmdList[irc::myStrToLower($line['cmd'])] AS $item)
|
||
|
|
{
|
||
|
|
$func = $item['function'];
|
||
|
|
$class = $this->cmdList['file'][$item['module']]['class'];
|
||
|
|
$class->$func($line, $args);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (isset($args))
|
||
|
|
{
|
||
|
|
unset($args);
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/* Misc Functions */
|
||
|
|
|
||
|
|
private function parseCtcp($line, $msgs = "PRIVMSG")
|
||
|
|
{
|
||
|
|
$cmd = str_replace(chr(1), "", $line['text']) . " ";
|
||
|
|
$query = trim(substr($cmd, strpos($cmd, chr(32)) + 1));
|
||
|
|
$cmd = substr(irc::myStrToLower($cmd), 0, strpos($cmd, chr(32)));
|
||
|
|
|
||
|
|
$msg = "";
|
||
|
|
|
||
|
|
switch($cmd)
|
||
|
|
{
|
||
|
|
case "version":
|
||
|
|
$this->dccClass->dccInform("CTCP VERSION: " . $line['fromNick'] . " versioned us.");
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "time":
|
||
|
|
$this->dccClass->dccInform("CTCP TIME: " . $line['fromNick'] . " requested the time.");
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "uptime":
|
||
|
|
$this->dccClass->dccInform("CTCP UPTIME: " . $line['fromNick'] . " requested our uptime.");
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "ping":
|
||
|
|
$this->dccClass->dccInform("CTCP PING: " . $line['fromNick'] . " pinged us.");
|
||
|
|
break;
|
||
|
|
|
||
|
|
case "dcc":
|
||
|
|
$vars = explode(chr(32), $query);
|
||
|
|
$this->dccParse($line, $vars, $query);
|
||
|
|
break;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($msg != "")
|
||
|
|
{
|
||
|
|
$this->notice($this->lVars['fromNick'], chr(1) . $msg . chr(1));
|
||
|
|
}
|
||
|
|
|
||
|
|
if (isset($this->cmdList['ctcp'][$cmd]))
|
||
|
|
{
|
||
|
|
$func = $this->cmdList['ctcp'][$cmd]['function'];
|
||
|
|
$class = $this->cmdList['file'][$this->cmdList['ctcp'][$cmd]['module']]['class'];
|
||
|
|
$args = $this->createLine($cmd . " " . $query);
|
||
|
|
$class->$func($line, $args);
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
function dccParse($line, $vars, $txt)
|
||
|
|
{
|
||
|
|
$cVars = count($vars);
|
||
|
|
|
||
|
|
if ($cVars < 1)
|
||
|
|
{
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
$cmd = irc::myStrToUpper($vars[0]);
|
||
|
|
|
||
|
|
switch ($cmd)
|
||
|
|
{
|
||
|
|
case "CHAT":
|
||
|
|
if ($cVars == 4)
|
||
|
|
{
|
||
|
|
$iplong = long2ip( (double) $vars[2]);
|
||
|
|
$port = $vars[3];
|
||
|
|
$this->dccClass->addChat($line['fromNick'], $iplong, (int) $port, false, null);
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case "SEND":
|
||
|
|
if ($this->ircClass->getClientConf('upload') != 'yes')
|
||
|
|
{
|
||
|
|
$this->ircClass->notice($line['fromNick'], "DCC: I do not accept dcc transfers at this time.", 0);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
if ($cVars >= 5)
|
||
|
|
{
|
||
|
|
//Some bastard sent a file with spaces. Shit. Ass.
|
||
|
|
if (strpos($query, chr(34)) !== false)
|
||
|
|
{
|
||
|
|
$first = strpos($query, chr(34));
|
||
|
|
$second = strpos($query, chr(34), $first + 1);
|
||
|
|
$filename = substr($query, $first + 1, $second - $first - 1);
|
||
|
|
$query = str_replace("\"".$filename."\"", "file.ext", $query);
|
||
|
|
$vars = explode(chr(32), $query);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
$filename = $vars[1];
|
||
|
|
}
|
||
|
|
|
||
|
|
$iplong = long2ip( (double) $vars[2]);
|
||
|
|
$port = $vars[3];
|
||
|
|
$filesize = $vars[4];
|
||
|
|
|
||
|
|
$this->dccClass->addFile($line['fromNick'], $iplong, (int) $port, DOWNLOAD, $filename, $filesize);
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case "ACCEPT":
|
||
|
|
if ($cVars == 4)
|
||
|
|
{
|
||
|
|
$port = $vars[2];
|
||
|
|
$bytes = $vars[3];
|
||
|
|
$this->dccClass->dccAccept($port, $bytes);
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case "RESUME":
|
||
|
|
if ($cVars == 4)
|
||
|
|
{
|
||
|
|
$port = $vars[2];
|
||
|
|
$bytes = $vars[3];
|
||
|
|
$this->dccClass->dccResume($port, $bytes);
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Used to access dcc admin commands via private message */
|
||
|
|
class chat_wrapper {
|
||
|
|
|
||
|
|
public $nick;
|
||
|
|
private $ircClass;
|
||
|
|
public $isAdmin;
|
||
|
|
|
||
|
|
public function __construct($nick, $ircClass)
|
||
|
|
{
|
||
|
|
$this->nick = $nick;
|
||
|
|
$this->ircClass = $ircClass;
|
||
|
|
$this->isAdmin = 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
public function dccSend($data, $to = null)
|
||
|
|
{
|
||
|
|
$this->ircClass->privMsg($this->nick, "--> " . $data);
|
||
|
|
}
|
||
|
|
|
||
|
|
public function disconnect($msg = "")
|
||
|
|
{
|
||
|
|
$this->ircClass->privMsg($this->nick, "Right........");
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
?>
|