/* responses to message commands from people */
/* hash.c points here */

#if HAVE_CONFIG_H
#include <config.h>
#endif
#include <stdio.h>
#include <string.h>
#include <sys/types.h>
#include "eggdrop.h"
#include "users.h"
#include "proto.h"

/* let unknown users greet us and become known */
int learn_users=0;
/* new server? */
char newserver[121];
/* new server port? */
int newserverport=0;
/* new server password? */
char newserverpass[121];
/* refuse access to non-masters who don't have 'x' flag? */
int require_x=0;
/* enable the info subsystem? */
int use_info=1;
/* person to send a note to for new users */
char notify_new[121]="";
/* default user flags for people who say 'hello' */
int default_flags=0;

extern int serv;
extern char botname[];
extern int use_info;
extern char origbotname[];
extern char helpdir[];
extern int helpsock;
extern char curchan[];
extern char helpbot[];
extern int make_userfile;
extern char notefile[];
extern int dcc_total;
extern struct dcc_t dcc[];
extern struct userrec *userlist;
extern int bitch;


int msg_hello(n,nick,h,p)
char *n,*nick,*h,*p;
{
  char host[120],s[120],s1[120]; char *p1; int common=0,atr;
  if ((!learn_users) && (!make_userfile)) return 0;
  atr=get_attr_handle(n);
  if ((n[0]=='*') && (!(atr & USER_COMMON))) {
    if (is_user(nick)) {
      showtext(nick,"badhost",0,0); return 1;
    }
    sprintf(s,"%s!%s",nick,h);
    if (match_ban(s)) {
      hprintf(helpsock,"NOTICE %s :You're banned, goober.\n",nick);
      return 1;
    }
    if (atr & USER_COMMON) {
      maskhost(s,host);
      strcpy(s,host); sprintf(host,"%s!%s",nick,&s[2]);
      userlist=adduser(userlist,nick,host,"nopass",default_flags);
      log(LOG_MISC,"Introduced to %s (%s) -- common site",nick,host);
      common=1;
    }
    else {
      maskhost(s,host);
      if (make_userfile)
	userlist=adduser(userlist,nick,host,"nopass",default_flags|
			 USER_MASTER|USER_OWNER);
      else
	userlist=adduser(userlist,nick,host,"nopass",default_flags);
      log(LOG_MISC,"Introduced to %s (%s)",nick,host);
    }
    if (helpbot[0])
      hprintf(helpsock,"NOTICE %s :Hi %s!  I'm %s, the helpbot for %s.\n",
	      nick,nick,helpbot,botname);
    else
      hprintf(helpsock,"NOTICE %s :Hi %s!  I'm %s, an eggdrop bot.\n",nick,
	      nick,botname);
    hprintf(helpsock,"NOTICE %s :I'll recognize you by hostmask '%s'%s\n",
	    nick,host," from now on.");
    if (common) {
      hprintf(helpsock,"NOTICE %s :Since you come from a common irc site, %s",
	      nick,"this means you should\n");
      hprintf(helpsock,"NOTICE %s :  always use this nickname when talking %s",
	      nick,"to me.\n");
    }
    set_handle_laston(nick,time(NULL));
    if (make_userfile) {
#ifdef OWNER
      hprintf(helpsock,"NOTICE %s :YOU ARE THE MASTER/OWNER ON THIS BOT NOW\n",
	      nick);
#else
      hprintf(helpsock,"NOTICE %s :YOU ARE THE MASTER ON THIS BOT NOW\n",
	      nick);
#endif
      hprintf(helpsock,"NOTICE %s :As master, you really need to set a pass%s",
	      nick,"word:\n");
      hprintf(helpsock,"NOTICE %s :   /msg %s pass <your-chosen-password>\n",
	      nick,botname);
      hprintf(helpsock,"NOTICE %s :All major commands are used from DCC %s.\n",
	      nick,"chat");
      hprintf(helpsock,"NOTICE %s :From now on, you don't need to use the %s",
	      nick,"'-m' option\n");
      hprintf(helpsock,"NOTICE %s :when starting up this bot.\n",nick);
      hprintf(helpsock,"NOTICE %s :     -Enjoy eggdrop!\n",nick);
      log(LOG_MISC,"Bot installation complete, first master is %s",nick);
      make_userfile=0;
      write_userfile();
    }
    else showtext(nick,"intro",0,0);
    if (notify_new[0]) {
      sprintf(s,"Introduced to %s from %s",nick,host);
      strcpy(s1,notify_new); while (s1[0]) {
	p1=strchr(s1,','); if (p1!=NULL) { *p1=0; p1++; rmspace(p1); }
	rmspace(s1); add_note(s1,origbotname,s,-1,0);
	if (p1==NULL) s1[0]=0; else strcpy(s1,p1);
      }
    }
  }
  else
    mprintf(serv,"NOTICE %s :Hi, %s.\n",nick,n);
  return 1;
}

