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