Commit 1b2ecd6f authored by Robert Ricci's avatar Robert Ricci
Browse files

Add sitevars marked with the new include_ns column to the NS

'preamble'.
parent e25f7049
...@@ -566,6 +566,28 @@ sub GenDefsFile($) ...@@ -566,6 +566,28 @@ sub GenDefsFile($)
} }
print TCL "\n"; print TCL "\n";
print TCL "# Site variables\n";
$query_result = DBQueryFatal("select name,value,defaultvalue " .
" from sitevariables where ns_include=TRUE");
while (my ($name,$value,$defaultvalue) = $query_result->fetchrow_array()) {
# Use the default value if unset, or skip altogether if the default
# is just the empty string.
if (!defined($value)) {
if ($defaultvalue eq "") {
next;
} else {
$value = $defaultvalue;
}
}
# Escape special characters in the value (just braces)
$value =~ s/([{}])/\\$1/g;
# Note: braces in tcl act like single quotes in other scripting
# languages (eg. no interpolation occurs)
print TCL "set sitevariables($name) {$value}\n";
}
print TCL "\n";
if (defined($pid)) { if (defined($pid)) {
print TCL "# OSIDs\n"; print TCL "# OSIDs\n";
$query_result = $query_result =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment