name; echo "
Log in as someone else.\n"; } else { echo "Not logged in"; } } // output a select form item with the given name, // from a list of newline-delineated items from the text file. // If $selection is provided, and if it matches one of the entries in the file, // it will be selected by default. // function show_combo_box($name, $filename, $selection=null) { if (!file_exists($filename)) { echo "ERROR: $filename does not exist! Cannot create combo box.
"; exit(); } echo "\n"; fclose($file); } // write to the given fd if non-null; else echo // function write_fd($fd, $str) { if ($fd) { fwrite($fd, $str); } else { echo $str; } } function page_head($title, $fd=null) { $styleSheet = URL_BASE . STYLESHEET; write_fd($fd, "".strip_tags($title)." " ); project_banner($title, $fd); } function page_tail($is_main=false, $fd=null) { write_fd($fd, "

"); if (!$is_main) { write_fd($fd, "Return to ".PROJECT." main page
\n"); } // put your copyright notice etc. here write_fd($fd, "

Copyright © 2004 ".COPYRIGHT_HOLDER."
\n\n"); } function db_error_page() { page_head("Database error"); echo "A database error occurred while handling your request.
Please try again later.
If the error persists, please submit a problem report. "; page_tail(); } function profile_error_page($str) { page_head("Profile error"); echo "$str
\n"; echo "

Click your browser's Back button to try again.\n

\n"; page_tail(); } function date_str($x) { if ($x == 0) return "---"; // return date("g:i A, l M j", $when); return strftime("%Y-%m-%d", $x); } function time_str($x) { if ($x == 0) return "---"; //return strftime("%j %m-%d %H:%M:%S", $x)"; return gmdate('j M Y G:i:s', $x) . " UTC"; } function pretty_time_str($x) { return time_str($x); } function start_table($extra="width=100%") { echo ""; } function start_table_noborder($width="100%") { echo "
"; } function end_table() { echo "
\n"; } function row1($x, $ncols=2) { echo "$x\n"; } function row2($x, $y) { if ($x=="") $x="
"; if ($y=="") $y="
"; echo "$x$y\n"; } function row2_init($x, $y) { echo "$x$y\n"; } function row2_plain($x, $y) { echo "$x$y\n"; } function row3($x, $y, $z) { echo "$x$y$z\n"; } function rowify($string) { echo "$string"; } function random_string() { return md5(uniqid(rand(), true)); } function print_login_form_aux($next_url, $user) { echo "

"; start_table(); row1("Log in"); row2("Your account ID:
If you don't know your account ID, click here. ", "" ); row2("Remember account ID on this computer", "" ); row2("", "" ); if ($user) { row1("Log out"); row2("You are logged in as $user->name", "Log out" ); } end_table(); echo " "; } function print_login_form() { page_head("Please log in"); echo " This function requires that you log in. "; $next_url = $_SERVER['REQUEST_URI']; print_login_form_aux($next_url, null); page_tail(); } // 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; $x = strstr($xml, $tag); if ($x) { if (strstr($tag, "/>")) return $tag; $y = substr($x, strlen($tag)); $n = strpos($y, "<"); if ($n) { $element = substr($y, 0, $n); } } return $element; } 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; } } // look for a particular element in the ../../config.xml file // function parse_config($tag) { $element = null; $buf = file_get_contents("../../config.xml"); $element = parse_element($buf, $tag); return trim($element); } // Call this if for dynamic pages // function no_cache() { header ("Expires: Mon, 26 Jul 1997 05:00:00 GMT"); // Date in the past header ("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT"); // always modified header ("Cache-Control: no-cache, must-revalidate"); // HTTP/1.1 header ("Pragma: no-cache"); // HTTP/1.0 } // a valid email address is of the form A@B.C // where A, B, C are nonempty, // A and B don't contain @ or ., // and C doesn't contain @ // function is_valid_email_addr($addr) { $x = strstr($addr, "@"); if (!$x) return false; if (strlen($x) == strlen($addr)) return false; $x = substr($x, 1); if (strstr($x, "@")) return false; $y = strstr($x, "."); if (!$y) return false; if (strlen($y) == strlen($x)) return false; if (strlen($y) == 1) return false; return true; } // A few functions relating to email-address munging // A "munged" email address is of the form @X_Y, // where X is a valid email address // and Y is a random string not containing _. // When an email address hasn't been validated yet, it's munged. // (Used during account creation and email address changes) function munge_email_addr($email, $string) { return "@".$email."_".$string; } // if email_addr is of the form @X_Y, split out the X and return true. // otherwise return false // function split_munged_email_addr($addr, $string, &$email) { if (substr($addr, 0, 1) != "@") return false; $x = strrchr($addr, "_"); if (!$x) return false; $y = substr($x, 1); if ($y != $string) return false; $email = substr($addr, 1, strlen($addr)-strlen($x)-1); return true; } // Generates a standard set of links between associated multi-page documents. // All linked files must be of the form "$filename_.html". function write_page_links($filename, $currPageNum, $numPages, $descriptor) { fwrite($descriptor, "

Page $currPageNum of $numPages

"); $nextPageNum = $currPageNum + 1; $prevPageNum = $currPageNum - 1; // Make the 'previous' and 'next' page links as appropriate. if ($currPageNum > 1) { fwrite($descriptor, "Previous Page"); if ($currPageNum != $numPages) { fwrite($descriptor, " | "); } } if ($currPageNum != $numPages) { fwrite($descriptor, "Next Page"); } fwrite($descriptor, "

Jump to Page:\n"); // Make the individual page links (or a bold non-link for the current page). // for ($i = 1; $i <= $numPages; $i++) { if ($i != $currPageNum) { fwrite($descriptor, "$i\n"); } else { fwrite($descriptor, "$i\n"); } } } // Generates a legal filename from a parameter string. function get_legal_filename($name) { $name = ereg_replace(',', '', $name); return ereg_replace(' ', '_', $name); } // Returns a string containing as many words // (being collections of characters separated by the character $delimiter) // as possible such that the total string length is <= $chars characters long. // If $ellipsis is true, then an ellipsis is added to any sentence which // is cut short. function sub_sentence($sentence, $delimiter, $max_chars, $ellipsis=false) { $words = explode($delimiter, $sentence); $total_chars = 0; $count = 0; $result = ''; do { if ($count > 0) { $result = $result . ' ' . $words[$count]; } else { $result = $result . $words[$count]; } $total_chars += strlen($words[$count]) + 1; $count++; } while ($count < count($words) && ($total_chars + strlen($words[$count])) <= $max_chars); if ($ellipsis && ($count < count($words))) { $result = $result . '...'; } return $result; } function format_credit($cobblestones) { return sprintf("%.2f", $cobblestones); } function project_is_stopped() { return file_exists("../../stop_servers"); } function user_links($user) { $x = "id>$user->name"; if ($user->has_profile) { $x .= " id>"; } return $x; } function host_link($hostid) { if ($hostid) { return "$hostid"; } else { return "---"; } } ?>