ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/ermyth/modules/protocol/shadowircd.C
Revision: 1.6
Committed: Sun Sep 9 20:05:52 2007 UTC (19 years, 1 month ago) by pippijn
Content type: text/plain
Branch: MAIN
Changes since 1.5: +3 -2 lines
Log Message:
- changed configurations to the c++ stdlib
- more #defines to enum
- removed getopt.h and link.h from the system as they were unused
- reworked logstreams
- added an itoa with old syntax
- made klines objects
- moved some global variables into appropriate classes
- fixed boost.foreach's compiler workaround #if's
- allow other files to add exceptions with ADD_EXCEPTION
- changed mynick_t to c++ object
- moved servers.h out of atheme.h
- corrected PING from inspircd 1.2

File Contents

# User Rev Content
1 pippijn 1.1 /*
2 pippijn 1.4 * Copyright © 2003-2004 E. Will et al.
3     * Copyright © 2005-2006 Atheme Development Group
4 pippijn 1.2 * Rights to this code are documented in doc/pod/license.pod.
5 pippijn 1.1 *
6     * This file contains protocol support for shadowircd-based ircd.
7     *
8 pippijn 1.6 * $Id: shadowircd.C,v 1.5 2007-09-05 11:23:15 pippijn Exp $
9 pippijn 1.1 */
10    
11     #include "atheme.h"
12 pippijn 1.6 #include "servers.h"
13 pippijn 1.1 #include <account/mynick.h>
14     #include "uplink.h"
15     #include "pmodule.h"
16     #include "protocol/shadowircd.h"
17    
18 pippijn 1.6 static char const rcsid[] = "$Id: shadowircd.C,v 1.5 2007-09-05 11:23:15 pippijn Exp $";
19 pippijn 1.1
20     /* *INDENT-OFF* */
21    
22 pippijn 1.4 namespace protocol
23 pippijn 1.1 {
24 pippijn 1.4 static ircd_t ShadowIRCd = {
25     "ShadowIRCd 3.3/3.6 family", /* IRCd name */
26     "$$", /* TLD Prefix, used by Global. */
27     false, /* Whether or not we use IRCNet/TS6 UID */
28     false, /* Whether or not we use RCOMMAND */
29     true, /* Whether or not we support channel owners. */
30     true, /* Whether or not we support channel protection. */
31     true, /* Whether or not we support halfops. */
32     false, /* Whether or not we use P10 */
33     true, /* Whether or not we use vHosts. */
34     CMODE_OPERONLY | CMODE_PERM, /* Oper-only cmodes */
35     CMODE_PROTECT, /* Integer flag for owner channel flag. */
36     CMODE_PROTECT, /* Integer flag for protect channel flag. */
37     CMODE_HALFOP, /* Integer flag for halfops. */
38     "+u", /* Mode we set for owner. */
39     "+u", /* Mode we set for protect. */
40     "+h", /* Mode we set for halfops. */
41     PROTOCOL_SHADOWIRCD, /* Protocol type */
42     CMODE_PERM, /* Permanent cmodes */
43     "beIqd", /* Ban-like cmodes */
44     'e', /* Except mchar */
45     'I', /* Invex mchar */
46     0 /* Flags */
47     };
48    
49     struct shadowircd_handler : handler
50     {
51     shadowircd_handler ();
52     virtual ~shadowircd_handler ();
53    
54     virtual unsigned int server_login (void);
55     virtual void introduce_nick (user_t *u);
56     virtual void invite_sts (user_t *source, user_t *target, channel_t *channel);
57     virtual void quit_sts (user_t *u, char const * const reason);
58     virtual void wallops_sts (char const * const text);
59     virtual void join_sts (channel_t *c, user_t *u, bool isnew, char const * const modes);
60     virtual void kick (char const * const from, char const * const channel, char const * const to, char const * const reason);
61     virtual void privmsg (char const * const from, char const * const target, char const * const fmt, ...);
62     virtual void notice_user_sts (user_t *from, user_t *target, char const * const text);
63     virtual void notice_global_sts (user_t *from, char const * const mask, char const * const text);
64     virtual void notice_channel_sts (user_t *from, channel_t *target, char const * const text);
65     virtual void wallchops (user_t *sender, channel_t *channel, char const * const message);
66     virtual void numeric_sts (char const * const from, int numeric, char const * const target, char const * const fmt, ...);
67     virtual void skill (char const * const from, char const * const nick, char const * const fmt, ...);
68     virtual void part_sts (channel_t *c, user_t *u);
69     virtual void kline_sts (char const * const server, char const * const user, char const * const host, long duration, char const * const reason);
70     virtual void unkline_sts (char const * const server, char const * const user, char const * const host);
71     virtual void topic_sts (channel_t *c, char const * const setter, time_t ts, time_t prevts, char const * const topic);
72     virtual void mode_sts (char const * const sender, channel_t *target, char const * const modes);
73     virtual void ping_sts (void);
74     virtual void ircd_on_login (char const * const origin, char const * const user, char const * const wantedhost);
75     virtual bool ircd_on_logout (char const * const origin, char const * const user, char const * const wantedhost);
76     virtual void jupe (char const * const server, char const * const reason);
77     };
78    
79     static cmode_t shadowircd_mode_list[] = {
80     { 'i', CMODE_INVITE },
81     { 'm', CMODE_MOD },
82     { 'n', CMODE_NOEXT },
83     { 'p', CMODE_PRIV },
84     { 's', CMODE_SEC },
85     { 't', CMODE_TOPIC },
86     { 'c', CMODE_NOCOLOR },
87     { 'M', CMODE_MODREG },
88     { 'E', CMODE_REGONLY },
89     { 'O', CMODE_OPERONLY },
90     { 'P', CMODE_PEACE },
91     { 'R', CMODE_PERM },
92     { 'S', CMODE_STRIP },
93     { 'K', CMODE_NOKNOCK },
94     { 'N', CMODE_STICKY },
95     { '\0', 0 }
96     };
97    
98 pippijn 1.5 static extmode_t shadowircd_ignore_mode_list[] = {
99 pippijn 1.4 { '\0', 0 }
100     };
101    
102     static cmode_t shadowircd_status_mode_list[] = {
103     { 'u', CMODE_PROTECT },
104     { 'o', CMODE_OP },
105     { 'h', CMODE_HALFOP },
106     { 'v', CMODE_VOICE },
107     { '\0', 0 }
108     };
109    
110     static cmode_t shadowircd_prefix_mode_list[] = {
111     { '!', CMODE_PROTECT },
112     { '@', CMODE_OP },
113     { '%', CMODE_HALFOP },
114     { '+', CMODE_VOICE },
115     { '\0', 0 }
116     };
117    
118     /* *INDENT-ON* */
119    
120     /* login to our uplink */
121     unsigned int
122     shadowircd_handler::server_login (void)
123     {
124     int ret;
125    
126     ret = sts ("PASS %s :TS", curr_uplink->pass);
127     if (ret == 1)
128     return 1;
129    
130     me.bursting = true;
131    
132     sts ("CAPAB :QS EX IE KLN UNKLN ENCAP SERVICES");
133     sts ("SERVER %s 1 :%s", me.name, me.desc);
134     sts ("SVINFO 5 3 0 :%ld", NOW);
135    
136     return 0;
137     }
138    
139     /* introduce a client */
140     void
141     shadowircd_handler::introduce_nick (user_t *u)
142     {
143     sts ("NICK %s 1 %ld +%sS %s %s %s :%s", u->nick, u->ts, "io", u->user, u->host, me.name, u->gecos);
144     }
145    
146     /* invite a user to a channel */
147     void
148     shadowircd_handler::invite_sts (user_t *sender, user_t *target, channel_t *channel)
149     {
150     sts (":%s INVITE %s %s", sender->nick, target->nick, channel->name);
151     }
152    
153     void
154     shadowircd_handler::quit_sts (user_t *u, char const * const reason)
155     {
156     if (!me.connected)
157     return;
158    
159     sts (":%s QUIT :%s", u->nick, reason);
160     }
161    
162     /* WALLOPS wrapper */
163     void
164     shadowircd_handler::wallops_sts (char const * const text)
165     {
166     sts (":%s WALLOPS :%s", chansvs.nick, text);
167     }
168    
169     /* join a channel */
170     void
171     shadowircd_handler::join_sts (channel_t *c, user_t *u, bool isnew, char const * const modes)
172     {
173     if (isnew)
174     sts (":%s SJOIN %ld %s %s :@%s", me.name, c->ts, c->name, modes, u->nick);
175     else
176     sts (":%s SJOIN %ld %s + :@%s", me.name, c->ts, c->name, u->nick);
177     }
178    
179     /* kicks a user from a channel */
180     void
181     shadowircd_handler::kick (char const * const from, char const * const channel, char const * const to, char const * const reason)
182     {
183     channel_t *chan = channel_find (channel);
184     user_t *user = user_find (to);
185    
186     if (!chan || !user)
187     return;
188    
189     sts (":%s KICK %s %s :%s", from, channel, to, reason);
190    
191     chanuser_delete (chan, user);
192     }
193    
194     /* PRIVMSG wrapper */
195     void
196     shadowircd_handler::privmsg (char const * const from, char const * const target, char const * const fmt, ...)
197     {
198     va_list ap;
199     char buf[BUFSIZE];
200    
201     va_start (ap, fmt);
202     vsnprintf (buf, BUFSIZE, fmt, ap);
203     va_end (ap);
204    
205     sts (":%s PRIVMSG %s :%s", from, target, buf);
206     }
207    
208     /* NOTICE wrapper */
209     void
210     shadowircd_handler::notice_user_sts (user_t *from, user_t *target, char const * const text)
211     {
212     sts (":%s NOTICE %s :%s", from ? from->nick : me.name, target->nick, text);
213     }
214    
215     void
216     shadowircd_handler::notice_global_sts (user_t *from, char const * const mask, char const * const text)
217     {
218     sts (":%s NOTICE %s%s :%s", from ? from->nick : me.name, ircd->tldprefix, mask, text);
219     }
220    
221     void
222     shadowircd_handler::notice_channel_sts (user_t *from, channel_t *target, char const * const text)
223     {
224     sts (":%s NOTICE %s :%s", from ? from->nick : me.name, target->name, text);
225     }
226    
227     void
228     shadowircd_handler::wallchops (user_t *sender, channel_t *channel, char const * const message)
229     {
230     if (chanuser_find (channel, sender))
231     sts (":%s NOTICE @%s :%s", CLIENT_NAME (sender), channel->name, message);
232     else /* do not join for this, everyone would see -- jilles */
233     handler::wallchops (sender, channel, message);
234     }
235    
236     /* numeric wrapper */
237     void
238     shadowircd_handler::numeric_sts (char const * const from, int numeric, char const * const target, char const * const fmt, ...)
239     {
240     va_list ap;
241     char buf[BUFSIZE];
242    
243     va_start (ap, fmt);
244     vsnprintf (buf, BUFSIZE, fmt, ap);
245     va_end (ap);
246    
247     sts (":%s %d %s %s", from, numeric, target, buf);
248     }
249    
250     /* KILL wrapper */
251     void
252     shadowircd_handler::skill (char const * const from, char const * const nick, char const * const fmt, ...)
253     {
254     va_list ap;
255     char buf[BUFSIZE];
256    
257     va_start (ap, fmt);
258     vsnprintf (buf, BUFSIZE, fmt, ap);
259     va_end (ap);
260    
261     sts (":%s KILL %s :%s!%s!%s (%s)", from, nick, from, from, from, buf);
262     }
263    
264     /* PART wrapper */
265     void
266     shadowircd_handler::part_sts (channel_t *c, user_t *u)
267     {
268     sts (":%s PART %s", u->nick, c->name);
269     }
270    
271     /* server-to-server KLINE wrapper */
272     void
273     shadowircd_handler::kline_sts (char const * const server, char const * const user, char const * const host, long duration, char const * const reason)
274     {
275     if (!me.connected)
276     return;
277    
278     sts (":%s KLINE %s %ld %s %s :%s", me.name, server, duration, user, host, reason);
279     }
280    
281     /* server-to-server UNKLINE wrapper */
282     void
283     shadowircd_handler::unkline_sts (char const * const server, char const * const user, char const * const host)
284     {
285     if (!me.connected)
286     return;
287    
288     sts (":%s UNKLINE %s %s %s", opersvs.nick, server, user, host);
289     }
290    
291     /* topic wrapper */
292     void
293     shadowircd_handler::topic_sts (channel_t *c, char const * const setter, time_t ts, time_t prevts, char const * const topic)
294     {
295     if (!me.connected || !c)
296     return;
297    
298     sts (":%s TOPIC %s :%s", chansvs.nick, c->name, topic);
299     }
300    
301     /* mode wrapper */
302     void
303     shadowircd_handler::mode_sts (char const * const sender, channel_t *target, char const * const modes)
304     {
305     if (!me.connected)
306     return;
307    
308     sts (":%s MODE %s %s", sender, target->name, modes);
309     }
310    
311     /* ping wrapper */
312     void
313     shadowircd_handler::ping_sts (void)
314     {
315     if (!me.connected)
316     return;
317    
318     sts ("PING :%s", me.name);
319     }
320    
321     /* protocol-specific stuff to do on login */
322     void
323     shadowircd_handler::ircd_on_login (char const * const origin, char const * const user, char const * const wantedhost)
324     {
325     user_t *u = user_find (origin);
326    
327     if (!me.connected || u == NULL)
328     return;
329    
330     /* Can only do this for nickserv, and can only record identified
331     * state if logged in to correct nick, sorry -- jilles
332     */
333     if (should_reg_umode (u))
334     sts (":%s MODE %s +e", me.name, origin);
335     }
336    
337     /* protocol-specific stuff to do on login */
338     bool
339     shadowircd_handler::ircd_on_logout (char const * const origin, char const * const user, char const * const wantedhost)
340     {
341     if (!me.connected)
342     return false;
343    
344     if (!nicksvs.no_nick_ownership)
345     sts (":%s MODE %s -e", me.name, origin);
346    
347 pippijn 1.1 return false;
348 pippijn 1.4 }
349    
350     void
351     shadowircd_handler::jupe (char const * const server, char const * const reason)
352     {
353     if (!me.connected)
354     return;
355    
356     server_delete (server);
357     sts (":%s SQUIT %s :%s", opersvs.nick, server, reason);
358     sts (":%s SERVER %s 2 :%s", me.name, server, reason);
359     }
360    
361     static void
362     m_topic (sourceinfo_t *si, int parc, char *parv[])
363     {
364     channel_t *c = channel_find (parv[0]);
365    
366     if (c == NULL)
367     return;
368    
369     handle_topic_from (si, c, si->su->nick, NOW, parv[1]);
370     }
371    
372     static void
373     m_ping (sourceinfo_t *si, int parc, char *parv[])
374     {
375     /* reply to PING's */
376     sts (":%s PONG %s %s", me.name, me.name, parv[0]);
377     }
378    
379     static void
380     m_pong (sourceinfo_t *si, int parc, char *parv[])
381     {
382     server_t *s;
383    
384     /* someone replied to our PING */
385     if (!parv[0])
386     return;
387     s = server_find (parv[0]);
388     if (s == NULL)
389     return;
390     handle_eob (s);
391    
392     if (irccasecmp (me.actual, parv[0]))
393     return;
394    
395     me.uplinkpong = NOW;
396    
397     /* -> :test.projectxero.net PONG test.projectxero.net :shrike.malkier.net */
398     if (me.bursting)
399 pippijn 1.1 {
400 pippijn 1.4 #ifdef HAVE_GETTIMEOFDAY
401     e_time (burstime, &burstime);
402    
403     slog (LG_INFO, "m_pong(): finished synching with uplink (%d %s)", (tv2ms (&burstime) > 1000) ? (tv2ms (&burstime) / 1000) : tv2ms (&burstime), (tv2ms (&burstime) > 1000) ? "s" : "ms");
404    
405     wallops ("Finished synching to network in %d %s.", (tv2ms (&burstime) > 1000) ? (tv2ms (&burstime) / 1000) : tv2ms (&burstime), (tv2ms (&burstime) > 1000) ? "s" : "ms");
406     #else
407     slog (LG_INFO, "m_pong(): finished synching with uplink");
408     wallops ("Finished synching to network.");
409     #endif
410    
411     me.bursting = false;
412 pippijn 1.1 }
413 pippijn 1.4 }
414    
415     static void
416     m_privmsg (sourceinfo_t *si, int parc, char *parv[])
417     {
418     if (parc != 2)
419 pippijn 1.1 return;
420 pippijn 1.4
421     handle_message (si, parv[0], false, parv[1]);
422     }
423    
424     static void
425     m_notice (sourceinfo_t *si, int parc, char *parv[])
426     {
427     if (parc != 2)
428 pippijn 1.1 return;
429 pippijn 1.4
430     handle_message (si, parv[0], true, parv[1]);
431     }
432    
433     static void
434     m_sjoin (sourceinfo_t *si, int parc, char *parv[])
435     {
436     /* -> :proteus.malkier.net SJOIN 1073516550 #shrike +tn :@sycobuny @+rakaur */
437    
438     channel_t *c;
439     unsigned int userc;
440     char *userv[256];
441     unsigned int i;
442     time_t ts;
443    
444     /* :origin SJOIN ts chan modestr [key or limits] :users */
445     c = channel_find (parv[1]);
446     ts = atol (parv[0]);
447    
448     if (!c)
449     {
450     slog (LG_DEBUG, "m_sjoin(): new channel: %s", parv[1]);
451     c = channel_add (parv[1], ts, si->s);
452     }
453    
454     if (ts < c->ts)
455     {
456     chanuser_t *cu;
457     node_t *n;
458    
459     /* the TS changed. a TS change requires the following things
460     * to be done to the channel: reset all modes to nothing, remove
461     * all status modes on known users on the channel (including ours),
462     * and set the new TS.
463     */
464    
465     clear_simple_modes (c);
466    
467     LIST_FOREACH (n, c->members.head)
468     {
469     cu = (chanuser_t *) n->data;
470     cu->modes = 0;
471     }
472    
473     slog (LG_DEBUG, "m_sjoin(): TS changed for %s (%ld -> %ld)", c->name, c->ts, ts);
474    
475     c->ts = ts;
476     c->callback.tschange (c);
477     }
478    
479     channel_mode (NULL, c, parc - 3, parv + 2);
480    
481     userc = sjtoken (parv[parc - 1], ' ', userv);
482    
483     for (i = 0; i < userc; i++)
484     chanuser_add (c, userv[i]);
485    
486     if (c->nummembers == 0 && !(c->modes & ircd->perm_mode))
487     channel_delete (c);
488     }
489    
490     static void
491     m_part (sourceinfo_t *si, int parc, char *parv[])
492     {
493     int chanc;
494     char *chanv[256];
495     int i;
496    
497     chanc = sjtoken (parv[0], ',', chanv);
498     for (i = 0; i < chanc; i++)
499     {
500     slog (LG_DEBUG, "m_part(): user left channel: %s -> %s", si->su->nick, chanv[i]);
501    
502     chanuser_delete (channel_find (chanv[i]), si->su);
503     }
504     }
505    
506     static void
507     m_nick (sourceinfo_t *si, int parc, char *parv[])
508     {
509     server_t *s;
510     user_t *u;
511    
512     /* got the right number of args for an introduction? */
513     if (parc == 8)
514     {
515     s = server_find (parv[6]);
516     if (!s)
517     {
518     slog (LG_DEBUG, "m_nick(): new user on nonexistant server: %s", parv[6]);
519     return;
520     }
521    
522     slog (LG_DEBUG, "m_nick(): new user on `%s': %s", s->name, parv[0]);
523    
524     u = user_add (parv[0], parv[4], parv[5], NULL, NULL, NULL, parv[7], s, atoi (parv[2]));
525    
526     user_mode (u, parv[3]);
527    
528     handle_nickchange (u);
529     }
530    
531     /* if it's only 2 then it's a nickname change */
532     else if (parc == 2)
533     {
534     if (!si->su)
535     {
536     slog (LG_DEBUG, "m_nick(): server trying to change nick: %s", si->s != NULL ? si->s->name : "<none>");
537     return;
538     }
539    
540     slog (LG_DEBUG, "m_nick(): nickname change from `%s': %s", si->su->nick, parv[0]);
541    
542     user_changenick (si->su, parv[0], atoi (parv[1]));
543    
544     handle_nickchange (si->su);
545     }
546     else
547     {
548     int i;
549     slog (LG_DEBUG, "m_nick(): got NICK with wrong number of params");
550    
551     for (i = 0; i < parc; i++)
552     slog (LG_DEBUG, "m_nick(): parv[%d] = %s", i, parv[i]);
553     }
554     }
555    
556     static void
557     m_quit (sourceinfo_t *si, int parc, char *parv[])
558     {
559     slog (LG_DEBUG, "m_quit(): user leaving: %s", si->su->nick);
560    
561     /* user_delete() takes care of removing channels and so forth */
562     user_delete (si->su);
563     }
564    
565     static void
566     m_mode (sourceinfo_t *si, int parc, char *parv[])
567     {
568     if (*parv[0] == '#')
569     channel_mode (NULL, channel_find (parv[0]), parc - 1, &parv[1]);
570     else
571     user_mode (user_find (parv[0]), parv[1]);
572     }
573    
574     static void
575     m_kick (sourceinfo_t *si, int parc, char *parv[])
576     {
577     user_t *u = user_find (parv[1]);
578     channel_t *c = channel_find (parv[0]);
579    
580     /* -> :rakaur KICK #shrike rintaun :test */
581     slog (LG_DEBUG, "m_kick(): user was kicked: %s -> %s", parv[1], parv[0]);
582    
583     if (!u)
584     {
585     slog (LG_DEBUG, "m_kick(): got kick for nonexistant user %s", parv[1]);
586     return;
587     }
588    
589     if (!c)
590     {
591     slog (LG_DEBUG, "m_kick(): got kick in nonexistant channel: %s", parv[0]);
592     return;
593     }
594    
595     if (!chanuser_find (c, u))
596     {
597     slog (LG_DEBUG, "m_kick(): got kick for %s not in %s", u->nick, c->name);
598     return;
599     }
600    
601     chanuser_delete (c, u);
602    
603     /* if they kicked us, let's rejoin */
604     if (is_internal_client (u))
605     {
606     slog (LG_DEBUG, "m_kick(): %s got kicked from %s; rejoining", u->nick, parv[0]);
607     join (parv[0], u->nick);
608     }
609     }
610    
611     static void
612     m_kill (sourceinfo_t *si, int parc, char *parv[])
613     {
614     handle_kill (si, parv[0], parc > 1 ? parv[1] : "<No reason given>");
615     }
616    
617     static void
618     m_squit (sourceinfo_t *si, int parc, char *parv[])
619     {
620     slog (LG_DEBUG, "m_squit(): server leaving: %s from %s", parv[0], parv[1]);
621     server_delete (parv[0]);
622     }
623    
624     static void
625     m_server (sourceinfo_t *si, int parc, char *parv[])
626     {
627     server_t *s;
628    
629     slog (LG_DEBUG, "m_server(): new server: %s", parv[0]);
630     s = handle_server (si, parv[0], NULL, atoi (parv[1]), parv[2]);
631    
632     if (s != NULL && s->uplink != me.me)
633     {
634     /* elicit PONG for EOB detection; pinging uplink is
635     * already done elsewhere -- jilles
636     */
637     sts (":%s PING %s %s", me.name, me.name, s->name);
638     }
639     }
640    
641     static void
642     m_stats (sourceinfo_t *si, int parc, char *parv[])
643     {
644     handle_stats (si->su, parv[0][0]);
645     }
646    
647     static void
648     m_admin (sourceinfo_t *si, int parc, char *parv[])
649     {
650     handle_admin (si->su);
651     }
652    
653     static void
654     m_version (sourceinfo_t *si, int parc, char *parv[])
655     {
656     handle_version (si->su);
657     }
658    
659     static void
660     m_info (sourceinfo_t *si, int parc, char *parv[])
661     {
662     handle_info (si->su);
663     }
664    
665     static void
666     m_whois (sourceinfo_t *si, int parc, char *parv[])
667     {
668     handle_whois (si->su, parv[1]);
669     }
670    
671     static void
672     m_trace (sourceinfo_t *si, int parc, char *parv[])
673     {
674     handle_trace (si->su, parv[0], parc >= 2 ? parv[1] : NULL);
675     }
676    
677     static void
678     m_away (sourceinfo_t *si, int parc, char *parv[])
679     {
680     handle_away (si->su, parc >= 1 ? parv[0] : NULL);
681     }
682    
683     static void
684     m_join (sourceinfo_t *si, int parc, char *parv[])
685     {
686     chanuser_t *cu;
687     node_t *n, *tn;
688    
689     /* JOIN 0 is really a part from all channels */
690     if (parv[0][0] == '0')
691     {
692     LIST_FOREACH_SAFE (n, tn, si->su->channels.head)
693     {
694     cu = (chanuser_t *) n->data;
695     chanuser_delete (cu->chan, si->su);
696     }
697     }
698     }
699    
700     static void
701     m_pass (sourceinfo_t *si, int parc, char *parv[])
702     {
703     if (strcmp (curr_uplink->pass, parv[0]))
704 pippijn 1.1 {
705 pippijn 1.4 slog (LG_INFO, "m_pass(): password mismatch from uplink; aborting");
706     runflags |= RF_SHUTDOWN;
707 pippijn 1.1 }
708 pippijn 1.4 }
709    
710     static void
711     m_error (sourceinfo_t *si, int parc, char *parv[])
712     {
713     slog (LG_INFO, "m_error(): error from server: %s", parv[0]);
714     }
715    
716     static void
717     m_capab (sourceinfo_t *si, int parc, char *parv[])
718     {
719     services_init ();
720     }
721    
722     /* :shadowircd36.qa.atheme.org SVSCLOAK nenolod moogles.are.fun */
723     static void
724     m_svscloak (sourceinfo_t *si, int parc, char *parv[])
725     {
726     user_t *u = user_find (parv[0]);
727    
728     if (!u)
729     return;
730    
731     strlcpy (u->vhost, parv[1], HOSTLEN);
732     }
733    
734     static void
735     m_motd (sourceinfo_t *si, int parc, char *parv[])
736     {
737     handle_motd (si->su);
738     }
739    
740     static void
741     nick_group (mynick_t *mn, myuser_t *mu, sourceinfo_t *si)
742     {
743     user_t *u;
744    
745     if (si->su != NULL && !irccasecmp (si->su->nick, mn->nick))
746     u = si->su;
747     else
748     u = user_find_named (mn->nick);
749    
750     if (u != NULL && should_reg_umode (u))
751     sts (":%s MODE %s +e", me.name, u->nick);
752     }
753    
754     static void
755     nick_ungroup (mynick_t *mn, myuser_t *mu, sourceinfo_t *si)
756     {
757     user_t *u;
758    
759     if (si->su != NULL && !irccasecmp (si->su->nick, mn->nick))
760     u = si->su;
761     else
762     u = user_find_named (mn->nick);
763    
764     if (u != NULL && !nicksvs.no_nick_ownership)
765     sts (":%s MODE %s -e", me.name, u->nick);
766     }
767    
768     static pcommand_t const pcommands[] = {
769     { "PING", m_ping, 1, MSRC_USER | MSRC_SERVER },
770     { "PONG", m_pong, 1, MSRC_SERVER },
771     { "PRIVMSG", m_privmsg, 2, MSRC_USER },
772     { "NOTICE", m_notice, 2, MSRC_UNREG | MSRC_USER | MSRC_SERVER },
773     { "SJOIN", m_sjoin, 2, MSRC_USER | MSRC_SERVER },
774     { "PART", m_part, 1, MSRC_USER },
775     { "NICK", m_nick, 2, MSRC_USER | MSRC_SERVER },
776     { "QUIT", m_quit, 1, MSRC_USER },
777     { "MODE", m_mode, 2, MSRC_USER | MSRC_SERVER },
778     { "KICK", m_kick, 2, MSRC_USER | MSRC_SERVER },
779     { "KILL", m_kill, 1, MSRC_USER | MSRC_SERVER },
780     { "SQUIT", m_squit, 1, MSRC_USER | MSRC_SERVER },
781     { "SERVER", m_server, 3, MSRC_UNREG | MSRC_SERVER },
782     { "STATS", m_stats, 2, MSRC_USER },
783     { "ADMIN", m_admin, 1, MSRC_USER },
784     { "VERSION", m_version, 1, MSRC_USER },
785     { "INFO", m_info, 1, MSRC_USER },
786     { "WHOIS", m_whois, 2, MSRC_USER },
787     { "TRACE", m_trace, 1, MSRC_USER },
788     { "AWAY", m_away, 0, MSRC_USER },
789     { "JOIN", m_join, 1, MSRC_USER },
790     { "PASS", m_pass, 1, MSRC_UNREG },
791     { "ERROR", m_error, 1, MSRC_UNREG | MSRC_SERVER },
792     { "TOPIC", m_topic, 2, MSRC_USER },
793     { "CAPAB", m_capab, 1, MSRC_UNREG },
794     { "SVSCLOAK", m_svscloak, 2, MSRC_USER | MSRC_SERVER },
795     { "MOTD", m_motd, 1, MSRC_USER },
796     };
797    
798     shadowircd_handler::shadowircd_handler ()
799     {
800     mode_list = shadowircd_mode_list;
801     ignore_mode_list = shadowircd_ignore_mode_list;
802     status_mode_list = shadowircd_status_mode_list;
803     prefix_mode_list = shadowircd_prefix_mode_list;
804    
805     ircd = &ShadowIRCd;
806    
807     pcommand_add (&pcommands);
808    
809     mynick_t::callback.group.attach (nick_group);
810     mynick_t::callback.ungroup.attach (nick_ungroup);
811     }
812    
813     shadowircd_handler::~shadowircd_handler ()
814     {
815     mode_list = NULL;
816     ignore_mode_list = NULL;
817     status_mode_list = NULL;
818     prefix_mode_list = NULL;
819    
820     ircd = NULL;
821    
822     mynick_t::callback.group.detach (nick_group);
823     mynick_t::callback.ungroup.detach (nick_ungroup);
824    
825     pcommand_delete (&pcommands);
826     }
827     } // namespace protocol
828    
829     #define FACREG_TYPE protocol::shadowircd_handler
830     #define FACREG_TYPE_NAME "shadowircd"
831     #define FACREG_INTERFACE_TYPE protocol::handler
832     #include <ermyth/factory_reg.h>