/* 
 * notes.mod -- module handles: (the old notes.c + extras)
 * reading and sending notes
 * killing old notes and changing the destinations
 * 
 * dprintf'ized, 5aug96
 */
/*
   This file is part of the eggdrop source code
   copyright (c) 1997 Robey Pointer
   and is distributed according to the GNU general public license.
   For full details, read the top of 'main.c' or the file called
   COPYING that was distributed with this code.
 */

#define MODULE_NAME "notes"
#include <fcntl.h>
#include "../module.h"
#include "../../tandem.h"
#undef global

/* Maximum number of notes to allow stored for each user */
static int maxnotes = 50;
/* number of DAYS a note lives */
static int note_life = 60;
/* name of the notefile */
static char notefile [121];
/* allow note forwarding */
static int allow_fwd = 0;
/* DAMN fcntl.h */
static Function * global = NULL;
/* notify users they have notes every hour? */
static int notify_users = 0;

static void fwd_display (int idx, struct user_entry * e) {
   context;
   if (dcc[idx].user && (dcc[idx].user->flags & USER_BOTMAST))
     dprintf(idx,"  Forward notes to: %.70s\n", e->u.string);
}

static struct user_entry_type USERENTRY_FWD = {
   0, /* always 0 ;) */
   0,
   0,
   0,
   0,
   0,
   0,
   0,
   0,
   0,
   0,
   0,
   fwd_display,
   "FWD"
};

/* determine how many notes are waiting for a user */
static int num_notes (char * user)
{
   int tot = 0;
   FILE *f;
   char s[513], *to, *s1;
   if (!notefile[0])
      return 0;
   f = fopen(notefile, "r");
   if (f == NULL)
      return 0;
   while (!feof(f)) {
      fgets(s, 512, f);
      if (!feof(f)) {
	 if (s[strlen(s) - 1] == '\n')
	    s[strlen(s) - 1] = 0;
	 rmspace(s);
	 if ((s[0]) && (s[0] != '#') && (s[0] != ';')) {	/* not comment */
	    s1 = s;
	    to = newsplit(&s1);
	    if (strcasecmp(to, user) == 0)
	       tot++;
	 }
      }
   }
   fclose(f);
   return tot;
}

/* change someone's handle */
static void notes_change (char * oldnick, char * newnick) {
   FILE *f, *g;
   char s[513], *to, *s1;
   int tot = 0;
   
   if (!strcasecmp(oldnick, newnick))
     return;
   if (!notefile[0])
      return;
   f = fopen(notefile, "r");
   if (f == NULL)
      return;
   sprintf(s, "%s~new", notefile);
   g = fopen(s, "w");
   if (g == NULL) {
      fclose(f);
      return;
   }
   while (!feof(f)) {
      fgets(s, 512, f);
      if (!feof(f)) {
	 if (s[strlen(s) - 1] == '\n')
	    s[strlen(s) - 1] = 0;
	 rmspace(s);
	 if ((s[0]) && (s[0] != '#') && (s[0] != ';')) {	/* not comment */
	    s1 = s;
	    to = newsplit(&s1);
	    if (!strcasecmp(to, oldnick)) {
	       tot++;
	       fprintf(g, "%s %s\n", newnick, s1);
	    } else
	       fprintf(g, "%s %s\n", to, s1);
	 } else
	    fprintf(g, "%s\n", s);
      }
   }
   fclose(f);
   fclose(g);
   unlink(notefile);
   sprintf(s, "%s~new", notefile);
   movefile(s, notefile);
   putlog(LOG_MISC, "*", "Switched %d note%s from %s to %s.", tot,
	  tot == 1 ? "" : "s", oldnick, newnick);
}

/* get rid of old useless notes */
static void expire_notes()
{
   FILE *f, *g;
   char s[513], *to, *from, *ts, *s1;
   int tot = 0, lapse;
   
   if (!notefile[0])
      return;
   f = fopen(notefile, "r");
   if (f == NULL)
      return;
   sprintf(s, "%s~new", notefile);
   g = fopen(s, "w");
   if (g == NULL) {
      fclose(f);
      return;
   }
   while (!feof(f)) {
      fgets(s, 512, f);
      if (!feof(f)) {
	 if (s[strlen(s) - 1] == '\n')
	    s[strlen(s) - 1] = 0;
	 rmspace(s);
	 if ((s[0]) && (s[0] != '#') && (s[0] != ';')) {	/* not comment */
	    s1 = s;
	    to = newsplit(&s1);
	    from = newsplit(&s1);
	    ts = newsplit(&s1);
	    lapse = (now - (time_t) atoi(ts)) / 86400;
	    if (lapse > note_life)
	       tot++;
	    else if (!get_user_by_handle(userlist,to))
	       tot++;
	    else
	       fprintf(g, "%s %s %s %s\n", to, from, ts, s1);
	 } else
	    fprintf(g, "%s\n", s);
      }
   }
   fclose(f);
   fclose(g);
   unlink(notefile);
   sprintf(s, "%s~new", notefile);
   movefile(s, notefile);
   if (tot > 0)
      putlog(LOG_MISC, "*", "Expired %d note%s", tot, tot == 1 ? "" : "s");
}

