cvs: pearbot /modules pearcmds.php
| From: | Mirco 'meebey' Bauer | Date: | Sat, 26 Jul 2003 11:00:16 +0000 |
| Subject: | cvs: pearbot /modules pearcmds.php | ||
| Groups: | php.pear.bot | ||
| Request: | Send a blank email to pear-bot+get-27@lists.php.net to get a copy of this message | ||
meebey Sat Jul 26 07:00:16 2003 EDT
Added files:
/pearbot/modules pearcmds.php
Log:
- first import (written by nicos@php.net)
Index: pearbot/modules/pearcmds.php
+++ pearbot/modules/pearcmds.php
<?php
/**
* $Id: pearcmds.php,v 1.1 2003/07/26 11:00:16 meebey Exp $
* $Revision: 1.1 $
* $Author: meebey $
* $Date: 2003/07/26 11:00:16 $
*
* Copyright (c) 2003 Nicolas CHAILLAN <nicos@php.net>
*/
class Net_SmartIRC_module_pearcmds
{
var $name = 'pearcmds';
var $description = '!pear* commands';
var $author = 'Nicolas CHAILLAN <nicos@php.net>';
var $license = 'LGPL';
var $pear_binary = '/usr/local/bin/pear';
var $actionids = array();
function module_init(&$irc)
{
$this->actionids[] =
$irc->registerActionhandler(SMARTIRC_TYPE_QUERY|SMARTIRC_TYPE_NOTICE, '^!pear', $this,
'pear');
}
function module_exit(&$irc)
{
foreach ($this->actionids as $value) {
$irc->unregisterActionid($value);
}
}
/* !pear command */
function pear(&$irc, &$data)
{
$irc->message(SMARTIRC_TYPE_CHANNEL, $data->channel, 'Helping
'.$data->nick.' in private...');
if (!isset($data->messageex[1])) {
$print = $this->pear_help();
}
else {
switch ($data->messageex[1]) {
case 'info':
case 'remote-info':
if (!isset($data->messageex[2]) || empty($data->messageex[2])) {
$irc->message(SMARTIRC_TYPE_CHANNEL, $data->channel,
$data->nick.': syntax: !pear info package');
return;
}
$print = $this->pear_info($data->messageex[2]);
break;
case 'list':
case 'lists':
case 'list-all':
case 'remote-list':
$print = $this->pear_listing();
break;
case 'search':
case 'find':
if (!isset($data->messageex[2]) || empty($data->messageex[2])) {
$irc->message(SMARTIRC_TYPE_CHANNEL, $data->channel,
$data->nick.': syntax: !pear search search_for');
return;
}
$print = $this->pear_search($data->messageex[2]);
break;
case 'help':
default:
$print = $this->pear_help();
break;
}
}
$irc->message(SMARTIRC_TYPE_QUERY, $data->nick, $print);
}
function pear_info($package)
{
passthru($this->pear_binary.' remote-info '.$package, $buf);
$buf = 'This is the PEARbot:\n\nHere are the informations for
'.$package.':\n\n'.$buf;
return $buf;
}
function pear_listing()
{
passthru($this->pear_binary.' remote-list', $buf);
$buf = 'This is the PEARbot:\n\nHere are the PEAR\'s packages:\n\n'.$buf;
return $buf;
}
function pear_search($search_for)
{
passthru($this->pear_binary.' search '.$search_for, $buf);
$buf = 'This is the PEARbot:\n\nHere are the PEAR\'s packages that match
'.$search_for.':\n\n'.$buf;
return $buf;
}
function pear_help()
{
return 'This is the PEARbot:\n.
PEAR Helps commands:\n
Every commands start with !pear\n
-help: gives this information
-info package: gives the info of a PEAR package
-list: list all packages
-search search_for: searchs all packages that contain search_for.';
}
}
?>