int msg_pass(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  char old[120];
  split(old,par);
  if (!is_user(hand)) {
    mprintf(serv,"NOTICE %s :I don't know you.\n",nick);
    return 1;
  }
  if (get_attr_handle(hand) & USER_COMMON) {
    mprintf(serv,"NOTICE %s :I don't know you.\n",nick);
    return 1;
  }
  if (!par[0]) {
    mprintf(serv,"NOTICE %s :You %s a password set.\n",nick,
	      pass_match_by_handle("nopass",hand)?"don't have":"have");
    log(LOG_CMDS,"(%s!%s) !%s! PASS?",nick,host,hand);
    return 1;
  }
  if ((!pass_match_by_handle("nopass",hand)) && (!old[0])) {
    mprintf(serv,"NOTICE %s :You already have a password set.\n",nick);
    return 1;
  }
  if (!old[0]) {
    log(LOG_CMDS,"(%s!%s) !%s! PASS...",nick,host,hand);
    if (strlen(par)>9) par[9]=0;
    change_pass_by_handle(hand,par);
    mprintf(serv,"NOTICE %s :Password set to '%s'\n",nick,par);
    return 1;
  }
  if (!pass_match_by_handle(old,hand)) {
    mprintf(serv,"NOTICE %s :Incorrect password.\n",hand);
    return 1;
  }
  log(LOG_CMDS,"(%s!%s) !%s! PASS...",nick,host,hand);
  if (strlen(par)>9) par[9]=0;
  change_pass_by_handle(hand,par);
  mprintf(serv,"NOTICE %s :Password changed to '%s'.\n",nick,par);
  return 1;
}

int msg_ident(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  char s[121],s1[121];
  if (get_attr_handle(hand) & USER_COMMON) {
    mprintf(serv,"NOTICE %s :You're at a common site; you can't ident.\n",
	    nick);
    return 1;
  }
  if (!is_user(nick)) {
    if (strcmp(hand,"*")!=0)
      mprintf(serv,"NOTICE %s :You're not %s, you're %s.\n",nick,nick,hand);
/*    else mprintf(serv,"NOTICE %s :I don't know you.\n",nick);  */
    return 1;
  }
  if (pass_match_by_handle("nopass",nick)) {
    mprintf(serv,"NOTICE %s :You have no password set.\n",nick);
    return 1;
  }
  if (!pass_match_by_handle(par,nick)) {
    mprintf(serv,"NOTICE %s :Access denied.\n",nick);
    return 1;
  }
  if (strcasecmp(hand,nick)==0) {
    mprintf(serv,"NOTICE %s :I recognize you there.\n",nick);
    return 1;
  }
  if (strcasecmp(hand,"*")!=0) {
    mprintf(serv,"NOTICE %s :You're not %s, you're %s.\n",nick,nick,hand);
    return 1;
  }
  log(LOG_CMDS,"(%s!%s) !%s! IDENT",nick,host,nick);
  sprintf(s,"%s!%s",nick,host); maskhost(s,s1);
  mprintf(serv,"NOTICE %s :Added hostmask: %s\n",nick,s1);
  addhost_by_handle(nick,s1);
  return 1;
}

int msg_email(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  char s[161];
  if (strcasecmp(hand,"*")==0) {
    mprintf(serv,"NOTICE %s :I don't know who you are.\n",nick);
    return 1;
  }
  if (get_attr_handle(hand) & USER_COMMON) {
    mprintf(serv,"NOTICE %s :I don't know who you are.\n",nick);
    return 1;
  }
  if (par[0]) {
    get_handle_email(hand,s);
    if (strcasecmp(par,"none")==0) {
      log(LOG_CMDS,"(%s!%s) !%s! EMAIL NONE",nick,host,hand);
      par[0]=0; set_handle_email(userlist,hand,par);
      mprintf(serv,"NOTICE %s :Removed your email address.\n",nick);
    }
    else {
      log(LOG_CMDS,"(%s!%s) !%s! EMAIL...",nick,host,hand);
      set_handle_email(userlist,hand,par);
      mprintf(serv,"NOTICE %s :Now: %s\n",nick,par);
    }
    return 1;
  }
  log(LOG_CMDS,"(%s!%s) !%s! EMAIL?",nick,host,hand);
  get_handle_email(hand,s);
  if (s[0]) {
    mprintf(serv,"NOTICE %s :Currently: %s\n",nick,s);
    mprintf(serv,"NOTICE %s :To remove it: /msg %s email none\n",nick,botname);
  }
  else mprintf(serv,"NOTICE %s :You have no email address set.\n",nick);
  return 1;
}

