ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/svn/ircd-hybrid/trunk/src/parse.c
Revision: 4298
Committed: Sun Jul 20 13:51:16 2014 UTC (11 years, 1 month ago) by michael
Content type: text/x-csrc
File size: 19494 byte(s)
Log Message:
- Fixed typos all over the place

File Contents

# Content
1 /*
2 * ircd-hybrid: an advanced, lightweight Internet Relay Chat Daemon (ircd)
3 *
4 * Copyright (c) 1997-2014 ircd-hybrid development team
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
19 * USA
20 */
21
22 /*! \file parse.c
23 * \brief The message parser.
24 * \version $Id$
25 */
26
27 #include "stdinc.h"
28 #include "client.h"
29 #include "parse.h"
30 #include "channel.h"
31 #include "hash.h"
32 #include "irc_string.h"
33 #include "ircd.h"
34 #include "numeric.h"
35 #include "log.h"
36 #include "send.h"
37 #include "conf.h"
38 #include "memory.h"
39 #include "user.h"
40 #include "server.h"
41
42
43 /*
44 * (based on orabidoo's parser code)
45 *
46 * This has always just been a trie. Look at volume III of Knuth ACP
47 *
48 *
49 * ok, you start out with an array of pointers, each one corresponds
50 * to a letter at the current position in the command being examined.
51 *
52 * so roughly you have this for matching 'trie' or 'tie'
53 *
54 * 't' points -> [MessageTree *] 'r' -> [MessageTree *] -> 'i'
55 * -> [MessageTree *] -> [MessageTree *] -> 'e' and matches
56 *
57 * 'i' -> [MessageTree *] -> 'e' and matches
58 *
59 * BUGS (Limitations!)
60 *
61 * I designed this trie to parse ircd commands. Hence it currently
62 * casefolds. This is trivial to fix by increasing MAXPTRLEN.
63 * This trie also "folds" '{' etc. down. This means, the input to this
64 * trie must be alpha tokens only. This again, is a limitation that
65 * can be overcome by increasing MAXPTRLEN to include upper/lower case
66 * at the expense of more memory. At the extreme end, you could make
67 * MAXPTRLEN 128.
68 *
69 * This is also not a patricia trie. On short ircd tokens, this is
70 * not likely going to matter.
71 *
72 * Diane Bruce (Dianora), June 6 2003
73 */
74
75 /*
76 * Must be a power of 2, and larger than 26 [a-z]|[A-Z]. It's used to allocate
77 * the set of pointers at each node of the tree.
78 * There are MAXPTRLEN pointers at each node. Obviously, there have to be more
79 * pointers than ASCII letters. 32 is a nice number since there is then no need
80 * to shift 'A'/'a' to base 0 index, at the expense of a few never used
81 * pointers.
82 * For a small parser like this, this is a good compromise and does
83 * make it somewhat faster. - Dianora
84 */
85 #define MAXPTRLEN 32
86
87
88 static struct MessageTree
89 {
90 int links; /* Count of all pointers (including msg) at this node
91 * used as reference count for deletion of _this_ node.
92 */
93 struct Message *msg;
94 struct MessageTree *pointers[MAXPTRLEN];
95 } msg_tree;
96
97
98 /* remove_unknown()
99 *
100 * inputs -
101 * output -
102 * side effects -
103 */
104 static void
105 parse_remove_unknown(struct Client *client_p, char *lsender, char *lbuffer)
106 {
107 /*
108 * Do kill if it came from a server because it means there is a ghost
109 * user on the other server which needs to be removed. -avalon
110 * Tell opers about this. -Taner
111 */
112 /*
113 * '[0-9]something' is an ID (KILL/SQUIT depending on its length)
114 * 'nodots' is a nickname (KILL)
115 * 'no.dot.at.start' is a server (SQUIT)
116 */
117 if ((IsDigit(*lsender) && strlen(lsender) <= IRC_MAXSID) || strchr(lsender, '.'))
118 {
119 sendto_realops_flags(UMODE_DEBUG, L_ADMIN, SEND_NOTICE,
120 "Unknown prefix (%s) from %s, Squitting %s",
121 lbuffer, get_client_name(client_p, SHOW_IP), lsender);
122 sendto_realops_flags(UMODE_DEBUG, L_OPER, SEND_NOTICE,
123 "Unknown prefix (%s) from %s, Squitting %s",
124 lbuffer, client_p->name, lsender);
125 sendto_one(client_p, ":%s SQUIT %s :(Unknown prefix (%s) from %s)",
126 me.id, lsender, lbuffer, client_p->name);
127 }
128 else
129 sendto_one(client_p, ":%s KILL %s :%s (Unknown Client)",
130 me.id, lsender, me.name);
131 }
132
133 /* cancel_clients()
134 *
135 * inputs -
136 * output -
137 * side effects -
138 */
139 static void
140 parse_cancel_clients(struct Client *client_p, struct Client *source_p, char *cmd)
141 {
142 if (IsServer(source_p) || IsMe(source_p))
143 {
144 sendto_realops_flags(UMODE_DEBUG, L_ADMIN, SEND_NOTICE,
145 "Message for %s[%s] from %s",
146 source_p->name, source_p->from->name,
147 get_client_name(client_p, SHOW_IP));
148 sendto_realops_flags(UMODE_DEBUG, L_OPER, SEND_NOTICE,
149 "Message for %s[%s] from %s",
150 source_p->name, source_p->from->name,
151 get_client_name(client_p, MASK_IP));
152 sendto_realops_flags(UMODE_DEBUG, L_ALL, SEND_NOTICE,
153 "Not dropping server %s (%s) for Fake Direction",
154 client_p->name, source_p->name);
155 return;
156 }
157
158 sendto_realops_flags(UMODE_DEBUG, L_ADMIN, SEND_NOTICE,
159 "Message for %s[%s@%s!%s] from %s (TS, ignored)",
160 source_p->name, source_p->username, source_p->host,
161 source_p->from->name, get_client_name(client_p, SHOW_IP));
162 sendto_realops_flags(UMODE_DEBUG, L_OPER, SEND_NOTICE,
163 "Message for %s[%s@%s!%s] from %s (TS, ignored)",
164 source_p->name, source_p->username, source_p->host,
165 source_p->from->name, get_client_name(client_p, MASK_IP));
166 }
167
168 /*
169 *
170 * parc number of arguments ('sender' counted as one!)
171 * parv[0] pointer to 'sender' (may point to empty string) (not used)
172 * parv[1]..parv[parc-1]
173 * pointers to additional parameters, this is a NULL
174 * terminated list (parv[parc] == NULL).
175 *
176 * *WARNING*
177 * Numerics are mostly error reports. If there is something
178 * wrong with the message, just *DROP* it! Don't even think of
179 * sending back a neat error message -- big danger of creating
180 * a ping pong error message...
181 *
182 * Rewritten by Nemesi, Jan 1999, to support numeric nicks in parv[1]
183 *
184 * Called when we get a numeric message from a remote _server_ and we are
185 * supposed to forward it somewhere. Note that we always ignore numerics sent
186 * to 'me' and simply drop the message if we can't handle with this properly:
187 * the savvy approach is NEVER generate an error in response to an... error :)
188 */
189 static void
190 parse_handle_numeric(unsigned int numeric, struct Client *source_p, int parc, char *parv[])
191 {
192 struct Client *target_p = NULL;
193 struct Channel *chptr = NULL;
194
195 /*
196 * Avoid trash, we need it to come from a server and have a target
197 */
198 if (parc < 2 || !IsServer(source_p))
199 return;
200
201 /*
202 * Who should receive this message ? Will we do something with it ?
203 * Note that we use findUser functions, so the target can't be neither
204 * a server, nor a channel (?) nor a list of targets (?) .. u2.10
205 * should never generate numeric replies to non-users anyway
206 * Ahem... it can be a channel actually, csc bots use it :\ --Nem
207 */
208 if (IsChanPrefix(*parv[1]))
209 chptr = hash_find_channel(parv[1]);
210 else
211 target_p = find_person(source_p, parv[1]);
212
213 if (((!target_p) || (target_p->from == source_p->from)) && !chptr)
214 return;
215
216 /*
217 * Remap low number numerics, not that I understand WHY.. --Nemesi
218 */
219 /*
220 * Numerics below 100 talk about the current 'connection', you're not
221 * connected to a remote server so it doesn't make sense to send them
222 * remotely - but the information they contain may be useful, so we
223 * remap them up. Weird, but true. -- Isomer
224 */
225 if (numeric < 100)
226 numeric += 100;
227
228 if (target_p)
229 {
230 /* Fake it for server hiding, if it's our client */
231 if ((ConfigServerHide.hide_servers || IsHidden(source_p)) && MyConnect(target_p) &&
232 !HasUMode(target_p, UMODE_OPER))
233 sendto_one_numeric(target_p, &me, numeric|SND_EXPLICIT, "%s", parv[2]);
234 else
235 sendto_one_numeric(target_p, source_p, numeric|SND_EXPLICIT, "%s", parv[2]);
236 }
237 else
238 sendto_channel_butone(source_p, source_p, chptr, 0, "%u %s %s",
239 numeric, chptr->chname, parv[2]);
240 }
241
242 /* handle_command()
243 *
244 * inputs - pointer to message block
245 * - pointer to client
246 * - pointer to client message is from
247 * - count of number of args
248 * - pointer to argv[] array
249 * output - -1 if error from server
250 * side effects -
251 */
252 static void
253 parse_handle_command(struct Message *mptr, struct Client *source_p,
254 unsigned int i, char *para[])
255 {
256 if (IsServer(source_p->from))
257 ++mptr->rcount;
258
259 ++mptr->count;
260
261 /* Check right amount of parameters is passed... --is */
262 if (i < mptr->args_min)
263 sendto_one_numeric(source_p, &me, ERR_NEEDMOREPARAMS, mptr->cmd);
264 else
265 mptr->handlers[source_p->from->handler](source_p, i, para);
266 }
267
268 /*
269 * parse a buffer.
270 *
271 * NOTE: parse() should not be called recusively by any other functions!
272 */
273 void
274 parse(struct Client *client_p, char *pbuffer, char *bufend)
275 {
276 struct Client *from = client_p;
277 struct Message *msg_ptr = NULL;
278 char *para[MAXPARA + 2]; /* <command> + <parameters> + NULL */
279 char *ch = NULL;
280 char *s = NULL;
281 unsigned int numeric = 0;
282 unsigned int parc = 0;
283 unsigned int paramcount;
284
285 if (IsDefunct(client_p))
286 return;
287
288 assert(client_p->localClient->fd.flags.open);
289 assert((bufend - pbuffer) < IRCD_BUFSIZE);
290
291 for (ch = pbuffer; *ch == ' '; ++ch) /* Skip spaces */
292 ;
293
294 if (*ch == ':')
295 {
296 /*
297 * Copy the prefix to 'sender' assuming it terminates
298 * with SPACE (or NULL, which is an error, though).
299 */
300 char *sender = ++ch;
301
302 if ((s = strchr(ch, ' ')))
303 {
304 *s = '\0';
305 ch = ++s;
306 }
307
308 if (*sender && IsServer(client_p))
309 {
310 if ((from = find_person(client_p, sender)) == NULL)
311 from = hash_find_server(sender);
312
313 /*
314 * Hmm! If the client corresponding to the prefix is not found--what is
315 * the correct action??? Now, I will ignore the message (old IRC just
316 * let it through as if the prefix just wasn't there...) --msa
317 */
318 if (from == NULL)
319 {
320 ++ServerStats.is_unpf;
321 parse_remove_unknown(client_p, sender, pbuffer);
322 return;
323 }
324
325 if (from->from != client_p)
326 {
327 ++ServerStats.is_wrdi;
328 parse_cancel_clients(client_p, from, pbuffer);
329 return;
330 }
331 }
332
333 while (*ch == ' ')
334 ++ch;
335 }
336
337 if (*ch == '\0')
338 {
339 ++ServerStats.is_empt;
340 return;
341 }
342
343 /*
344 * Extract the command code from the packet. Point s to the end
345 * of the command code and calculate the length using pointer
346 * arithmetic. Note: only need length for numerics and *all*
347 * numerics must have parameters and thus a space after the command
348 * code. -avalon
349 */
350
351 /* EOB is 3 characters long but is not a numeric */
352 if (*(ch + 3) == ' ' && /* Ok, let's see if it's a possible numeric */
353 IsDigit(*ch) && IsDigit(*(ch + 1)) && IsDigit(*(ch + 2)))
354 {
355 numeric = (*ch - '0') * 100 + (*(ch + 1) - '0') * 10 + (*(ch + 2) - '0');
356 paramcount = 2; /* Destination, and the rest of it */
357 ++ServerStats.is_num;
358 s = ch + 3; /* I know this is ' ' from above if */
359 *s++ = '\0'; /* Blow away the ' ', and point s to next part */
360 }
361 else
362 {
363 unsigned int ii = 0;
364
365 if ((s = strchr(ch, ' ')))
366 *s++ = '\0';
367
368 if ((msg_ptr = find_command(ch)) == NULL)
369 {
370 /*
371 * Note: Give error message *only* to recognized
372 * persons. It's a nightmare situation to have
373 * two programs sending "Unknown command"'s or
374 * equivalent to each other at full blast....
375 * If it has got to person state, it at least
376 * seems to be well behaving. Perhaps this message
377 * should never be generated, though... --msa
378 * Hm, when is the buffer empty -- if a command
379 * code has been found ?? -Armin
380 */
381 if (*pbuffer)
382 if (IsClient(from))
383 sendto_one_numeric(from, &me, ERR_UNKNOWNCOMMAND, ch);
384
385 ++ServerStats.is_unco;
386 return;
387 }
388
389 assert(msg_ptr->cmd);
390
391 paramcount = msg_ptr->args_max;
392 ii = bufend - ((s) ? s : ch);
393 msg_ptr->bytes += ii;
394 }
395
396 /*
397 * Must the following loop really be so devious? On surface it
398 * splits the message to parameters from blank spaces. But, if
399 * paramcount has been reached, the rest of the message goes into
400 * this last parameter (about same effect as ":" has...) --msa
401 */
402
403 /* Note initially true: s == NULL || *(s - 1) == '\0' !! */
404
405 para[parc] = ch;
406
407 if (s)
408 {
409 if (paramcount > MAXPARA)
410 paramcount = MAXPARA;
411
412 while (1)
413 {
414 while (*s == ' ')
415 *s++ = '\0';
416
417 if (*s == '\0')
418 break;
419
420 if (*s == ':')
421 {
422 /* The rest is a single parameter */
423 para[++parc] = s + (!numeric); /* Keep the colon if it's a numeric */
424 break;
425 }
426
427 para[++parc] = s;
428
429 if (parc >= paramcount)
430 break;
431
432 while (*s && *s != ' ')
433 ++s;
434 }
435 }
436
437 para[++parc] = NULL;
438
439 if (msg_ptr)
440 parse_handle_command(msg_ptr, from, parc, para);
441 else
442 parse_handle_numeric(numeric, from, parc, para);
443 }
444
445 /* add_msg_element()
446 *
447 * inputs - pointer to MessageTree
448 * - pointer to Message to add for given command
449 * - pointer to current portion of command being added
450 * output - NONE
451 * side effects - recursively build the Message Tree ;-)
452 */
453 /*
454 * How this works.
455 *
456 * The code first checks to see if its reached the end of the command
457 * If so, that struct MessageTree has a msg pointer updated and the links
458 * count incremented, since a msg pointer is a reference.
459 * Then the code descends recursively, building the trie.
460 * If a pointer index inside the struct MessageTree is NULL a new
461 * child struct MessageTree has to be allocated.
462 * The links (reference count) is incremented as they are created
463 * in the parent.
464 */
465 static void
466 add_msg_element(struct MessageTree *mtree_p, struct Message *msg_p,
467 const char *cmd)
468 {
469 struct MessageTree *ntree_p = NULL;
470
471 if (*cmd == '\0')
472 {
473 mtree_p->msg = msg_p;
474 mtree_p->links++; /* Have msg pointer, so up ref count */
475 }
476 else
477 {
478 /*
479 * *cmd & (MAXPTRLEN-1)
480 * convert the char pointed to at *cmd from ASCII to an integer
481 * between 0 and MAXPTRLEN.
482 * Thus 'A' -> 0x1 'B' -> 0x2 'c' -> 0x3 etc.
483 */
484 if ((ntree_p = mtree_p->pointers[*cmd & (MAXPTRLEN - 1)]) == NULL)
485 {
486 ntree_p = MyCalloc(sizeof(struct MessageTree));
487 mtree_p->pointers[*cmd & (MAXPTRLEN - 1)] = ntree_p;
488
489 mtree_p->links++; /* Have new pointer, so up ref count */
490 }
491
492 add_msg_element(ntree_p, msg_p, cmd + 1);
493 }
494 }
495
496 /* del_msg_element()
497 *
498 * inputs - Pointer to MessageTree to delete from
499 * - pointer to command name to delete
500 * output - NONE
501 * side effects - recursively deletes a token from the Message Tree ;-)
502 */
503 /*
504 * How this works.
505 *
506 * Well, first off, the code recursively descends into the trie
507 * until it finds the terminating letter of the command being removed.
508 * Once it has done that, it marks the msg pointer as NULL then
509 * reduces the reference count on that allocated struct MessageTree
510 * since a command counts as a reference.
511 *
512 * Then it pops up the recurse stack. As it comes back up the recurse
513 * The code checks to see if the child now has no pointers or msg
514 * i.e. the links count has gone to zero. If it's no longer used, the
515 * child struct MessageTree can be deleted. The parent reference
516 * to this child is then removed and the parents link count goes down.
517 * Thus, we continue to go back up removing all unused MessageTree(s)
518 */
519 static void
520 del_msg_element(struct MessageTree *mtree_p, const char *cmd)
521 {
522 struct MessageTree *ntree_p = NULL;
523
524 /*
525 * In case this is called for a nonexistent command
526 * check that there is a msg pointer here, else links-- goes -ve
527 * -db
528 */
529 if (*cmd == '\0' && mtree_p->msg)
530 {
531 mtree_p->msg = NULL;
532 mtree_p->links--;
533 }
534 else
535 {
536 if ((ntree_p = mtree_p->pointers[*cmd & (MAXPTRLEN - 1)]))
537 {
538 del_msg_element(ntree_p, cmd + 1);
539
540 if (ntree_p->links == 0)
541 {
542 mtree_p->pointers[*cmd & (MAXPTRLEN - 1)] = NULL;
543 mtree_p->links--;
544 MyFree(ntree_p);
545 }
546 }
547 }
548 }
549
550 /* msg_tree_parse()
551 *
552 * inputs - Pointer to command to find
553 * - Pointer to MessageTree root
554 * output - Find given command returning Message * if found NULL if not
555 * side effects - none
556 */
557 static struct Message *
558 msg_tree_parse(const char *cmd)
559 {
560 struct MessageTree *mtree = &msg_tree;
561
562 assert(cmd && *cmd);
563
564 while (IsAlpha(*cmd) && (mtree = mtree->pointers[*cmd & (MAXPTRLEN - 1)]))
565 if (*++cmd == '\0')
566 return mtree->msg;
567
568 return NULL;
569 }
570
571 /* mod_add_cmd()
572 *
573 * inputs - pointer to struct Message
574 * output - none
575 * side effects - load this one command name
576 */
577 void
578 mod_add_cmd(struct Message *msg)
579 {
580 assert(msg && msg->cmd);
581
582 /* Command already added? */
583 if (msg_tree_parse(msg->cmd))
584 return;
585
586 add_msg_element(&msg_tree, msg, msg->cmd);
587 }
588
589 /* mod_del_cmd()
590 *
591 * inputs - pointer to struct Message
592 * output - none
593 * side effects - unload this one command name
594 */
595 void
596 mod_del_cmd(struct Message *msg)
597 {
598 assert(msg && msg->cmd);
599
600 if (!msg_tree_parse(msg->cmd))
601 return;
602
603 del_msg_element(&msg_tree, msg->cmd);
604 }
605
606 /* find_command()
607 *
608 * inputs - command name
609 * output - pointer to struct Message
610 * side effects - none
611 */
612 struct Message *
613 find_command(const char *cmd)
614 {
615 return msg_tree_parse(cmd);
616 }
617
618 static void
619 recurse_report_messages(struct Client *source_p, const struct MessageTree *mtree)
620 {
621 if (mtree->msg)
622 sendto_one_numeric(source_p, &me, RPL_STATSCOMMANDS,
623 mtree->msg->cmd,
624 mtree->msg->count, mtree->msg->bytes,
625 mtree->msg->rcount);
626
627 for (unsigned int i = 0; i < MAXPTRLEN; ++i)
628 if (mtree->pointers[i])
629 recurse_report_messages(source_p, mtree->pointers[i]);
630 }
631
632 /* report_messages()
633 *
634 * inputs - pointer to client to report to
635 * output - NONE
636 * side effects - client is shown list of commands
637 */
638 void
639 report_messages(struct Client *source_p)
640 {
641 const struct MessageTree *mtree = &msg_tree;
642
643 for (unsigned int i = 0; i < MAXPTRLEN; ++i)
644 if (mtree->pointers[i])
645 recurse_report_messages(source_p, mtree->pointers[i]);
646 }
647
648 /* m_not_oper()
649 * inputs -
650 * output -
651 * side effects - just returns a nastyogram to given user
652 */
653 int
654 m_not_oper(struct Client *source_p, int parc, char *parv[])
655 {
656 sendto_one_numeric(source_p, &me, ERR_NOPRIVILEGES);
657 return 0;
658 }
659
660 int
661 m_unregistered(struct Client *source_p, int parc, char *parv[])
662 {
663 sendto_one_numeric(source_p, &me, ERR_NOTREGISTERED);
664 return 0;
665 }
666
667 int
668 m_registered(struct Client *source_p, int parc, char *parv[])
669 {
670 sendto_one_numeric(source_p, &me, ERR_ALREADYREGISTRED);
671 return 0;
672 }
673
674 int
675 m_ignore(struct Client *source_p, int parc, char *parv[])
676 {
677 return 0;
678 }

Properties

Name Value
svn:eol-style native
svn:keywords Id Revision