--- /dev/null
+<?php
+class {$_NAME} extends Bot {
+ private $uplink;
+ private $quote;
+ private $topic = false;
+
+ public function load($uplink, $old = false) {
+ $this->uplink = $uplink;
+ if(!$old) {
+ $nick = "quote";
+ $ident = "QuoteBot";
+ $host = "Services.NextIRC.net";
+ $ip = "127.0.0.1";
+ $realname = "QuoteBot";
+ $modes = "ioknISD";
+ $this->quote = $this->uplink->addUser($nick,$ident,$host,$ip,$modes,$realname);
+ if(is_a($this->quote, "P10_User")) {
+ $this->uplink->join($this->quote, "#lobby", P10_Channel::USERPRIV_OPED);
+ }
+ } else {
+ $this->quote = $old;
+ }
+
+ ModCMD::bind($this, BIND_CHANMSG, "recive_privmsg");
+ ModCMD::bind($this, BIND_QUIT, "recive_quit");
+ }
+
+ public function unload($rehash = false) {
+ if($rehash) {
+ return $this->quote;
+ } else {
+ $this->uplink->delUser($this->quote, "Bye.");
+ }
+ }
+
+ public function loop() {
+
+ }
+
+ public function recive_privmsg($user, $channel, $message) {
+ $exp=explode(" ", $message, 3);
+ switch (strtolower($exp[0])) {
+ case "~bash":
+ $quelltext = file_get_contents('http://german-bash.org/action/random');
+ preg_match('#<span class="id">(.*?)</span>#is', $quelltext, $t);
+ preg_match('#<a(.*?)>(.*?)</a>#is', $t[1], $z);
+ preg_match('#<div class="zitat">(.*?)</div>#is', $quelltext, $m);
+ $string = nl2br(strip_tags($m[1]));
+ $array = explode("<br />", $string);
+ $length = count($array)-1;
+ $url = file_get_contents('http://tinyurl.com/api-create.php?url=http://german-bash.org/index.php?action=show&id='.str_replace('#', '', $z[2]));
+
+ foreach($array AS $index=>$value) {
+ $array[$index] = trim($value);
+ }
+ $this->uplink->privmsg($this->quote, $channel, "\ 2\ 39Zitatnummer:\ 2\ 30 ".$z[2]." ".$url);
+ for($i = 1; $i <= $length; $i++) {
+ if($array[$i] != '' && $array[$i] != '<br />') {
+ $this->uplink->privmsg($this->quote, $channel, html_entity_decode($array[$i]));
+ }
+ }
+ break;
+ case "~ibash":
+ $doc = new DOMDocument();
+ @$doc->loadHTMLFile("http://mobil.ibash.de/zitate.php?order=random");
+ $tags = $doc->getElementsByTagName('code');
+ $codes = $tags->item($id)->childNodes;
+ $nas = "90";
+ $bash='';
+ for ($i = 1; $i < $codes->length; $i++)
+ {
+ //$text = utf8_decode(htmlspecialchars($codes->item($i)->nodeValue));
+ $text = utf8_decode($codes->item($i)->nodeValue);
+ $bash = $bash.$text;
+ }
+ $bash = str_replace(" ", " ", $bash);
+ $bash = explode("\n", $bash);
+ #sendserv("PRIVMSG $e[2] :\002iBashDE\002");
+ $this->uplink->privmsg($this->quote, $channel, "\002iBashDE\002");
+
+ $i = 0;
+ #$this->uplink->privmsg($this->quote, $channel, print_r($bash));
+ foreach($bash as $line) {
+ $line = trim($line);
+ if(!empty($line)) {
+ $line = str_replace("<", "<", $line);
+ $line = str_replace(">", ">", $line);
+ $line = str_replace(""", '"', $line);
+ #sendserv("PRIVMSG $e[2] :".$line);
+ if($line != '') {
+ $this->uplink->privmsg($this->quote, $channel, $line);
+ } else break;
+ }
+ }
+ break;
+ }
+ }
+
+ public function recive_quit($user, $reason) {
+ if($user === $this->quote) {
+ $this->load($this->uplink);
+ }
+ }
+
+}
+?>
--- /dev/null
+<?php
+/******************************* PHP-P10 v2 *****************************
+ * Copyright (C) 2011-2012 Philipp Kreil (pk910) *
+ * 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 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 *
+ * 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, see <http://www.gnu.org/licenses/>. *
+ * *
+ ************************************************************************
+ *
+ * Bots/ScalaGod.class.php
+ *
+ * simple Scala debugger...
+ *
+ */
+
+class {$_NAME} extends Bot {
+ private $uplink;
+ private $bot, $execcache = array();
+
+ public function load($uplink, $old = false) {
+ $this->uplink = $uplink;
+ if(!$old) {
+ $nick = "Scala";
+ $ident = "Scala";
+ $host = "services.....";
+ $ip = "0::0";
+ $realname = "Scala Scala Scala Scala Scala";
+ $modes = "ioknISD";
+ $this->bot = $this->uplink->addUser($nick,$ident,$host,$ip,$modes,$realname);
+ if(is_a($this->bot, "P10_User")) {
+ $this->uplink->join($this->bot, "#dev", P10_Channel::USERPRIV_VOICE);
+ $this->uplink->join($this->bot, "#opers", P10_Channel::USERPRIV_OPED);
+ }
+
+ } 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]);
+ fclose($entry['pipes'][2]);
+ proc_terminate($entry['proc'],9);
+ }
+ $this->execcache = array();
+ if($rehash) {
+ return $this->bot;
+ } else {
+ $this->uplink->delUser($this->bot, "Bye.");
+ }
+ }
+
+ public function loop() {
+ foreach($this->execcache as $id => $entry) {
+ if(!$this->checkstate($entry)) {
+ unlink("tmp/Debug_".$entry['id'].".scala");
+ unset($this->execcache[$id]);
+ }
+ }
+ }
+
+ function recive_privmsg($user, $channel, $message) {
+ $opOnScalaChannel = false;
+ $ScalaChannel = P10_Channel::getChannelByName("#dev");
+ if($ScalaChannel) {
+ $privs = $ScalaChannel->getUserPrivs($user);
+ $opOnScalaChannel = ($privs & P10_Channel::USERPRIV_OPED);
+ }
+ if(!$user->getModes()->hasMode('o') && !$opOnScalaChannel) return 0;
+ $exp=explode(" ", $message, 2);
+ switch (strtolower($exp[0])) {
+ case "~scala":
+ if(count($this->execcache) > 5) {
+ $this->uplink->notice($this->bot, $user, "too many running scala processes at the moment!");
+ return;
+ }
+ $entry=array();
+ $entry['channel'] = $channel;
+ $entry['id'] = rand(1, 999999);
+ if(preg_match("#pastebin\.com/([a-zA-Z0-9]*)$#i", $exp[1])) {
+ $pasteid = explode("/", $exp[1]);
+ $pasteid = $pasteid[count($pasteid)-1];
+ $scalacontent = file_get_contents("http://pastebin.com/download.php?i=".$pasteid);
+ if(preg_match("#Unknown Paste ID!#i", $scalacontent)) {
+ $this->uplink->notice($this->bot, $user, "Unknown Paste ID!");
+ return;
+ }
+ $scalacode = "import scala._
+ ".$scalacontent."
+ ";
+ } else {
+ $scalacode = "import scala._
+ ".$exp[1]."
+ ";
+ };
+ $fp = fopen("tmp/Debug_".$entry['id'].".scala", "w");
+ fwrite($fp, $scalacode);
+ fclose($fp);
+ $descriptor = array(0 => array("pipe", "r"),1 => array("pipe", "w"),2 => array("pipe", "w"));
+ $entry['proc'] = proc_open('scala tmp/Debug_'.$entry['id'].'.scala', $descriptor, $entry['pipes']);
+ if(!is_resource($entry['proc'])) {
+ $this->uplink->notice($this->bot, $user, "error while loading c!");
+ return;
+ }
+ $entry['time'] = time();
+ 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']) {
+ $out="";
+ while(!feof($entry['pipes'][1])) {
+ $out .= fgets($entry['pipes'][1], 128);
+ }
+ $eout="";
+ while(!feof($entry['pipes'][2])) {
+ $eout .= fgets($entry['pipes'][2], 128);
+ }
+ if($out != "") {
+ $out=str_replace("\r","",$out);
+ $lines=explode("\n",$out);
+ $i=0;
+ foreach($lines as $line) {
+ if($line == "") continue;
+ $i++;
+ if($i>1000) {
+ $this->uplink->privmsg($this->bot, $entry['channel'], "too many lines!");
+ break;
+ }
+ $this->uplink->privmsg($this->bot, $entry['channel'], $line);
+ }
+ }
+ if($eout != "") {
+ $eout=str_replace("\r","",$eout);
+ $lines=explode("\n",$eout);
+ $i=0;
+ foreach($lines as $line) {
+ if($line == "") continue;
+ $i++;
+ if($i>1000) {
+ $this->uplink->privmsg($this->bot, $entry['channel'], "too many lines!");
+ break;
+ }
+ $this->uplink->privmsg($this->bot, $entry['channel'], "\ 34".$line."\ 3");
+ }
+ }
+ fclose($entry['pipes'][1]);
+ fclose($entry['pipes'][2]);
+ proc_close($entry['proc']);
+ return false;
+ } else {
+ if($entry['time']+10 > time()) {
+ return true;
+ } else {
+ //TIMEOUT
+ if($entry['term']) {
+ fclose($entry['pipes'][1]);
+ fclose($entry['pipes'][2]);
+ proc_terminate($entry['proc'],9);
+ $this->uplink->privmsg($this->bot, $entry['channel'], "Scala hard timeout. sending SIGKILL");
+ return false;
+ } else {
+ proc_terminate($entry['proc']);
+ $entry['term']=true;
+ $this->uplink->privmsg($this->bot, $entry['channel'], "Scala timeout. (maximum of 10 seconds exceeded) sending SIGTERM");
+ return true;
+ }
+ }
+ }
+ }
+
+}
+
+?>
\ No newline at end of file