/* add note to notefile */
static int tcl_storenote STDVAR
{
   FILE * f;
   int idx;
   char u[20], *f1, *to = NULL, work[1024];
   struct userrec * ur;
   
   BADARGS(5,5," from to msg idx");

   idx = findanyidx(atoi(argv[4]));
   ur = get_user_by_handle(userlist,argv[2]);
   if (ur && allow_fwd && (f1 = get_user(&USERENTRY_FWD,ur))) {
      char fwd[161], *p, *q, *r;
      int ok = 1;
      /* user is valid & has a valid forwarding address */
      strcpy(fwd,f1); /* only 40 bytes are stored in the userfile */
      p = strchr(fwd, '@');
      if (p && !strcasecmp(p+1,botnetnick)) {
	 *p = 0;
	 if (!strcasecmp(fwd,argv[2])) /* they're forward to themselves on
					* the same bot, llama's */
	   ok = 0;
	 p = NULL;
      }
      if ((argv[1][0] != '@') && ((argv[3][0] == '<') || (argv[3][0] == '>')))
	ok = 0; /* probablly fake pre 1.3 hax0r */
      if (ok && (!p || in_chain(p+1))) {
	 if (p)
	   p++;
	 q = argv[3];
	 while (ok && q && (q = strchr(q,'<'))) {
	    q++;
	    if ((r = strchr(q,' '))) {
	       *r = 0;
	       if (!strcasecmp(fwd,q))
		 ok = 0;
	       *r = ' ';
	    }
	 }
	 if (ok) {
	    if (p && strchr(argv[1],'@')) {
	       simple_sprintf(work,"<%s@%s >%s %s",argv[2], botnetnick,
			      argv[1], argv[3]);
	       simple_sprintf(u,"@%s",botnetnick);
	       p = u;
	    } else {
	       simple_sprintf(work,"<%s@%s %s",argv[2], botnetnick,
			      argv[3]);
	       p = argv[1];
	    }
	 }
      } else 
	   ok = 0;
      if (ok) {
	 if ((add_note(fwd,p,work,idx,0) == NOTE_OK) && (idx >= 0))
	      dprintf(idx, "Not online; forwarded to %s.\n", f1);
	 Tcl_AppendResult(irp,f1,NULL);
	 to = NULL;
      } else {
	 strcpy(work,argv[3]);
	 to = argv[2];
      } 
   } else
     to = argv[2];
   if (to) {
      if (notefile[0] == 0) {
	 if (idx >= 0)
	   dprintf(idx, BOT_NOTEUNSUPP);
      } else if (num_notes(to) >= maxnotes) {
	 if (idx >= 0)
	   dprintf(idx, BOT_NOTES2MANY);
      } else { /* time to unpack it meaningfully */
	 f = fopen(notefile, "a");
	 if (f == NULL)
	   f = fopen(notefile, "w");
	 if (f == NULL) {
	    if (idx >= 0)
	      dprintf(idx, BOT_NOTESERROR1);
	    putlog(LOG_MISC, "*", BOT_NOTESERROR2);
	 } else {
	    char * p, *from = argv[1];
	    int l = 0;
	    
	    while ((argv[3][0] == '<') || (argv[3][0] == '>')) {
	       p = newsplit(&(argv[3]));
	       if (*p == '<')
		 l += simple_sprintf(work+l, "via %s, ", p+1);
	       else if (argv[1][0] == '@')
		 from = p + 1;
	    }  
	    fprintf (f, "%s %s %lu %s%s\n", to, from, now,
		     l ? work : "", argv[3]);
	    fclose(f);
	    if (idx >= 0)
	      dprintf(idx, "%s.\n", BOT_NOTESTORED);
	 }
      }
   }
   return TCL_OK;
}

