modules/m_services.c

   1 /* modules/m_services.c
   2  *   Copyright (C) 2005 Lee Hardy <lee -at- leeh.co.uk>
   3  *   Copyright (C) 2005 ircd-ratbox development team
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions are
   7  * met:
   8  *
   9  * 1.Redistributions of source code must retain the above copyright notice,
  10  *   this list of conditions and the following disclaimer.
  11  * 2.Redistributions in binary form must reproduce the above copyright
  12  *   notice, this list of conditions and the following disclaimer in the
  13  *   documentation and/or other materials provided with the distribution.
  14  * 3.The name of the author may not be used to endorse or promote products
  15  *   derived from this software without specific prior written permission.
  16  *
  17  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  18  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  19  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  20  * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
  21  * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  22  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  23  * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  24  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
  25  * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
  26  * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  27  * POSSIBILITY OF SUCH DAMAGE.
  28  */
  29
  30 #include "stdinc.h"
  31
  32 #include "tools.h"
  33 #include "send.h"
  34 #include "channel.h"
  35 #include "client.h"
  36 #include "common.h"
  37 #include "config.h"
  38 #include "ircd.h"
  39 #include "numeric.h"
  40 #include "memory.h"
  41 #include "s_conf.h"
  42 #include "s_newconf.h"
  43 #include "s_serv.h"
  44 #include "hash.h"
  45 #include "msg.h"
  46 #include "parse.h"
  47 #include "modules.h"
  48 #include "sprintf_irc.h"
  49 #include "whowas.h"
  50 #include "monitor.h"
  51
  52 static int me_su(struct Client *, struct Client *, int, const char **);
  53 static int me_login(struct Client *, struct Client *, int, const char **);
  54 static int me_rsfnc(struct Client *, struct Client *, int, const char **);
  55 static int me_nickdelay(struct Client *, struct Client *, int, const char **);
  56
  57 static void h_svc_server_introduced(hook_data_client *);
  58 static void h_svc_whois(hook_data_client *);
  59 static void h_svc_stats(hook_data_int *);
  60
  61 struct Message su_msgtab = {
  62         "SU", 0, 0, 0, MFLG_SLOW,
  63         {mg_ignore, mg_ignore, mg_ignore, mg_ignore, {me_su, 2}, mg_ignore}
  64 };
  65 struct Message login_msgtab = {
  66         "LOGIN", 0, 0, 0, MFLG_SLOW,
  67         {mg_ignore, mg_ignore, mg_ignore, mg_ignore, {me_login, 2}, mg_ignore}
  68 };
  69 struct Message rsfnc_msgtab = {
  70         "RSFNC", 0, 0, 0, MFLG_SLOW,
  71         {mg_ignore, mg_ignore, mg_ignore, mg_ignore, {me_rsfnc, 4}, mg_ignore}
  72 };
  73 struct Message nickdelay_msgtab = {
  74         "NICKDELAY", 0, 0, 0, MFLG_SLOW,
  75         {mg_unreg, mg_ignore, mg_ignore, mg_ignore, {me_nickdelay, 3}, mg_ignore}
  76 };
  77
  78 mapi_clist_av1 services_clist[] = {
  79         &su_msgtab, &login_msgtab, &rsfnc_msgtab, &nickdelay_msgtab, NULL
  80 };
  81 mapi_hfn_list_av1 services_hfnlist[] = {
  82         { "doing_stats",        (hookfn) h_svc_stats },
  83         { "doing_whois",        (hookfn) h_svc_whois },
  84         { "doing_whois_global", (hookfn) h_svc_whois },
  85         { "server_introduced",  (hookfn) h_svc_server_introduced },
  86         { NULL, NULL }
  87 };
  88
  89 DECLARE_MODULE_AV1(services, NULL, NULL, services_clist, NULL, services_hfnlist, "$Revision: 147 $");
  90
  91 static int
  92 me_su(struct Client *client_p, struct Client *source_p,
  93         int parc, const char *parv[])
  94 {
  95         struct Client *target_p;
  96
  97         if(!(source_p->flags & FLAGS_SERVICE))
  98                 return 0;
  99
 100         if((target_p = find_client(parv[1])) == NULL)
 101                 return 0;
 102
 103         if(!target_p->user)
 104                 return 0;
 105
 106         if(EmptyString(parv[2]))
 107                 target_p->user->suser[0] = '\0';
 108         else
 109                 strlcpy(target_p->user->suser, parv[2], sizeof(target_p->user->suser));
 110
 111         invalidate_bancache_user(target_p);
 112
 113         return 0;
 114 }
 115
 116 static int
 117 me_login(struct Client *client_p, struct Client *source_p,
 118         int parc, const char *parv[])
 119 {
 120         if(!IsPerson(source_p))
 121                 return 0;
 122
 123         strlcpy(source_p->user->suser, parv[1], sizeof(source_p->user->suser));
 124         return 0;
 125 }
 126
 127 static int
 128 clean_nick(const char *nick)
 129 {
 130         int len = 0;
 131
 132         if(EmptyString(nick) || *nick == '-' || IsDigit(*nick))
 133                 return 0;
 134
 135         for(; *nick; nick++)
 136         {
 137                 len++;
 138                 if(!IsNickChar(*nick))
 139                         return 0;
 140         }
 141
 142         if(len >= NICKLEN)
 143                 return 0;
 144
 145         return 1;
 146 }
 147
 148 static int
 149 me_rsfnc(struct Client *client_p, struct Client *source_p,
 150         int parc, const char *parv[])
 151 {
 152         struct Client *target_p;
 153         struct Client *exist_p;
 154         time_t newts, curts;
 155
 156         if(!(source_p->flags & FLAGS_SERVICE))
 157                 return 0;
 158
 159         if((target_p = find_person(parv[1])) == NULL)
 160                 return 0;
 161
 162         if(!MyClient(target_p))
 163                 return 0;
 164
 165         if(!clean_nick(parv[2]))
 166                 return 0;
 167
 168         curts = atol(parv[4]);
 169
 170         /* if tsinfo is different from what it was when services issued the
 171          * RSFNC, then we ignore it.  This can happen when a client changes
 172          * nicknames before the RSFNC arrives.. --anfl
 173          */
 174         if(target_p->tsinfo != curts)
 175                 return 0;
 176
 177         if((exist_p = find_named_client(parv[2])))
 178         {
 179                 char buf[BUFSIZE];
 180
 181                 /* this would be one hell of a race condition to trigger
 182                  * this one given the tsinfo check above, but its here for
 183                  * safety --anfl
 184                  */
 185                 if(target_p == exist_p)
 186                         return 0;
 187
 188                 if(MyClient(exist_p))
 189                         sendto_one(exist_p, ":%s KILL %s :(Nickname regained by services)",
 190                                 me.name, exist_p->name);
 191
 192                 exist_p->flags |= FLAGS_KILLED;
 193                 /* Do not send kills to servers for unknowns -- jilles */
 194                 if(IsClient(exist_p))
 195                         kill_client_serv_butone(NULL, exist_p, "%s (Nickname regained by services)",
 196                                                 me.name);
 197
 198                 snprintf(buf, sizeof(buf), "Killed (%s (Nickname regained by services))",
 199                         me.name);
 200                 exit_client(NULL, exist_p, &me, buf);
 201         }
 202
 203         newts = atol(parv[3]);
 204
 205         /* timestamp is older than 15mins, ignore it */
 206         if(newts < (CurrentTime - 900))
 207                 newts = CurrentTime - 900;
 208
 209         target_p->tsinfo = newts;
 210
 211         monitor_signoff(target_p);
 212
 213         invalidate_bancache_user(target_p);
 214
 215         sendto_realops_snomask(SNO_NCHANGE_GLOBAL, L_NETWIDE,
 216                         "Nick change: From %s to %s [%s@%s]",
 217                         target_p->name, parv[2], target_p->username,
 218                         target_p->host);
 219
 220         sendto_realops_snomask(SNO_NCHANGE, L_ALL,
 221                         "Nick change: From %s to %s [%s@%s]",
 222                         target_p->name, parv[2], target_p->username,
 223                         target_p->host);
 224
 225         sendto_common_channels_local(target_p, ":%s!%s@%s NICK :%s",
 226                                 target_p->name, target_p->username,
 227                                 target_p->host, parv[2]);
 228
 229         add_history(target_p, 1);
 230         sendto_server(NULL, NULL, CAP_TS6, NOCAPS, ":%s NICK %s :%ld",
 231                         use_id(target_p), parv[2], (long) target_p->tsinfo);
 232         sendto_server(NULL, NULL, NOCAPS, CAP_TS6, ":%s NICK %s :%ld",
 233                         target_p->name, parv[2], (long) target_p->tsinfo);
 234
 235         del_from_client_hash(target_p->name, target_p);
 236         strcpy(target_p->name, parv[2]);
 237         add_to_client_hash(target_p->name, target_p);
 238
 239         monitor_signon(target_p);
 240
 241         del_all_accepts(target_p);
 242
 243         comm_note(target_p->localClient->fd, "Nick: %s", target_p->name);
 244         return 0;
 245 }
 246
 247 /*
 248 ** me_nickdelay
 249 **      parv[0] = sender prefix
 250 **      parv[1] = duration in seconds (0 to remove)
 251 **      parv[2] = nick
 252 */
 253 static int
 254 me_nickdelay(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
 255 {
 256         int duration;
 257         struct nd_entry *nd;
 258
 259         if(!(source_p->flags & FLAGS_SERVICE))
 260                 return 0;
 261
 262         duration = atoi(parv[1]);
 263         if (duration <= 0)
 264         {
 265                 nd = hash_find_nd(parv[2]);
 266                 if (nd != NULL)
 267                         free_nd_entry(nd);
 268         }
 269         else
 270         {
 271                 if (duration > 86400)
 272                         duration = 86400;
 273                 add_nd_entry(parv[2]);
 274                 nd = hash_find_nd(parv[2]);
 275                 if (nd != NULL)
 276                         nd->expire = CurrentTime + duration;
 277         }
 278
 279         return 0;
 280 }
 281
 282 static void
 283 h_svc_server_introduced(hook_data_client *hdata)
 284 {
 285         dlink_node *ptr;
 286
 287         DLINK_FOREACH(ptr, service_list.head)
 288         {
 289                 if(!irccmp((const char *) ptr->data, hdata->target->name))
 290                 {
 291                         hdata->target->flags |= FLAGS_SERVICE;
 292                         return;
 293                 }
 294         }
 295 }
 296
 297 static void
 298 h_svc_whois(hook_data_client *data)
 299 {
 300         char *p = data->target->user->suser;
 301         if(!EmptyString(p))
 302         {
 303                 /* Try to strip off any leading digits as this may be used to
 304                  * store both an ID number and an account name in one field.
 305                  * If only digits are present, leave as is.
 306                  */
 307                 while(IsDigit(*p))
 308                         p++;
 309                 if(*p == '\0')
 310                         p = data->target->user->suser;
 311
 312                 sendto_one(data->client, form_str(RPL_WHOISLOGGEDIN),
 313                                 get_id(&me, data->client),
 314                                 get_id(data->client, data->client),
 315                                 data->target->name, p);
 316         }
 317 }
 318
 319 static void
 320 h_svc_stats(hook_data_int *data)
 321 {
 322         char statchar = (char) data->arg2;
 323         dlink_node *ptr;
 324
 325         if (statchar == 'U' && IsOperStaffer(data->client))
 326         {
 327                 DLINK_FOREACH(ptr, service_list.head)
 328                 {
 329                         sendto_one_numeric(data->client, RPL_STATSULINE,
 330                                                 form_str(RPL_STATSULINE),
 331                                                 ptr->data, "*", "*", "s");
 332                 }
 333         }
 334 }