ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/ermyth/modules/protocol/shadowircd.C
Revision: 1.5
Committed: Wed Sep 5 11:23:15 2007 UTC (19 years ago) by pippijn
Content type: text/plain
Branch: MAIN
Changes since 1.4: +3 -3 lines
Log Message:
removed GPLed code and put license back to BSD

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