/* convert a string like "2-4;8;16-" in an array {2, 4, 8, 8, 16, maxnotes, -1} */
static void notes_parse (int dl[], char * s)
{
  int i=0;
  int idl=0;
  do {
    while (s[i] == ';')
      i++;
    if (s[i]) {
      if (s[i] == '-')
	dl[idl] = 1;
      else
	dl[idl] = atoi(s+i);
      idl++;
      while ( (s[i]) && (s[i]!='-') && (s[i]!=';') )
	i++;
      if (s[i] == '-') {
	dl[idl] = atoi(s+i+1); /* will be 0 if not a number */
	if (dl[idl] == 0)
	  dl[idl] = maxnotes;
      }
      else
	dl[idl] = dl[idl-1];
      idl++;
      while ( (s[i]) && (s[i]!=';') )
	i++;
    }
  }
  while ( (s[i]) && (idl < 124) );
  dl[idl] = -1;
}

/* return true if 'in' is in intervals of 'dl' */
static int notes_in (int dl[], int in)
{
  int i=0;
  while (dl[i] != -1) {
    if ( (dl[i]<=in) && (in<=dl[i+1]) )
      return 1;
    i+=2;
  }
  return 0;
}

static int tcl_erasenotes STDVAR
{
  FILE *f, *g;
  char s[601], *to, *s1;
  int read, erased;
  int nl[128]; /* is it enough ? */
  context;
  BADARGS(3, 3, " handle noteslist#");
  if (!get_user_by_handle(userlist,argv[1])) {
    Tcl_AppendResult(irp, "-1", NULL);
    return TCL_OK;
  }
  if (!notefile[0]) {
    Tcl_AppendResult(irp, "-2", NULL);
    return TCL_OK;
  }
  f = fopen(notefile, "r");
  if (f == NULL) {
    Tcl_AppendResult(irp, "-2", NULL);
    return TCL_OK;
  }
  sprintf(s, "%s~new", notefile);
  g = fopen(s, "w");
  if (g == NULL) {
    fclose(f);
    Tcl_AppendResult(irp, "-2", NULL);
    return TCL_OK;
  }
  read 	 = 0;
  erased = 0;
  notes_parse(nl, (argv[2][0] == 0) ? "-" : argv[2]);
  while (!feof(f)) {
    fgets(s, 600, f);
    if (s[strlen(s) - 1] == '\n')
      s[strlen(s) - 1] = 0;
    if (!feof(f)) {
      rmspace(s);
      if ((s[0]) && (s[0] != '#') & (s[0] != ';')) {		/* not comment */
	s1 = s;
	to = newsplit(&s1);
	if (strcasecmp(to, argv[1]) == 0) {
	  read++;
	  if (!notes_in(nl, read)) {
	    fprintf(g, "%s %s\n", to, s1);
	  } else {
	    erased++;
	  }
	} else {
	  fprintf(g, "%s %s\n", to, s1);
	}
      }
    }
  }
  sprintf(s, "%d", erased);
  Tcl_AppendResult(irp, s, NULL);
  fclose(f);
  fclose(g);
  unlink(notefile);
  sprintf(s, "%s~new", notefile);
#ifdef RENAME
  rename(s, notefile);
#else
  movefile(s, notefile);
#endif
  return TCL_OK;
}

static int tcl_listnotes STDVAR
{
  int i, numnotes;
  int ln[128]; /* is it enough ? */
  char s[8];
  context;
  BADARGS(3, 3, " handle noteslist#");
  if (!get_user_by_handle(userlist,argv[1])) {
    Tcl_AppendResult(irp, "-1", NULL);
    return TCL_OK;
  }
  numnotes = num_notes(argv[1]);
  notes_parse(ln, argv[2]);
  for (i=1; i<=numnotes; i++) {
    if (notes_in(ln, i)) {
      sprintf(s, "%d", i);
      Tcl_AppendElement(irp, s);
    }
  }
  return TCL_OK;
}


/* srd="+" : index
   srd="-" : read all msgs
   else    : read msg in list : (ex: .notes read 5-9;12;13;18-)

   idx=-1 : /msg
 */
