Code:

 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;}

Code:

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;}