cvs: pearbot /modules bugstats.php
| From: | Tobias Schlitt | Date: | Sat, 26 Jun 2004 11:22:37 +0000 |
| Subject: | cvs: pearbot /modules bugstats.php | ||
| Groups: | php.pear.bot | ||
| Request: | Send a blank email to pear-bot+get-41@lists.php.net to get a copy of this message | ||
toby Sat Jun 26 07:22:37 2004 EDT
Added files:
/pearbot/modules bugstats.php
Log:
* Added bug stats module.
http://cvs.php.net/co.php/pearbot/modules/bugstats.php?r=1.1&p=1
Index: pearbot/modules/bugstats.php
+++ pearbot/modules/bugstats.php
<?php
/**
* $Id: bugstats.php,v 1.1 2004/06/26 11:22:37 toby Exp $
* $Revision: 1.1 $
* $Author: toby $
* $Date: 2004/06/26 11:22:37 $
*
* Copyright (c) 2004 Tobias Schlitt <toby@php.net> & Mirco Bauer <meebey@php.net>
*/
require_once "HTTP/Request.php";
class Net_SmartIRC_module_bugstats
{
var $name = 'bugstats';
var $description = '!bugstats command';
var $author = 'Tobias Schlitt <toby@php.net> & Mirco Bauer
<meebey@php.net>';
var $license = 'LGPL';
var $timeids = array();
var $actionids = array();
function module_init(&$irc)
{
$this->actionids[] =
$irc->registerActionhandler(SMARTIRC_TYPE_CHANNEL|SMARTIRC_TYPE_QUERY|SMARTIRC_TYPE_NOTICE,
'^!bugstats', $this, 'bugstats');
$this->timeids[] = $irc->registerTimehandler(90000, $this, 'autoBugstats');
}
function module_exit(&$irc)
{
foreach ($this->actionids as $value) {
$irc->unregisterActionid($value);
}
}
function bugstats(&$irc, &$data)
{
$count = $this->getStats();
if (PEAR::isError($count)) {
$irc->message(SMARTIRC_TYPE_CHANNEL, $data->channel, $count->getMessage());
return $count;
}
$irc->message(SMARTIRC_TYPE_CHANNEL, $data->channel, $data->nick.': Current
bug count is '.$count);
return true;
}
function autoBugstats (&$irc) {
$count = $this->getStats();
if (PEAR::isError($count)) {
return $count;
}
$chan = $irc->getChannel('#pear');
$topic = $chan->topic;
$topic = preg_replace('/[0-9] open bugs/isU', '', $topic);
$irc->setTopic('#pear', $topic.' '.$count.' open bugs');
return true;
}
function getStats ( ) {
$req =& new HTTP_Request('http://pear.php.net/bugs/lstat.php');
if (PEAR::isError($req->sendRequest())) {
return PEAR::raiseError('Error fetching bug stats.', 0);
}
return $req->getResponseBody();
}
}
?>