static void notes_read (char * hand, char * nick, char * srd, int idx)
{
   FILE *f;
   char s[601], *to, *dt, *from, *s1,wt[100];
   time_t tt;
   int ix = 1;
   int ir = 0;
   int rd[128]; /* is it enough ? */
   if (srd[0]==0)
     srd = "-";
   if (!notefile[0]) {
      if (idx >= 0)
	 dprintf(idx, "%s.\n", BOT_NOMESSAGES);
      else
	 dprintf(DP_HELP, "NOTICE %s :%s.\n", nick, BOT_NOMESSAGES);
      return;
   }
   f = fopen(notefile, "r");
   if (f == NULL) {
      if (idx >= 0)
	 dprintf(idx, "%s.\n",BOT_NOMESSAGES);
      else
	 dprintf(DP_HELP, "NOTICE %s :%s.\n", nick, BOT_NOMESSAGES);
      return;
   }
   notes_parse(rd, srd);
   while (!feof(f)) {
      fgets(s, 600, f);
      if (s[strlen(s) - 1] == '\n')
	 s[strlen(s) - 1] = 0;
      if (!feof(f)) {
	 rmspace(s);
	 if ((s[0]) && (s[0] != '#') & (s[0] != ';')) {		/* not comment */
	    s1 = s;
	    to = newsplit(&s1);
	    if (strcasecmp(to, hand) == 0) {
	       int lapse;
	       from = newsplit(&s1);
	       dt= newsplit(&s1);
	       tt = atoi(dt);
	       strcpy(wt, ctime(&tt));
	       wt[16] = 0;
	       dt = wt+4;
	       lapse = (int) ((now - tt) / 86400);
	       if (lapse > note_life - 7) {
		  if (lapse >= note_life)
		     strcat(dt, BOT_NOTEEXP1);
		  else
		     sprintf(&dt[strlen(dt)], BOT_NOTEEXP2,
			     note_life - lapse, 
			     (note_life - lapse) == 1 ? "" : "S");
	       }
	       if (srd[0]=='+') {
		  if (idx >= 0) {
		     if (ix == 1)
			dprintf(idx, "### %s:\n", BOT_NOTEWAIT);
		     dprintf(idx, "  %2d. %s (%s)\n", ix, from, dt);
		  } else {
		     dprintf(DP_HELP, "NOTICE %s :%2d. %s (%s)\n",
			     nick, ix, from, dt);
		  }
	       }
	       else if (notes_in(rd, ix)) {
		  if (idx >= 0)
		     dprintf(idx, "%2d. %s (%s): %s\n", ix, from, dt, s1);
		  else
		     dprintf(DP_HELP, "NOTICE %s :%2d. %s (%s): %s\n", 
			     nick, ix, from, dt, s1);
		  ir++;
	       }
	       ix++;
	    }
	 }
      }
   }
   fclose(f);
   if ( (srd[0] != '+') && (ir == 0) && (ix > 1) ) {
      if (idx >= 0)
	 dprintf(idx, "%s.\n", BOT_NOTTHATMANY);
      else
	 dprintf(DP_HELP, "NOTICE %s :%s.\n", nick, BOT_NOTTHATMANY);
   }
   if (srd[0] == '+') {
      if (ix == 1) {
	 if (idx >= 0)
	    dprintf(idx, "%s.\n", BOT_NOMESSAGES);
	 else
	    dprintf(DP_HELP, "NOTICE %s :%s.\n", nick, BOT_NOMESSAGES);
      } else {
	 if (idx >= 0)
	    dprintf(idx, "### %s.\n", BOT_NOTEUSAGE);
	 else
	    dprintf(DP_HELP, "NOTICE %s :(%d %s)\n", nick, ix - 1, MISC_TOTAL);
      }
   }
   else if ((ir == 0) && (ix == 1)) {
      if (idx >= 0)
	 dprintf(idx, "%s.\n", BOT_NOMESSAGES);
      else
	 dprintf(DP_HELP, "NOTICE %s :%s.\n", nick, BOT_NOMESSAGES);
   }
}

/* sdl="-" : erase all msgs
   else    : erase msg in list : (ex: .notes erase 2-4;8;16-)

   idx=-1 : /msg
 */