int msg_info(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  char s[121];
  if (!use_info) {
    mprintf(serv,"NOTICE %s :Info is currently disabled.\n",nick);
    return 1;
  }
  if (strcasecmp(hand,"*")==0) {
    mprintf(serv,"NOTICE %s :I don't know who you are.\n",nick);
    return 1;
  }
  if (get_attr_handle(hand) & USER_COMMON) {
    mprintf(serv,"NOTICE %s :I don't know who you are.\n",nick);
    return 1;
  }
  if (par[0]) {
    get_handle_info(hand,s);
    if (s[0]=='@') mprintf(serv,"NOTICE %s :Your info line is locked.\n",nick);
    else if (strcasecmp(par,"none")==0) {
      log(LOG_CMDS,"(%s!%s) !%s! INFO NONE",nick,host,hand);
      par[0]=0; set_handle_info(userlist,hand,par);
      mprintf(serv,"NOTICE %s :Removed your info line.\n",nick);
    }
    else {
      log(LOG_CMDS,"(%s!%s) !%s! INFO...",nick,host,hand);
      if (par[0]=='@') strcpy(par,&par[1]);
      set_handle_info(userlist,hand,par);
      mprintf(serv,"NOTICE %s :Now: %s\n",nick,par);
    }
    return 1;
  }
  log(LOG_CMDS,"(%s!%s) !%s! INFO?",nick,host,hand);
  get_handle_info(hand,s);
  if (s[0]) {
    mprintf(serv,"NOTICE %s :Currently: %s\n",nick,s);
    mprintf(serv,"NOTICE %s :To remove it: /msg %s info none\n",nick,botname);
  }
  else mprintf(serv,"NOTICE %s :You have no info set.\n",nick);
  return 1;
}

int msg_who(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  if (strcasecmp(hand,"*")==0) return 0;
  if (!use_info) {
    mprintf(serv,"NOTICE %s :Info is disabled.\n",nick);
    return 1;
  }
  if ((channel_hidden()) && 
      (!(get_attr_handle(hand)&(USER_OP|USER_FRIEND|USER_MASTER)))) {
    mprintf(serv,"NOTICE %s :Channel is currently hidden.\n",nick);
    return 1;
  }
  log(LOG_CMDS,"(%s!%s) !%s! WHO",nick,host,hand);
  show_all_info(nick);
  return 1;
}

int msg_whois(hand,nick,host,opar)
char *hand,*nick,*host,*opar;
{
  time_t tt; char s[161],s1[81],par[21]; int atr;
  if (strcasecmp(hand,"*")==0) return 0;
  strcpy(par,opar);
  log(LOG_CMDS,"(%s!%s) !%s! WHOIS %s",nick,host,hand,par);
  if (!is_user(par)) {
    /* no such handle -- maybe it's a nickname of someone on the chan? */
    int bad=0;
    if (ischanmember(par)) {
      sprintf(s,"%s!",par); getchanhost(par,&s[strlen(s)]);
      get_handle_by_host(par,s);
      if (par[0]=='*') bad=1;
      else hprintf(helpsock,"NOTICE %s :[%s] aka '%s':\n",nick,opar,par);
    }
    else bad=1;
    if (bad) {
      hprintf(helpsock,"NOTICE %s :[%s] No user record.\n",nick,opar);
      return;
    }
  }
  atr=get_attr_handle(par);
  get_handle_info(par,s); get_handle_laston(par,&tt);
  if (s[0]=='@') strcpy(s,&s[1]);
  if ((s[0]) && (!(atr&USER_BOT)))
    hprintf(helpsock,"NOTICE %s :[%s] %s\n",nick,par,s);
  get_handle_email(par,s);
  if (s[0]) hprintf(helpsock,"NOTICE %s :[%s] email: %s\n",nick,par,s);
  if (on_chan(par)) sprintf(s1,"NOTICE %s :[%s] On %s now.",nick,par,curchan);
  else if (tt) {
    strcpy(s,ctime(&tt)); strcpy(s,&s[4]); s[12]=0;
    sprintf(s1,"NOTICE %s :[%s] Last seen %s",nick,par,s);
  }
  else sprintf(s1,"NOTICE %s :[%s] No user record.",nick,par);
  if (atr & USER_OP) strcat(s1,"  (is an op)");
  if (atr & USER_BOT) strcat(s1,"  (is a bot)");
  if (atr & USER_MASTER) strcat(s1,"  (is a master)");
  hprintf(helpsock,"%s\n",s1);
}

