2008-06-05 22:35:03 +00:00
|
|
|
<?php
|
|
|
|
|
|
|
|
// minimal set of util functions;
|
|
|
|
// doesn't pull in translation.inc etc.
|
|
|
|
|
|
|
|
function web_stopped() {
|
|
|
|
return file_exists("../../stop_web");
|
|
|
|
}
|
|
|
|
|
|
|
|
function sched_stopped() {
|
|
|
|
return file_exists("../../stop_sched");
|
|
|
|
}
|
|
|
|
|
|
|
|
function show_page($x, $y) {
|
|
|
|
echo "
|
|
|
|
<title>$x</title>
|
|
|
|
<h1>$x</h1>
|
|
|
|
$y
|
|
|
|
";
|
|
|
|
}
|
|
|
|
|
|
|
|
function xml_error($num, $msg=null) {
|
|
|
|
if (!$msg) {
|
|
|
|
switch($num) {
|
|
|
|
case -112: $msg = "Invalid XML"; break;
|
|
|
|
case -136: $msg = "Invalid ID"; break;
|
|
|
|
case -137: $msg = "Name or email address is not unique"; break;
|
|
|
|
case -138: $msg = "Can't access database"; break;
|
|
|
|
case -183: $msg = "Project is temporarily offline"; break;
|
|
|
|
case -205: $msg = "Email address has invalid syntax"; break;
|
|
|
|
case -206: $msg = "Invalid password"; break;
|
|
|
|
case -207: $msg = "Email address is not unique"; break;
|
|
|
|
case -208: $msg = "Account creation is disabled"; break;
|
|
|
|
case -209: $msg = "Invalid invitation code"; break;
|
|
|
|
case -210: $msg = "Invalid request method"; break;
|
|
|
|
default: "Unknown error"; break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
echo "<error>
|
|
|
|
<error_num>$num</error_num>
|
|
|
|
<error_msg>$msg</error_msg>
|
|
|
|
</error>
|
|
|
|
";
|
|
|
|
exit();
|
|
|
|
}
|
|
|
|
|
|
|
|
if (!function_exists("file_get_contents")) {
|
|
|
|
function file_get_contents($path) {
|
|
|
|
$x = "";
|
|
|
|
$f = fopen($path, "r");
|
|
|
|
if ($f) {
|
|
|
|
while (!feof($f)) $x .= fread($f, 4096);
|
|
|
|
fclose($f);
|
|
|
|
}
|
|
|
|
return $x;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
$g_config = null;
|
|
|
|
function get_config() {
|
|
|
|
global $g_config;
|
|
|
|
if ($g_config == null) {
|
|
|
|
$g_config = file_get_contents("../../config.xml");
|
|
|
|
}
|
|
|
|
return $g_config;
|
|
|
|
}
|
|
|
|
|
|
|
|
// Look for an element in a line of XML text
|
|
|
|
// If it's a single-tag element, and it's present, just return the tag
|
|
|
|
//
|
|
|
|
function parse_element($xml, $tag) {
|
|
|
|
$element = null;
|
|
|
|
$closetag = "</" . substr($tag,1);
|
|
|
|
$x = strstr($xml, $tag);
|
|
|
|
if ($x) {
|
|
|
|
if (strstr($tag, "/>")) return $tag;
|
|
|
|
$y = substr($x, strlen($tag));
|
|
|
|
$n = strpos($y, $closetag);
|
|
|
|
if ($n) {
|
|
|
|
$element = substr($y, 0, $n);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return trim($element);
|
|
|
|
}
|
|
|
|
|
|
|
|
function parse_next_element($xml, $tag, &$cursor) {
|
|
|
|
$element = null;
|
|
|
|
$closetag = "</" . substr($tag,1);
|
|
|
|
$pos = substr($xml,$cursor);
|
|
|
|
$x = strstr($pos, $tag);
|
|
|
|
if ($x) {
|
|
|
|
if (strstr($tag, "/>")) return $tag;
|
|
|
|
$y = substr($x, strlen($tag));
|
|
|
|
$n = strpos($y, $closetag);
|
|
|
|
if ($n) {
|
|
|
|
$element = substr($y, 0, $n);
|
|
|
|
}
|
|
|
|
$cursor = (strlen($xml) - strlen($x)) + strlen($tag) + strlen($closetag) + strlen($element);
|
|
|
|
}
|
|
|
|
return trim($element);
|
|
|
|
}
|
|
|
|
|
|
|
|
// return true if XML contains either <tag/> or <tag>1</tag>
|
|
|
|
//
|
|
|
|
function parse_bool($xml, $tag) {
|
|
|
|
$x = "<$tag/>";
|
|
|
|
if (strstr($xml, $x)) return true;
|
|
|
|
$x = "<$tag>";
|
|
|
|
$y = (int)parse_element($xml, $x);
|
|
|
|
if ($y != 0) return true;
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
|
|
|
// look for a particular element in the ../../config.xml file
|
|
|
|
//
|
|
|
|
function parse_config($config, $tag) {
|
|
|
|
$element = parse_element($config, $tag);
|
|
|
|
return $element;
|
|
|
|
}
|
|
|
|
|
2008-07-15 21:43:45 +00:00
|
|
|
function drand() {
|
|
|
|
return ((double)rand())/getrandmax();
|
|
|
|
}
|
|
|
|
|
2008-06-05 22:35:03 +00:00
|
|
|
?>
|