elemental-ircd/modules/m_monitor.c

355 lines
8.2 KiB
C

/* modules/m_monitor.c
*
* Copyright (C) 2005 Lee Hardy <lee@leeh.co.uk>
* Copyright (C) 2005 ircd-ratbox development team
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions are
* met:
*
* 1.Redistributions of source code must retain the above copyright notice,
* this list of conditions and the following disclaimer.
* 2.Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3.The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
* DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
* INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
* IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*
* $Id: m_monitor.c 312 2005-11-07 10:47:33Z jilles $
*/
#include "stdinc.h"
#include "tools.h"
#include "client.h"
#include "msg.h"
#include "parse.h"
#include "modules.h"
#include "monitor.h"
#include "numeric.h"
#include "s_conf.h"
static int m_monitor(struct Client *, struct Client *, int, const char **);
struct Message monitor_msgtab = {
"MONITOR", 0, 0, 0, MFLG_SLOW,
{mg_unreg, {m_monitor, 2}, mg_ignore, mg_ignore, mg_ignore, {m_monitor, 2}}
};
mapi_clist_av1 monitor_clist[] = { &monitor_msgtab, NULL };
DECLARE_MODULE_AV1(monitor, NULL, NULL, monitor_clist, NULL, NULL, "$Revision: 312 $");
static void
add_monitor(struct Client *client_p, const char *nicks)
{
char onbuf[BUFSIZE], offbuf[BUFSIZE];
struct Client *target_p;
struct monitor *monptr;
const char *name;
char *tmp;
char *p;
char *onptr, *offptr;
int mlen, arglen;
int cur_onlen, cur_offlen;
/* these two are same length, just diff numeric */
cur_offlen = cur_onlen = mlen = sprintf(onbuf, form_str(RPL_MONONLINE),
me.name, client_p->name, "");
sprintf(offbuf, form_str(RPL_MONOFFLINE),
me.name, client_p->name, "");
onptr = onbuf + mlen;
offptr = offbuf + mlen;
tmp = LOCAL_COPY(nicks);
for(name = strtoken(&p, tmp, ","); name; name = strtoken(&p, NULL, ","))
{
if(EmptyString(name) || strlen(name) > NICKLEN-1)
continue;
if(dlink_list_length(&client_p->localClient->monitor_list) >=
ConfigFileEntry.max_monitor)
{
char buf[100];
if(cur_onlen != mlen)
sendto_one(client_p, "%s", onbuf);
if(cur_offlen != mlen)
sendto_one(client_p, "%s", offbuf);
if(p)
snprintf(buf, sizeof(buf), "%s,%s", name, p);
else
snprintf(buf, sizeof(buf), "%s", name);
sendto_one(client_p, form_str(ERR_MONLISTFULL),
me.name, client_p->name,
ConfigFileEntry.max_monitor, buf);
return;
}
monptr = find_monitor(name, 1);
/* already monitoring this nick */
if(dlinkFind(client_p, &monptr->users))
continue;
dlinkAddAlloc(client_p, &monptr->users);
dlinkAddAlloc(monptr, &client_p->localClient->monitor_list);
if((target_p = find_named_person(name)) != NULL)
{
if(cur_onlen + strlen(target_p->name) +
strlen(target_p->username) + strlen(target_p->host) + 3 >= BUFSIZE-3)
{
sendto_one(client_p, "%s", onbuf);
cur_onlen = mlen;
onptr = onbuf + mlen;
}
if(cur_onlen != mlen)
{
*onptr++ = ',';
cur_onlen++;
}
arglen = sprintf(onptr, "%s!%s@%s",
target_p->name, target_p->username,
target_p->host);
onptr += arglen;
cur_onlen += arglen;
}
else
{
if(cur_offlen + strlen(name) + 1 >= BUFSIZE-3)
{
sendto_one(client_p, "%s", offbuf);
cur_offlen = mlen;
offptr = offbuf + mlen;
}
if(cur_offlen != mlen)
{
*offptr++ = ',';
cur_offlen++;
}
arglen = sprintf(offptr, "%s", name);
offptr += arglen;
cur_offlen += arglen;
}
}
if(cur_onlen != mlen)
sendto_one(client_p, "%s", onbuf);
if(cur_offlen != mlen)
sendto_one(client_p, "%s", offbuf);
}
static void
del_monitor(struct Client *client_p, const char *nicks)
{
struct monitor *monptr;
const char *name;
char *tmp;
char *p;
if(!dlink_list_length(&client_p->localClient->monitor_list))
return;
tmp = LOCAL_COPY(nicks);
for(name = strtoken(&p, tmp, ","); name; name = strtoken(&p, NULL, ","))
{
if(EmptyString(name))
continue;
/* not monitored */
if((monptr = find_monitor(name, 0)) == NULL)
continue;
dlinkFindDestroy(client_p, &monptr->users);
dlinkFindDestroy(monptr, &client_p->localClient->monitor_list);
}
}
static void
list_monitor(struct Client *client_p)
{
char buf[BUFSIZE];
struct monitor *monptr;
char *nbuf;
dlink_node *ptr;
int mlen, arglen, cur_len;
if(!dlink_list_length(&client_p->localClient->monitor_list))
{
sendto_one(client_p, form_str(RPL_ENDOFMONLIST),
me.name, client_p->name);
return;
}
cur_len = mlen = sprintf(buf, form_str(RPL_MONLIST),
me.name, client_p->name, "");
nbuf = buf + mlen;
DLINK_FOREACH(ptr, client_p->localClient->monitor_list.head)
{
monptr = ptr->data;
if(cur_len + strlen(monptr->name) + 1 >= BUFSIZE-3)
{
sendto_one(client_p, "%s", buf);
nbuf = buf + mlen;
cur_len = mlen;
}
if(cur_len != mlen)
{
*nbuf++ = ',';
cur_len++;
}
arglen = sprintf(nbuf, "%s", monptr->name);
cur_len += arglen;
nbuf += arglen;
}
sendto_one(client_p, "%s", buf);
sendto_one(client_p, form_str(RPL_ENDOFMONLIST),
me.name, client_p->name);
}
static void
show_monitor_status(struct Client *client_p)
{
char onbuf[BUFSIZE], offbuf[BUFSIZE];
struct Client *target_p;
struct monitor *monptr;
char *onptr, *offptr;
int cur_onlen, cur_offlen;
int mlen, arglen;
dlink_node *ptr;
mlen = cur_onlen = sprintf(onbuf, form_str(RPL_MONONLINE),
me.name, client_p->name, "");
cur_offlen = sprintf(offbuf, form_str(RPL_MONOFFLINE),
me.name, client_p->name, "");
onptr = onbuf + mlen;
offptr = offbuf + mlen;
DLINK_FOREACH(ptr, client_p->localClient->monitor_list.head)
{
monptr = ptr->data;
if((target_p = find_named_person(monptr->name)) != NULL)
{
if(cur_onlen + strlen(target_p->name) +
strlen(target_p->username) + strlen(target_p->host) + 3 >= BUFSIZE-3)
{
sendto_one(client_p, "%s", onbuf);
cur_onlen = mlen;
onptr = onbuf + mlen;
}
if(cur_onlen != mlen)
{
*onptr++ = ',';
cur_onlen++;
}
arglen = sprintf(onptr, "%s!%s@%s",
target_p->name, target_p->username,
target_p->host);
onptr += arglen;
cur_onlen += arglen;
}
else
{
if(cur_offlen + strlen(monptr->name) + 1 >= BUFSIZE-3)
{
sendto_one(client_p, "%s", offbuf);
cur_offlen = mlen;
offptr = offbuf + mlen;
}
if(cur_offlen != mlen)
{
*offptr++ = ',';
cur_offlen++;
}
arglen = sprintf(offptr, "%s", monptr->name);
offptr += arglen;
cur_offlen += arglen;
}
}
if(cur_onlen != mlen)
sendto_one(client_p, "%s", onbuf);
if(cur_offlen != mlen)
sendto_one(client_p, "%s", offbuf);
}
static int
m_monitor(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
{
switch(parv[1][0])
{
case '+':
if(parc < 3 || EmptyString(parv[2]))
{
sendto_one(client_p, form_str(ERR_NEEDMOREPARAMS),
me.name, source_p->name, "MONITOR");
return 0;
}
add_monitor(source_p, parv[2]);
break;
case '-':
if(parc < 3 || EmptyString(parv[2]))
{
sendto_one(client_p, form_str(ERR_NEEDMOREPARAMS),
me.name, source_p->name, "MONITOR");
return 0;
}
del_monitor(source_p, parv[2]);
break;
case 'C':
case 'c':
clear_monitor(source_p);
break;
case 'L':
case 'l':
list_monitor(source_p);
break;
case 'S':
case 's':
show_monitor_status(source_p);
break;
default:
break;
}
return 0;
}