added RRD Stats Module
[PHP-P10.git] / Bots / Stats.class.php
diff --git a/Bots/Stats.class.php b/Bots/Stats.class.php
new file mode 100644 (file)
index 0000000..6670485
--- /dev/null
@@ -0,0 +1,130 @@
+<?php
+/********************************* PHP-P10 ******************************
+ *    P10 uplink class by pk910   (c)2011 pk910                         *
+ ************************************************************************
+ *                          Version 2 (OOP)                             *
+ *                                                                      *
+ * PHP-P10 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 PHP-P10; if not, write to the Free Software Foundation,   *
+ * Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA.       *
+ *                                                                      *
+ ************************************************************************
+ * 
+ *  Bots/Stats.class.php
+ *
+ * RRD Stats module...
+ *
+ */
+
+class {$_NAME} extends Bot {
+       private $uplink;
+       private $timer;
+       
+       public function load($uplink, $old = false) {
+               $this->uplink = $uplink;
+               if(!file_exists("db/network.rrd")) {
+                       $fname = "db/network.rrd";
+                       $opts = array(
+                               "--step", "300", "--start", "0",
+                               "DS:users:GAUGE:600:0:U",
+                               "DS:channels:GAUGE:600:0:U",
+                               "DS:opers:GAUGE:600:0:U",
+                               "DS:servers:GAUGE:600:0:U",
+                               "RRA:AVERAGE:0.5:1:600",
+                               "RRA:AVERAGE:0.5:6:700",
+                               "RRA:AVERAGE:0.5:24:775",
+                               "RRA:AVERAGE:0.5:288:797",
+                               "RRA:MAX:0.5:1:600",
+                               "RRA:MAX:0.5:6:700",
+                               "RRA:MAX:0.5:24:775",
+                               "RRA:MAX:0.5:288:797"
+                       );
+                       $ret = rrd_create($fname, $opts, count($opts));
+                       if(!$ret) {
+                               $err = rrd_error();
+                               echo "Create error: $err\n";
+                               die();
+                       }
+               }
+               if(!file_exists("db/network-away.rrd")) {
+                       $fname = "db/network-away.rrd";
+                       $opts = array(
+                               "--step", "300", "--start", "0",
+                               "DS:useraway:GAUGE:600:0:U",
+                               "DS:userhere:GAUGE:600:0:U",
+                               "RRA:AVERAGE:0.5:1:600",
+                               "RRA:AVERAGE:0.5:6:700",
+                               "RRA:AVERAGE:0.5:24:775",
+                               "RRA:AVERAGE:0.5:288:797",
+                               "RRA:MAX:0.5:1:600",
+                               "RRA:MAX:0.5:6:700",
+                               "RRA:MAX:0.5:24:775",
+                               "RRA:MAX:0.5:288:797"
+                       );
+                       $ret = rrd_create($fname, $opts, count($opts));
+                       if(!$ret) {
+                               $err = rrd_error();
+                               echo "Create error: $err\n";
+                               die();
+                       }
+               }
+               $this->timer = timer(5,array(&$this,"create_stats"),array());
+       }
+       
+       public function unload($rehash = false) {
+               kill_timer($this->timer);
+       }
+       
+       function create_stats() {
+               $this->timer = timer(5*60,array(&$this,"create_stats"),array());
+               $stats = array(
+                       "opers" => 0,
+                       "total" => 0,
+                       "away" => 0,
+                       "here" => 0
+               );
+               foreach(P10_User::getAllUsers() as $num => $user) {
+                       $stats['total']++;
+                       if($user->isAway()) $stats['away']++;
+                       else $stats['here']++;
+                       if($user->getModes()->hasMode('o')) $stats['opers']++;
+               }
+               $channels = P10_Channel::getChannelCount();
+               $servers = P10_Server::getServerCount();
+               rrd_update("db/network.rrd", time().":".$stats['total'].":".$channels.":".$stats['opers'].":".$servers);
+               rrd_update("db/network-away.rrd", time().":".$stats['away'].":".$stats['here']);
+               foreach(uplink::$uplink->servers as $snum => $server) {
+                       $count = $server->getUserCount();
+                       $fname="db/".$server->getName().".rrd";
+                       if(!file_exists($fname)) {
+                               $opts = array(
+                                       "--step", "300", "--start", "0",
+                                       "DS:users:GAUGE:600:0:U",
+                                       "RRA:AVERAGE:0.5:1:600",
+                                       "RRA:AVERAGE:0.5:6:700",
+                                       "RRA:AVERAGE:0.5:24:775",
+                                       "RRA:AVERAGE:0.5:288:797",
+                                       "RRA:MAX:0.5:1:600",
+                                       "RRA:MAX:0.5:6:700",
+                                       "RRA:MAX:0.5:24:775",
+                                       "RRA:MAX:0.5:288:797"
+                               );
+                               $ret = rrd_create($fname, $opts, count($opts));
+                       }
+                       rrd_update($fname, time().":".$count);
+               }
+       }
+       
+}
+
+?>
\ No newline at end of file