Roxen.git/
server/
base_server/
configuration.pike
Branch:
Tag:
Non-build tags
All tags
No tags
1998-09-11
1998-09-11 22:14:33 by Per Hedbor <ph@opera.com>
9bb8137d7267d22eaf413776e3169810089dbab0 (
84
lines) (+
8
/-
76
)
[
Show
|
Annotate
]
Branch:
5.2
Removed some old compatibility code
Rev: server/base_server/configuration.pike:1.153
1:
-
string cvs_version = "$Id: configuration.pike,v 1.
152
1998/09/
02
19
:
32
:
18
js
Exp $";
+
string cvs_version = "$Id: configuration.pike,v 1.
153
1998/09/
11
22
:
14
:
33
per
Exp $";
#include <module.h> #include <roxen.h>
382:
array error; array a=({ }); mixed m;
-
foreach(prov, object mod) {
+
foreach(prov, object mod)
+
{
if(!objectp(mod)) continue; if(functionp(mod[fun])) error = catch(m=mod[fun](@args)); if(arrayp(error))
-
werror
(describe_backtrace(
error +
({ "Error in map_providers:"})));
+
roxen_perror
(describe_backtrace(
error+
({ "Error in map_providers:"})));
else
-
a+
=({ m });
+
a +
=
({ m });
error = 0; }
-
return
m
;
+
return
a
;
} // map the function "fun" over all matching provider modules and
600:
}
-
// Some logging stuff, should probably move to either the actual
-
// configuration object, or into a module. That would be much more
-
// beautiful, really.
+
void init_log_file() { remove_call_out(init_log_file);
1779:
mode -= "R"; if(f = real_file(fname, id)) {
-
werror("opening "+fname+" in raw mode.\n");
+
//
werror("opening "+fname+" in raw mode.\n");
return ({ open(f, mode), ([]) }); } // return ({ 0, (["error":302]) });
2657:
#define perr(X) do { report += X; perror(X); } while(0)
-
private void update_vars(int from)
-
{
-
string report = "";
-
int i;
-
string modname;
-
mapping redir;
-
mapping enabled_modules = retrieve("EnabledModules");
-
array p, res=({});
-
-
perr("Updating configuration file....\n");
-
perr("----------------------------------------------------\n");
-
switch(from)
-
{
-
case 0:
-
-
// Pre Spinnerb11p11
-
// No longer supported!
-
case 1:
-
case 2:
-
perr("The 'No directory lists' variable is yet again available.\n");
-
case 3:
-
// The htaccess support moved to a module.
-
if(query(".htaccess"))
-
{
-
perr("The 'HTACCESS' support has been moved to a module.\n");
-
enable_module("htaccess#0");
-
}
-
case 4:
-
case 5:
-
-
while(sizeof(redir = retrieve(modname = "lpcscript#"+i)))
-
{
-
remove( modname, this );
-
if(search(redir->exts, "pike") == -1)
-
redir->exts += ({"pike"});
-
if(enabled_modules[modname] )
-
m_delete( enabled_modules, modname );
-
store("pikescript#"+i, redir, 1);
-
enable_module("pikescript#"+i);
-
perr("Renaming "+modname+" to pikescript#"+i+"\n");
-
i++;
-
}
-
store( "EnabledModules", enabled_modules, 1 );
-
-
case 6:// Current level.
-
}
-
-
perr("----------------------------------------------------\n");
-
report_debug(report);
-
}
-
-
-
-
+
// Used to hide some variables when logging is not enabled. int log_is_not_enabled()
3431:
"(usually /etc/shells). Used for named ftp.\n" "Specify the empty string to disable shell database lookup.\n");
-
defvar("_v", CONFIGURATION_FILE_LEVEL, 0, TYPE_INT, 0, 0, 1);
+
setvars(retrieve("spider#0", this));
-
-
if((sizeof(retrieve("spider#0", this)) &&
-
(!retrieve("spider#0",this)->_v)
-
|| (query("_v") < CONFIGURATION_FILE_LEVEL)))
-
{
-
update_vars(retrieve("spider#0",this)->_v?query("_v"):0);
-
killvar("PEther"); // From Spinner 1.0b11
-
variables->_v[VAR_VALUE] = CONFIGURATION_FILE_LEVEL;
-
store("spider#0", variables, 0);
+
}
-
set("_v", CONFIGURATION_FILE_LEVEL);
-
}
+
-
+