2 * charybdis: an advanced Internet Relay Chat Daemon(ircd).
4 * Copyright (C) 2006 charybdis development team
16 #include "s_newconf.h"
22 #define HURT_CUTOFF (10) /* protocol messages. */
23 #define HURT_DEFAULT_EXPIRE (7 * 24 * 60) /* minutes. */
24 #define HURT_EXIT_REASON "Hurt: Failed to identify to services"
31 typedef struct _hurt_state
{
34 rb_dlink_list hurt_clients
;
36 time_t default_expire
;
37 const char *exit_reason
;
40 typedef struct _hurt
{
42 struct sockaddr
*saddr
;
50 static int mo_hurt(struct MsgBuf
*msgbuf_p
, struct Client
*, struct Client
*, int, const char **);
51 static int me_hurt(struct MsgBuf
*msgbuf_p
, struct Client
*, struct Client
*, int, const char **);
52 static int mo_heal(struct MsgBuf
*msgbuf_p
, struct Client
*, struct Client
*, int, const char **);
53 static int me_heal(struct MsgBuf
*msgbuf_p
, struct Client
*, struct Client
*, int, const char **);
55 static int modinit(void);
56 static void modfini(void);
58 static void client_exit_hook(hook_data_client_exit
*);
59 static void new_local_user_hook(struct Client
*);
60 static void doing_stats_hook(hook_data_int
*hdata
);
62 static void hurt_check_event(void *);
63 static void hurt_expire_event(void *);
65 static hurt_t
*hurt_new(time_t, const char *, const char *);
66 static void hurt_add(hurt_t
*);
67 static void hurt_propagate(struct Client
*, struct Client
*, hurt_t
*);
68 static hurt_t
*hurt_find(const char *ip
);
69 static hurt_t
*hurt_find_exact(const char *ip
);
70 static void hurt_remove(const char *ip
);
71 static void hurt_destroy(void *hurt
);
73 static int heal_nick(struct Client
*, struct Client
*);
77 /* {{{ State containers */
79 rb_dlink_list hurt_confs
= { NULL
, NULL
, 0 };
84 struct Message hurt_msgtab
= {
86 mg_ignore
, mg_ignore
, mg_ignore
,
87 mg_ignore
, {me_hurt
, 0}, {mo_hurt
, 3}
91 struct Message heal_msgtab
= {
93 mg_ignore
, mg_ignore
, mg_ignore
,
94 mg_ignore
, {me_heal
, 0}, {mo_heal
, 2}
99 /* {{{ Misc module stuff */
100 mapi_hfn_list_av1 hurt_hfnlist
[] = {
101 {"client_exit", (hookfn
) client_exit_hook
},
102 {"new_local_user", (hookfn
) new_local_user_hook
},
103 {"doing_stats", (hookfn
) doing_stats_hook
},
107 mapi_clist_av1 hurt_clist
[] = { &hurt_msgtab
, &heal_msgtab
, NULL
};
109 static const char hurt_desc
[] =
110 "Prevents \"hurt\" users from messaging anyone but operators or "
111 "services until they identify or are \"healed\"";
126 hurt_state_t hurt_state
= {
127 .cutoff
= HURT_CUTOFF
,
128 .default_expire
= HURT_DEFAULT_EXPIRE
,
129 .exit_reason
= HURT_EXIT_REASON
,
133 * Module constructor/destructor.
136 /* {{{ static int modinit() */
138 struct ev_entry
*hurt_expire_ev
= NULL
;
139 struct ev_entry
*hurt_check_ev
= NULL
;
144 /* set-up hurt_state. */
145 hurt_state
.start_time
= rb_current_time();
147 /* add our event handlers. */
148 hurt_expire_ev
= rb_event_add("hurt_expire", hurt_expire_event
, NULL
, 60);
149 hurt_check_ev
= rb_event_add("hurt_check", hurt_check_event
, NULL
, 5);
155 /* {{{ static void modfini() */
159 rb_dlink_node
*ptr
, *next_ptr
;
161 /* and delete our events. */
162 rb_event_delete(hurt_expire_ev
);
163 rb_event_delete(hurt_check_ev
);
165 RB_DLINK_FOREACH_SAFE (ptr
, next_ptr
, hurt_state
.hurt_clients
.head
)
167 rb_dlinkDestroy(ptr
, &hurt_state
.hurt_clients
);
176 /* {{{ static int mo_hurt()
178 * HURT [<expire>] <ip> <reason>
180 * parv[1] - expire or ip
181 * parv[2] - ip or reason
182 * parv[3] - reason or NULL
185 mo_hurt(struct MsgBuf
*msgbuf_p
, struct Client
*client_p
, struct Client
*source_p
,
186 int parc
, const char **parv
)
188 const char *ip
, *expire
, *reason
;
191 struct Client
*target_p
;
193 if (!IsOperK(source_p
)) {
194 sendto_one(source_p
, form_str(ERR_NOPRIVS
), me
.name
,
195 source_p
->name
, "kline");
200 expire
= NULL
, ip
= parv
[1], reason
= parv
[2];
202 expire
= parv
[1], ip
= parv
[2], reason
= parv
[3];
205 expire_time
= HURT_DEFAULT_EXPIRE
;
206 if (expire
&& (expire_time
= valid_temp_time(expire
)) < 1) {
207 sendto_one_notice(source_p
, ":Permanent HURTs are not supported");
210 if (EmptyString(reason
)) {
211 sendto_one_notice(source_p
, ":Empty HURT reasons are bad for business");
215 /* Is this a client? */
216 if (strchr(ip
, '.') == NULL
&& strchr(ip
, ':') == NULL
)
218 target_p
= find_named_person(ip
);
219 if (target_p
== NULL
)
221 sendto_one_numeric(source_p
, ERR_NOSUCHNICK
,
222 form_str(ERR_NOSUCHNICK
), ip
);
225 ip
= target_p
->orighost
;
229 if (!strncmp(ip
, "*@", 2))
231 if (strchr(ip
, '!') || strchr(ip
, '@'))
233 sendto_one_notice(source_p
, ":Invalid HURT mask [%s]",
239 if (hurt_find(ip
) != NULL
) {
240 sendto_one(source_p
, ":[%s] already HURT", ip
);
245 * okay, we've got this far, now it's time to add the the HURT locally
246 * and propagate it to other servers on the network.
248 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
249 "%s added HURT on [%s] for %ld minutes with reason [%s]",
250 get_oper_name(source_p
), ip
, (long) expire_time
/ 60, reason
);
252 hurt
= hurt_new(expire_time
, ip
, reason
);
254 hurt_propagate(NULL
, source_p
, hurt
);
260 /* {{{ static int me_hurt()
262 * [ENCAP mask] HURT <target> <expire> <ip> <reason>
269 me_hurt(struct MsgBuf
*msgbuf_p
, struct Client
*client_p
, struct Client
*source_p
,
270 int parc
, const char **parv
)
276 * right... if we don't get enough arguments, or if we get any invalid
277 * arguments, just ignore this request - shit happens, and it's not worth
278 * dropping a server over.
280 if (parc
< 4 || !IsPerson(source_p
))
282 if ((expire_time
= atoi(parv
[1])) < 1)
284 if (hurt_find(parv
[2]) != NULL
)
286 if (EmptyString(parv
[3]))
289 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
290 "%s added HURT on [%s] for %ld minutes with reason [%s]",
291 get_oper_name(source_p
), parv
[2], (long) expire_time
/ 60, parv
[3]);
292 hurt
= hurt_new(expire_time
, parv
[2], parv
[3]);
299 /* {{{ static int mo_heal()
303 * parv[1] - nick or ip
306 mo_heal(struct MsgBuf
*msgbuf_p
, struct Client
*client_p
, struct Client
*source_p
,
307 int parc
, const char **parv
)
309 struct Client
*target_p
;
311 if (!IsOperUnkline(source_p
))
313 sendto_one(source_p
, form_str(ERR_NOPRIVS
),
314 me
.name
, source_p
->name
, "unkline");
318 if (clean_nick(parv
[1], 0))
320 target_p
= find_named_person(parv
[1]);
321 if (target_p
== NULL
)
323 sendto_one_numeric(source_p
, ERR_NOSUCHNICK
,
324 form_str(ERR_NOSUCHNICK
), parv
[1]);
327 if (MyConnect(target_p
))
328 heal_nick(source_p
, target_p
);
330 sendto_one(target_p
, ":%s ENCAP %s HEAL %s",
331 get_id(source_p
, target_p
),
332 target_p
->servptr
->name
,
333 get_id(target_p
, target_p
));
335 else if (strchr(parv
[1], '.'))
337 if (hurt_find_exact(parv
[1]) == NULL
)
339 sendto_one_notice(source_p
, ":Mask [%s] is not HURT", parv
[1]);
342 hurt_remove(parv
[1]);
343 sendto_realops_snomask(SNO_GENERAL
, L_ALL
, "%s removed HURT on %s",
344 get_oper_name(source_p
), parv
[1]);
345 sendto_server(NULL
, NULL
, NOCAPS
, NOCAPS
, ":%s ENCAP * HEAL %s",
346 source_p
->name
, parv
[1]);
350 sendto_one(source_p
, ":[%s] is not a valid IP address/nick", parv
[1]);
359 me_heal(struct MsgBuf
*msgbuf_p
, struct Client
*client_p
, struct Client
*source_p
,
360 int parc
, const char **parv
)
362 struct Client
*target_p
;
364 /* as noted in me_hurt(), if we don't get sufficient arguments...
365 * *poof*, it's dropped...
370 if (clean_nick(parv
[1], 0))
372 target_p
= find_person(parv
[1]);
373 if (target_p
!= NULL
&& MyConnect(target_p
))
374 heal_nick(source_p
, target_p
);
376 else if (strchr(parv
[1], '.')) /* host or mask to remove ban for */
378 if (hurt_find_exact(parv
[1]) == NULL
)
381 hurt_remove(parv
[1]);
382 sendto_realops_snomask(SNO_GENERAL
, L_ALL
, "%s removed HURT on %s",
383 get_oper_name(source_p
), parv
[1]);
395 /* {{{ static void hurt_check_event() */
397 hurt_check_event(void *arg
)
399 rb_dlink_node
*ptr
, *next_ptr
;
400 struct Client
*client_p
;
402 RB_DLINK_FOREACH_SAFE (ptr
, next_ptr
, hurt_state
.hurt_clients
.head
) {
403 client_p
= ptr
->data
;
404 if (!EmptyString(client_p
->user
->suser
))
406 rb_dlinkDestroy(ptr
, &hurt_state
.hurt_clients
);
407 sendto_one_notice(client_p
, ":HURT restriction removed for this session");
408 client_p
->localClient
->target_last
= rb_current_time(); /* don't ask --nenolod */
410 else if (client_p
->localClient
->receiveM
> hurt_state
.cutoff
)
411 exit_client(NULL
, client_p
, &me
, hurt_state
.exit_reason
);
416 /* {{{ static void hurt_expire_event() */
418 hurt_expire_event(void *unused
)
420 rb_dlink_node
*ptr
, *next_ptr
;
423 RB_DLINK_FOREACH_SAFE (ptr
, next_ptr
, hurt_confs
.head
)
425 hurt
= (hurt_t
*) ptr
->data
;
427 if (hurt
->expire
<= rb_current_time())
429 rb_dlinkFindDestroy(hurt
, &hurt_confs
);
440 /* {{{ static void client_exit_hook() */
442 client_exit_hook(hook_data_client_exit
*data
)
444 s_assert(data
!= NULL
);
445 s_assert(data
->target
!= NULL
);
447 rb_dlinkFindDestroy(data
->target
, &hurt_state
.hurt_clients
);
451 /* {{{ static void new_local_user_hook() */
453 new_local_user_hook(struct Client
*source_p
)
455 if (IsAnyDead(source_p
) || !EmptyString(source_p
->user
->suser
) ||
456 IsExemptKline(source_p
))
459 if (hurt_find(source_p
->sockhost
) || hurt_find(source_p
->orighost
))
461 source_p
->localClient
->target_last
= rb_current_time() + 600; /* don't ask --nenolod */
462 SetTGChange(source_p
);
463 rb_dlinkAddAlloc(source_p
, &hurt_state
.hurt_clients
);
464 sendto_one_notice(source_p
, ":You are hurt. Please identify to services immediately, or use /stats p for assistance.");
469 /* {{{ static void doing_stats_hook() */
471 doing_stats_hook(hook_data_int
*hdata
)
475 struct Client
*source_p
;
478 s_assert(hdata
->client
);
480 source_p
= hdata
->client
;
481 if(hdata
->arg2
!= (int) 's')
483 if((ConfigFileEntry
.stats_k_oper_only
== 2) && !IsOper(source_p
))
485 if ((ConfigFileEntry
.stats_k_oper_only
== 1) && !IsOper(source_p
))
487 hurt
= hurt_find(source_p
->sockhost
);
490 sendto_one_numeric(source_p
, RPL_STATSKLINE
,
491 form_str(RPL_STATSKLINE
), 's',
492 "*", hurt
->ip
, hurt
->reason
, "", "");
496 hurt
= hurt_find(source_p
->orighost
);
499 sendto_one_numeric(source_p
, RPL_STATSKLINE
,
500 form_str(RPL_STATSKLINE
), 's',
501 "*", hurt
->ip
, hurt
->reason
, "", "");
507 RB_DLINK_FOREACH(ptr
, hurt_confs
.head
)
509 hurt
= (hurt_t
*) ptr
->data
;
510 sendto_one_numeric(source_p
, RPL_STATSKLINE
,
511 form_str(RPL_STATSKLINE
), 's',
512 "*", hurt
->ip
, hurt
->reason
, "", "");
517 /* {{{ static void hurt_propagate()
519 * client_p - specific server to propagate HURT to, or NULL to propagate to all
521 * source_p - source (oper who added the HURT)
522 * hurt - HURT to be propagated
525 hurt_propagate(struct Client
*client_p
, struct Client
*source_p
, hurt_t
*hurt
)
529 ":%s ENCAP %s HURT %ld %s :%s",
530 source_p
->name
, client_p
->name
,
531 (long)(hurt
->expire
- rb_current_time()),
532 hurt
->ip
, hurt
->reason
);
534 sendto_server(&me
, NULL
, NOCAPS
, NOCAPS
,
535 ":%s ENCAP * HURT %ld %s :%s",
537 (long)(hurt
->expire
- rb_current_time()),
538 hurt
->ip
, hurt
->reason
);
542 /* {{{ static hurt_t *hurt_new() */
544 hurt_new(time_t expire
, const char *ip
, const char *reason
)
548 hurt
= rb_malloc(sizeof(hurt_t
));
550 hurt
->ip
= rb_strdup(ip
);
551 hurt
->reason
= rb_strdup(reason
);
552 hurt
->expire
= rb_current_time() + expire
;
558 /* {{{ static void hurt_destroy() */
560 hurt_destroy(void *hurt
)
575 hurt_add(hurt_t
*hurt
)
577 rb_dlinkAddAlloc(hurt
, &hurt_confs
);
581 hurt_find_exact(const char *ip
)
586 RB_DLINK_FOREACH(ptr
, hurt_confs
.head
)
588 hurt
= (hurt_t
*) ptr
->data
;
590 if (!strcasecmp(ip
, hurt
->ip
))
598 hurt_find(const char *ip
)
603 RB_DLINK_FOREACH(ptr
, hurt_confs
.head
)
605 hurt
= (hurt_t
*) ptr
->data
;
607 if (match(hurt
->ip
, ip
))
615 hurt_remove(const char *ip
)
617 hurt_t
*hurt
= hurt_find_exact(ip
);
619 rb_dlinkFindDestroy(hurt
, &hurt_confs
);
623 /* {{{ static int heal_nick() */
625 heal_nick(struct Client
*source_p
, struct Client
*target_p
)
627 if (rb_dlinkFindDestroy(target_p
, &hurt_state
.hurt_clients
))
629 sendto_realops_snomask(SNO_GENERAL
, L_ALL
, "%s used HEAL on %s",
630 get_oper_name(source_p
), get_client_name(target_p
, HIDE_IP
));
631 sendto_one_notice(target_p
, ":HURT restriction temporarily removed by operator");
632 sendto_one_notice(source_p
, ":HURT restriction on %s temporarily removed", target_p
->name
);
633 target_p
->localClient
->target_last
= rb_current_time(); /* don't ask --nenolod */
638 sendto_one_notice(source_p
, ":%s was not hurt", target_p
->name
);
645 * vim: ts=8 sw=8 noet fdm=marker tw=80