#include "snprintf.h"
#endif
+int DebugModules = 0;
/*
* Structure defentitions for hook tables
CtdlDbgFunction F;
const char *Name;
long Len;
+ const int *LogP;
} LogDebugEntry;
HashList *LogDebugEntryTable = NULL;
StrBufAppendBufPlain(Message, HKEY("\n\n"), 0);
StrBufAppendBufPlain(Message, CKEY(ErrGeneral[3]), 0);
- syslog(LOG_EMERG, "%s", ChrPtr(Message));
- syslog(LOG_EMERG, "%s", ErrSubject);
+ MOD_syslog(LOG_EMERG, "%s", ChrPtr(Message));
+ MOD_syslog(LOG_EMERG, "%s", ErrSubject);
quickie_message("Citadel", NULL, NULL, AIDEROOM, ChrPtr(Message), FMT_FIXED, ErrSubject);
FreeStrBuf(&Message);
return ret;
}
-/*
-typedef struct __LogDebugEntry {
- CtdlDbgFunction F;
- const char *Name;
- long Len;
-} LogDebugEntry;
-HashList *LogDebugEntryTable = NULL;
-*/
-void CtdlRegisterDebugFlagHook(const char *Name, long Len, CtdlDbgFunction F)
+
+void CtdlRegisterDebugFlagHook(const char *Name, long Len, CtdlDbgFunction F, const int *LogP)
{
LogDebugEntry *E;
if (LogDebugEntryTable == NULL)
E->F = F;
E->Name = Name;
E->Len = Len;
+ E->LogP = LogP;
Put(LogDebugEntryTable, Name, Len, E, NULL);
}
(vptr != NULL))
{
LogDebugEntry *E = (LogDebugEntry*)vptr;
- E->F();
+ E->F(1);
}
}
}
Pos = GetNewHashPos(LogDebugEntryTable, 0);
while (GetNextHashPos(LogDebugEntryTable, Pos, &HKLen, &ch, &vptr)) {
LogDebugEntry *E = (LogDebugEntry*)vptr;
- E->F();
+ E->F(1);
}
DeleteHashPos(&Pos);
}
}
+void cmd_log_get(char *argbuf)
+{
+ long HKLen;
+ const char *ch;
+ HashPos *Pos;
+ void *vptr;
+
+ if (CtdlAccessCheck(ac_aide)) return;
+
+ cprintf("%d Log modules enabled:\n", LISTING_FOLLOWS);
+
+ Pos = GetNewHashPos(LogDebugEntryTable, 0);
+
+ while (GetNextHashPos(LogDebugEntryTable, Pos, &HKLen, &ch, &vptr)) {
+ LogDebugEntry *E = (LogDebugEntry*)vptr;
+ cprintf("%s|%d\n", ch, *E->LogP);
+ }
+
+ DeleteHashPos(&Pos);
+ cprintf("000\n");
+}
+void cmd_log_set(char *argbuf)
+{
+ void *vptr;
+ int lset;
+ int wlen;
+ char which[SIZ] = "";
+
+ if (CtdlAccessCheck(ac_aide)) return;
+
+ wlen = extract_token(which, argbuf, 0, '|', sizeof(which));
+ if (wlen < 0) wlen = 0;
+ lset = extract_int(argbuf, 1);
+ if (lset != 0) lset = 1;
+ if (GetHash(LogDebugEntryTable, which, wlen, &vptr) &&
+ (vptr != NULL))
+ {
+ LogDebugEntry *E = (LogDebugEntry*)vptr;
+ E->F(lset);
+ cprintf("%d %s|%d\n", CIT_OK, which, lset);
+ }
+ else {
+ cprintf("%d Log setting %s not known\n",
+ ERROR, which);
+ }
+}
void CtdlDestroyDebugTable(void)
{
p->desc = desc;
Put(ProtoHookList, cmd, 4, p, NULL);
- syslog(LOG_INFO, "Registered server command %s (%s)\n", cmd, desc);
+ MOD_syslog(LOG_DEBUG, "Registered server command %s (%s)\n", cmd, desc);
}
void CtdlDestroyProtoHooks(void)
newfcn->h_function_pointer = fcn_ptr;
CleanupHookTable = newfcn;
- syslog(LOG_INFO, "Registered a new cleanup function\n");
+ MODM_syslog(LOG_DEBUG, "Registered a new cleanup function\n");
}
/* This will also remove duplicates if any */
while (cur != NULL &&
fcn_ptr == cur->h_function_pointer) {
- syslog(LOG_INFO, "Unregistered cleanup function\n");
+ MODM_syslog(LOG_DEBUG, "Unregistered cleanup function\n");
p = cur->next;
if (cur == CleanupHookTable) {
CleanupHookTable = p;
cur = CleanupHookTable;
while (cur != NULL)
{
- syslog(LOG_INFO, "Destroyed cleanup function\n");
+ MODM_syslog(LOG_DEBUG, "Destroyed cleanup function\n");
p = cur->next;
free(cur);
cur = p;
newfcn->h_function_pointer = fcn_ptr;
EVCleanupHookTable = newfcn;
- syslog(LOG_INFO, "Registered a new cleanup function\n");
+ MODM_syslog(LOG_DEBUG, "Registered a new cleanup function\n");
}
/* This will also remove duplicates if any */
while (cur != NULL &&
fcn_ptr == cur->h_function_pointer) {
- syslog(LOG_INFO, "Unregistered cleanup function\n");
+ MODM_syslog(LOG_DEBUG, "Unregistered cleanup function\n");
p = cur->next;
if (cur == EVCleanupHookTable) {
EVCleanupHookTable = p;
cur = EVCleanupHookTable;
while (cur != NULL)
{
- syslog(LOG_INFO, "Destroyed cleanup function\n");
+ MODM_syslog(LOG_DEBUG, "Destroyed cleanup function\n");
p = cur->next;
free(cur);
cur = p;
newfcn->eventtype = EventType;
SessionHookTable = newfcn;
- syslog(LOG_INFO, "Registered a new session function (type %d)\n",
- EventType);
+ MOD_syslog(LOG_DEBUG, "Registered a new session function (type %d)\n",
+ EventType);
}
while (cur != NULL &&
fcn_ptr == cur->h_function_pointer &&
EventType == cur->eventtype) {
- syslog(LOG_INFO, "Unregistered session function (type %d)\n",
- EventType);
+ MOD_syslog(LOG_DEBUG, "Unregistered session function (type %d)\n",
+ EventType);
p = cur->next;
if (cur == SessionHookTable) {
SessionHookTable = p;
cur = SessionHookTable;
while (cur != NULL)
{
- syslog(LOG_INFO, "Destroyed session function\n");
+ MODM_syslog(LOG_DEBUG, "Destroyed session function\n");
p = cur->next;
free(cur);
cur = p;
newfcn->eventtype = EventType;
UserHookTable = newfcn;
- syslog(LOG_INFO, "Registered a new user function (type %d)\n",
- EventType);
+ MOD_syslog(LOG_DEBUG, "Registered a new user function (type %d)\n",
+ EventType);
}
while (cur != NULL &&
fcn_ptr == cur->h_function_pointer &&
EventType == cur->eventtype) {
- syslog(LOG_INFO, "Unregistered user function (type %d)\n",
- EventType);
+ MOD_syslog(LOG_DEBUG, "Unregistered user function (type %d)\n",
+ EventType);
p = cur->next;
if (cur == UserHookTable) {
UserHookTable = p;
cur = UserHookTable;
while (cur != NULL)
{
- syslog(LOG_INFO, "Destroyed user function \n");
+ MODM_syslog(LOG_DEBUG, "Destroyed user function \n");
p = cur->next;
free(cur);
cur = p;
newfcn->eventtype = EventType;
MessageHookTable = newfcn;
- syslog(LOG_INFO, "Registered a new message function (type %d)\n",
- EventType);
+ MOD_syslog(LOG_DEBUG, "Registered a new message function (type %d)\n",
+ EventType);
}
while (cur != NULL &&
handler == cur->h_function_pointer &&
EventType == cur->eventtype) {
- syslog(LOG_INFO, "Unregistered message function (type %d)\n",
- EventType);
+ MOD_syslog(LOG_DEBUG, "Unregistered message function (type %d)\n",
+ EventType);
p = cur->next;
if (cur == MessageHookTable) {
MessageHookTable = p;
cur = MessageHookTable;
while (cur != NULL)
{
- syslog(LOG_INFO, "Destroyed message function (type %d)\n", cur->eventtype);
+ MOD_syslog(LOG_DEBUG, "Destroyed message function (type %d)\n", cur->eventtype);
p = cur->next;
free(cur);
cur = p;
newfcn->fcn_ptr = fcn_ptr;
RoomHookTable = newfcn;
- syslog(LOG_INFO, "Registered a new room function\n");
+ MODM_syslog(LOG_DEBUG, "Registered a new room function\n");
}
void CtdlUnregisterRoomHook(int (*fcn_ptr)(struct ctdlroom *))
{
- RoomFunctionHook *cur, *p;
-
- for (cur = RoomHookTable; cur != NULL; cur = cur->next) {
- while (cur != NULL && fcn_ptr == cur->fcn_ptr) {
- syslog(LOG_INFO, "Unregistered room function\n");
+ RoomFunctionHook *cur, *p, *last;
+ last = NULL;
+ cur = RoomHookTable;
+ while (cur != NULL)
+ {
+ if (fcn_ptr == cur->fcn_ptr) {
+ MODM_syslog(LOG_DEBUG, "Unregistered room function\n");
p = cur->next;
- if (cur == RoomHookTable) {
- RoomHookTable = p;
- }
+
free(cur);
+ cur = NULL;
+
+ if (last != NULL)
+ last->next = p;
+ else
+ RoomHookTable = p;
cur = p;
}
+ last = cur;
+ if (cur != NULL)
+ cur = cur->next;
+
}
}
cur = RoomHookTable;
while (cur != NULL)
{
- syslog(LOG_INFO, "Destroyed room function\n");
+ MODM_syslog(LOG_DEBUG, "Destroyed room function\n");
p = cur->next;
free(cur);
cur = p;
newfcn->h_function_pointer = handler;
NetprocHookTable = newfcn;
- syslog(LOG_INFO, "Registered a new netproc function\n");
+ MODM_syslog(LOG_DEBUG, "Registered a new netproc function\n");
}
/* This will also remove duplicates if any */
while (cur != NULL &&
handler == cur->h_function_pointer ) {
- syslog(LOG_INFO, "Unregistered netproc function\n");
+ MODM_syslog(LOG_DEBUG, "Unregistered netproc function\n");
p = cur->next;
if (cur == NetprocHookTable) {
NetprocHookTable = p;
cur = NetprocHookTable;
while (cur != NULL)
{
- syslog(LOG_INFO, "Destroyed netproc function\n");
+ MODM_syslog(LOG_DEBUG, "Destroyed netproc function\n");
p = cur->next;
free(cur);
cur = p;
newfcn->h_function_pointer = handler;
DeleteHookTable = newfcn;
- syslog(LOG_INFO, "Registered a new delete function\n");
+ MODM_syslog(LOG_DEBUG, "Registered a new delete function\n");
}
/* This will also remove duplicates if any */
while (cur != NULL &&
handler == cur->h_function_pointer ) {
- syslog(LOG_INFO, "Unregistered delete function\n");
+ MODM_syslog(LOG_DEBUG, "Unregistered delete function\n");
p = cur->next;
if (cur == DeleteHookTable) {
DeleteHookTable = p;
cur = DeleteHookTable;
while (cur != NULL)
{
- syslog(LOG_INFO, "Destroyed delete function\n");
+ MODM_syslog(LOG_DEBUG, "Destroyed delete function\n");
p = cur->next;
free(cur);
cur = p;
safestrncpy(newfcn->content_type, content_type, sizeof newfcn->content_type);
FixedOutputTable = newfcn;
- syslog(LOG_INFO, "Registered a new fixed output function for %s\n", newfcn->content_type);
+ MOD_syslog(LOG_DEBUG, "Registered a new fixed output function for %s\n", newfcn->content_type);
}
for (cur = FixedOutputTable; cur != NULL; cur = cur->next) {
/* This will also remove duplicates if any */
while (cur != NULL && (!strcasecmp(content_type, cur->content_type))) {
- syslog(LOG_INFO, "Unregistered fixed output function for %s\n", content_type);
+ MOD_syslog(LOG_DEBUG, "Unregistered fixed output function for %s\n", content_type);
p = cur->next;
if (cur == FixedOutputTable) {
FixedOutputTable = p;
cur = FixedOutputTable;
while (cur != NULL)
{
- syslog(LOG_INFO, "Destroyed fixed output function for %s\n", cur->content_type);
+ MOD_syslog(LOG_DEBUG, "Destroyed fixed output function for %s\n", cur->content_type);
p = cur->next;
free(cur);
cur = p;
newfcn->order = order;
newfcn->h_function_pointer = fcn_ptr;
XmsgHookTable = newfcn;
- syslog(LOG_INFO, "Registered a new x-msg function (priority %d)\n", order);
+ MOD_syslog(LOG_DEBUG, "Registered a new x-msg function (priority %d)\n", order);
}
while (cur != NULL &&
fcn_ptr == cur->h_function_pointer &&
order == cur->order) {
- syslog(LOG_INFO, "Unregistered x-msg function "
- "(priority %d)\n", order);
+ MOD_syslog(LOG_DEBUG, "Unregistered x-msg function "
+ "(priority %d)\n", order);
p = cur->next;
if (cur == XmsgHookTable) {
XmsgHookTable = p;
cur = XmsgHookTable;
while (cur != NULL)
{
- syslog(LOG_INFO, "Destroyed x-msg function "
+ MOD_syslog(LOG_DEBUG, "Destroyed x-msg function "
"(priority %d)\n", cur->order);
p = cur->next;
snprintf(message, SIZ, "Unix domain socket '%s': ", sockpath);
}
else if (tcp_port <= 0) { /* port -1 to disable */
- syslog(LOG_INFO, "Service %s has been manually disabled, skipping\n", ServiceName);
+ MOD_syslog(LOG_INFO, "Service %s has been manually disabled, skipping\n", ServiceName);
free (message);
free(newfcn);
return;
if (newfcn->msock > 0) {
ServiceHookTable = newfcn;
strcat(message, "registered.");
- syslog(LOG_INFO, "%s\n", message);
+ MOD_syslog(LOG_INFO, "%s\n", message);
}
else {
AddPortError(message, error);
strcat(message, "FAILED.");
- syslog(LOG_CRIT, "%s\n", message);
+ MOD_syslog(LOG_CRIT, "%s\n", message);
free(newfcn);
}
free(message);
tcp_port == cur->tcp_port) {
close(cur->msock);
if (sockpath) {
- syslog(LOG_INFO, "Closed UNIX domain socket %s\n",
- sockpath);
+ MOD_syslog(LOG_INFO, "Closed UNIX domain socket %s\n",
+ sockpath);
unlink(sockpath);
} else if (tcp_port) {
- syslog(LOG_INFO, "Closed TCP port %d\n", tcp_port);
+ MOD_syslog(LOG_INFO, "Closed TCP port %d\n", tcp_port);
} else {
- syslog(LOG_INFO, "Unregistered service \"%s\"\n", cur->ServiceName);
+ MOD_syslog(LOG_INFO, "Unregistered service \"%s\"\n", cur->ServiceName);
}
p = cur->next;
if (cur == ServiceHookTable) {
close(cur->msock);
cur->msock = -1;
if (cur->sockpath != NULL){
- syslog(LOG_INFO, "[%s] Closed UNIX domain socket %s\n",
- cur->ServiceName,
- cur->sockpath);
+ MOD_syslog(LOG_INFO, "[%s] Closed UNIX domain socket %s\n",
+ cur->ServiceName,
+ cur->sockpath);
unlink(cur->sockpath);
} else {
- syslog(LOG_INFO, "[%s] closing service\n",
- cur->ServiceName);
+ MOD_syslog(LOG_INFO, "[%s] closing service\n",
+ cur->ServiceName);
}
}
cur = cur->next;
{
close(cur->msock);
if (cur->sockpath) {
- syslog(LOG_INFO, "Closed UNIX domain socket %s\n",
- cur->sockpath);
+ MOD_syslog(LOG_INFO, "Closed UNIX domain socket %s\n",
+ cur->sockpath);
unlink(cur->sockpath);
} else if (cur->tcp_port) {
- syslog(LOG_INFO, "Closed TCP port %d\n", cur->tcp_port);
+ MOD_syslog(LOG_INFO, "Closed TCP port %d\n", cur->tcp_port);
} else {
- syslog(LOG_INFO, "Destroyed service \"%s\"\n", cur->ServiceName);
+ MOD_syslog(LOG_INFO, "Destroyed service \"%s\"\n", cur->ServiceName);
}
p = cur->next;
free(cur);
newfcn->fcn_ptr = fcn_ptr;
SearchFunctionHookTable = newfcn;
- syslog(LOG_INFO, "Registered a new search function (%s)\n", name);
+ MOD_syslog(LOG_DEBUG, "Registered a new search function (%s)\n", name);
}
void CtdlUnregisterSearchFuncHook(void (*fcn_ptr)(int *, long **, const char *), char *name)
for (cur = SearchFunctionHookTable; cur != NULL; cur = cur->next) {
while (fcn_ptr && (cur->fcn_ptr == fcn_ptr) && name && !strcmp(name, cur->name)) {
- syslog(LOG_INFO, "Unregistered search function(%s)\n", name);
+ MOD_syslog(LOG_DEBUG, "Unregistered search function(%s)\n", name);
p = cur->next;
if (cur == SearchFunctionHookTable) {
SearchFunctionHookTable = p;
/* Other code may elect to protect this message from server-side
* handlers; if this is the case, don't do anything.
- syslog(LOG_DEBUG, "** Event type is %d, flags are %d\n", EventType, msg->cm_flags);
+ MOD_syslog(LOG_DEBUG, "** Event type is %d, flags are %d\n", EventType, msg->cm_flags);
*/
if (msg->cm_flags & CM_SKIP_HOOKS) {
- syslog(LOG_DEBUG, "Skipping hooks\n");
+ MODM_syslog(LOG_DEBUG, "Skipping hooks\n");
return(0);
}
RoomFunctionHook *fcn;
int total_retval = 0;
- syslog(LOG_DEBUG, "Performing room hooks for <%s>\n", target_room->QRname);
+ MOD_syslog(LOG_DEBUG, "Performing room hooks for <%s>\n", target_room->QRname);
for (fcn = RoomHookTable; fcn != NULL; fcn = fcn->next) {
total_retval = total_retval + (*fcn->fcn_ptr) (target_room);
CtdlStartTLS (ok_response, nosup_response, error_response);
#endif
}
+
+void DebugModulesEnable(const int n)
+{
+ DebugModules = n;
+}
+CTDL_MODULE_INIT(modules)
+{
+ if (!threading) {
+ CtdlRegisterDebugFlagHook(HKEY("modules"), DebugModulesEnable, &DebugModules);
+
+ CtdlRegisterProtoHook(cmd_log_get, "LOGP", "Print Log-parameters");
+ CtdlRegisterProtoHook(cmd_log_set, "LOGS", "Set Log-parameters");
+ }
+ return "modules";
+}