X-Git-Url: http://git.pk910.de/?p=PHP-P10.git;a=blobdiff_plain;f=Bots%2FPerlGod.class.php;h=189a7f6d89abd800299a6337ca9930049123e835;hp=0eb0a634647ce172ed10e6450cda89987a662ffd;hb=7f51193ddac01b0540000c756c50167ff015e02a;hpb=811bc0c7a1f583fb624a0f8c3601146e063c5a25 diff --git a/Bots/PerlGod.class.php b/Bots/PerlGod.class.php index 0eb0a63..189a7f6 100644 --- a/Bots/PerlGod.class.php +++ b/Bots/PerlGod.class.php @@ -6,7 +6,7 @@ * it under the terms of the GNU General Public License as published by * * the Free Software Foundation, either version 3 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 * @@ -16,7 +16,7 @@ * along with this program. If not, see . * * * ************************************************************************ - * + * * Bots/PerlGod.class.php * * simple Perl debugger... @@ -26,7 +26,7 @@ class {$_NAME} extends Bot { private $uplink; private $bot, $execcache = array(); - + public function load($uplink, $old = false) { $this->uplink = $uplink; if(!$old) { @@ -40,16 +40,16 @@ class {$_NAME} extends Bot { if(is_a($this->bot, "P10_User")) { $this->uplink->join($this->bot, "#perl", (P10_Channel::USERPRIV_OPED | P10_Channel::USERPRIV_VOICE)); $this->uplink->join($this->bot, "#dev", P10_Channel::USERPRIV_VOICE); - $this->uplink->join($this->bot, "#CoderCom", P10_Channel::USERPRIV_VOICE); + $this->uplink->join($this->bot, "#CoderCom", P10_Channel::USERPRIV_VOICE); } } else { $this->bot = $old; } - + ModCMD::bind($this, BIND_CHANMSG, "recive_privmsg"); ModCMD::bind($this, BIND_QUIT, "recive_quit"); } - + public function unload($rehash = false) { foreach($this->execcache as $id => $entry) { fclose($entry['pipes'][1]); @@ -63,7 +63,7 @@ class {$_NAME} extends Bot { $this->uplink->delUser($this->bot, "Bye."); } } - + public function loop() { foreach($this->execcache as $id => $entry) { if(!$this->checkstate($entry)) { @@ -71,7 +71,7 @@ class {$_NAME} extends Bot { } } } - + function recive_privmsg($user, $channel, $message) { $opOnPerlChannel = false; $entryChannel = P10_Channel::getChannelByName("#Perl"); @@ -96,31 +96,31 @@ class {$_NAME} extends Bot { return; } $entry['time'] = time(); - if(preg_match("#pastebin\.com/([a-zA-Z0-9]*)$#i", $exp[1])) { - $pasteid = explode("/", $exp[1]); - $pasteid = $pasteid[count($pasteid)-1]; - $codecontent = file_get_contents("http://pastebin.com/download.php?i=".$pasteid); - if(preg_match("#Unknown Paste ID!#i", $codecontent)) { - $this->uplink->notice($this->bot, $user, "Unknown Paste ID!"); - return; - } - $code = $codecontent; - } else { - $code = $exp[1]; - } + if(preg_match("#pastebin\.com/([a-zA-Z0-9]*)$#i", $exp[1])) { + $pasteid = explode("/", $exp[1]); + $pasteid = $pasteid[count($pasteid)-1]; + $codecontent = file_get_contents("http://pastebin.com/download.php?i=".$pasteid); + if(preg_match("#Unknown Paste ID!#i", $codecontent)) { + $this->uplink->notice($this->bot, $user, "Unknown Paste ID!"); + return; + } + $code = $codecontent; + } else { + $code = $exp[1]; + } fwrite($entry['pipes'][0], $code); fclose($entry['pipes'][0]); $this->execcache[] = $entry; break; } } - + function recive_quit($user, $reason) { if($user === $this->bot) { $this->load($this->uplink); } } - + function checkstate($entry) { $data = proc_get_status($entry['proc']); if(!$data['running']) { @@ -140,7 +140,7 @@ class {$_NAME} extends Bot { $i++; if($i>1000) { $this->uplink->privmsg($this->bot, $entry['channel'], "too many lines!"); - break; + break; } $this->uplink->privmsg($this->bot, $entry['channel'], $line); } @@ -151,9 +151,9 @@ class {$_NAME} extends Bot { $i=0; foreach($lines as $line) { $i++; - if($i>1000) { + if($i>1000) { $this->uplink->privmsg($this->bot, $entry['channel'], "too many lines!"); - break; + break; } $this->uplink->privmsg($this->bot, $entry['channel'], "4".$line.""); } @@ -176,13 +176,13 @@ class {$_NAME} extends Bot { } else { proc_terminate($entry['proc']); $entry['term']=true; - $this->uplink->privmsg($this->bot, $entry['channel'], "perl timeout. (maximum of 10 seconds exceeded) sending SIGTERM"); + $this->uplink->privmsg($this->bot, $entry['channel'], "perl timeout. (maximum of 10 seconds exceeded) sending SIGTERM"); return true; } } } } - + } ?> \ No newline at end of file