static void notes_del (char * hand, char * nick, char * sdl, int idx)
{
   FILE *f, *g;
   char s[513], *to, *s1;
   int in = 1;
   int er = 0;
   int dl[128]; /* is it enough ? */
   if (sdl[0]==0)
     sdl = "-";
   if (!notefile[0]) {
      if (idx >= 0)
	 dprintf(idx, "%s.\n", BOT_NOMESSAGES);
      else
	 dprintf(DP_HELP, "NOTICE %s :%s.\n", nick, BOT_NOMESSAGES);
      return;
   }
   f = fopen(notefile, "r");
   if (f == NULL) {
      if (idx >= 0)
	 dprintf(idx, "%s.\n", BOT_NOMESSAGES);
      else
	 dprintf(DP_HELP, "NOTICE %s :BOT_NOMESSAGES.\n", nick);
      return;
   }
   sprintf(s, "%s~new", notefile);
   g = fopen(s, "w");
   if (g == NULL) {
      if (idx >= 0)
	 dprintf(idx, "%s. :(\n", BOT_CANTMODNOTE);
      else
	 dprintf(DP_HELP, "NOTICE %s :%s. :(\n", nick, BOT_CANTMODNOTE);
      fclose(f);
      return;
   }
   notes_parse(dl, sdl);
   while (!feof(f)) {
      fgets(s, 512, f);
      if (s[strlen(s) - 1] == '\n')
	 s[strlen(s) - 1] = 0;
      if (!feof(f)) {
	 rmspace(s);
	 if ((s[0]) && (s[0] != '#') && (s[0] != ';')) {	/* not comment */
	    s1 = s;
	    to = newsplit(&s1);
	    if (strcasecmp(to, hand) == 0) {
	        if (!notes_in(dl, in))
		    fprintf(g, "%s %s\n", to, s1);
		else
		  er++;
		in++;
	    } else
	       fprintf(g, "%s %s\n", to, s1);
	 } else
	    fprintf(g, "%s\n", s);
      }
   }
   fclose(f);
   fclose(g);
   unlink(notefile);
   sprintf(s, "%s~new", notefile);
#ifdef RENAME
   rename(s, notefile);
#else
   movefile(s, notefile);
#endif
   if ((er == 0) && (in > 1)) {
      if (idx >= 0)
	 dprintf(idx, "%s.\n", BOT_NOTTHATMANY);
      else
	 dprintf(DP_HELP, "NOTICE %s :%s.\n", nick, BOT_NOTTHATMANY);
   } else if (in == 1) {
      if (idx >= 0)
	 dprintf(idx, "%s.\n", BOT_NOMESSAGES);
      else
	 dprintf(DP_HELP, "NOTICE %s :%s.\n", nick, BOT_NOMESSAGES);
   } else {
      if (er==(in-1)) {
	 if (idx >= 0)
	    dprintf(idx, "%s.\n", BOT_NOTESERASED);
	 else
	    dprintf(DP_HELP, "NOTICE %s :%s.\n", nick, BOT_NOTESERASED);
      } else {
	 if (idx >= 0)
	    dprintf(idx, "%s %d note%s; %d left.\n", MISC_ERASED, er, (er>1)?"s":"",
		    in-1-er, MISC_LEFT);
	 else
	    dprintf(DP_HELP, "NOTICE %s :%s %d note%s; %d %s.\n", nick, MISC_ERASED,
		    er, (er>1)?"s":"", in-1-er, MISC_LEFT);
      }
   }
}

static int tcl_notes STDVAR
{
   FILE *f;
   char s[601], *to, *from, *dt, *s1;
   int count, read, nl[128]; /* is it enough */
   char *list[3], *p;
    context;
    BADARGS(2, 3, " handle ?noteslist#?");
   if (!get_user_by_handle(userlist,argv[1])) {
      Tcl_AppendResult(irp, "-1", NULL);
      return TCL_OK;
   }
   if (argc == 2) {
      sprintf(s, "%d", num_notes(argv[1]));
      Tcl_AppendResult(irp, s, NULL);
      return TCL_OK;
   }
   if (!notefile[0]) {
      Tcl_AppendResult(irp, "-2", NULL);
      return TCL_OK;
   }
   f = fopen(notefile, "r");
   if (f == NULL) {
      Tcl_AppendResult(irp, "-2", NULL);
      return TCL_OK;
   }
   count = 0;
   read = 0;
   notes_parse(nl, (argv[2][0] == 0) ? "-" : argv[2]);
   while (!feof(f)) {
      fgets(s, 600, f);
      if (s[strlen(s) - 1] == '\n')
	 s[strlen(s) - 1] = 0;
      if (!feof(f)) {
	 rmspace(s);
	 if ((s[0]) && (s[0] != '#') & (s[0] != ';')) {		/* not comment */
	    s1 = s;
	    to = newsplit(&s1);
	    if (strcasecmp(to, argv[1]) == 0) {
	       read++;
	       if (notes_in(nl, read)) {
		  count++;
		  from = newsplit(&s1);
		  dt = newsplit(&s1);
		  list[0] = from;
		  list[1] = dt;
		  list[2] = s1;
		  p = Tcl_Merge(3, list);
		  Tcl_AppendElement(irp, p);
		  n_free(p, "", 0);
	       }
	    }
	 }
      }
   }
   if (count == 0) Tcl_AppendResult(irp, "0", NULL);
   fclose(f);
   return TCL_OK;
}