int msg_help(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  int i,atr; char s[121],*p;
  sprintf(s,"%s!%s",nick,host); atr=get_attr_host(s);
  if (strcasecmp(hand,"*")==0) {
/*    if (learn_users) {
      hprintf(helpsock,"NOTICE %s :'/msg %s hello' to introduce yourself.\n",
	      nick,botname);
      return 1;
    }
    else return 0;   */
    return 0;
  }
  if (helpdir[0]) {
    if (!par[0]) showhelp(nick,"help",atr&USER_OP,atr&USER_MASTER);
    else {
      for (p=par; *p!=0; p++)
	if ((*p>='A') && (*p<='Z')) *p+=('a'-'A');
      showhelp(nick,par,atr&USER_OP,atr&USER_MASTER);
    }
  }
  else hprintf(helpsock,"NOTICE %s :No help.\n",nick);
  return 1;
}

int msg_op(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  if (pass_match_by_handle(par,hand)) {
    add_mode('+','o',nick);
    log(LOG_CMDS,"(%s!%s) !%s! OP",nick,host,hand);
    return 1;
  }
  log(LOG_CMDS,"(%s!%s) !%s! failed OP",nick,host,hand);
  return 1;
}

int msg_invite(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  if (pass_match_by_handle(par,hand)) {
    mprintf(serv,"INVITE %s %s\n",nick,curchan);
    log(LOG_CMDS,"(%s!%s) !%s! INVITE",nick,host,hand);
    return 1;
  }
  log(LOG_CMDS,"(%s!%s) !%s! failed INVITE",nick,host,hand);
  return 1;
}

int msg_status(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  log(LOG_CMDS,"(%s!%s) !%s! STATUS",nick,host,hand);
  tell_chan_info(nick);
  return 1;
}

int msg_memory(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  log(LOG_CMDS,"(%s!%s) !%s! MEMORY",nick,host,hand);
  tell_mem_status(nick);
  return 1;
}

int msg_die(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  char s[121];
  if (pass_match_by_handle(par,hand)) {
    log(LOG_CMDS,"(%s!%s) !%s! DIE",nick,host,hand);
    tprintf(serv,"NOTICE %s :Dying.\n",nick);
    chatout("*** BOT SHUTDOWN (authorized by %s)\n",hand);
    tandout("chat %s BOT SHUTDOWN (authorized by %s)\n",origbotname,hand);
    tandout("bye\n");
    tprintf(serv,"QUIT :Dead by request of %s\n",nick);
    write_userfile();
    sleep(1);   /* give the server time to understand */
    sprintf(s,"DEAD BY REQUEST OF %s!%s",nick,host);
    fatal(s,0);
  }
  log(LOG_CMDS,"(%s!%s) !%s! failed DIE",nick,host,hand);
  return 1;
}

int msg_rehash(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  if (pass_match_by_handle(par,hand)) {
    log(LOG_CMDS,"(%s!%s) !%s! REHASH",nick,host,hand);
    mprintf(serv,"NOTICE %s :Rehashing...\n",nick);
    rehash(); return 1;
  }
  log(LOG_CMDS,"(%s!%s) !%s! failed REHASH",nick,host,hand);
  return 1;
}

int msg_reset(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  log(LOG_CMDS,"(%s!%s) !%s! RESET",nick,host,hand);
  mprintf(serv,"NOTICE %s :Resetting channel info...\n",nick);
  reset_chan_info(); return 1;
}

int msg_go(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  if (!me_op()) {
    if (!(get_attr_handle(hand) & USER_OP)) {
      log(LOG_CMDS,"(%s!%s) !%s! failed GO (not op)",nick,host,hand);
      return 1;
    }
    tprintf(serv,"PART %s\n",curchan);
    log(LOG_CMDS,"(%s!%s) !%s! GO",nick,host,hand);
    return 1;
  }
  log(LOG_CMDS,"(%s!%s) !%s! failed GO (i'm chop)",nick,host,hand);
  return 1;
}

