2 * IRC - Internet Relay Chat, ircd/m_burst.c
3 * Copyright (C) 1990 Jarkko Oikarinen and
4 * University of Oulu, Computing Center
6 * See file AUTHORS in IRC package for additional names of
9 * This program is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation; either version 1, or (at your option)
14 * This program is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU General Public License for more details.
19 * You should have received a copy of the GNU General Public License
20 * along with this program; if not, write to the Free Software
21 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
27 * m_functions execute protocol messages on this server:
29 * cptr is always NON-NULL, pointing to a *LOCAL* client
30 * structure (with an open socket connected!). This
31 * identifies the physical socket where the message
32 * originated (or which caused the m_function to be
33 * executed--some m_functions may call others...).
35 * sptr is the source of the message, defined by the
36 * prefix part of the message if present. If not
37 * or prefix not found, then sptr==cptr.
39 * (!IsServer(cptr)) => (cptr == sptr), because
40 * prefixes are taken *only* from servers...
43 * (sptr == cptr) => the message didn't
46 * (sptr != cptr && IsServer(sptr) means
47 * the prefix specified servername. (?)
49 * (sptr != cptr && !IsServer(sptr) means
50 * that message originated from a remote
55 * (!IsServer(sptr)) means that, sptr can safely
56 * taken as defining the target structure of the
57 * message in this server.
59 * *Always* true (if 'parse' and others are working correct):
61 * 1) sptr->from == cptr (note: cptr->from == cptr)
63 * 2) MyConnect(sptr) <=> sptr == cptr (e.g. sptr
64 * *cannot* be a local connection, unless it's
65 * actually cptr!). [MyConnect(x) should probably
66 * be defined as (x == x->from) --msa ]
68 * parc number of variable parameter strings (if zero,
69 * parv is allowed to be NULL)
71 * parv a NULL terminated list of parameter pointers,
73 * parv[0], sender (prefix string), if not present
74 * this points to an empty string.
75 * parv[1]...parv[parc-1]
76 * pointers to additional parameters
77 * parv[parc] == NULL, *always*
79 * note: it is guaranteed that parv[0]..parv[parc-1] are all
88 #include "ircd_alloc.h"
89 #include "ircd_features.h"
91 #include "ircd_reply.h"
92 #include "ircd_string.h"
102 #include "ircd_snprintf.h"
104 /* #include <assert.h> -- Now using assert in ircd_log.h */
110 netride_modes(int parc, char **parv, const char *curr_key)
112 char *modes = parv[0];
115 assert(modes && modes[0] == '+');
119 result |= MODE_INVITEONLY;
122 if (strcmp(curr_key, *++parv))
129 result |= MODE_REGONLY;
137 * ms_burst - server message handler
139 * -- by Run carlo@runaway.xs4all.nl december 1995 till march 1997
141 * parv[0] = sender prefix
142 * parv[1] = channel name
143 * parv[2] = channel timestamp
144 * The meaning of the following parv[]'s depend on their first character:
145 * If parv[n] starts with a '+':
146 * Net burst, additive modes
148 * parv[n+1] = <param> (optional)
149 * parv[n+2] = <param> (optional)
150 * If parv[n] starts with a '%', then n will be parc-1:
151 * parv[n] = %<ban> <ban> <ban> ...
152 * If parv[n] starts with another character:
153 * parv[n] = <nick>[:<mode>],<nick>[:<mode>],...
154 * where <mode> defines the mode and op-level
155 * for nick and all following nicks until the
157 * Digits in the <mode> field have of two meanings:
158 * 1) if it is the first field in this BURST message
159 * that contains digits, and/or when a 'v' is
160 * present in the <mode>:
161 * The absolute value of the op-level.
162 * 2) if there are only digits in this field and
163 * it is not the first field with digits:
164 * An op-level increment relative to the previous
166 * First all modeless nicks must be emmitted,
167 * then all combinations of modes without ops
168 * (currently that is only 'v') followed by the same
169 * series but then with ops (currently 'o','ov').
172 * "A8 B #test 87654321 +ntkAl key secret 123 A8AAG,A8AAC:v,A8AAA:0,A8AAF:2,A8AAD,A8AAB:v1,A8AAE:1 :%ban1 ban2"
174 * <mode> list example:
176 * "xxx,sss:v,ttt,aaa:123,bbb,ccc:2,ddd,kkk:v2,lll:2,mmm"
180 * xxx // first modeless nicks
181 * sss +v // then opless nicks
182 * ttt +v // no ":<mode>": everything stays the same
183 * aaa -123 // first field with digit: absolute value
185 * ccc -125 // only digits, not first field: increment
187 * kkk -2 +v // field with a 'v': absolute value
188 * lll -4 +v // only digits: increment
191 * Anti net.ride code.
193 * When the channel already exist, and its TS is larger than
194 * the TS in the BURST message, then we cancel all existing modes.
195 * If its is smaller then the received BURST message is ignored.
196 * If it's equal, then the received modes are just added.
198 * BURST is also accepted outside a netburst now because it
199 * is sent upstream as reaction to a DESTRUCT message. For
200 * these BURST messages it is possible that the listed channel
201 * members are already joined.
203 int ms_burst(struct Client *cptr, struct Client *sptr, int parc, char *parv[])
205 struct ModeBuf modebuf, *mbuf = 0;
206 struct Channel *chptr;
208 struct Membership *member, *nmember;
209 struct Ban *lp, **lp_p;
210 unsigned int parse_flags = (MODE_PARSE_FORCE | MODE_PARSE_BURST);
211 int param, nickpos = 0, banpos = 0;
212 char modestr[BUFSIZE], nickstr[BUFSIZE], banstr[BUFSIZE];
215 return protocol_violation(sptr,"Too few parameters for BURST");
217 if (!(chptr = get_channel(sptr, parv[1], CGT_CREATE)))
218 return 0; /* can't create the channel? */
220 timestamp = atoi(parv[2]);
222 if (!chptr->creationtime || chptr->creationtime > timestamp) {
224 * Kick local members if channel is +i or +k and our TS was larger
225 * than the burst TS (anti net.ride). The modes hack is here because
226 * we have to do this before mode_parse, as chptr may go away.
228 for (param = 3; param < parc; param++)
231 if (parv[param][0] != '+')
233 check_modes = netride_modes(parc - param, parv + param, chptr->mode.key);
236 /* Clear any outstanding rogue invites */
237 mode_invite_clear(chptr);
238 for (member = chptr->members; member; member = nmember)
240 nmember = member->next_member;
241 if (!MyUser(member->user) || IsZombie(member))
243 /* Kick as netrider if key mismatch *or* remote channel is
244 * +i (unless user is an oper) *or* remote channel is +r
245 * (unless user has an account).
247 if (!(check_modes & MODE_KEY)
248 && (!(check_modes & MODE_INVITEONLY) || IsAnOper(member->user))
249 && (!(check_modes & MODE_REGONLY) || IsAccount(member->user)))
251 sendcmdto_serv_butone(&me, CMD_KICK, NULL, "%H %C :Net Rider", chptr, member->user);
252 sendcmdto_channel_butserv_butone(&me, CMD_KICK, chptr, NULL, 0, "%H %C :Net Rider", chptr, member->user);
253 make_zombie(member, member->user, &me, &me, chptr);
259 /* If the channel had only locals, it went away by now. */
260 if (!(chptr = get_channel(sptr, parv[1], CGT_CREATE)))
261 return 0; /* can't create the channel? */
264 /* turn off burst joined flag */
265 for (member = chptr->members; member; member = member->next_member)
266 member->status &= ~(CHFL_BURST_JOINED|CHFL_BURST_ALREADY_OPPED|CHFL_BURST_ALREADY_VOICED);
268 if (!chptr->creationtime) /* mark channel as created during BURST */
269 chptr->mode.mode |= MODE_BURSTADDED;
271 /* new channel or an older one */
272 if (!chptr->creationtime || chptr->creationtime > timestamp) {
273 chptr->creationtime = timestamp;
275 modebuf_init(mbuf = &modebuf, &me, cptr, chptr,
276 MODEBUF_DEST_CHANNEL | MODEBUF_DEST_NOKEY);
277 modebuf_mode(mbuf, MODE_DEL | chptr->mode.mode); /* wipeout modes */
278 chptr->mode.mode &= MODE_BURSTADDED | MODE_WASDELJOINS;
280 /* wipe out modes not represented in chptr->mode.mode */
281 if (chptr->mode.limit) {
282 modebuf_mode_uint(mbuf, MODE_DEL | MODE_LIMIT, chptr->mode.limit);
283 chptr->mode.limit = 0;
285 if (chptr->mode.key[0]) {
286 modebuf_mode_string(mbuf, MODE_DEL | MODE_KEY, chptr->mode.key, 0);
287 chptr->mode.key[0] = '\0';
289 if (chptr->mode.upass[0]) {
290 modebuf_mode_string(mbuf, MODE_DEL | MODE_UPASS, chptr->mode.upass, 0);
291 chptr->mode.upass[0] = '\0';
293 if (chptr->mode.apass[0]) {
294 modebuf_mode_string(mbuf, MODE_DEL | MODE_APASS, chptr->mode.apass, 0);
295 chptr->mode.apass[0] = '\0';
298 parse_flags |= (MODE_PARSE_SET | MODE_PARSE_WIPEOUT); /* wipeout keys */
300 /* mark bans for wipeout */
301 for (lp = chptr->banlist; lp; lp = lp->next)
302 lp->flags |= BAN_BURST_WIPEOUT;
304 /* clear topic set by netrider (if set) */
306 *chptr->topic = '\0';
307 *chptr->topic_nick = '\0';
308 chptr->topic_time = 0;
309 sendcmdto_channel_butserv_butone(&me, CMD_TOPIC, chptr, NULL, 0,
310 "%H :%s", chptr, chptr->topic);
312 } else if (chptr->creationtime == timestamp) {
313 modebuf_init(mbuf = &modebuf, &me, cptr, chptr,
314 MODEBUF_DEST_CHANNEL | MODEBUF_DEST_NOKEY);
316 parse_flags |= MODE_PARSE_SET; /* set new modes */
319 param = 3; /* parse parameters */
320 while (param < parc) {
321 switch (*parv[param]) {
322 case '+': /* parameter introduces a mode string */
323 param += mode_parse(mbuf, cptr, sptr, chptr, parc - param,
324 parv + param, parse_flags, NULL);
327 case '%': /* parameter contains bans */
328 if (parse_flags & MODE_PARSE_SET) {
329 char *banlist = parv[param] + 1, *p = 0, *ban, *ptr;
332 for (ban = ircd_strtok(&p, banlist, " "); ban;
333 ban = ircd_strtok(&p, 0, " ")) {
334 ban = collapse(pretty_mask(ban));
337 * Yeah, we should probably do this elsewhere, and make it better
338 * and more general; this will hold until we get there, though.
339 * I dislike the current add_banid API... -Kev
341 * I wish there were a better algo. for this than the n^2 one
344 for (lp = chptr->banlist; lp; lp = lp->next) {
345 if (!ircd_strcmp(lp->banstr, ban)) {
346 ban = 0; /* don't add ban */
347 lp->flags &= ~BAN_BURST_WIPEOUT; /* not wiping out */
348 break; /* new ban already existed; don't even repropagate */
349 } else if (!(lp->flags & BAN_BURST_WIPEOUT) &&
350 !mmatch(lp->banstr, ban)) {
351 ban = 0; /* don't add ban unless wiping out bans */
352 break; /* new ban is encompassed by an existing one; drop */
353 } else if (!mmatch(ban, lp->banstr))
354 lp->flags |= BAN_OVERLAPPED; /* remove overlapping ban */
360 if (ban) { /* add the new ban to the end of the list */
361 /* Build ban buffer */
363 banstr[banpos++] = ' ';
364 banstr[banpos++] = ':';
365 banstr[banpos++] = '%';
367 banstr[banpos++] = ' ';
368 for (ptr = ban; *ptr; ptr++) /* add ban to buffer */
369 banstr[banpos++] = *ptr;
371 newban = make_ban(ban); /* create new ban */
373 DupString(newban->who,
374 cli_name(feature_bool(FEAT_HIS_BANWHO) ? &me : sptr));
375 newban->when = TStime();
377 newban->flags = BAN_BURSTED; /* set flags */
378 if ((ptr = strrchr(ban, '@')) && check_if_ipmask(ptr + 1))
379 newban->flags |= BAN_IPMASK;
383 lp->next = newban; /* link it in */
385 chptr->banlist = newban;
389 param++; /* look at next param */
392 default: /* parameter contains clients */
394 struct Client *acptr;
395 char *nicklist = parv[param], *p = 0, *nick, *ptr;
396 int current_mode, last_mode, base_mode;
397 int oplevel = -1; /* Mark first field with digits: means the same as 'o' (but with level). */
398 int last_oplevel = 0;
399 struct Membership* member;
401 base_mode = CHFL_DEOPPED | CHFL_BURST_JOINED;
402 if (chptr->mode.mode & MODE_DELJOINS)
403 base_mode |= CHFL_DELAYED;
404 current_mode = last_mode = base_mode;
406 for (nick = ircd_strtok(&p, nicklist, ","); nick;
407 nick = ircd_strtok(&p, 0, ",")) {
409 if ((ptr = strchr(nick, ':'))) { /* new flags; deal */
412 if (parse_flags & MODE_PARSE_SET) {
413 int current_mode_needs_reset;
414 for (current_mode_needs_reset = 1; *ptr; ptr++) {
415 if (*ptr == 'o') { /* has oper status */
417 * An 'o' is pre-oplevel protocol, so this is only for
418 * backwards compatibility. Give them an op-level of
419 * MAXOPLEVEL so everyone can deop them.
421 oplevel = MAXOPLEVEL;
422 if (current_mode_needs_reset) {
423 current_mode = base_mode;
424 current_mode_needs_reset = 0;
426 current_mode = (current_mode & ~(CHFL_DEOPPED | CHFL_DELAYED)) | CHFL_CHANOP;
428 else if (*ptr == 'v') { /* has voice status */
429 if (current_mode_needs_reset) {
430 current_mode = base_mode;
431 current_mode_needs_reset = 0;
433 current_mode = (current_mode & ~CHFL_DELAYED) | CHFL_VOICE;
434 oplevel = -1; /* subsequent digits are an absolute op-level value. */
436 else if (isdigit(*ptr)) {
437 int level_increment = 0;
438 if (oplevel == -1) { /* op-level is absolute value? */
439 if (current_mode_needs_reset) {
440 current_mode = base_mode;
441 current_mode_needs_reset = 0;
445 current_mode = (current_mode & ~(CHFL_DEOPPED | CHFL_DELAYED)) | CHFL_CHANOP;
447 level_increment = 10 * level_increment + *ptr++ - '0';
448 } while(isdigit(*ptr));
449 oplevel += level_increment;
451 else /* I don't recognize that flag */
452 break; /* so stop processing */
457 if (!(acptr = findNUser(nick)) || cli_from(acptr) != cptr)
458 continue; /* ignore this client */
460 /* Build nick buffer */
461 nickstr[nickpos] = nickpos ? ',' : ' '; /* first char */
464 for (ptr = nick; *ptr; ptr++) /* store nick */
465 nickstr[nickpos++] = *ptr;
467 if (current_mode != last_mode) { /* if mode changed... */
468 last_mode = current_mode;
469 last_oplevel = oplevel;
471 nickstr[nickpos++] = ':'; /* add a specifier */
472 if (current_mode & CHFL_VOICE)
473 nickstr[nickpos++] = 'v';
474 if (current_mode & CHFL_CHANOP)
476 if (chptr->mode.apass[0])
477 nickpos += ircd_snprintf(0, nickstr + nickpos, sizeof(nickstr) - nickpos, "%u", oplevel);
479 nickstr[nickpos++] = 'o';
481 } else if (current_mode & CHFL_CHANOP && oplevel != last_oplevel) { /* if just op level changed... */
482 nickstr[nickpos++] = ':'; /* add a specifier */
483 nickpos += ircd_snprintf(0, nickstr + nickpos, sizeof(nickstr) - nickpos, "%u", oplevel - last_oplevel);
484 last_oplevel = oplevel;
487 if (IsBurst(sptr) || !(member = find_member_link(chptr, acptr)))
489 add_user_to_channel(chptr, acptr, current_mode, oplevel);
490 if (!(current_mode & CHFL_DELAYED))
491 sendcmdto_channel_butserv_butone(acptr, CMD_JOIN, chptr, NULL, 0, "%H", chptr);
495 /* The member was already joined (either by CREATE or JOIN).
496 Remember the current mode. */
497 if (member->status & CHFL_CHANOP)
498 member->status |= CHFL_BURST_ALREADY_OPPED;
499 if (member->status & CHFL_VOICE)
500 member->status |= CHFL_BURST_ALREADY_VOICED;
501 /* Synchronize with the burst. */
502 member->status |= CHFL_BURST_JOINED | (current_mode & (CHFL_CHANOP|CHFL_VOICE));
503 member->oplevel = oplevel;
509 } /* switch (*parv[param]) */
510 } /* while (param < parc) */
512 nickstr[nickpos] = '\0';
513 banstr[banpos] = '\0';
515 if (parse_flags & MODE_PARSE_SET) {
516 modebuf_extract(mbuf, modestr + 1); /* for sending BURST onward */
517 modestr[0] = modestr[1] ? ' ' : '\0';
521 sendcmdto_serv_butone(sptr, CMD_BURST, cptr, "%H %Tu%s%s%s", chptr,
522 chptr->creationtime, modestr, nickstr, banstr);
524 if (parse_flags & MODE_PARSE_WIPEOUT || banpos)
525 mode_ban_invalidate(chptr);
527 if (parse_flags & MODE_PARSE_SET) { /* any modes changed? */
528 /* first deal with channel members */
529 for (member = chptr->members; member; member = member->next_member) {
530 if (member->status & CHFL_BURST_JOINED) { /* joined during burst */
531 if ((member->status & CHFL_CHANOP) && !(member->status & CHFL_BURST_ALREADY_OPPED))
532 modebuf_mode_client(mbuf, MODE_ADD | CHFL_CHANOP, member->user);
533 if ((member->status & CHFL_VOICE) && !(member->status & CHFL_BURST_ALREADY_VOICED))
534 modebuf_mode_client(mbuf, MODE_ADD | CHFL_VOICE, member->user);
535 } else if (parse_flags & MODE_PARSE_WIPEOUT) { /* wipeout old ops */
536 if (member->status & CHFL_CHANOP)
537 modebuf_mode_client(mbuf, MODE_DEL | CHFL_CHANOP, member->user);
538 if (member->status & CHFL_VOICE)
539 modebuf_mode_client(mbuf, MODE_DEL | CHFL_VOICE, member->user);
540 member->status = (member->status
541 & ~(CHFL_CHANNEL_MANAGER | CHFL_CHANOP | CHFL_VOICE))
546 /* Now deal with channel bans */
547 lp_p = &chptr->banlist;
551 /* remove ban from channel */
552 if (lp->flags & (BAN_OVERLAPPED | BAN_BURST_WIPEOUT)) {
553 modebuf_mode_string(mbuf, MODE_DEL | MODE_BAN,
554 lp->banstr, 1); /* let it free banstr */
555 lp->banstr = NULL; /* do not free this string */
556 *lp_p = lp->next; /* clip out of list */
559 } else if (lp->flags & BAN_BURSTED) /* add ban to channel */
560 modebuf_mode_string(mbuf, MODE_ADD | MODE_BAN,
561 lp->banstr, 0); /* don't free banstr */
563 lp->flags &= BAN_IPMASK; /* reset the flag */
564 lp_p = &(*lp_p)->next;
568 return mbuf ? modebuf_flush(mbuf) : 0;