unsupported/m_force.c

   1 /* contrib/m_force.c
   2  * Copyright (C) 1996-2002 Hybrid Development Team
   3  * Copyright (C) 2004 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  * $Id: m_force.c 1425 2006-05-23 16:41:33Z jilles $
  30  */
  31
  32 #include "stdinc.h"
  33 #include "tools.h"
  34 #include "channel.h"
  35 #include "class.h"
  36 #include "client.h"
  37 #include "common.h"
  38 #include "irc_string.h"
  39 #include "sprintf_irc.h"
  40 #include "ircd.h"
  41 #include "hostmask.h"
  42 #include "numeric.h"
  43 #include "commio.h"
  44 #include "s_conf.h"
  45 #include "s_newconf.h"
  46 #include "s_log.h"
  47 #include "send.h"
  48 #include "hash.h"
  49 #include "s_serv.h"
  50 #include "msg.h"
  51 #include "parse.h"
  52 #include "modules.h"
  53 #include "event.h"
  54
  55
  56 static int mo_forcejoin(struct Client *client_p, struct Client *source_p,
  57                         int parc, const char *parv[]);
  58 static int mo_forcepart(struct Client *client_p, struct Client *source_p,
  59                         int parc, const char *parv[]);
  60
  61 struct Message forcejoin_msgtab = {
  62         "FORCEJOIN", 0, 0, 0, MFLG_SLOW,
  63         {mg_unreg, mg_not_oper, mg_ignore, mg_ignore, mg_ignore, {mo_forcejoin, 3}}
  64 };
  65
  66 struct Message forcepart_msgtab = {
  67         "FORCEPART", 0, 0, 0, MFLG_SLOW,
  68         {mg_unreg, mg_not_oper, mg_ignore, mg_ignore, mg_ignore, {mo_forcepart, 3}}
  69 };
  70
  71 mapi_clist_av1 force_clist[] = { &forcejoin_msgtab, &forcepart_msgtab, NULL };
  72
  73 DECLARE_MODULE_AV1(force, NULL, NULL, force_clist, NULL, NULL, "$Revision: 1425 $");
  74
  75 /*
  76  * m_forcejoin
  77  *      parv[0] = sender prefix
  78  *      parv[1] = user to force
  79  *      parv[2] = channel to force them into
  80  */
  81 static int
  82 mo_forcejoin(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
  83 {
  84         struct Client *target_p;
  85         struct Channel *chptr;
  86         int type;
  87         char mode;
  88         char sjmode;
  89         char *newch;
  90
  91         if(!IsOperAdmin(source_p))
  92         {
  93                 sendto_one(source_p, form_str(ERR_NOPRIVS), me.name, source_p->name, "forcejoin");
  94                 return 0;
  95         }
  96
  97         if((hunt_server(client_p, source_p, ":%s FORCEJOIN %s %s", 1, parc, parv)) != HUNTED_ISME)
  98                 return 0;
  99
 100         /* if target_p is not existant, print message
 101          * to source_p and bail - scuzzy
 102          */
 103         if((target_p = find_client(parv[1])) == NULL)
 104         {
 105                 sendto_one(source_p, form_str(ERR_NOSUCHNICK), me.name, source_p->name, parv[1]);
 106                 return 0;
 107         }
 108
 109         if(!IsPerson(target_p))
 110                 return 0;
 111
 112         sendto_wallops_flags(UMODE_WALLOP, &me,
 113                              "FORCEJOIN called for %s %s by %s!%s@%s",
 114                              parv[1], parv[2], source_p->name, source_p->username, source_p->host);
 115         ilog(L_MAIN, "FORCEJOIN called for %s %s by %s!%s@%s",
 116              parv[1], parv[2], source_p->name, source_p->username, source_p->host);
 117         sendto_server(NULL, NULL, NOCAPS, NOCAPS,
 118                         ":%s WALLOPS :FORCEJOIN called for %s %s by %s!%s@%s",
 119                         me.name, parv[1], parv[2],
 120                         source_p->name, source_p->username, source_p->host);
 121
 122         /* select our modes from parv[2] if they exist... (chanop) */
 123         if(*parv[2] == '@')
 124         {
 125                 type = CHFL_CHANOP;
 126                 mode = 'o';
 127                 sjmode = '@';
 128         }
 129         else if(*parv[2] == '+')
 130         {
 131                 type = CHFL_VOICE;
 132                 mode = 'v';
 133                 sjmode = '+';
 134         }
 135         else
 136         {
 137                 type = CHFL_PEON;
 138                 mode = sjmode = '\0';
 139         }
 140
 141         if(mode != '\0')
 142                 parv[2]++;
 143
 144         if((chptr = find_channel(parv[2])) != NULL)
 145         {
 146                 if(IsMember(target_p, chptr))
 147                 {
 148                         /* debugging is fun... */
 149                         sendto_one(source_p, ":%s NOTICE %s :*** Notice -- %s is already in %s",
 150                                    me.name, source_p->name, target_p->name, chptr->chname);
 151                         return 0;
 152                 }
 153
 154                 add_user_to_channel(chptr, target_p, type);
 155
 156                 sendto_server(target_p, chptr, NOCAPS, NOCAPS,
 157                               ":%s SJOIN %ld %s + :%c%s",
 158                               me.name, (long) chptr->channelts,
 159                               chptr->chname, type ? sjmode : ' ', target_p->name);
 160
 161                 sendto_channel_local(ALL_MEMBERS, chptr, ":%s!%s@%s JOIN :%s",
 162                                      target_p->name, target_p->username,
 163                                      target_p->host, chptr->chname);
 164
 165                 if(type)
 166                         sendto_channel_local(ALL_MEMBERS, chptr, ":%s MODE %s +%c %s",
 167                                              me.name, chptr->chname, mode, target_p->name);
 168
 169                 if(chptr->topic != NULL)
 170                 {
 171                         sendto_one(target_p, form_str(RPL_TOPIC), me.name,
 172                                    target_p->name, chptr->chname, chptr->topic);
 173                         sendto_one(target_p, form_str(RPL_TOPICWHOTIME),
 174                                    me.name, source_p->name, chptr->chname,
 175                                    chptr->topic_info, chptr->topic_time);
 176                 }
 177
 178                 channel_member_names(chptr, target_p, 1);
 179         }
 180         else
 181         {
 182                 newch = LOCAL_COPY(parv[2]);
 183                 if(!check_channel_name(newch))
 184                 {
 185                         sendto_one(source_p, form_str(ERR_BADCHANNAME), me.name,
 186                                    source_p->name, (unsigned char *) newch);
 187                         return 0;
 188                 }
 189
 190                 /* channel name must begin with & or # */
 191                 if(!IsChannelName(newch))
 192                 {
 193                         sendto_one(source_p, form_str(ERR_BADCHANNAME), me.name,
 194                                    source_p->name, (unsigned char *) newch);
 195                         return 0;
 196                 }
 197
 198                 /* newch can't be longer than CHANNELLEN */
 199                 if(strlen(newch) > CHANNELLEN)
 200                 {
 201                         sendto_one(source_p, ":%s NOTICE %s :Channel name is too long", me.name,
 202                                    source_p->name);
 203                         return 0;
 204                 }
 205
 206                 chptr = get_or_create_channel(target_p, newch, NULL);
 207                 add_user_to_channel(chptr, target_p, CHFL_CHANOP);
 208
 209                 /* send out a join, make target_p join chptr */
 210                 sendto_server(target_p, chptr, NOCAPS, NOCAPS,
 211                               ":%s SJOIN %ld %s +nt :@%s", me.name,
 212                               (long) chptr->channelts, chptr->chname, target_p->name);
 213
 214                 sendto_channel_local(ALL_MEMBERS, chptr, ":%s!%s@%s JOIN :%s",
 215                                      target_p->name, target_p->username,
 216                                      target_p->host, chptr->chname);
 217
 218                 chptr->mode.mode |= MODE_TOPICLIMIT;
 219                 chptr->mode.mode |= MODE_NOPRIVMSGS;
 220
 221                 sendto_channel_local(ALL_MEMBERS, chptr, ":%s MODE %s +nt", me.name, chptr->chname);
 222
 223                 target_p->localClient->last_join_time = CurrentTime;
 224                 channel_member_names(chptr, target_p, 1);
 225
 226                 /* we do this to let the oper know that a channel was created, this will be
 227                  * seen from the server handling the command instead of the server that
 228                  * the oper is on.
 229                  */
 230                 sendto_one(source_p, ":%s NOTICE %s :*** Notice -- Creating channel %s", me.name,
 231                            source_p->name, chptr->chname);
 232         }
 233         return 0;
 234 }
 235
 236
 237 static int
 238 mo_forcepart(struct Client *client_p, struct Client *source_p, int parc, const char *parv[])
 239 {
 240         struct Client *target_p;
 241         struct Channel *chptr;
 242         struct membership *msptr;
 243
 244         if(!IsOperAdmin(source_p))
 245         {
 246                 sendto_one(source_p, form_str(ERR_NOPRIVS), me.name, source_p->name, "forcepart");
 247                 return 0;
 248         }
 249
 250         if((hunt_server(client_p, source_p, ":%s FORCEPART %s %s", 1, parc, parv)) != HUNTED_ISME)
 251                 return 0;
 252
 253         /* if target_p == NULL then let the oper know */
 254         if((target_p = find_client(parv[1])) == NULL)
 255         {
 256                 sendto_one(source_p, form_str(ERR_NOSUCHNICK), me.name, source_p->name, parv[1]);
 257                 return 0;
 258         }
 259
 260         if(!IsClient(target_p))
 261                 return 0;
 262
 263         sendto_wallops_flags(UMODE_WALLOP, &me,
 264                              "FORCEPART called for %s %s by %s!%s@%s",
 265                              parv[1], parv[2], source_p->name, source_p->username, source_p->host);
 266         ilog(L_MAIN, "FORCEPART called for %s %s by %s!%s@%s",
 267              parv[1], parv[2], source_p->name, source_p->username, source_p->host);
 268         sendto_server(NULL, NULL, NOCAPS, NOCAPS,
 269                         ":%s WALLOPS :FORCEPART called for %s %s by %s!%s@%s",
 270                         me.name, parv[1], parv[2],
 271                         source_p->name, source_p->username, source_p->host);
 272
 273         if((chptr = find_channel(parv[2])) == NULL)
 274         {
 275                 sendto_one_numeric(source_p, ERR_NOSUCHCHANNEL,
 276                                    form_str(ERR_NOSUCHCHANNEL), parv[1]);
 277                 return 0;
 278         }
 279
 280         if((msptr = find_channel_membership(chptr, target_p)) == NULL)
 281         {
 282                 sendto_one_numeric(source_p, ERR_USERNOTINCHANNEL,
 283                                 form_str(ERR_USERNOTINCHANNEL),
 284                                 parv[1], parv[2]);
 285                 return 0;
 286         }
 287
 288         sendto_server(target_p, chptr, NOCAPS, NOCAPS,
 289                       ":%s PART %s :%s", target_p->name, chptr->chname, target_p->name);
 290
 291         sendto_channel_local(ALL_MEMBERS, chptr, ":%s!%s@%s PART %s :%s",
 292                              target_p->name, target_p->username,
 293                              target_p->host, chptr->chname, target_p->name);
 294
 295
 296         remove_user_from_channel(msptr);
 297
 298         return 0;
 299 }