src/mod/seen.mod/seen.c File Reference

#include "src/mod/module.h"
#include <time.h>
#include "src/users.h"
#include "src/chan.h"
#include "channels.mod/channels.h"

Include dependency graph for seen.c:

Go to the source code of this file.

Data Structures
struct	trig_data
Defines
#define	MODULE_NAME   "seen"
#define	MAKING_SEEN
Functions
static void	wordshift ()
static void	do_seen ()
static char *	match_trigger ()
static char *	getxtra ()
static char *	fixnick ()
static int	seen_expmem ()
static int	pub_seen (char *nick, char *host, char *hand, char *channel, char *text)
static int	msg_seen (char *nick, char *host, struct userrec *u, char *text)
static int	dcc_seen (struct userrec *u, int idx, char *par)
static void	do_seen (int idx, char *prefix, char *nick, char *hand, char *channel, char *text)
static char *	fixnick (char *nick)
static char *	match_trigger (char *word)
static char *	getxtra (char *hand, char *field)
static void	wordshift (char *first, char *rest)
static void	seen_report (int idx, int details)
static int	server_seen_setup (char *mod)
static int	irc_seen_setup (char *mod)
static char *	seen_close ()
char *	seen_start ()
char *	seen_start (Function *egg_func_table)
Variables
static Function *	global = 0
static trig_data	trigdata []
static char	fixit [512]
static cmd_t	seen_pub []
static cmd_t	seen_dcc []
static cmd_t	seen_msg []
static cmd_t	seen_load []
static Function	seen_table []

---

Define Documentation

#define MAKING_SEEN

Definition at line 74 of file seen.c.

#define MODULE_NAME   "seen"

Definition at line 73 of file seen.c.

---

Function Documentation

static int dcc_seen	(	struct userrec *	u,
		int	idx,
		char *	par
	)			[static]

Definition at line 148 of file seen.c.

References dcc, do_seen(), LOG_CMDS, and putlog.

{
  putlog(LOG_CMDS, "*", "#%s# seen %s", dcc[idx].nick, par);
  do_seen(idx, "", dcc[idx].nick, dcc[idx].nick, "", par);
  return 0;
}

Here is the call graph for this function:

static void do_seen	(	int	idx,
		char *	prefix,
		char *	nick,
		char *	hand,
		char *	channel,
		char *	text
	)			[static]

Definition at line 155 of file seen.c.

References admin, chan_issplit, CHANMETA, chanuserrec::channel, chanset_t::channel, userrec::chanrec, chanset, dcc, dcc_total, DCT_CHAT, chanset_t::dname, dprintf, egg_strcasecmp, findchan_by_dname, fixnick(), get_user, get_user_by_handle, get_user_by_host, getxtra(), userrec::handle, ismember, laston_info::laston, chanuserrec::laston, laston_info::lastonplace, LOG_PUBLIC, match_trigger(), chan_t::member, chanuserrec::next, memstruct::next, chanset_t::next, memstruct::nick, now, NULL, rfc_casecmp, time_t, USERENTRY_LASTON, memstruct::userhost, userlist, and wordshift().