int msg_jump(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  char s[512],port[512];
  if (par[0]) {
    nsplit(s,par); nsplit(port,par);
    if (!port[0]) strcpy(port,"6667");
    log(LOG_CMDS,"(%s!%s) !%s! JUMP %s %s %s",nick,host,hand,s,port,par);
    strcpy(newserver,s); newserverport=atoi(port);
    strcpy(newserverpass,par);
  }
  else log(LOG_CMDS,"(%s!%s) !%s! JUMP",nick,host,hand);
  mprintf(serv,"NOTICE %s :Jumping servers...\n",nick);
  mprintf(serv,"QUIT :jumping servers\n"); return 1;
}

/* notes <pass> <func> */
int msg_notes(hand,nick,host,par)
char *hand,*nick,*host,*par;
{
  char pwd[121],fcn[121];
  if (hand[0]=='*') return 0;
  if (!par[0]) {
    hprintf(helpsock,"NOTICE %s :Usage: NOTES [pass] INDEX\n",nick);
    hprintf(helpsock,"NOTICE %s :       NOTES [pass] TO <nick> <msg>\n",nick);
    hprintf(helpsock,"NOTICE %s :       NOTES [pass] READ <# or ALL>\n",nick);
    hprintf(helpsock,"NOTICE %s :       NOTES [pass] ERASE <# or ALL>\n",nick);
    return 1;
  }
  if ((!pass_match_by_handle("nopass",hand)) || bitch) {
    /* they have a password set */
    nsplit(pwd,par); if (!pass_match_by_handle(pwd,hand)) return 0;
  }
  nsplit(fcn,par);
  if (strcasecmp(fcn,"INDEX")==0) notes_read(hand,nick,-1,-1);
  else if (strcasecmp(fcn,"READ")==0) {
    if (strcasecmp(par,"ALL")==0) notes_read(hand,nick,0,-1);
    else notes_read(hand,nick,atoi(par),-1);
  }
  else if (strcasecmp(fcn,"ERASE")==0) {
    if (strcasecmp(par,"ALL")==0) notes_del(hand,nick,0,0);
    else notes_del(hand,nick,atoi(par),0);
  }
  else if (strcasecmp(fcn,"TO")==0) {
    char to[514]; int i; FILE *f;
    nsplit(to,par);
    if (!par[0]) {
      hprintf(helpsock,"NOTICE %s :Usage: NOTES [pass] TO <nick> <message>\n",
	      nick);
      return 0;
    }
    if (!is_user(to)) {
      hprintf(helpsock,"NOTICE %s :I don't know anyone by that name.\n",nick);
      return 1;
    }
    for (i=0; i<dcc_total; i++) {
      if ((strcasecmp(dcc[i].nick,to)==0) && ((dcc[i].type==DCC_CHAT) ||
					      (dcc[i].type==DCC_FILES))) {
	int aok=1;
	if (dcc[i].type==DCC_CHAT) if (dcc[i].u.chat->away!=NULL) aok=0;
	if (dcc[i].type==DCC_FILES) if (dcc[i].u.file->chat->away!=NULL) aok=0;
	if (aok) {
	  tprintf(dcc[i].sock,"%cOutside note [%s]: %s\n",7,hand,par);
	  hprintf(helpsock,"NOTICE %s :Note delivered.\n",nick);
	  return 1;
	}
      }
    }
    if (notefile[0]==0) {
      hprintf(helpsock,"NOTICE %s :Notes are not supported on this bot.\n",
	      nick);
      return 1;
    }
    f=fopen(notefile,"a");
    if (f==NULL) f=fopen(notefile,"w");
    if (f==NULL) {
      hprintf(helpsock,"NOTICE %s :Can't create notefile.  Sorry.\n",nick);
      log(LOG_MISC,"Notefile unreachable!");
      return 1;
    }
    fprintf(f,"%s %s %lu %s\n",to,hand,time(NULL),par);
    fclose(f);
    hprintf(helpsock,"NOTICE %s :Note delivered.\n",nick);
    return 1;
  }
  else hprintf(helpsock,"NOTICE %s :NOTES function must be one of INDEX, %s\n",
	       nick,"READ, ERASE, TO");
  log(LOG_CMDS,"(%s!%s) !%s! NOTES %s %s",nick,host,hand,fcn,par[0]?"...":"");
  return 1;
}