src/cmd_modules.cpp

   1 /*       +------------------------------------+
   2  *       | Inspire Internet Relay Chat Daemon |
   3  *       +------------------------------------+
   4  *
   5  *  InspIRCd is copyright (C) 2002-2006 ChatSpike-Dev.
   6  *                       E-mail:
   7  *                <brain@chatspike.net>
   8  *                <Craig@chatspike.net>
   9  *
  10  * Written by Craig Edwards, Craig McLure, and others.
  11  * This program is free but copyrighted software; see
  12  *            the file COPYING for details.
  13  *
  14  * ---------------------------------------------------
  15  */
  16
  17 #include "inspircd.h"
  18 #include "configreader.h"
  19 #include "users.h"
  20 #include "modules.h"
  21 #include "wildcard.h"
  22 #include "commands/cmd_modules.h"
  23
  24 char* itab[] = {
  25         "OnUserConnect", "OnUserQuit", "OnUserDisconnect", "OnUserJoin", "OnUserPart", "OnRehash", "OnServerRaw",
  26         "OnExtendedMode", "OnUserPreJoin", "OnUserPreKick", "OnUserKick", "OnOper", "OnInfo", "OnWhois", "OnUserPreInvite",
  27         "OnUserInvite", "OnUserPreMessage", "OnUserPreNotice", "OnUserPreNick", "OnUserMessage", "OnUserNotice", "OnMode",
  28         "OnGetServerDescription", "OnSyncUser", "OnSyncChannel", "OnSyncChannelMetaData", "OnSyncUserMetaData",
  29         "OnDecodeMetaData", "ProtoSendMode", "ProtoSendMetaData", "OnWallops", "OnChangeHost", "OnChangeName", "OnAddGLine",
  30         "OnAddZLine", "OnAddQLine", "OnAddKLine", "OnAddELine", "OnDelGLine", "OnDelZLine", "OnDelKLine", "OnDelELine", "OnDelQLine",
  31         "OnCleanup", "OnUserPostNick", "OnAccessCheck", "On005Numeric", "OnKill", "OnRemoteKill", "OnLoadModule", "OnUnloadModule",
  32         "OnBackgroundTimer", "OnSendList", "OnPreCommand", "OnCheckReady", "OnUserRrgister", "OnCheckInvite",
  33         "OnCheckKey", "OnCheckLimit", "OnCheckBan", "OnStats", "OnChangeLocalUserHost", "OnChangeLocalUserGecos", "OnLocalTopicChange",
  34         "OnPostLocalTopicChange", "OnEvent", "OnRequest", "OnOperCompre", "OnGlobalOper", "OnPostConnect", "OnAddBan", "OnDelBan",
  35         "OnRawSocketAccept", "OnRawSocketClose", "OnRawSocketWrite", "OnRawSocketRead", "OnChangeLocalUserGECOS", "OnUserRegister",
  36         "OnOperCompare", "OnChannelDelete", "OnPostOper", "OnSyncOtherMetaData", "OnSetAway", "OnCancelAway", "OnNamesList",
  37         "OnPostCommand", "OnPostJoin", "OnWhoisLine", "OnBuildExemptList", "OnRawSocketConnect", NULL
  38 };
  39
  40 extern "C" command_t* init_command(InspIRCd* Instance)
  41 {
  42         return new cmd_modules(Instance);
  43 }
  44
  45 /** Handle /MODULES
  46  */
  47 CmdResult cmd_modules::Handle (const char** parameters, int pcnt, userrec *user)
  48 {
  49         for (unsigned int i = 0; i < ServerInstance->Config->module_names.size(); i++)
  50         {
  51                 Version V = ServerInstance->modules[i]->GetVersion();
  52                 char modulename[MAXBUF];
  53                 char flagstate[MAXBUF];
  54                 *flagstate = 0;
  55                 if (V.Flags & VF_STATIC)
  56                         strlcat(flagstate,", static",MAXBUF);
  57                 if (V.Flags & VF_VENDOR)
  58                         strlcat(flagstate,", vendor",MAXBUF);
  59                 if (V.Flags & VF_COMMON)
  60                         strlcat(flagstate,", common",MAXBUF);
  61                 if (V.Flags & VF_SERVICEPROVIDER)
  62                         strlcat(flagstate,", service provider",MAXBUF);
  63                 if (!flagstate[0])
  64                         strcpy(flagstate,"  <no flags>");
  65                 strlcpy(modulename,ServerInstance->Config->module_names[i].c_str(),256);
  66                 if (*user->oper)
  67                 {
  68                         if ((pcnt >= 2) && (!strcasecmp(parameters[0],"debug")))
  69                         {
  70                                 if (match(ServerInstance->Config->module_names[i].c_str(),parameters[1]))
  71                                 {
  72                                         user->WriteServ("900 %s :0x%08lx %d.%d.%d.%d %s (%s)",user->nick,ServerInstance->modules[i],V.Major,V.Minor,V.Revision,V.Build,ServerConfig::CleanFilename(modulename),flagstate+2);
  73                                         for (int it = 0; itab[it];)
  74                                         {
  75                                                 char data[MAXBUF];
  76                                                 char dlist[MAXBUF];
  77                                                 *dlist = 0;
  78                                                 for (int v = 0; v < 4; v++)
  79                                                 {
  80                                                         if (itab[it])
  81                                                         {
  82                                                                 if (ServerInstance->Config->implement_lists[i][it])
  83                                                                 {
  84                                                                         snprintf(data,MAXBUF,"%s=>%c ",itab[it],(ServerInstance->Config->implement_lists[i][it] ? '1' : '0'));
  85                                                                         strlcat(dlist,data,MAXBUF);
  86                                                                 }
  87                                                                 it++;
  88                                                         }
  89                                                 }
  90                                                 if (*dlist)
  91                                                         user->WriteServ("900 %s :%s [ %s]",user->nick,ServerConfig::CleanFilename(modulename),dlist);
  92                                         }
  93                                         user->WriteServ("900 %s :=== DEBUG: Implementation counts ===",user->nick);
  94                                         for (int it = 0; itab[it]; it++)
  95                                         {
  96                                                 if (ServerInstance->Config->global_implementation[it])
  97                                                         user->WriteServ("900 %s :%s: %d times",user->nick, itab[it],(int)ServerInstance->Config->global_implementation[it]);
  98                                         }
  99                                 }
 100                         }
 101                         else
 102                         {
 103                                 user->WriteServ("900 %s :0x%08lx %d.%d.%d.%d %s (%s)",user->nick,ServerInstance->modules[i],V.Major,V.Minor,V.Revision,V.Build,ServerConfig::CleanFilename(modulename),flagstate+2);
 104                         }
 105                 }
 106                 else
 107                 {
 108                         user->WriteServ("900 %s :%s",user->nick,ServerConfig::CleanFilename(modulename));
 109                 }
 110         }
 111         user->WriteServ("901 %s :End of MODULES list",user->nick);
 112
 113         return CMD_SUCCESS;
 114 }