4) { if (file_exists("includes/$file.php")) { return $file; } else { $file = substr($file, strpos($file, ".") + 1); } } return "conf"; } function error_handler($errno, $message, $filename, $line, $variables) { $types = array(1 => "error", 2 => "warning", 4 => "parse error", 8 => "notice", 16 => "core error", 32 => "core warning", 64 => "compile error", 128 => "compile warning", 256 => "user error", 512 => "user warning", 1024 => "user notice"); $entry = $types[$errno] .": $message in $filename on line $line."; if (($errno == 1 || $errno == 2 || $errno == 4 || $errno == 256) && error_reporting()) { watchdog("error", $types[$errno] .": $message in $filename on line $line."); print "
$entry
"; } } function watchdog($type, $message, $link = NULL) { global $user; db_query("INSERT INTO watchdog (uid, type, message, link, location, hostname, timestamp) VALUES ('$user->uid', '%s', '%s', '%s', '%s', '%s', '%s')", $type, $message, $link, request_uri(), getenv("REMOTE_ADDR"), time()); } function throttle($type, $rate) { if (!user_access("access administration pages")) { if ($throttle = db_fetch_object(db_query("SELECT * FROM watchdog WHERE type = '$type' AND hostname = '". getenv("REMOTE_ADDR") ."' AND ". time() ." - timestamp < $rate"))) { watchdog("warning", "throttle: '". getenv("REMOTE_ADDR") ."' exceeded submission rate - $throttle->type"); die(message_throttle()); } else { watchdog($type, "throttle"); } } } function check_php_setting($name, $value) { if (ini_get($name) != $value) { print "

Note that the value of PHP's configuration option $name is incorrect. It should be set to '$value' for Drupal to work properly. Either configure your webserver to support .htaccess files so Drupal's .htaccess file can set it to the proper value, or edit your php.ini file directly. This message will automatically dissapear when the problem has been fixed.

"; } } function arg($index) { global $q; static $arguments; if (empty($arguments)) { $arguments = explode("/", $q); } return $arguments[$index]; } function array2object($node) { if (is_array($node)) { foreach ($node as $key => $value) { $object->$key = $value; } } else { $object = $node; } return $object; } function object2array($node) { if (is_object($node)) { foreach ($node as $key => $value) { $array[$key] = $value; } } else { $array = $node; } return $array; } function path_uri($brief = 0) { global $HTTP_HOST, $PHP_SELF; $uri = $PHP_SELF; $path = $HTTP_HOST . substr($uri, 0, strrpos($uri, "/")) ."/"; if (!$brief) { $path = "http://". $path; } return $path; } function request_uri() { // since request_uri() is only available on apache, we generate equivalent using other environment vars. global $REQUEST_URI, $PATH_INFO, $QUERY_STRING; if (isset($REQUEST_URI)) { return $REQUEST_URI; } else { return $PATH_INFO ."?". $QUERY_STRING; } } function message_access() { return t("You are not authorized to access this page."); } function message_na() { return t("n/a"); } function message_throttle() { return t("You exceeded the maximum submission rate. Please wait a few minutes and try again."); } function locale_init() { global $languages, $user; return ($languages ? (($user->uid && $user->language) ? $user->language : key($languages)) : 0); } function t($string, $args = 0) { global $languages; /* ** About the usage of t(). We try to keep strings whole as much as ** possible and are unafraid of HTML markup within translation strings ** if necessary. The suggested syntax for a link embedded within a ** translation string is for example: ** ** $msg = t("You must login below or create a new ** account before viewing the next page.", array("%url" ** => url("user/register"))); */ $string = ($languages && function_exists("locale") ? locale($string) : $string); if (!$args) { return $string; } else { return strtr($string, $args); } } function variable_init($conf = array()) { $result = db_query("SELECT * FROM variable"); while ($variable = db_fetch_object($result)) { if (!isset($conf[$variable->name])) { $conf[$variable->name] = unserialize($variable->value); } } return $conf; } function variable_get($name, $default, $object = 0) { global $conf; return isset($conf[$name]) ? $conf[$name] : $default; } function variable_set($name, $value) { global $conf; db_query("DELETE FROM variable WHERE name = '%s'", $name); db_query("INSERT INTO variable (name, value) VALUES ('%s', '%s')", $name, serialize($value)); $conf[$name] = $value; } function variable_del($name) { global $conf; db_query("DELETE FROM variable WHERE name = '%s'", $name); unset($conf[$name]); } function table_cell($cell, $header = 0) { if (is_array($cell)) { $data = $cell["data"]; foreach ($cell as $key => $value) { if ($key != "data") { $attributes .= " $key=\"$value\""; } } } else { $data = $cell; } if (isset($header)) { $output = "$data"; } else { $output = "$data"; } return $output; } function table($header, $rows) { $output .= "\n"; /* ** Emit the table header: */ if (is_array($header)) { $output .= " "; foreach ($header as $cell) { $output .= table_cell($cell, 1); } $output .= " \n"; } /* ** Emit the table rows: */ if (is_array($rows)) { foreach ($rows as $number => $row) { if ($number % 2 == 1) { $output .= " "; } else { $output .= " "; } foreach ($row as $cell) { $output .= table_cell($cell, 0); } $output .= " \n"; } } $output .= "
\n"; return $output; } /** * Format a single result entry of a search query: * * @param $item a single search result as returned by _search of type * array("count" => ..., "link" => ..., "title" => ..., * "user" => ..., "date" => ..., "keywords" => ...) * @param $type module type of this item */ function search_item($item, $type) { /* ** Modules may implement the "search_item" hook in order to overwrite ** the default function to display search results. */ if (module_hook($type, "search_item")) { $output = module_invoke($type, "search_item", $item); } else { $output .= " ". $item["count"] ."  ". $item["title"] ."
"; $output .= " $type ". ($item["user"] ? " - ". $item["user"] : "") ."". ($item["date"] ? " - ". format_date($item["date"], "small") : "") .""; $output .= "

"; } return $output; } /** * Render a generic search form. * * "Generic" means "universal usable" - that is, usable not only from * 'site.com/search', but also as a simple seach box (without * "Restrict search to", help text, etc) from theme's header etc. * This means: provide options to only conditionally render certain * parts of this form. * * @param $action Form action. Defaults to 'site.com/search'. * @param $query Query string. Defaults to global $keys. * @param $options != 0: Render additional form fields/text * ("Restrict search to", help text, etc). */ function search_form($action = 0, $query = 0, $options = 0) { global $keys; if (!$action) { $action = url("search"); } if (!$query) { $query = $keys; } $output .= "
"; $output .= " \n"; if ($options != 0) { $output .= "
"; $output .= t("Restrict search to") .": "; foreach (module_list() as $name) { if (module_hook($name, "search")) { $output .= " ". t($name); } } } $form .= "
"; return form($output, "post", $action); } /* * Collect the search results: */ function search_data() { global $keys, $edit; $keys = check_input($keys); if (isset($keys)) { foreach (module_list() as $name) { if (module_hook($name, "search") && (!$edit["type"] || $edit["type"][$name]) && ($result = module_invoke($name, "search", check_query($keys)))) { if ($name == "node" || $name == "comment") { $output .= "

". t("Matching ". $name ."s ranked in order of relevance") .":

"; } else { $output .= "

". t("Matching ". $name ."s") .":

"; } foreach ($result as $entry) { $output .= search_item($entry, $name); } } } if (!$output) { $output .= t("Your search yielded no results."); } } return $output; } /** * Display the search form and the resulting data. * * @param $type If set, search only nodes of this type. * Otherwise, search all types. * @param $action Form action. Defaults to 'site.com/search'. * @param $query Query string. Defaults to global $keys. * @param $options != 0: Render additional form fields/text * ("Restrict search to", help text, etc). */ function search_type($type = 0, $action = 0, $query = 0, $options = 0) { global $edit; if (isset($type)) { $edit["type"][$type] = "on"; } return search_form($action, $query, $options) . search_data(); } function drupal_goto($url) { /* ** Translate & to simply & */ $url = str_replace ("&", "&", $url); /* ** It is advised to use "drupal_goto()" instead of PHP's "header()" as ** "drupal_goto()" will append the user's session ID to the URI when PHP ** is compiled with "--enable-trans-sid". */ if (!ini_get("session.use_trans_sid") || !session_id() || strstr($url, $sid)) { header("Location: $url"); } else { $sid = session_name() . "=" . session_id(); if (strstr($url, "?") && !strstr($url, $sid)) { header("Location: $url&". $sid); } else { header("Location: $url?". $sid); } } /* ** The "Location" header sends a REDIRECT status code to the http ** deamon. In some cases this can go wrong, so we make sure none ** of the code /below/ gets executed when we redirect. */ exit(); } /* ** Stores the referer in a persistent variable: */ function referer_save() { global $referer, $HTTP_REFERER; if (!strstr($HTTP_REFERER, request_uri())) { $referer = $HTTP_REFERER; session_register("referer"); } } /* ** Restores the referer from a persistent variable: */ function referer_load() { global $referer; if (session_is_registered("referer")) { return $referer; } else { return 0; } } function check_form($text) { return htmlspecialchars(stripslashes($text)); } function check_query($text) { return addslashes(stripslashes($text)); } function check_input($text) { return addslashes(stripslashes($text)); } function filter($text) { foreach (module_list() as $name) { if (module_hook($name, "filter")) { $text = module_invoke($name, "filter", $text); } } return $text; } function check_output($text) { if (isset($text)) { $text = stripslashes($text); if (strip_tags($text, "") == $text) { $text = nl2br($text); } } else { $text = message_na(); } return $text; } function check_file($filename) { if (is_uploaded_file($filename)) { return 1; } else { return 0; } } function format_rss_channel($title, $link, $description, $items, $language = "en", $args = array()) { // arbitrary elements may be added using the $args associative array $output .= "\n"; $output .= " ". htmlentities(strip_tags($title)) ."\n"; $output .= " ". htmlentities(strip_tags($link)) ."\n"; $output .= " ". htmlentities($description) ."\n"; $output .= " ". htmlentities(strip_tags($language)) ."\n"; foreach ($args as $key => $value) { $output .= "<$key>". htmlentities(strip_tags($value)) .""; } $output .= $items; $output .= "\n"; return $output; } function format_rss_item($title, $link, $description, $args = array()) { // arbitrary elements may be added using the $args associative array $output .= "\n"; $output .= " ". htmlentities(strip_tags($title)) ."\n"; $output .= " ". htmlentities(strip_tags($link)) ."\n"; $output .= " ". htmlentities(check_output($description)) ."\n"; foreach ($args as $key => $value) { $output .= "<$key>". htmlentities(strip_tags($value)) .""; } $output .= "\n"; return $output; } function format_plural($count, $singular, $plural) { return ($count == 1) ? "$count ". t($singular) : "$count ". t($plural); } function format_size($size) { $suffix = t("bytes"); if ($size > 1024) { $size = round($size / 1024, 2); $suffix = t("KB"); } if ($size > 1024) { $size = round($size / 1024, 2); $suffix = t("MB"); } return t("%size %suffix", array("%size" => $size, "%suffix" => $suffix)); } function cache_get($key) { $cache = db_fetch_object(db_query("SELECT data, created FROM cache WHERE cid = '%s'", $key)); $created = $cache->created; return $cache->data ? $cache : 0; } function cache_set($cid, $data, $expire = 0) { if (db_fetch_object(db_query("SELECT cid FROM cache WHERE cid = '%s'", $cid))) { db_query("UPDATE cache SET data = '%s', created = %d, expire = %d WHERE cid = '%s'", $data, time(), $expire, $cid); } else { db_query("INSERT INTO cache (cid, data, created, expire) VALUES('%s', '%s', %d, %d)", $cid, $data, time(), $expire); } } function cache_clear_all($cid = NULL) { if (empty($cid)) { db_query("DELETE FROM cache WHERE expire <> 0"); } else { db_query("DELETE FROM cache WHERE cid = '%s'", $cid); } } function cache_clear_old($cid = NULL) { if (empty($cid)) { db_query("DELETE FROM cache WHERE expire < ". time() ." AND expire > 0"); } else { db_query("DELETE FROM cache WHERE cid = '%s' AND expire < %s AND expire > 0", $cid, time()); } } function page_set_cache() { global $user, $REQUEST_METHOD; if (!$user->uid && $REQUEST_METHOD == "GET") { if ($data = ob_get_contents()) { cache_set(request_uri(), $data, (time() + variable_get("cache_clear", 120))); } } } function page_get_cache() { global $user, $REQUEST_METHOD; if (!$user->uid && $REQUEST_METHOD == "GET") { if ($cache = cache_get(request_uri())) { cache_clear_old(); } else { ob_start(); } } return $cache; } function format_interval($timestamp) { $units = array("year|years" => 31536000, "week|weeks" => 604800, "day|days" => 86400, "hour|hours" => 3600, "min|min" => 60, "sec|sec" => 1); foreach ($units as $key=>$value) { $key = explode("|", $key); if ($timestamp >= $value) { $output .= ($output ? " " : "") . format_plural(floor($timestamp / $value), $key[0], $key[1]); $timestamp %= $value; } } return ($output) ? $output : t("0 sec"); } function format_date($timestamp, $type = "medium", $format = "") { global $user; $timestamp += ($user->timezone) ? $user->timezone - date("Z") : 0; switch ($type) { case "small": $date = date(variable_get("date_format", "m/d/Y - H:i"), $timestamp); break; case "medium": $date = t(date("l", $timestamp)) .", ". date(variable_get("date_format", "m/d/Y - H:i"), $timestamp); break; case "large": $date = t(date("l", $timestamp)) .", ". t(date("F", $timestamp)) ." ". date("d, Y - H:i", $timestamp); break; case "custom": for ($i = strlen($format); $i >= 0; $c = $format[--$i]) { if (strstr("DFlMSw", $c)) { $date = t(date($c, $timestamp)) . $date; } else if (strstr("AaBdgGhHiIjLmnrstTUWYyZz", $c)) { $date = date($c, $timestamp) . $date; } else { $date = $c.$date; } } break; default: $date = t(date("l", $timestamp)) .", ". date(variable_get("date_format", "m/d/Y - H:i"), $timestamp); } return $date; } function format_name($object) { global $PHP_SELF; if ($object->uid && $object->name) { if (strstr($PHP_SELF, "admin")) { $output = l($object->name, "admin/user/edit/$object->uid", array("title" => t("Administer user profile."))); } else { $output = l($object->name, "user/view/$object->uid", array("title" => t("View user profile."))); } } else { $output = t(variable_get(anonymous, "Anonymous")); } return $output; } function form($form, $method = "post", $action = 0, $options = 0) { return "
\n$form
\n"; } function form_item($title, $value, $description = 0) { return "

". ($title ? "$title:
" : "") . $value . ($description ? "
$description" : "") ."

\n"; } function form_checkbox($title, $name, $value = 1, $checked = 0, $description = 0) { return form_item(0, " $title", $description); } function form_textfield($title, $name, $value, $size, $maxlength, $description = 0) { return form_item($title, "", $description); } function form_password($title, $name, $value, $size, $maxlength, $description = 0) { return form_item($title, "", $description); } function form_textarea($title, $name, $value, $cols, $rows, $description = 0) { return form_item($title, "", $description); } function form_select($title, $name, $value, $options, $description = 0, $extra = 0, $multiple = 0) { if (count($options) > 0) { foreach ($options as $key=>$choice) { $select .= ""; } return form_item($title, "", $description); } } function form_file($title, $name, $size, $description = 0) { return form_item($title, "\n", $description); } function form_hidden($name, $value) { return "\n"; } function form_submit($value) { return "\n"; } function form_weight($title = NULL, $name = "weight", $value = 0, $delta = 10, $description = 0, $extra = 0) { for ($n = (-1*$delta); $n <= $delta; $n++) { $weights[$n] = $n; } return form_select($title, $name, $value, $weights, $description, $extra); } function url($url = NULL, $query = NULL) { if (isset($url)) { if (isset($query)) { return "?q=$url&$query"; } else { return "?q=$url"; } } else { if (isset($query)) { return "?$query"; } else { return ""; } } } function l($text, $url, $attributes = array(), $query = NULL) { $t = array(); foreach ($attributes as $key => $value) { $t[] = "$key=\"$value\""; } return "
$text"; } function field_get($string, $name) { ereg(",$name=([^,]+)", ",$string", $regs); return $regs[1]; } function field_set($string, $name, $value) { $rval = ereg_replace(",$name=[^,]+", "", ",$string"); if (isset($value)) { $rval .= ($rval == "," ? "" : ",") ."$name=$value"; } return substr($rval, 1); } function link_page() { global $custom_links; if (is_array($custom_links)) { return $custom_links; } else { $links[] = "". t("home") .""; foreach (module_list() as $name) { if (module_hook($name, "link")) { $links = array_merge($links, module_invoke($name, "link", "page")); } } return $links; } } function link_node($node, $main = 0) { $links = array(); foreach (module_list() as $name) { if (module_hook($name, "link")) { $links = array_merge($links, module_invoke($name, "link", "node", $node, $main)); } } return $links; } function timer_start() { global $timer; list($usec, $sec) = explode(" ", microtime()); $timer = (float)$usec + (float)$sec; } function timer_print() { global $timer; list($usec, $sec) = explode(" ", microtime()); $stop = (float)$usec + (float)$sec; $diff = $stop - $timer; print "
execution time: $diff sec
"; } function query_print() { global $queries; print "
";
  print_r($queries);
  print "
"; } function page_header() { if (variable_get("dev_timer", 0)) { timer_start(); } if (variable_get("cache", 0)) { if ($cache = page_get_cache()) { $date = gmdate("D, d M Y H:i:s", $cache->created) ." GMT"; header("Last-Modified: $date"); header("ETag: \"$date\""); if ($headers = getallheaders()) { // NOTE: the above is an Apache-ism so for the time being we don't send 304 headers to IIS servers. if ($headers["If-Modified-Since"] == $date && $headers["If-None-Match"] == "\"$date\"") { header("HTTP/1.0 304 Not Modified"); exit(); } } print $cache->data; exit(); } } } function page_footer() { if (variable_get("dev_timer", 0)) { timer_print(); } if (variable_get("dev_query", 0)) { query_print(); } if (variable_get("cache", 0)) { page_set_cache(); } } unset($conf); $config = conf_init(); include_once "includes/$config.php"; include_once "includes/database.inc"; include_once "includes/xmlrpc.inc"; include_once "includes/module.inc"; include_once "includes/theme.inc"; include_once "includes/pager.inc"; include_once "includes/menu.inc"; // initialize configuration variables, using values from conf.php if available: $conf = variable_init(isset($conf) ? $conf : array()); // initialize installed modules: module_init(); // initialize localization system: $locale = locale_init(); // initialize theme: $theme = theme_init(); // set error handler: set_error_handler("error_handler"); ?>