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", "OnRawMode", "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", NULL
  37 };
  38
  39
  40
  41 extern "C" command_t* init_command(InspIRCd* Instance)
  42 {
  43         return new cmd_modules(Instance);
  44 }
  45
  46 void cmd_modules::Handle (const char** parameters, int pcnt, userrec *user)
  47 {
  48         for (unsigned int i = 0; i < ServerInstance->Config->module_names.size(); i++)
  49         {
  50                 Version V = ServerInstance->modules[i]->GetVersion();
  51                 char modulename[MAXBUF];
  52                 char flagstate[MAXBUF];
  53                 *flagstate = 0;
  54                 if (V.Flags & VF_STATIC)
  55                         strlcat(flagstate,", static",MAXBUF);
  56                 if (V.Flags & VF_VENDOR)
  57                         strlcat(flagstate,", vendor",MAXBUF);
  58                 if (V.Flags & VF_COMMON)
  59                         strlcat(flagstate,", common",MAXBUF);
  60                 if (V.Flags & VF_SERVICEPROVIDER)
  61                         strlcat(flagstate,", service provider",MAXBUF);
  62                 if (!flagstate[0])
  63                         strcpy(flagstate,"  <no flags>");
  64                 strlcpy(modulename,ServerInstance->Config->module_names[i].c_str(),256);
  65                 if (*user->oper)
  66                 {
  67                         if ((pcnt >= 2) && (!strcasecmp(parameters[0],"debug")))
  68                         {
  69                                 if (match(ServerInstance->Config->module_names[i].c_str(),parameters[1]))
  70                                 {
  71                                         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);
  72                                         for (int it = 0; itab[it];)
  73                                         {
  74                                                 char data[MAXBUF];
  75                                                 char dlist[MAXBUF];
  76                                                 *dlist = 0;
  77                                                 for (int v = 0; v < 4; v++)
  78                                                 {
  79                                                         if (itab[it])
  80                                                         {
  81                                                                 if (ServerInstance->Config->implement_lists[i][it])
  82                                                                 {
  83                                                                         snprintf(data,MAXBUF,"%s=>%c ",itab[it],(ServerInstance->Config->implement_lists[i][it] ? '1' : '0'));
  84                                                                         strncat(dlist,data,MAXBUF);
  85                                                                 }
  86                                                                 it++;
  87                                                         }
  88                                                 }
  89                                                 if (*dlist)
  90                                                         user->WriteServ("900 %s :%s [ %s]",user->nick,ServerConfig::CleanFilename(modulename),dlist);
  91                                         }
  92                                         user->WriteServ("900 %s :=== DEBUG: Implementation counts ===",user->nick);
  93                                         for (int it = 0; itab[it]; it++)
  94                                         {
  95                                                 if (ServerInstance->Config->global_implementation[it])
  96                                                         user->WriteServ("900 %s :%s: %d times",user->nick, itab[it],(int)ServerInstance->Config->global_implementation[it]);
  97                                         }
  98                                 }
  99                         }
 100                         else
 101                         {
 102                                 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);
 103                         }
 104                 }
 105                 else
 106                 {
 107                         user->WriteServ("900 %s :%s",user->nick,ServerConfig::CleanFilename(modulename));
 108                 }
 109         }
 110         user->WriteServ("901 %s :End of MODULES list",user->nick);
 111 }