* 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 *
* along with this program. If not, see <http://www.gnu.org/licenses/>. *
* *
************************************************************************
- *
+ *
* Bots/PerlGod.class.php
*
* simple Perl debugger...
class {$_NAME} extends Bot {
private $uplink;
private $bot, $execcache = array();
-
+
public function load($uplink, $old = false) {
$this->uplink = $uplink;
if(!$old) {
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]);
$this->uplink->delUser($this->bot, "Bye.");
}
}
-
+
public function loop() {
foreach($this->execcache as $id => $entry) {
if(!$this->checkstate($entry)) {
}
}
}
-
+
function recive_privmsg($user, $channel, $message) {
$opOnPerlChannel = false;
$entryChannel = P10_Channel::getChannelByName("#Perl");
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']) {
$i++;
if($i>1000) {
$this->uplink->privmsg($this->bot, $entry['channel'], "too many lines!");
- break;
+ break;
}
$this->uplink->privmsg($this->bot, $entry['channel'], $line);
}
$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'], "\ 34".$line."\ 3");
}
} 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