/*
Load a module. Returns 0 if the modules is successfully loaded (may have already been loaded).
*/
int maLoadModule(MaAppweb *appweb, cchar *name, cchar *libname)
{
MprModule *module;
char entryPoint[MPR_MAX_FNAME];
char *path;
if (strcmp(name, "authFilter") == 0 || strcmp(name, "rangeFilter") == 0 || strcmp(name, "uploadFilter") == 0 ||
strcmp(name, "fileHandler") == 0 || strcmp(name, "dirHandler") == 0) {
mprLog(1, "The %s module is now builtin. No need to use LoadModule", name);
return 0;
}
if (libname == 0) {
path = sjoin("mod_", name, BLD_SHOBJ, NULL);
} else {
path = sclone(libname);
}
if ((module = mprLookupModule(path)) != 0) {
mprLog(MPR_CONFIG, "Activating module (Builtin) %s", name);
return 0;
}
mprSprintf(entryPoint, sizeof(entryPoint), "ma%sInit", name);
entryPoint[2] = toupper((int) entryPoint[2]);
if ((module = mprCreateModule(name, path, entryPoint, MPR->httpService)) == 0) {
return 0;
}
if (mprLoadModule(module) < 0) {
return MPR_ERR_CANT_CREATE;
}
return 0;
}
/*
* Load the ssl provider
*/
static MprModule *loadSsl(MprCtx ctx, bool lazy)
{
Mpr *mpr;
MprModule *mp;
mpr = mprGetMpr(ctx);
if (mpr->flags & MPR_SSL_PROVIDER_LOADED) {
return mprLookupModule(ctx, "sslModule");
}
mprLog(ctx, MPR_CONFIG, "Activating the SSL provider");
#if BLD_FEATURE_OPENSSL
/*
* NOTE: preference given to open ssl if both are enabled
*/
mprLog(ctx, 2, "Loading OpenSSL module");
if (mprCreateOpenSslModule(ctx, lazy) < 0) {
return 0;
}
#elif BLD_FEATURE_MATRIXSSL
mprLog(ctx, 2, "Loading MatrixSSL module");
if (mprCreateMatrixSslModule(ctx, lazy) < 0) {
return 0;
}
#endif
if ((mp = mprCreateModule(ctx, "sslModule", BLD_VERSION, NULL, NULL, NULL)) == 0) {
return 0;
}
mpr->flags |= MPR_SSL_PROVIDER_LOADED;
return mp;
}
/*
* Load a module. Returns 0 if the modules is successfully loaded either statically or dynamically.
*/
MprModule *maLoadModule(MaHttp *http, cchar *name, cchar *libname)
{
MprModule *module;
char entryPoint[MPR_MAX_FNAME];
char *path;
path = 0;
module = mprLookupModule(http, name);
if (module) {
mprLog(http, MPR_CONFIG, "Activating module (Builtin) %s", name);
return module;
}
mprSprintf(entryPoint, sizeof(entryPoint), "ma%sInit", name);
entryPoint[2] = toupper((int) entryPoint[2]);
if (libname == 0) {
path = mprStrcat(http, -1, "mod_", name, BLD_SHOBJ, NULL);
}
if ((module = mprLoadModule(http, (libname) ? libname: path, entryPoint)) == 0) {
return 0;
}
mprLog(http, MPR_CONFIG, "Activating module (Loadable) %s", name);
return module;
}
/*
This is called when unloading a view or controller module
All of ESP must be quiesced.
*/
static bool espUnloadModule(cchar *module, MprTicks timeout)
{
MprModule *mp;
MprTicks mark;
if ((mp = mprLookupModule(module)) != 0) {
mark = mprGetTicks();
esp->reloading = 1;
do {
lock(esp);
/* Own request will count as 1 */
if (esp->inUse <= 1) {
if (mprUnloadModule(mp) < 0) {
mprLog("error esp", 0, "Cannot unload module %s", mp->name);
unlock(esp);
}
esp->reloading = 0;
unlock(esp);
return 1;
}
unlock(esp);
mprSleep(10);
} while (mprGetRemainingTicks(mark, timeout) > 0);
esp->reloading = 0;
}
return 0;
}
/*
This is called when unloading a view or controller module
*/
bool espUnloadModule(cchar *module, MprTime timeout)
{
MprModule *mp;
MprTime mark;
Esp *esp;
/* MOB - should this suspend new requests */
if ((mp = mprLookupModule(module)) != 0) {
esp = MPR->espService;
mark = mprGetTime();
do {
lock(esp);
/* Own request will count as 1 */
if (esp->inUse <= 1) {
mprUnloadModule(mp);
unlock(esp);
return 1;
}
unlock(esp);
mprSleep(10);
/* Defaults to 10 secs */
} while (mprGetRemainingTime(mark, timeout) > 0);
}
return 0;
}
/*
Test if a module has been updated (is stale).
This will unload the module if it loaded but stale.
Set recompile to true if the source is absent or more recent.
Will return false if the source does not exist (important for testing layouts).
*/
PUBLIC bool espModuleIsStale(cchar *source, cchar *module, int *recompile)
{
MprModule *mp;
MprPath sinfo, minfo;
*recompile = 0;
mprGetPathInfo(module, &minfo);
if (!minfo.valid) {
if ((mp = mprLookupModule(source)) != 0) {
if (!espUnloadModule(source, ME_ESP_RELOAD_TIMEOUT)) {
mprLog("error esp", 0, "Cannot unload module %s. Connections still open. Continue using old version.",
source);
return 0;
}
}
*recompile = 1;
mprLog("info esp", 4, "Source %s is newer than module %s, recompiling ...", source, module);
return 1;
}
mprGetPathInfo(source, &sinfo);
if (sinfo.valid && sinfo.mtime > minfo.mtime) {
if ((mp = mprLookupModule(source)) != 0) {
if (!espUnloadModule(source, ME_ESP_RELOAD_TIMEOUT)) {
mprLog("warn esp", 4, "Cannot unload module %s. Connections still open. Continue using old version.",
source);
return 0;
}
}
*recompile = 1;
mprLog("info esp", 4, "Source %s is newer than module %s, recompiling ...", source, module);
return 1;
}
if ((mp = mprLookupModule(source)) != 0) {
if (minfo.mtime > mp->modified) {
/* Module file has been updated */
if (!espUnloadModule(source, ME_ESP_RELOAD_TIMEOUT)) {
mprLog("warn esp", 4, "Cannot unload module %s. Connections still open. Continue using old version.",
source);
return 0;
}
mprLog("info esp", 4, "Module %s has been externally updated, reloading ...", module);
return 1;
}
}
/* Loaded module is current */
return 0;
}
PUBLIC void *mprLookupModuleData(cchar *name)
{
MprModule *module;
if ((module = mprLookupModule(name)) == NULL) {
return NULL;
}
return module->moduleData;
}
/*
Test if a module has been updated (is stale).
This will unload the module if it is stale and loaded
*/
bool espModuleIsStale(cchar *source, cchar *module, int *recompile)
{
MprModule *mp;
MprPath sinfo, minfo;
*recompile = 0;
mprGetPathInfo(module, &minfo);
if (!minfo.valid) {
*recompile = 1;
if ((mp = mprLookupModule(source)) != 0) {
if (!espUnloadModule(source, 0)) {
mprError("Can't unload module %s. Connections still open. Continue using old version.", source);
return 0;
}
}
return 1;
}
mprGetPathInfo(source, &sinfo);
/*
Use >= to ensure we reload. This may cause redundant reloads as mtime has a 1 sec granularity.
*/
if (sinfo.valid && sinfo.mtime >= minfo.mtime) {
if ((mp = mprLookupModule(source)) != 0) {
if (!espUnloadModule(source, 0)) {
mprError("Can't unload module %s. Connections still open. Continue using old version.", source);
return 0;
}
}
*recompile = 1;
return 1;
}
if ((mp = mprLookupModule(source)) != 0) {
if (minfo.mtime > mp->modified) {
/* Module file has been updated */
if (!espUnloadModule(source, 0)) {
mprError("Can't unload module %s. Connections still open. Continue using old version.", source);
return 0;
}
return 1;
}
}
/* Loaded module is current */
return 0;
}
/*
Test if a module has been updated (is stale).
This will unload the module if it loaded but stale.
*/
PUBLIC bool espModuleIsStale(cchar *source, cchar *module, int *recompile)
{
MprModule *mp;
MprPath sinfo, minfo;
*recompile = 0;
mprGetPathInfo(module, &minfo);
if (!minfo.valid) {
*recompile = 1;
if ((mp = mprLookupModule(source)) != 0) {
if (!espUnloadModule(source, 0)) {
mprError("Cannot unload module %s. Connections still open. Continue using old version.", source);
return 0;
}
}
return 1;
}
mprGetPathInfo(source, &sinfo);
if (sinfo.valid && sinfo.mtime > minfo.mtime) {
if ((mp = mprLookupModule(source)) != 0) {
if (!espUnloadModule(source, 0)) {
mprError("Cannot unload module %s. Connections still open. Continue using old version.", source);
return 0;
}
}
*recompile = 1;
return 1;
}
if ((mp = mprLookupModule(source)) != 0) {
if (minfo.mtime > mp->modified) {
/* Module file has been updated */
if (!espUnloadModule(source, 0)) {
mprError("Cannot unload module %s. Connections still open. Continue using old version.", source);
return 0;
}
return 1;
}
}
/* Loaded module is current */
return 0;
}
int maUnloadModule(MaHttp *http, cchar *name)
{
MprModule *module;
MaStage *stage;
if ((module = mprLookupModule(http, name)) == 0) {
return MPR_ERR_CANT_ACCESS;
}
if (module->timeout) {
if ((stage = maLookupStage(http, name)) != 0) {
stage->flags |= MA_STAGE_UNLOADED;
}
mprUnloadModule(module);
}
return 0;
}
/*
WARNING: GC yield
*/
PUBLIC int espLoadModule(HttpRoute *route, MprDispatcher *dispatcher, cchar *kind, cchar *source, cchar **errMsg)
{
EspRoute *eroute;
MprModule *mp;
cchar *appName, *cache, *cacheName, *canonical, *entry, *module;
int isView, recompile;
eroute = route->eroute;
*errMsg = "";
#if VXWORKS
/*
Trim the drive for VxWorks where simulated host drives only exist on the target
*/
source = mprTrimPathDrive(source);
#endif
canonical = mprGetPortablePath(mprGetRelPath(source, route->home));
appName = eroute->appName;
if (eroute->combine) {
cacheName = appName;
} else {
cacheName = mprGetMD5WithPrefix(sfmt("%s:%s", appName, canonical), -1, sjoin(kind, "_", NULL));
}
if ((cache = httpGetDir(route, "CACHE")) == 0) {
cache = "cache";
}
module = mprJoinPathExt(mprJoinPaths(route->home, cache, cacheName, NULL), ME_SHOBJ);
lock(esp);
if (route->update) {
if (mprPathExists(source, R_OK)) {
isView = smatch(kind, "view");
if (espModuleIsStale(source, module, &recompile) || (isView && layoutIsStale(eroute, source, module))) {
if (recompile) {
mprHoldBlocks(source, module, cacheName, NULL);
if (!espCompile(route, dispatcher, source, module, cacheName, isView, (char**) errMsg)) {
mprReleaseBlocks(source, module, cacheName, NULL);
unlock(esp);
return MPR_ERR_CANT_WRITE;
}
mprReleaseBlocks(source, module, cacheName, NULL);
}
}
}
}
if (mprLookupModule(source) == 0) {
if (!mprPathExists(module, R_OK)) {
*errMsg = "Module does not exist";
unlock(esp);
return MPR_ERR_CANT_FIND;
}
entry = getModuleEntry(eroute, kind, source, cacheName);
if ((mp = mprCreateModule(source, module, entry, route)) == 0) {
*errMsg = "Memory allocation error loading module";
unlock(esp);
return MPR_ERR_MEMORY;
}
if (mprLoadModule(mp) < 0) {
*errMsg = "Cannot load compiled esp module";
unlock(esp);
return MPR_ERR_CANT_READ;
}
}
unlock(esp);
return 0;
}