{
  char stuff[512], word1[512], word2[512], whotarget[512], object[512],
       whoredirect[512], *oix, *lastonplace = 0;
  struct userrec *urec;
  struct chanset_t *chan;
  struct laston_info *li;
  struct chanuserrec *cr;
  memberlist *m = NULL;
  int onchan = 0, i;
  long tv;
  time_t laston = 0, work;

  whotarget[0]   = 0;
  whoredirect[0] = 0;
  object[0]      = 0;

  /* Was ANYONE specified */
  if (!text[0]) {
    dprintf(idx, "%sUm, %s, it might help if you ask me about _someone_...\n",
            prefix, nick);
    return;
  }

  wordshift(word1, text);
  oix = strchr(word1, '\'');
  /* Have we got a NICK's target? */
  if (oix == word1)
    return;                     /* Skip anything starting with ' */
  if (oix && *oix && ((oix[1] && (oix[1] == 's' || oix[1] == 'S') &&
      !oix[2]) || (!oix[1] && (oix[-1] == 's' || oix[-1] == 'z' ||
      oix[-1] == 'x' || oix[-1] == 'S' || oix[-1] == 'Z' ||
      oix[-1] == 'X')))) {
    strncpy(object, word1, oix - word1);
    object[oix - word1] = 0;
    wordshift(word1, text);
    if (!word1[0]) {
      dprintf(idx, "%s%s's what, %s?\n", prefix, object, nick);
      return;
    }
    urec = get_user_by_handle(userlist, object);
    if (!urec) {
      chan = chanset;
      while (chan) {
        onchan = 0;
        m = ismember(chan, object);
        if (m) {
          onchan = 1;
          sprintf(stuff, "%s!%s", object, m->userhost);
          urec = get_user_by_host(stuff);
          if (!urec || !egg_strcasecmp(object, urec->handle))
            break;
          strcat(whoredirect, object);
          strcat(whoredirect, " is ");
          strcat(whoredirect, urec->handle);
          strcat(whoredirect, ", and ");
          strcpy(object, urec->handle);
          break;
        }
        chan = chan->next;
      }
      if (!onchan) {
        dprintf(idx, "%sI don't think I know who %s is, %s.\n",
                prefix, object, nick);
        return;
      }
    }
    if (!egg_strcasecmp(word1, "bf") || !egg_strcasecmp(word1, "boyfriend")) {
      strcpy(whotarget, getxtra(object, "BF"));
      if (whotarget[0]) {
        sprintf(whoredirect, "%s boyfriend is %s, and ",
                fixnick(object), whotarget);
        goto targetcont;
      }
      dprintf(idx,
              "%sI don't know who %s boyfriend is, %s.\n",
              prefix, fixnick(object), nick);
      return;
    }
    if (!egg_strcasecmp(word1, "gf") || !egg_strcasecmp(word1, "girlfriend")) {
      strcpy(whotarget, getxtra(object, "GF"));
      if (whotarget[0]) {
        sprintf(whoredirect, "%s girlfriend is %s, and ",
                fixnick(object), whotarget);
        goto targetcont;
      }
      dprintf(idx,
              "%sI don't know who %s girlfriend is, %s.\n",
              prefix, fixnick(object), nick);
      return;
    }
    dprintf(idx,
            "%sWhy are you bothering me with questions about %s %s, %s?\n",
            prefix, fixnick(object), word1, nick);
    return;
  }
  /* Keyword "my" */
  if (!egg_strcasecmp(word1, "my")) {
    wordshift(word1, text);
    if (!word1[0]) {
      dprintf(idx, "%sYour what, %s?\n", prefix, nick);
      return;
    }
    /* Do I even KNOW the requestor? */
    if (hand[0] == '*' || !hand[0]) {
      dprintf(idx,
              "%sI don't know you, %s, so I don't know about your %s.\n",
              prefix, nick, word1);
      return;
    }
    /* "my boyfriend" */
    if (!egg_strcasecmp(word1, "boyfriend") || !egg_strcasecmp(word1, "bf")) {
      strcpy(whotarget, getxtra(hand, "BF"));
      if (whotarget[0]) {
        sprintf(whoredirect, "%s, your boyfriend is %s, and ", nick, whotarget);
      } else {
        dprintf(idx, "%sI didn't know you had a boyfriend, %s\n", prefix, nick);
        return;
      }
    }
    /* "my girlfriend" */
    else if (!egg_strcasecmp(word1, "girlfriend") ||
             !egg_strcasecmp(word1, "gf")) {
      strcpy(whotarget, getxtra(hand, "GF"));
      if (whotarget[0]) {
        sprintf(whoredirect, "%s, your girlfriend is %s, and ",
                nick, whotarget);
      } else {
        dprintf(idx, "%sI didn't know you had a girlfriend, %s\n", prefix,
                nick);
        return;
      }
    } else {
      dprintf(idx, "%sI don't know anything about your %s, %s.\n", prefix,
              word1, nick);
      return;
    }
  }
  /* "your" keyword */
  else if (!egg_strcasecmp(word1, "your")) {
    wordshift(word1, text);
    /* "your admin" */
    if (!egg_strcasecmp(word1, "owner") || !egg_strcasecmp(word1, "admin")) {
      if (admin[0]) {
        strcpy(word2, admin);
        wordshift(whotarget, word2);
        strcat(whoredirect, "My owner is ");
        strcat(whoredirect, whotarget);
        strcat(whoredirect, ", and ");
        if (!egg_strcasecmp(whotarget, hand)) {
          strcat(whoredirect, "that's YOU");
          if (!egg_strcasecmp(hand, nick))
            strcat(whoredirect, "!!!");
          else {
            strcat(whoredirect, ", ");
            strcat(whoredirect, nick);
            strcat(whoredirect, "!");
          }
          dprintf(idx, "%s%s\n", prefix, whoredirect);
          return;
        }
      } else {                    /* owner variable munged or not set */
        dprintf(idx,
                "%sI don't seem to recall who my owner is right now...\n",
                prefix);
        return;
      }
    } else {                      /* no "your" target specified */
      dprintf(idx, "%sLet's not get personal, %s.\n", prefix, nick);
      return;
    }
  }
  /* Check for keyword match in the internal table */
  else if (match_trigger(word1)) {
    sprintf(word2, "%s%s\n", prefix, match_trigger(word1));
    dprintf(idx, word2, nick);
    return;
  }
  /* Otherwise, make the target to the first word and continue */
  else
    strcpy(whotarget, word1);

targetcont:
  /* Looking for ones own nick? */
  if (!rfc_casecmp(nick, whotarget)) {
    dprintf(idx, "%s%sLooking for yourself, eh %s?\n",
            prefix, whoredirect, nick);
    return;
  }
  /* Check if nick is on a channel */
  chan = chanset;
  while (chan) {
    m = ismember(chan, whotarget);
    if (m) {
      onchan = 1;
      sprintf(word1, "%s!%s", whotarget, m->userhost);
      urec = get_user_by_host(word1);
      if (!urec || !egg_strcasecmp(whotarget, urec->handle))
        break;
      strcat(whoredirect, whotarget);
      strcat(whoredirect, " is ");
      strcat(whoredirect, urec->handle);
      strcat(whoredirect, ", and ");
      break;
    }
    chan = chan->next;
  }
  /* Check if nick is on a channel by xref'ing to handle */
  if (!onchan) {
    chan = chanset;
    while (chan) {
      m = chan->channel.member;
      while (m && m->nick[0]) {
        sprintf(word2, "%s!%s", m->nick, m->userhost);
        urec = get_user_by_host(word2);
        if (urec && !egg_strcasecmp(urec->handle, whotarget)) {
          onchan = 1;
          strcat(whoredirect, whotarget);
          strcat(whoredirect, " is ");
          strcat(whoredirect, m->nick);
          strcat(whoredirect, ", and ");
          strcpy(whotarget, m->nick);
          break;
        }
        m = m->next;
      }
      chan = chan->next;
    }
  }
  /* Check if the target was on the channel, but is netsplit */
  chan = findchan_by_dname(channel);
  if (chan) {
    m = ismember(chan, whotarget);
    if (m && chan_issplit(m)) {
      dprintf(idx, "%s%s%s was just here, but got netsplit.\n",
              prefix, whoredirect, whotarget);
      return;
    }
  }
  /* Check if the target IS on the channel */
  if (chan && m) {
    dprintf(idx, "%s%s%s is on the channel right now!\n",
            prefix, whoredirect, whotarget);
    return;
  }
  /* Target not on this channel.   Check other channels */
  chan = chanset;
  while (chan) {
    m = ismember(chan, whotarget);
    if (m && chan_issplit(m)) {
      dprintf(idx,
              "%s%s%s was just on %s, but got netsplit.\n",
              prefix, whoredirect, whotarget, chan->dname);
      return;
    }
    if (m) {
      dprintf(idx,
              "%s%s%s is on %s right now!\n",
              prefix, whoredirect, whotarget, chan->dname);
      return;
    }
    chan = chan->next;
  }
  /* Target isn't on any of my channels. */
  /* See if target matches a handle in my userlist. */
  urec = get_user_by_handle(userlist, whotarget);
  /* No match, then bail out */
  if (!urec) {
    dprintf(idx, "%s%sI don't know who %s is.\n",
            prefix, whoredirect, whotarget);
    return;
  }
  /* We had a userlist match to a handle */
  /* Is the target currently DCC CHAT to me on the botnet? */
  for (i = 0; i < dcc_total; i++) {
    if (dcc[i].type->flags & DCT_CHAT) {
      if (!egg_strcasecmp(whotarget, dcc[i].nick)) {
        if (!rfc_casecmp(channel, dcc[i].u.chat->con_chan) &&
            dcc[i].u.chat->con_flags & LOG_PUBLIC) {
          strcat(whoredirect, whotarget);
          strcat(whoredirect,
                 " is 'observing' this channel right now from my party line!");
          dprintf(idx, "%s%s\n", prefix, whoredirect);
        } else {
          dprintf(idx,
                  "%s%s%s is linked to me via DCC CHAT right now!\n",
                  prefix, whoredirect, whotarget);
        }
        return;
      }
    }
  }
  /* Target known, but nowhere to be seen.  Give last IRC and botnet time */
  wordshift(word1, text);
  if (!egg_strcasecmp(word1, "anywhere"))
    cr = NULL;
  else
    for (cr = urec->chanrec; cr; cr = cr->next) {
      if (!rfc_casecmp(cr->channel, channel)) {
        if (cr->laston) {
          laston = cr->laston;
          lastonplace = channel;
          break;
        }
      }
    }
  if (!cr) {
    li = get_user(&USERENTRY_LASTON, urec);
    if (!li || !li->lastonplace || !li->lastonplace[0]) {
      dprintf(idx, "%s%sI've never seen %s around.\n",
              prefix, whoredirect, whotarget);
      return;
    }
    lastonplace = li->lastonplace;
    laston = li->laston;
  }
  word1[0] = 0;
  word2[0] = 0;
  work = now - laston;
  if (work >= 86400) {
    tv = work / 86400;
    sprintf(word2, "%lu day%s, ", tv, (tv == 1) ? "" : "s");
    work = work % 86400;
  }
  if (work >= 3600) {
    tv = work / 3600;
    sprintf(word2 + strlen(word2), "%lu hour%s, ", tv, (tv == 1) ? "" : "s");
    work = work % 3600;
  }
  if (work >= 60) {
    tv = work / 60;
    sprintf(word2 + strlen(word2), "%lu minute%s, ", tv,
            (tv == 1) ? "" : "s");
  }
  if (!word2[0] && (work < 60)) {
    strcpy(word2, "just moments ago!!");
  } else {
    strcpy(word2 + strlen(word2) - 2, " ago.");
  }
  if (lastonplace[0] && (strchr(CHANMETA, lastonplace[0]) != NULL))
    sprintf(word1, "on IRC channel %s", lastonplace);
  else if (lastonplace[0] == '@')
    sprintf(word1, "on %s", lastonplace + 1);
  else if (lastonplace[0] != 0)
    sprintf(word1, "on my %s", lastonplace);
  else
    strcpy(word1, "seen");
  dprintf(idx, "%s%s%s was last %s %s\n",
          prefix, whoredirect, whotarget, word1, word2);
}

