Code: Select all
static int tcl_putbot STDVAR
{
int i;
char msg[1001];
BADARGS(3, 3, " botnick message");
i = nextbot(argv[1]);
if (i < 0) {
Tcl_AppendResult(irp, "bot is not on the botnet", NULL);
return TCL_ERROR;
}
strncpyz(msg, argv[2], sizeof msg);
botnet_send_zapf(i, botnetnick, argv[1], msg);
return TCL_OK;
}
Code: Select all
int xtra_tcl_set(Tcl_Interp * irp, struct userrec *u,
struct user_entry *e, int argc, char **argv)
{
struct xtra_key *xk;
int l;
BADARGS(4, 5, " handle type key ?value?");
xk = user_malloc(sizeof(struct xtra_key));
l = strlen(argv[3]);
egg_bzero(xk, sizeof(struct xtra_key));
if (l > 500)
l = 500;
xk->key = user_malloc(l + 1);
strncpyz(xk->key, argv[3], l + 1);
if (argc == 5) {
int k = strlen(argv[4]);
if (k > 500 - l)
k = 500 - l;
xk->data = user_malloc(k + 1);
strncpyz(xk->data, argv[4], k + 1);
}
xtra_set(u, e, xk);
return TCL_OK;
}