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