Here is the call graph for this function:

static void do_seen

(

)

[static]

Referenced by dcc_seen(), msg_seen(), and pub_seen().

Here is the caller graph for this function:

static char* fixnick

(

char *

nick

)

[static]

Definition at line 508 of file seen.c.

References fixit.

{
  strcpy(fixit, nick);
  strcat(fixit, "'");
  switch (nick[strlen(nick) - 1]) {
  case 's':
  case 'S':
  case 'x':
  case 'X':
  case 'z':
  case 'Z':
    break;
  default:
    strcat(fixit, "s");
    break;
  }
  return fixit;
}

static char* fixnick

(

)

[static]

Referenced by do_seen().

Here is the caller graph for this function:

static char* getxtra	(	char *	hand,
		char *	field
	)			[static]

Definition at line 539 of file seen.c.

References xtra_key::data, egg_strcasecmp, user_entry::extra, find_user_entry, fixit, get_user_by_handle, xtra_key::key, xtra_key::next, user_entry::u, USERENTRY_XTRA, and userlist.

{

  struct userrec *urec;
  struct user_entry *ue;
  struct xtra_key *xk;

  urec = get_user_by_handle(userlist, hand);
  if (urec) {
    ue = find_user_entry(&USERENTRY_XTRA, urec);
    if (ue)
      for (xk = ue->u.extra; xk; xk = xk->next)
        if (xk->key && !egg_strcasecmp(xk->key, field)) {
          if (xk->data[0] == '{' && xk->data[strlen(xk->data) - 1] == '}' &&
              strlen(xk->data) > 2) {
            strncpy(fixit, &xk->data[1], strlen(xk->data) - 2);
            fixit[strlen(xk->data) - 2] = 0;
            return fixit;
          } else {
            return xk->data;
          }
        }
  }
  return "";
}