static void cmd_notes (struct userrec * u, int idx, char * par)
{
   char *fcn;
   if (!par[0]) {
      dprintf(idx, "Usage: notes index\n");
      dprintf(idx, "       notes read <# or ALL>\n");
      dprintf(idx, "       notes erase <# or ALL>\n");
      dprintf(idx, "       # may be numbers and/or intervals separated by ;\n");
      dprintf(idx, "       ex: notes erase 2-4;8;16-\n");
      return;
   }
   fcn = newsplit(&par);
   if (strcasecmp(fcn, "index") == 0)
      notes_read(dcc[idx].nick, "", "+", idx);
   else if (strcasecmp(fcn, "read") == 0) {
      if (strcasecmp(par, "all") == 0)
	 notes_read(dcc[idx].nick, "", "-", idx);
      else
	 notes_read(dcc[idx].nick, "", par, idx);
   } else if (strcasecmp(fcn, "erase") == 0) {
      if (strcasecmp(par, "all") == 0)
	 notes_del(dcc[idx].nick, "", "-", idx);
      else
	 notes_del(dcc[idx].nick, "", par, idx);
   } else {
      dprintf(idx, "Function must be one of INDEX, READ, or ERASE.\n");
      return;
   }
   putlog(LOG_CMDS, "*", "#%s# notes %s %s", dcc[idx].nick, fcn, par);
}

static void cmd_fwd (struct userrec * u, int idx, char * par)
{
   char * handle;
   struct userrec * u1;
   
   if (!par[0]) {
      dprintf(idx, "Usage: fwd <handle> [user@bot]\n");
      return;
   }
   handle = newsplit(&par);
   u1 = get_user_by_handle(userlist,handle);
   if (!u1) {
      dprintf(idx, "No such user.\n");
      return;
   }
   if ((u1->flags & USER_OWNER) && strcasecmp(handle, dcc[idx].nick)) {
      dprintf(idx, "Can't change notes forwarding of the bot owner.\n");
      return;
   }
   if (!par[0]) {
      putlog(LOG_CMDS, "*", "#%s# fwd %s", dcc[idx].nick, handle);
      dprintf(idx, "Wiped notes forwarding for %s\n", handle);
      set_user(&USERENTRY_FWD,u1,NULL);
      return;
   }
   putlog(LOG_CMDS, "*", "#%s# fwd %s %s", dcc[idx].nick, handle, par);
   dprintf(idx, "Changed notes forwarding for %s to: %s\n", handle, par);
   set_user(&USERENTRY_FWD,u1,par);
}

/* notes <pass> <func> */
static int msg_notes (char * nick, char * host, struct userrec * u, char * par)
{
   char *pwd, *fcn;
   
   if (!u)
      return 0;
   if (u->flags & (USER_BOT | USER_COMMON))
      return 1;
   if (!par[0]) {
      dprintf(DP_HELP, "NOTICE %s :%s: NOTES [pass] INDEX\n", nick, USAGE);
      dprintf(DP_HELP, "NOTICE %s :       NOTES [pass] TO <nick> <msg>\n", nick);
      dprintf(DP_HELP, "NOTICE %s :       NOTES [pass] READ <# or ALL>\n", nick);
      dprintf(DP_HELP, "NOTICE %s :       NOTES [pass] ERASE <# or ALL>\n", nick);
      dprintf(DP_HELP, "NOTICE %s :       # may be numbers and/or intervals separated by ;\n", nick);
      dprintf(DP_HELP, "NOTICE %s :       ex: NOTES mypass ERASE 2-4;8;16-\n", nick);
      return 1;
   }
   if (!u_pass_match(u,"-")) {
      /* they have a password set */
      pwd = newsplit(&par);
      if (!u_pass_match(u,pwd))
	 return 0;
   }
   fcn = newsplit(&par);
   if (strcasecmp(fcn, "INDEX") == 0)
      notes_read(u->handle, nick, "+", -1);
   else if (strcasecmp(fcn, "READ") == 0) {
      if (strcasecmp(par, "ALL") == 0)
	 notes_read(u->handle, nick, "-", -1);
      else
	 notes_read(u->handle, nick, par, -1);
   } else if (strcasecmp(fcn, "ERASE") == 0) {
      if (strcasecmp(par, "ALL") == 0)
	 notes_del(u->handle, nick, "-", -1);
      else
	 notes_del(u->handle, nick, par, -1);
   } else if (strcasecmp(fcn, "TO") == 0) {
      char *to;
      int i;
      FILE *f;
      struct userrec * u2;
      
      to = newsplit(&par);
      if (!par[0]) {
	 dprintf(DP_HELP, "NOTICE %s :%s: NOTES [pass] TO <nick> <message>\n",
		 nick, USAGE);
	 return 0;
      } 
      u2 = get_user_by_handle(userlist,to);
      if (!u2) {
	 dprintf(DP_HELP, "NOTICE %s :%s\n", nick, USERF_UNKNOWN);
	 return 1;
      } else if (is_bot(u2)) {
	 dprintf(DP_HELP, "NOTICE %s :%s\n", nick, BOT_NONOTES);
	 return 1;
      }
      for (i = 0; i < dcc_total; i++) {
	 if ((strcasecmp(dcc[i].nick, to) == 0) && 
	     (dcc[i].type->flags & DCT_GETNOTES)) {
	    int aok = 1;
	    if (dcc[i].type->flags & DCT_CHAT)
	       if (dcc[i].u.chat->away != NULL)
		  aok = 0;
	    if (!(dcc[i].type->flags & DCT_CHAT))
	      aok = 0; /* assume non dcc-chat == something weird, so 
			* store notes for later */
	    if (aok) {
	       dprintf(i, "\007%s [%s]: %s\n", u->handle, BOT_NOTEOUTSIDE, par);
	       dprintf(DP_HELP, "NOTICE %s :%s\n", nick, BOT_NOTEDELIV);
	       return 1;
	    }
	 }
      }
      if (notefile[0] == 0) {
	 dprintf(DP_HELP, "NOTICE %s :%s\n", nick, BOT_NOTEUNSUPP);
	 return 1;
      }
      f = fopen(notefile, "a");
      if (f == NULL)
	 f = fopen(notefile, "w");
      if (f == NULL) {
	 dprintf(DP_HELP, "NOTICE %s :%s", nick, BOT_NOTESERROR1);
	 putlog(LOG_MISC, "*", "* %s", BOT_NOTESERROR2);
	 return 1;
      }
      fprintf(f, "%s %s %lu %s\n", to, u->handle, now, par);
      fclose(f);
      dprintf(DP_HELP, "NOTICE %s :%s\n", nick, BOT_NOTEDELIV);
      return 1;
   } else
      dprintf(DP_HELP, "NOTICE %s :%s INDEX, READ, ERASE, TO\n",
			nick, BOT_NOTEUSAGE);
   putlog(LOG_CMDS, "*", "(%s!%s) !%s! NOTES %s %s", nick, host, u->handle, fcn,
	  par[0] ? "..." : "");
   return 1;
}

