2 /******************************* PHP-P10 v2 *****************************
3 * Copyright (C) 2011 Philipp Kreil (pk910) *
5 * This program is free software: you can redistribute it and/or modify *
6 * it under the terms of the GNU General Public License as published by *
7 * the Free Software Foundation, either version 3 of the License, or *
8 * (at your option) any later version. *
10 * This program is distributed in the hope that it will be useful, *
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
13 * GNU General Public License for more details. *
15 * You should have received a copy of the GNU General Public License *
16 * along with this program. If not, see <http://www.gnu.org/licenses/>. *
18 ************************************************************************
22 * simple C debugger...
26 class {$_NAME} extends Bot {
28 private $c, $ccache = array();
30 public function load($uplink, $old = false) {
31 $this->uplink = $uplink;
35 $host = "Services.WebGamesNet.net";
37 $realname = "C C C C C";
39 $this->c = $this->uplink->addUser($nick,$ident,$host,$ip,$modes,$realname);
40 if(is_a($this->c, "P10_User")) {
41 $this->uplink->join($this->c, "#c", (P10_Channel::USERPRIV_OPED | P10_Channel::USERPRIV_VOICE));
42 $this->uplink->join($this->c, "#dev", P10_Channel::USERPRIV_VOICE);
48 ModCMD::bind($this, BIND_CHANMSG, "recive_privmsg");
49 ModCMD::bind($this, BIND_QUIT, "recive_quit");
52 public function unload($rehash = false) {
53 foreach($this->ccache as $id => $c) {
54 fclose($c['pipes'][1]);
55 fclose($c['pipes'][2]);
56 proc_terminate($c['proc'],9);
58 $this->ccache = array();
62 $this->uplink->delUser($this->c, "Bye.");
66 public function loop() {
67 foreach($this->ccache as $id => $c) {
68 if(!$this->checkstate($c)) {
69 unlink("tmp/debug_".$c['id'].".c");
70 unlink("tmp/debug_".$c['id']);
71 unset($this->ccache[$id]);
76 function recive_privmsg($user, $channel, $message) {
77 $opOnPHPChannel = false;
78 $PHPChannel = P10_Channel::getChannelByName("#PHP");
80 $privs = $PHPChannel->getUserPrivs($user);
81 $opOnPHPChannel = ($privs & P10_Channel::USERPRIV_OPED);
83 if(!$user->getModes()->hasMode('o') && !$opOnPHPChannel) return 0;
84 $exp=explode(" ", $message, 2);
85 switch (strtolower($exp[0])) {
87 if(count($this->ccache) > 5) {
88 $this->uplink->notice($this->c, $user, "too many running c processes at the moment!");
92 $entry['channel'] = $channel;
93 $entry['id'] = rand(1, 999999);
94 $fp = fopen("tmp/debug_".$entry['id'].".c", "w");
95 fwrite($fp, "#include \"includes.h\"\n".$exp[1]);
97 $err = shell_exec("gcc -o tmp/debug_".$entry['id']." tmp/debug_".$entry['id'].".c 2>&1");
99 $err=str_replace("\r","",$err);
100 $lines=explode("\n",$err);
102 foreach($lines as $line) {
105 $this->uplink->privmsg($this->c, $entry['channel'], "too many lines!");
108 $this->uplink->privmsg($this->c, $entry['channel'], $line);
111 if(!file_exists("tmp/debug_".$entry['id'])) {
112 unlink("tmp/debug_".$entry['id'].".c");
115 $descriptor = array(0 => array("pipe", "r"),1 => array("pipe", "w"),2 => array("pipe", "w"));
116 $entry['proc'] = proc_open('tmp/debug_'.$entry['id'], $descriptor, $entry['pipes']);
117 if(!is_resource($entry['proc'])) {
118 $this->uplink->notice($this->c, $user, "error while loading c!");
121 $entry['time'] = time();
122 fclose($entry['pipes'][0]);
123 $this->ccache[] = $entry;
128 function recive_quit($user, $reason) {
129 if($user === $this->c) {
130 $this->load($this->uplink);
134 function checkstate($c) {
135 $data = proc_get_status($c['proc']);
136 if(!$data['running']) {
138 while(!feof($c['pipes'][1])) {
139 $out .= fgets($c['pipes'][1], 128);
142 while(!feof($c['pipes'][2])) {
143 $eout .= fgets($c['pipes'][2], 128);
146 $out=str_replace("\r","",$out);
147 $lines=explode("\n",$out);
149 foreach($lines as $line) {
152 $this->uplink->privmsg($this->c, $c['channel'], "too many lines!");
155 $this->uplink->privmsg($this->c, $c['channel'], $line);
159 $eout=str_replace("\r","",$eout);
160 $lines=explode("\n",$eout);
162 foreach($lines as $line) {
165 $this->uplink->privmsg($this->c, $c['channel'], "too many lines!");
168 $this->uplink->privmsg($this->c, $c['channel'], "
\ 34".$line."
\ 3");
171 fclose($c['pipes'][1]);
172 fclose($c['pipes'][2]);
173 proc_close($c['proc']);
176 if($c['time']+10 > time()) {
181 fclose($c['pipes'][1]);
182 fclose($c['pipes'][2]);
183 proc_terminate($c['proc'],9);
184 $this->uplink->privmsg($this->c, $c['channel'], "c hard timeout. sending SIGKILL");
187 proc_terminate($c['proc']);
189 $this->uplink->privmsg($this->c, $c['channel'], "c timeout. (maximum of 10 seconds exceeded) sending SIGTERM");