static char* getxtra

(

)

[static]

Referenced by do_seen().

Here is the caller graph for this function:

static int irc_seen_setup

(

char *

mod

)

[static]

Definition at line 612 of file seen.c.

References add_builtins, and find_bind_table.

Referenced by seen_start().

{
  p_tcl_bind_list H_temp;

  if ((H_temp = find_bind_table("pub")))
    add_builtins(H_temp, seen_pub);
  return 0;
}

Here is the caller graph for this function:

static char* match_trigger

(

char *

word

)

[static]

Definition at line 527 of file seen.c.

References egg_strcasecmp, trig_data::key, NULL, and trig_data::text.

{
  trig_data *t = trigdata;

  while (t->key) {
    if (!egg_strcasecmp(word, t->key))
      return t->text;
    t++;
  }
  return (char *) NULL;
}

static char* match_trigger

(

)

[static]

Referenced by do_seen().

Here is the caller graph for this function:

static int msg_seen	(	char *	nick,
		char *	host,
		struct userrec *	u,
		char *	text
	)			[static]

Definition at line 134 of file seen.c.

References do_seen(), DP_SERVER, userrec::handle, LOG_CMDS, and putlog.

{
  char prefix[50];

  if (!u) {
    putlog(LOG_CMDS, "*", "[%s!%s] seen %s", nick, host, text);
    return 0;
  }
  putlog(LOG_CMDS, "*", "(%s!%s) !%s! SEEN %s", nick, host, u->handle, text);
  sprintf(prefix, "PRIVMSG %s :", nick);
  do_seen(DP_SERVER, prefix, nick, u->handle, "", text);
  return 0;
}