static void notes_hourly() {
   int k, l;
   struct chanset_t * chan;
   memberlist * m;
   char s1[256];
   struct userrec * u;
   
   expire_notes();
   if (notify_users) {
      chan = chanset;
      while (chan != NULL) {
	 m = chan->channel.member;
	 while (m->nick[0]) {
	    sprintf(s1, "%s!%s", m->nick, m->userhost);
	    u = get_user_by_host(s1);
	    if (u) {
	    k = num_notes(u->handle);
	       for (l = 0; l < dcc_total; l++) {
		  if ((dcc[l].type->flags & DCT_CHAT) 
		      && (strcasecmp(dcc[l].nick, u->handle) == 0))
		    k = 0;	/* they already know they have notes */
	       }
	       if (k) {
		  dprintf(DP_HELP, BOT_NOTESWAIT1, BOT_NOTESWAIT1_ARGS);
		  dprintf(DP_HELP, "NOTICE %s :%s /MSG %s NOTES [pass] INDEX\n",
			  m->nick, BOT_NOTESWAIT2, botname);
	       }
	    }
	    m = m->next;
	 }
	 chan = chan->next;
      }
      for (l = 0; l < dcc_total; l++) {
	 k = num_notes(dcc[l].nick);
	 if ((k > 0) && (dcc[l].type->flags & DCT_CHAT)) {
	    dprintf(l, BOT_NOTESWAIT3, BOT_NOTESWAIT3_ARGS);
	    dprintf(l, BOT_NOTESWAIT4);
	 }
      }
   }
}

static void away_notes ( char * bot, int sock, char * msg ) {
   int idx = findanyidx(sock);
   
   context;
   if (strcasecmp(bot,botnetnick))
     return;
   if (msg && msg[0])
     dprintf(idx,"Notes will be stored.\n");
   else
     notes_read(dcc[idx].nick, 0, "+", idx);
}

static int chon_notes ( char * nick, int sock ) {
   int idx = findanyidx(sock);
   
   if (dcc[idx].type == &DCC_CHAT)
     notes_read(nick, 0, "+", idx);
   return 0;
}

static void join_notes (char * nick, char * uhost, char * handle, char * par) {
   int i = num_notes(handle), j;
   
   for (j = 0; j < dcc_total; j++)
     if ((dcc[j].type->flags & DCT_CHAT) && 
	 (strcasecmp(dcc[j].nick, handle) == 0))
       i = 0;		/* they already know they have notes */
   if (i) {
      dprintf(DP_HELP, "NOTICE %s :You have %d note%s waiting on %s.\n",
	      nick, i, i == 1 ? "" : "s", botname);
      dprintf(DP_HELP, "NOTICE %s :For a list, /MSG %s NOTES [pass] INDEX\n",
	      nick, botname);
   }
}

