| 1 |
/* |
| 2 |
* Copyright © 2005-2006 Atheme Development Group |
| 3 |
* Rights to this code are documented in doc/pod/license.pod. |
| 4 |
* |
| 5 |
* Services binary tree manipulation. (add_service, del_service, et al.) |
| 6 |
*/ |
| 7 |
|
| 8 |
static char const rcsid[] = "$Id"; |
| 9 |
|
| 10 |
#include "atheme.h" |
| 11 |
|
| 12 |
dictionary_tree_t *services; |
| 13 |
static BlockHeap *service_heap; |
| 14 |
|
| 15 |
service_t *fcmd_agent = NULL; |
| 16 |
|
| 17 |
static void |
| 18 |
dummy_handler (sourceinfo_t *si, int parc, char **parv) |
| 19 |
{ |
| 20 |
} |
| 21 |
|
| 22 |
void |
| 23 |
servtree_init (void) |
| 24 |
{ |
| 25 |
service_heap = BlockHeapCreate (sizeof (service_t), 12); |
| 26 |
services = dictionary_create ("services", HASH_SMALL, strcasecmp); |
| 27 |
|
| 28 |
if (!service_heap) |
| 29 |
{ |
| 30 |
slog (LG_INFO, "servtree_init(): Block allocator failed."); |
| 31 |
exit (EXIT_FAILURE); |
| 32 |
} |
| 33 |
} |
| 34 |
|
| 35 |
static void |
| 36 |
me_me_init (void) |
| 37 |
{ |
| 38 |
if (me.numeric) |
| 39 |
init_uid (); |
| 40 |
me.me = server_add (me.name, 0, NULL, me.numeric ? me.numeric : NULL, me.desc); |
| 41 |
} |
| 42 |
|
| 43 |
service_t * |
| 44 |
add_service (char *name, char *user, char *host, char *real, void (*handler) (sourceinfo_t *si, int parc, char *parv[]), cmdvec &cmdtree) |
| 45 |
{ |
| 46 |
service_t *sptr; |
| 47 |
user_t *u; |
| 48 |
|
| 49 |
if (me.me == NULL) |
| 50 |
me_me_init (); |
| 51 |
|
| 52 |
if (name == NULL) |
| 53 |
{ |
| 54 |
slog (LG_INFO, "add_service(): Bad error! We were given a NULL pointer for service name!"); |
| 55 |
return NULL; |
| 56 |
} |
| 57 |
|
| 58 |
if ((sptr = find_service (name))) |
| 59 |
{ |
| 60 |
slog (LG_DEBUG, "add_service(): Service `%s' already exists.", name); |
| 61 |
return NULL; |
| 62 |
} |
| 63 |
|
| 64 |
sptr = static_cast<service_t *> (BlockHeapAlloc (service_heap)); |
| 65 |
|
| 66 |
sptr->name = sstrdup (name); |
| 67 |
sptr->user = sstrdup (user); |
| 68 |
sptr->host = sstrdup (host); |
| 69 |
sptr->real = sstrdup (real); |
| 70 |
|
| 71 |
/* Display name, either <Service> or <Service>@<Server> */ |
| 72 |
sptr->disp = service_name (name); |
| 73 |
|
| 74 |
if (me.numeric && *me.numeric) |
| 75 |
sptr->uid = sstrdup (uid_get ()); |
| 76 |
|
| 77 |
sptr->handler = handler; |
| 78 |
sptr->notice_handler = dummy_handler; |
| 79 |
|
| 80 |
sptr->cmdtree = &cmdtree; |
| 81 |
|
| 82 |
if (me.connected) |
| 83 |
{ |
| 84 |
u = user_find_named (name); |
| 85 |
if (u != NULL) |
| 86 |
{ |
| 87 |
skill (me.name, u->nick, "Nick taken by service"); |
| 88 |
user_delete (u); |
| 89 |
} |
| 90 |
} |
| 91 |
|
| 92 |
sptr->me = user_add (name, user, host, NULL, NULL, ircd->uses_uid ? sptr->uid : NULL, real, me.me, NOW); |
| 93 |
sptr->me->flags |= UF_IRCOP; |
| 94 |
|
| 95 |
if (me.connected) |
| 96 |
{ |
| 97 |
introduce_nick (sptr->me); |
| 98 |
/* if the snoop channel already exists, join it now */ |
| 99 |
if (config_options.chan != NULL && channel_find (config_options.chan) != NULL) |
| 100 |
join (config_options.chan, name); |
| 101 |
} |
| 102 |
|
| 103 |
dictionary_add (services, sptr->name, sptr); |
| 104 |
|
| 105 |
return sptr; |
| 106 |
} |
| 107 |
|
| 108 |
void |
| 109 |
del_service (service_t *sptr) |
| 110 |
{ |
| 111 |
dictionary_delete (services, sptr->name); |
| 112 |
|
| 113 |
quit_sts (sptr->me, "Service unloaded."); |
| 114 |
user_delete (sptr->me); |
| 115 |
sptr->me = NULL; |
| 116 |
sptr->handler = NULL; |
| 117 |
free (sptr->disp); /* service_name() does a malloc() */ |
| 118 |
free (sptr->name); |
| 119 |
free (sptr->user); |
| 120 |
free (sptr->host); |
| 121 |
free (sptr->real); |
| 122 |
free (sptr->uid); |
| 123 |
|
| 124 |
BlockHeapFree (service_heap, sptr); |
| 125 |
} |
| 126 |
|
| 127 |
service_t * |
| 128 |
find_service (char *name) |
| 129 |
{ |
| 130 |
service_t *sptr; |
| 131 |
user_t *u; |
| 132 |
char *p; |
| 133 |
char name2[NICKLEN]; |
| 134 |
dictionary_iteration_state_t state; |
| 135 |
|
| 136 |
if (name[0] == '#') |
| 137 |
return fcmd_agent; |
| 138 |
|
| 139 |
p = strchr (name, '@'); |
| 140 |
if (p != NULL) |
| 141 |
{ |
| 142 |
/* Make sure it's for us, not for a jupe -- jilles */ |
| 143 |
if (irccasecmp (p + 1, me.name)) |
| 144 |
return NULL; |
| 145 |
strlcpy (name2, name, sizeof name2); |
| 146 |
p = strchr (name2, '@'); |
| 147 |
if (p != NULL) |
| 148 |
*p = '\0'; |
| 149 |
sptr = static_cast<service_t *> (dictionary_retrieve (services, name2)); |
| 150 |
if (sptr != NULL) |
| 151 |
return sptr; |
| 152 |
DICTIONARY_FOREACH (sptr, service_t, &state, services) |
| 153 |
{ |
| 154 |
if (sptr->me != NULL && !strcasecmp (name2, sptr->user)) |
| 155 |
return sptr; |
| 156 |
} |
| 157 |
} |
| 158 |
else |
| 159 |
{ |
| 160 |
sptr = static_cast<service_t *> (dictionary_retrieve (services, name)); |
| 161 |
if (sptr != NULL) |
| 162 |
return sptr; |
| 163 |
|
| 164 |
if (ircd->uses_uid) |
| 165 |
{ |
| 166 |
/* yuck yuck -- but quite efficient -- jilles */ |
| 167 |
u = user_find (name); |
| 168 |
if (u != NULL && u->server == me.me) |
| 169 |
return static_cast<service_t *> (dictionary_retrieve (services, u->nick)); |
| 170 |
} |
| 171 |
} |
| 172 |
|
| 173 |
return NULL; |
| 174 |
} |
| 175 |
|
| 176 |
char * |
| 177 |
service_name (char *name) |
| 178 |
{ |
| 179 |
char *buf = static_cast<char *> (smalloc (BUFSIZE)); |
| 180 |
|
| 181 |
snprintf (buf, BUFSIZE, "%s%s%s", name, (config_options.secure) ? "@" : "", (config_options.secure) ? me.name : ""); |
| 182 |
|
| 183 |
return buf; |
| 184 |
} |
| 185 |
|
| 186 |
/* vim:cinoptions=>s,e0,n0,f0,{0,}0,^0,=s,ps,t0,c3,+s,(2s,us,)20,*30,gs,hs |
| 187 |
* vim:ts=8 |
| 188 |
* vim:sw=8 |
| 189 |
* vim:noexpandtab |
| 190 |
*/ |