Here is the call graph for this function:

static int pub_seen	(	char *	nick,
		char *	host,
		char *	hand,
		char *	channel,
		char *	text
	)			[static]

Definition at line 121 of file seen.c.

References channel_seen, chanset_t::dname, do_seen(), DP_HELP, egg_snprintf, findchan_by_dname, chanset_t::name, and NULL.

{
  char prefix[91];              /* sizeof(name) + strlen("PRIVMSG  :") */
  struct chanset_t *chan = findchan_by_dname(channel);

  if ((chan != NULL) && channel_seen(chan)) {
    egg_snprintf(prefix, sizeof prefix, "PRIVMSG %s :", chan->name);
    do_seen(DP_HELP, prefix, nick, hand, chan->dname, text);
  }
  return 0;
}

Here is the call graph for this function:

static char* seen_close

(

)

[static]

Definition at line 627 of file seen.c.

References find_bind_table, H_dcc, H_load, MODULE_NAME, module_undepend, NULL, rem_builtins, and rem_help_reference.

{
  p_tcl_bind_list H_temp;

  rem_builtins(H_load, seen_load);
  rem_builtins(H_dcc, seen_dcc);
  rem_help_reference("seen.help");
  if ((H_temp = find_bind_table("pub")))
    rem_builtins(H_temp, seen_pub);
  if ((H_temp = find_bind_table("msg")))
    rem_builtins(H_temp, seen_msg);
  module_undepend(MODULE_NAME);
  return NULL;
}

static int seen_expmem

(

)

[static]

Definition at line 115 of file seen.c.