static cmd_t notes_join [] = {
     { "*", "", (Function)join_notes, "notes" },
};

static cmd_t notes_nkch [] = {
     { "*", "", (Function)notes_change, "notes" },
};

static cmd_t notes_away [] = {
     { "*", "", (Function)away_notes, "notes" },
};

static cmd_t notes_chon [] = {
     { "*", "", (Function)chon_notes, "notes" },
};

static cmd_t notes_msgs [] = {
     { "notes", "", (Function)msg_notes, NULL },
};

static cmd_t notes_cmds [] = {
     { "fwd", "m", (Function)cmd_fwd, NULL },
     { "notes", "", (Function)cmd_notes, NULL },
};

static tcl_ints notes_ints [] = {
     {"note-life", &note_life},
     {"max-notes", &maxnotes},
     {"allow-fwd", &allow_fwd},
     {"notify-users", &notify_users},
     { 0, 0 }
};

static tcl_strings notes_strings [] = {
     {"notefile", notefile, 120, 0},
     { 0, 0, 0, 0 }
};

static tcl_cmds notes_tcls [] = {
     { "notes", tcl_notes },
     { "erasenotes", tcl_erasenotes },
     { "listnotes", tcl_listnotes },
     { "storenote", tcl_storenote },
     { 0, 0 }
};

static int notes_irc_setup (char * mod) {
   p_tcl_bind_list H_temp;
   
   if ((H_temp = find_bind_table("join")))
     add_builtins(H_temp,notes_join,1);
   return 0;
}

static int notes_server_setup (char * mod) {
   p_tcl_bind_list H_temp;
   
   if ((H_temp = find_bind_table("msg")))
     add_builtins(H_temp,notes_msgs,1);
   return 0;
}

static cmd_t notes_load [] = {
     { "server", "", notes_server_setup, "notes:server" },
     { "irc", "", notes_irc_setup, "notes:irc" }
};
   
static char * notes_close () {
   p_tcl_bind_list H_temp;

   rem_tcl_ints(notes_ints);
   rem_tcl_strings(notes_strings);
   rem_tcl_commands(notes_tcls);
   if ((H_temp = find_bind_table("msg")))
     rem_builtins(H_temp,notes_msgs,1);
   if ((H_temp = find_bind_table("join")))
     rem_builtins(H_temp,notes_join,1);
   rem_builtins(H_dcc,notes_cmds,2);
   rem_builtins(H_chon,notes_chon,1);
   rem_builtins(H_away,notes_away,1);
   rem_builtins(H_nkch,notes_nkch,1);
   rem_builtins(H_load,notes_load,2);
   rem_help_reference("notes.help");
   del_hook(HOOK_HOURLY,notes_hourly);
   del_entry_type ( &USERENTRY_FWD );
   module_undepend(MODULE_NAME);
   return NULL;
}

static int notes_expmem () {
   return 0;
}

static void notes_report (int idx, int details) {
   
   if (details) {
      if (notefile[0])
	dprintf(idx, "    Notes can be stored, in: %s\n", notefile);
      else
	dprintf(idx, "    Notes can not be stored.\n");
   }
}

char * notes_start ();

static Function notes_table [] = {
     (Function) notes_start,
     (Function) notes_close,
     (Function) notes_expmem,
     (Function) notes_report
};

char * notes_start (Function * global_funcs) {
   
   global = global_funcs;
   context;
   notefile[0] = 0;
   module_register(MODULE_NAME, notes_table, 2, 0);
   if (!module_depend(MODULE_NAME, "eggdrop", 103,15)) 
     return "This module requires eggdrop1.3.15 or later";
   add_hook(HOOK_HOURLY,notes_hourly);
   add_tcl_ints(notes_ints);
   add_tcl_strings(notes_strings);
   add_tcl_commands(notes_tcls);
   add_builtins(H_dcc,notes_cmds,2);
   add_builtins(H_chon,notes_chon,1);
   add_builtins(H_away,notes_away,1);
   add_builtins(H_nkch,notes_nkch,1);
   add_builtins(H_load,notes_load,2);
   add_help_reference("notes.help");
   notes_server_setup(0);
   notes_irc_setup(0);
   memcpy(&USERENTRY_FWD,&USERENTRY_INFO,sizeof(void *)*12);
   add_entry_type ( &USERENTRY_FWD );
   context;
   return NULL;
}