1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
/* +------------------------------------+
* | Inspire Internet Relay Chat Daemon |
* +------------------------------------+
*
* InspIRCd: (C) 2002-2011 InspIRCd Development Team
* See: http://wiki.inspircd.org/Credits
*
* This program is free but copyrighted software; see
* the file COPYING for details.
*
* ---------------------------------------------------
*/
#include "inspircd.h"
#include "dynamic.h"
#ifndef WIN32
#include <dlfcn.h>
#endif
DLLManager::DLLManager(const char *fname)
{
if (!strstr(fname,".so"))
{
err = "This doesn't look like a module file to me...";
h = NULL;
return;
}
h = dlopen(fname, RTLD_NOW|RTLD_LOCAL);
if (!h)
{
err = dlerror();
}
}
#ifdef VT_DEBUG
extern std::set<void*>* alloc_list;
static void check_list(void* h)
{
Dl_info info;
void* ifn = dlsym(h, MODULE_INIT_STR);
if (!ifn)
return;
if (!dladdr(ifn, &info))
return;
std::string soname = info.dli_fname;
for(std::set<void*>::iterator i = alloc_list->begin(); i != alloc_list->end(); i++)
{
void* vtable = *reinterpret_cast<void**>(*i);
if (dladdr(vtable, &info) && info.dli_fname == soname)
{
ServerInstance->Logs->Log("DLLMGR", DEBUG, "Object @%p remains with vtable %s+0x%lx <%p> in %s",
*i, info.dli_sname, (long)(vtable - info.dli_saddr), vtable, info.dli_fname);
}
}
}
#else
#define check_list(h) do {} while (0)
#endif
DLLManager::~DLLManager()
{
/* close the library */
if (h)
{
check_list(h);
dlclose(h);
}
}
union init_t {
void* vptr;
Module* (*fptr)();
};
Module* DLLManager::CallInit()
{
if (!h)
return NULL;
init_t initfn;
initfn.vptr = dlsym(h, MODULE_INIT_STR);
if (!initfn.vptr)
{
err = dlerror();
return NULL;
}
return (*initfn.fptr)();
}
std::string DLLManager::GetVersion()
{
if (!h)
return "";
const char* srcver = (char*)dlsym(h, "inspircd_src_version");
if (srcver)
return srcver;
return "Unversioned module";
}
|
