+ function session_regenerate_id() {
+ global $base_uri;
+ $tv = gettimeofday();
+ sqgetGlobalVar('REMOTE_ADDR',$remote_addr,SQ_SERVER);
+ $buf = sprintf("%.15s%ld%ld%0.8f", $remote_addr, $tv['sec'], $tv['usec'], php_combined_lcg() * 10);
+ session_id(md5($buf));
+ if (ini_get('session.use_cookies')) {
+ // at a later stage we use sqsetcookie. At this point just do
+ // what session_regenerate_id would do
+ setcookie(session_name(), session_id(), NULL, $base_uri);
+ }
+ return TRUE;
+ }
+}
+
+
+/**
+ * php_self
+ *
+ * Creates an URL for the page calling this function, using either the PHP global
+ * REQUEST_URI, or the PHP global PHP_SELF with QUERY_STRING added. Before 1.5.1
+ * function was stored in function/strings.php.
+ *
+ * @return string the complete url for this page
+ * @since 1.2.3
+ */
+function php_self () {
+ if ( sqgetGlobalVar('REQUEST_URI', $req_uri, SQ_SERVER) && !empty($req_uri) ) {
+ return $req_uri;
+ }
+
+ if ( sqgetGlobalVar('PHP_SELF', $php_self, SQ_SERVER) && !empty($php_self) ) {
+
+ // need to add query string to end of PHP_SELF to match REQUEST_URI
+ //
+ if ( sqgetGlobalVar('QUERY_STRING', $query_string, SQ_SERVER) && !empty($query_string) ) {
+ $php_self .= '?' . $query_string;
+ }
+
+ return $php_self;
+ }
+
+ return '';
+}
+
+
+/**
+ * Find files and/or directories in a given directory optionally
+ * limited to only those with the given file extension. If the
+ * directory is not found or cannot be opened, no error is generated;
+ * only an empty file list is returned.
+FIXME: do we WANT to throw an error or a notice or... or return FALSE?
+ *
+ * @param string $directory_path The path (relative or absolute)
+ * to the desired directory.
+ * @param mixed $extension The file extension filter - either
+ * an array of desired extension(s),
+ * or a comma-separated list of same
+ * (optional; default is to return
+ * all files (dirs).
+ * @param boolean $return_filenames_only When TRUE, only file/dir names
+ * are returned, otherwise the
+ * $directory_path string is
+ * prepended to each file/dir in
+ * the returned list (optional;
+ * default is filename/dirname only)
+ * @param boolean $include_directories When TRUE, directories are
+ * included (optional; default
+ * DO include directories).
+ * @param boolean $directories_only When TRUE, ONLY directories
+ * are included (optional; default
+ * is to include files too).
+ * @param boolean $separate_files_and_directories When TRUE, files and
+ * directories are returned
+ * in separate lists, so
+ * the return value is
+ * formatted as a two-element
+ * array with the two keys
+ * "FILES" and "DIRECTORIES",
+ * where corresponding values
+ * are lists of either all
+ * files or all directories
+ * (optional; default do not
+ * split up return array).
+ * @param boolean $only_sm When TRUE, a security check will
+ * limit directory access to only
+ * paths within the SquirrelMail
+ * installation currently being used
+ * (optional; default TRUE)
+ *
+ * @return array The requested file/directory list(s).
+ *
+ * @since 1.5.2
+ *
+ */
+function list_files($directory_path, $extensions='', $return_filenames_only=TRUE,
+ $include_directories=TRUE, $directories_only=FALSE,
+ $separate_files_and_directories=FALSE, $only_sm=TRUE) {
+
+ $files = array();
+ $directories = array();
+
+
+ // make sure requested path is under SM_PATH if needed
+ //
+ if ($only_sm) {
+ if (strpos(realpath($directory_path), realpath(SM_PATH)) !== 0) {
+ //plain_error_message(_("Illegal filesystem access was requested"));
+ echo _("Illegal filesystem access was requested");
+ exit;
+ }
+ }
+
+
+ // validate given directory
+ //
+ if (empty($directory_path)
+ || !is_dir($directory_path)
+ || !($DIR = opendir($directory_path))) {
+ return $files;
+ }
+
+
+ // ensure extensions is an array and is properly formatted
+ //
+ if (!empty($extensions)) {
+ if (!is_array($extensions))
+ $extensions = explode(',', $extensions);
+ $temp_extensions = array();
+ foreach ($extensions as $ext)
+ $temp_extensions[] = '.' . trim(trim($ext), '.');
+ $extensions = $temp_extensions;
+ } else $extensions = array();
+
+
+ $directory_path = rtrim($directory_path, '/');
+
+
+ // parse through the files
+ //
+ while (($file = readdir($DIR)) !== false) {
+
+ if ($file == '.' || $file == '..') continue;
+
+ if (!empty($extensions))
+ foreach ($extensions as $ext)
+ if (strrpos($file, $ext) !== (strlen($file) - strlen($ext)))
+ continue 2;
+
+ // only use is_dir() if we really need to (be as efficient as possible)
+ //
+ $is_dir = FALSE;
+ if (!$include_directories || $directories_only
+ || $separate_files_and_directories) {
+ if (is_dir($directory_path . '/' . $file)) {
+ if (!$include_directories) continue;
+ $is_dir = TRUE;
+ $directories[] = ($return_filenames_only
+ ? $file
+ : $directory_path . '/' . $file);
+ }
+ if ($directories_only) continue;
+ }
+
+ if (!$separate_files_and_directories
+ || ($separate_files_and_directories && !$is_dir)) {
+ $files[] = ($return_filenames_only
+ ? $file
+ : $directory_path . '/' . $file);
+ }
+
+ }
+ closedir($DIR);
+
+
+ if ($directories_only) return $directories;
+ if ($separate_files_and_directories) return array('FILES' => $files,
+ 'DIRECTORIES' => $directories);
+ return $files;
+
+}
+
+
+/**
+ * Print variable
+ *
+ * sm_print_r($some_variable, [$some_other_variable [, ...]]);
+ *
+ * Debugging function - does the same as print_r, but makes sure special
+ * characters are converted to htmlentities first. This will allow
+ * values like <some@email.address> to be displayed.
+ * The output is wrapped in <<pre>> and <</pre>> tags.
+ * Since 1.4.2 accepts unlimited number of arguments.
+ * @since 1.4.1
+ * @return void
+ */
+function sm_print_r() {
+ ob_start(); // Buffer output
+ foreach(func_get_args() as $var) {
+ print_r($var);
+ echo "\n";
+ // php has get_class_methods function that can print class methods
+ if (is_object($var)) {
+ // get class methods if $var is object
+ $aMethods=get_class_methods(get_class($var));
+ // make sure that $aMethods is array and array is not empty
+ if (is_array($aMethods) && $aMethods!=array()) {
+ echo "Object methods:\n";
+ foreach($aMethods as $method) {
+ echo '* ' . $method . "\n";
+ }
+ }
+ echo "\n";
+ }
+ }
+ $buffer = ob_get_contents(); // Grab the print_r output
+ ob_end_clean(); // Silently discard the output & stop buffering
+ print '<div align="left"><pre>';
+ print htmlentities($buffer);
+ print '</pre></div>';
+}
+
+
+/**
+ * SquirrelMail wrapper for popen()/proc_open()
+ *
+ * This emulates popen() by using proc_open() if at all
+ * possible (reverts seamlessly to popen() if proc_open()
+ * is not supported in current PHP installation).
+ *
+ * This is intended for use with the related sq_pclose(),
+ * sq_get_pipe_stdout() and sq_get_pipe_stderr() functions,
+ * the latter of which add an easy interface for retrieving
+ * output from a child process that was opened with traditional
+ * popen() syntax (in write mode), while not breaking under
+ * earlier versions of PHP.
+ *
+ * @param string $command The command identifying what to
+ * execute in the child process.
+ * @param string $mode The desired mode for the
+ * unidirectional pipe that is returned;
+ * either 'r' for read or 'w' for write.
+ *
+ * @return resource A handle on the desired read or write pipe
+ * to the child process, or FALSE if the
+ * process cannot be created.
+ *
+ * @since 1.5.2
+ *
+ */
+function sq_popen($command, $mode) {
+
+ $mode = strtolower($mode{0});
+
+
+ if (!function_exists('proc_open'))
+ return popen($command, $mode);
+
+
+ // set up our process store if not done already
+ //
+ global $processes;
+ if (empty($processes))
+ $processes = array();
+
+
+ // define read, write and error pipes
+ //
+ $descriptors = array(0 => array('pipe', 'r'),
+ 1 => array('pipe', 'w'),
+ 2 => array('pipe', 'w'));
+
+
+ // start the child process
+ //
+ $proc = proc_open($command, $descriptors, $pipes);
+ if (!is_resource($proc))
+ return FALSE;
+
+
+ // when in read mode, we'll return a handle to the child's write pipe
+ //
+ if ($mode == 'r')
+ $return_value = $pipes[1];
+ else if ($mode == 'w')
+ $return_value = $pipes[0];
+ else
+ die('sq_popen() expects $mode to be "r" or "w"');
+
+
+ // store the handle to the process and its pipes
+ // internally, keyed by whatever handle we'll be
+ // returning
+ //
+ $processes[$return_value] = array($proc, $pipes);
+
+
+ return $return_value;
+
+}
+
+
+/**
+ * Get STDERR output from a child process
+ *
+ * This is designed to be used with processes that were
+ * opened with sq_popen(), and will return any output
+ * that may be available from STDERR of the child process
+ * at the current time.
+ *
+ * If a value is given for $timeout_seconds, this function
+ * will wait that long for output in case there is none
+ * right now.
+ *
+ * In PHP environments that do not support proc_open(),
+ * an empty string will always be returned.
+ *
+ * @param resource $handle The handle to the child process,
+ * as returned from sq_popen().
+ * @param int $timeout_seconds The number of seconds to wait
+ * for output if there is none
+ * available immediately (OPTIONAL;
+ * default is not to wait)
+ * @param boolean $quiet When TRUE, errors are silently
+ * ignored (OPTIONAL; default is TRUE).
+ *
+ * @return string Any STDERR output that may have been found.
+ *
+ * @since 1.5.2
+ *
+ */
+function sq_get_pipe_stderr($handle, $timeout_seconds=0, $quiet=TRUE) {
+
+ // yes, we are testing for proc_OPEN
+ // because we need to know how the
+ // handle was actually OPENED
+ //
+ if (!function_exists('proc_open'))
+ return '';
+
+
+ // get our process out of the process store
+ //
+ global $processes;
+ if (!is_array($processes) || !isset($processes[$handle])) {
+ if (!quiet) {
+ plain_error_message(_("Failed to find corresponding open process handle"));
+ }
+ return '';
+ }
+ $proc = $processes[$handle];
+
+
+ // get all we can from stderr, don't wait longer
+ // than our timeout for input
+ //
+ $contents = '';
+ $read = array($proc[1][2]);
+ $write = NULL;
+ $except = NULL;
+ if (stream_select($read, $write, $except, $timeout_seconds))
+ while (!feof($proc[1][2])) $contents .= fread($proc[1][2], 8192);
+ return $contents;
+
+}
+
+
+/**
+ * Get STDOUT output from a child process
+ *
+ * This is designed to be used with processes that were
+ * opened with sq_popen(), and will return any output
+ * that may be available from STDOUT of the child process
+ * at the current time.
+ *
+ * If a value is given for $timeout_seconds, this function
+ * will wait that long for output in case there is none
+ * right now.
+ *
+ * In PHP environments that do not support proc_open(),
+ * an empty string will always be returned.
+ *
+ * @param resource $handle The handle to the child process,
+ * as returned from sq_popen().
+ * @param int $timeout_seconds The number of seconds to wait
+ * for output if there is none
+ * available immediately (OPTIONAL;
+ * default is not to wait)
+ * @param boolean $quiet When TRUE, errors are silently
+ * ignored (OPTIONAL; default is TRUE).
+ *
+ * @return string Any STDOUT output that may have been found.
+ *
+ * @since 1.5.2
+ *
+ */
+function sq_get_pipe_stdout($handle, $timeout_seconds=0, $quiet=TRUE) {
+
+ // yes, we are testing for proc_OPEN
+ // because we need to know how the
+ // handle was actually OPENED
+ //
+ if (!function_exists('proc_open'))
+ return '';
+
+
+ // get our process out of the process store
+ //
+ global $processes;
+ if (!is_array($processes) || !isset($processes[$handle])) {
+ if (!quiet) {
+ plain_error_message(_("Failed to find corresponding open process handle"));
+ }
+ return '';
+ }
+ $proc = $processes[$handle];
+
+
+ // get all we can from stdout, don't wait longer
+ // than our timeout for input
+ //
+ $contents = '';
+ $read = array($proc[1][1]);
+ $write = NULL;
+ $except = NULL;
+ if (stream_select($read, $write, $except, $timeout_seconds))
+ while (!feof($proc[1][1])) $contents .= fread($proc[1][1], 8192);
+ return $contents;
+
+}
+
+
+/**
+ * SquirrelMail wrapper for pclose()/proc_close()
+ *
+ * This is designed to be used with processes that were
+ * opened with sq_popen(), and will correctly close
+ * all pipes/handles that were opened as well as the
+ * child process itself.
+ *
+ * @param resource $handle The handle to the child process,
+ * as returned from sq_popen().
+ * @param boolean $quiet When TRUE, errors are silently
+ * ignored (OPTIONAL; default is TRUE).
+ *
+ * @return int The termination status of the child process.
+ *
+ * @since 1.5.2
+ *
+ */
+function sq_pclose($handle, $quiet=TRUE) {
+
+ // yes, we are testing for proc_OPEN
+ // because we need to know how the
+ // handle was actually OPENED
+ //
+ if (!function_exists('proc_open'))
+ return pclose($handle);
+
+
+ // get our process out of the process store
+ //
+ global $processes;
+ if (!is_array($processes) || !isset($processes[$handle])) {
+ if (!quiet) {
+ plain_error_message(_("Failed to find corresponding open process handle"));
+ }
+ return 127;
+ }
+ $proc = $processes[$handle];
+ unset($processes[$handle]);
+
+
+ // close all pipes
+ //
+ fclose($proc[1][0]);
+ fclose($proc[1][1]);
+ fclose($proc[1][2]);
+
+
+ // close process
+ //
+ return proc_close($proc[0]);
+
+}
+
+
+/**
+ * Sanitize a value using htmlspecialchars() or similar, but also
+ * recursively run htmlspecialchars() (or similar) on array keys
+ * and values.
+ *
+ * If $value is not a string or an array with strings in it,
+ * the value is returned as is.
+ *
+ * @param mixed $value The value to be sanitized.
+ * @param mixed $quote_style Either boolean or an integer. If it
+ * is an integer, it must be the PHP
+ * constant indicating if/how to escape
+ * quotes: ENT_QUOTES, ENT_COMPAT, or
+ * ENT_NOQUOTES. If it is a boolean value,
+ * it must be TRUE and thus indicates
+ * that the only sanitizing to be done
+ * herein is to replace single and double
+ * quotes with ' and ", no other
+ * changes are made to $value. If it is
+ * boolean and FALSE, behavior reverts
+ * to same as if the value was ENT_QUOTES
+ * (OPTIONAL; default is ENT_QUOTES).
+ *
+ * @return mixed The sanitized value.
+ *
+ * @since 1.5.2
+ *
+ **/
+function sq_htmlspecialchars($value, $quote_style=ENT_QUOTES) {
+
+ if ($quote_style === FALSE) $quote_style = ENT_QUOTES;
+
+ // array? go recursive...
+ //
+ if (is_array($value)) {
+ $return_array = array();
+ foreach ($value as $key => $val) {
+ $return_array[sq_htmlspecialchars($key, $quote_style)]
+ = sq_htmlspecialchars($val, $quote_style);
+ }
+ return $return_array;
+
+ // sanitize strings only
+ //
+ } else if (is_string($value)) {
+ if ($quote_style === TRUE)
+ return str_replace(array('\'', '"'), array(''', '"'), $value);
+ else
+ return htmlspecialchars($value, $quote_style);
+ }
+
+ // anything else gets returned with no changes
+ //
+ return $value;
+
+}