[[AthemeMemoServ]] - Delete module

%%(c)
/*
* Copyright (c) 2005 Atheme Development Group
* Rights to this code are as documented in doc/LICENSE.
*
* This file contains code for the Memoserv DELETE function
*
* $Id: list.c 2597 2005-10-05 06:37:06Z kog $
*/

#include "atheme.h"

DECLARE_MODULE_V1
(
"memoserv/delete", FALSE, _modinit, _moddeinit,
"$Id: list.c 2597 2005-10-05 06:37:06Z kog $",
"Atheme Development Group <http://www.atheme.org>"
);

static void ms_cmd_delete(char *origin);

command_t ms_delete = { "DELETE", "Deletes memos",
AC_NONE, ms_cmd_delete };

list_t *ms_cmdtree;
list_t *ms_helptree;

void _modinit(module_t *m)
{
ms_cmdtree = module_locate_symbol("memoserv/main", "ms_cmdtree");
command_add(&ms_delete, ms_cmdtree);

ms_helptree = module_locate_symbol("memoserv/main", "ms_helptree");
help_addentry(ms_helptree, "DELETE", "help/memoserv/delete", NULL);
}

void _moddeinit()
{
command_delete(&ms_delete, ms_cmdtree);
help_delentry(ms_helptree, "DELETE");
}

static void ms_cmd_delete(char *origin)
{
/* Misc structs etc */
user_t *u = user_find(origin);
myuser_t *mu = u->myuser;
node_t *n, *link;
uint8_t i = 0, delcount = 0, memonum = 0;
mymemo_t *memo;

/* We only take 1 arg, and we ignore all others */
char *arg1 = strtok(NULL, " ");

/* Does the arg exist? */
if (!arg1)
{
notice(memosvs.nick, origin,
"Insufficient parameters specified for \2DELETE\2.");

notice(memosvs.nick, origin, "Syntax: DELETE ALL|message id");
return;
}

/* Do we have any memos? */
if (!mu->memos.count)
{
notice(memosvs.nick,origin,"You have no memos to delete.");
return;
}

/* Check to see if int or str - strncasecmp for buffer issues*/
if (!strncasecmp("all",arg1,3))
{
delcount = mu->memos.count;

/* boundary case - all called on 1 memo */
if (mu->memos.count < 2)
memonum = 1;
}

else
{
delcount = 1;
memonum = atoi(arg1);
}

/* If int, does that index exist? And do we have something to delete? */
if ((memonum && (memonum > mu->memos.count)) || (!memonum && !delcount))
{
notice(memosvs.nick,origin,"The specified memo doesn't exist.");
return;
}

/* Iterate through memos, doing deletion */
LIST_FOREACH_SAFE(n, link, mu->memos.head)
{
i++;

if ((i == memonum) || delcount > 1)
{
/* Free to node pool, remove from chain */
node_del(n,&mu->memos);
node_free(n);
free(n->data);
}

}

notice(memosvs.nick, origin, "%d memo%s deleted.",delcount,
(delcount == 1) ? "":"s");
return;
}
%%
----
[[CategoryAtheme]]