Referenced by seen_report().

{
  return 0;
}

Here is the caller graph for this function:

static void seen_report	(	int	idx,
		int	details
	)			[static]

Definition at line 577 of file seen.c.

References dprintf, and seen_expmem().

{
  if (details) {
    int size = seen_expmem();

    dprintf(idx, "    Using %d byte%s of memory\n", size,
            (size != 1) ? "s" : "");
  }
}

Here is the call graph for this function:

char* seen_start

(

Function *

egg_func_table

)

Definition at line 651 of file seen.c.

References add_builtins, add_help_reference, botnetnick, global, H_dcc, H_load, irc_seen_setup(), trig_data::key, module_depend, MODULE_NAME, module_register, module_undepend, NULL, seen_table, and server_seen_setup().

{
  global = egg_func_table;

  module_register(MODULE_NAME, seen_table, 2, 0);
  if (!module_depend(MODULE_NAME, "eggdrop", 106, 0)) {
    module_undepend(MODULE_NAME);
    return "This module requires Eggdrop 1.6.0 or later.";
  }
  add_builtins(H_load, seen_load);
  add_builtins(H_dcc, seen_dcc);
  add_help_reference("seen.help");
  server_seen_setup(NULL);
  irc_seen_setup(NULL);
  trigdata[4].key = botnetnick;
  return NULL;
}

Here is the call graph for this function:

char* seen_start

(

)

static int server_seen_setup

(

char *

mod

)

[static]

Definition at line 603 of file seen.c.

References add_builtins, and find_bind_table.

Referenced by seen_start().

{
  p_tcl_bind_list H_temp;

  if ((H_temp = find_bind_table("msg")))
    add_builtins(H_temp, seen_msg);
  return 0;
}

Here is the caller graph for this function:

static void wordshift	(	char *	first,
		char *	rest
	)			[static]

Definition at line 565 of file seen.c.

References egg_strcasecmp, and newsplit.

{
  char *p, *q = rest;

  do {
    p = newsplit(&q);
    strcpy(first, p);
    strcpy(rest, q);
  } while (!egg_strcasecmp(first, "and") || !egg_strcasecmp(first, "or"));
}

static void wordshift

(

)

[static]

Referenced by do_seen().

Here is the caller graph for this function:

---

Variable Documentation

char fixit[512] [static]

Definition at line 507 of file seen.c.

Referenced by fixnick(), and getxtra().

Function* global = 0 [static]

Definition at line 93 of file seen.c.

cmd_t seen_dcc[] [static]

Initial value:

 {
  {"seen", "",   dcc_seen,  0 },
  { 0 ,    0 ,  0 ,      0 }
}

Definition at line 593 of file seen.c.

cmd_t seen_load[] [static]

Initial value:

 {
  {"server", "",   server_seen_setup,  0 },
  {"irc",    "",   irc_seen_setup,     0 },
  { 0 ,      0 ,  0 ,               0 }
}

Definition at line 621 of file seen.c.

cmd_t seen_msg[] [static]

Initial value:

 {
  {"seen", "",   msg_seen,  0 },
  { 0 ,    0 ,  0 ,      0 }
}

Definition at line 598 of file seen.c.

cmd_t seen_pub[] [static]

Initial value:

 {
  {"seen", "",    pub_seen,  0 },
  { 0 ,    0 ,  0 ,       0 }
}

Definition at line 588 of file seen.c.

Function seen_table[] [static]

Initial value:

 {
  (Function) seen_start,
  (Function) seen_close,
  (Function) seen_expmem,
  (Function) seen_report,
}

Definition at line 644 of file seen.c.

Referenced by seen_start().

trig_data trigdata[] [static]

Initial value:

 {
  {"god",      "Let's not get into a religious discussion, %s"},
  {"jesus",    "Let's not get into a religious discussion, %s"},
  {"shit",                         "Here's looking at you, %s"},
  {"yourself",          "Yeah, whenever I look in a mirror..."},
  { 0 , "                                  You found me, %s!"},
  {"elvis",                 "Last time I was on the moon man."},
  { 0 ,                                                   0 }
}

Definition at line 105 of file seen.c.