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, $user=null, $fd=null) { write_fd($fd, "\n$title\n\n"); project_banner($user, $fd); } function page_tail($fd=null) { write_fd($fd, "
Return to ".PROJECT." main page
\n"); // put your copyright notice etc. here write_fd($fd, "

Copyright (c) 2003 ".PROJECT."
\n\n"); } function db_error_page() { page_head("Database error"); echo "

Database error

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("%T %b %e, %Y", $x); return strftime("%Y-%m-%d %H:%M:%S", $x); } function start_table() { echo ""; } function start_table_noborder($width=640) { 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())); } // TODO: we should write this funciton in php --quarl function print_country_select($country="None") { $x = posix_getcwd(); PassThru("LD_LIBRARY_PATH=/usr/local/gcc/lib $x/country_select '$country'"); } function print_login_form_aux($next_url, $user, $pathMod='') { echo "

"; start_table(); row1("Log in"); row2("Your account key:
If you don't know your account key, click here. ", "" ); row2("", "" ); if ($user) { row1("Log out"); row2("You are logged in as $user->name", "Log out" ); } end_table(); } function print_login_form($pathMod="") { page_head("Please log in"); echo "

Please log in

This function requires that you log in. "; $next_url = $_SERVER['REQUEST_URI']; print_login_form_aux($next_url, null, $pathMod); 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; } // look for a particular element in the ../config.xml file // function parse_config($tag) { $element = null; $fp = fopen("../config.xml", "r"); while (1) { $buf = fgets($fp, 1024); if ($buf == null) break; $element = parse_element($buf, $tag); if ($element) break; } fclose($fp); return $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 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. // When an email address hasn't been validated yet, it's munged. // (Used during account creation and email address changes) // 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; } 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, "

\n\n\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, "\n"); } else { fwrite($descriptor, "\n"); } } fwrite($descriptor, "
Jump to Page:$i$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; } ?>