| | |
|---|
| | | $table = new html_table(/*array('cols' => count($a_show_cols))*/); |
|---|
| | | |
|---|
| | | // add table header |
|---|
| | | foreach ($a_show_cols as $col) |
|---|
| | | $table->add_header($col, Q(rcube_label($col))); |
|---|
| | | if (!$attrib['noheader']) |
|---|
| | | foreach ($a_show_cols as $col) |
|---|
| | | $table->add_header($col, Q(rcube_label($col))); |
|---|
| | | |
|---|
| | | $c = 0; |
|---|
| | | if (!is_array($table_data)) |
|---|
| | |
|---|
| | | if (preg_match('/expression|behavior|url\(|import/', $stripped)) |
|---|
| | | return '/* evil! */'; |
|---|
| | | |
|---|
| | | // remove css comments (sometimes used for some ugly hacks) |
|---|
| | | $source = preg_replace('!/\*(.+)\*/!Ums', '', $source); |
|---|
| | | |
|---|
| | | // cut out all contents between { and } |
|---|
| | | while (($pos = strpos($source, '{', $last_pos)) && ($pos2 = strpos($source, '}', $pos))) |
|---|
| | | { |
|---|
| | |
|---|
| | | $source = substr($source, 0, $pos+1) . $replacements->get_replacement($key) . substr($source, $pos2, strlen($source)-$pos2); |
|---|
| | | $last_pos = $pos+2; |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | | // remove html comments and add #container to each tag selector. |
|---|
| | | // also replace body definition because we also stripped off the <body> tag |
|---|
| | | $styles = preg_replace( |
|---|
| | | array( |
|---|
| | | '/(^\s*<!--)|(-->\s*$)/', |
|---|
| | | '/(^\s*|,\s*|\}\s*)([a-z0-9\._#][a-z0-9\.\-_]*)/im', |
|---|
| | | '/(^\s*|,\s*|\}\s*)([a-z0-9\._#\*][a-z0-9\.\-_]*)/im', |
|---|
| | | "/$container_id\s+body/i", |
|---|
| | | ), |
|---|
| | | array( |
|---|
| | |
|---|
| | | |
|---|
| | | |
|---|
| | | /** |
|---|
| | | * Write login data (name, ID, IP address) to the 'userlogins' log file. |
|---|
| | | */ |
|---|
| | | function rcmail_log_login() |
|---|
| | | { |
|---|
| | | global $RCMAIL; |
|---|
| | | |
|---|
| | | if (!$RCMAIL->config->get('log_logins') || !$RCMAIL->user) |
|---|
| | | return; |
|---|
| | | |
|---|
| | | $address = $_SERVER['REMOTE_ADDR']; |
|---|
| | | // append the NGINX X-Real-IP header, if set |
|---|
| | | if (!empty($_SERVER['HTTP_X_REAL_IP'])) { |
|---|
| | | $remote_ip[] = 'X-Real-IP: ' . $_SERVER['HTTP_X_REAL_IP']; |
|---|
| | | } |
|---|
| | | // append the X-Forwarded-For header, if set |
|---|
| | | if (!empty($_SERVER['HTTP_X_FORWARDED_FOR'])) { |
|---|
| | | $remote_ip[] = 'X-Forwarded-For: ' . $_SERVER['HTTP_X_FORWARDED_FOR']; |
|---|
| | | } |
|---|
| | | |
|---|
| | | if (!empty($remote_ip)) |
|---|
| | | $address .= '(' . implode(',', $remote_ip) . ')'; |
|---|
| | | |
|---|
| | | write_log('userlogins', sprintf('Successful login for %s (ID: %d) from %s', |
|---|
| | | $RCMAIL->user->get_username(), $RCMAIL->user->ID, $address)); |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | | /** |
|---|
| | | * @access private |
|---|
| | | */ |
|---|
| | | function rcube_timer() |
|---|
| | |
|---|
| | | { |
|---|
| | | global $CONFIG; |
|---|
| | | |
|---|
| | | if ($folder_id == 'INBOX') |
|---|
| | | return 'inbox'; |
|---|
| | | |
|---|
| | | // for these mailboxes we have localized labels and css classes |
|---|
| | | foreach (array('sent', 'drafts', 'trash', 'junk') as $smbx) |
|---|
| | | { |
|---|
| | | if ($folder_id == $CONFIG[$smbx.'_mbox']) |
|---|
| | | return $smbx; |
|---|
| | | } |
|---|
| | | |
|---|
| | | if ($folder_id == 'INBOX') |
|---|
| | | return 'inbox'; |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | |
|---|
| | | function rcube_https_check($port=null, $use_https=true) |
|---|
| | | { |
|---|
| | | global $RCMAIL; |
|---|
| | | |
|---|
| | | |
|---|
| | | if (!empty($_SERVER['HTTPS']) && strtolower($_SERVER['HTTPS']) != 'off') |
|---|
| | | return true; |
|---|
| | | if (!empty($_SERVER['HTTP_X_FORWARDED_PROTO']) && strtolower($_SERVER['HTTP_X_FORWARDED_PROTO']) == 'https') |
|---|
| | | return true; |
|---|
| | | if ($port && $_SERVER['SERVER_PORT'] == $port) |
|---|
| | | return true; |
|---|
| | |
|---|
| | | return false; |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | | // for backward compatibility |
|---|
| | | function rcube_sess_unset($var_name=null) |
|---|
| | | { |
|---|
| | | global $RCMAIL; |
|---|
| | | |
|---|
| | | $RCMAIL->session->remove($var_name); |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | | // Replaces hostname variables |
|---|
| | | function rcube_parse_host($name) |
|---|
| | | { |
|---|
| | | // %n - host |
|---|
| | | $n = preg_replace('/:\d+$/', '', $_SERVER['SERVER_NAME']); |
|---|
| | | // %d - domain name without first part, e.g. %d=mail.domain.tld, %m=domain.tld |
|---|
| | | $d = preg_replace('/^[^\.]+\./', '', $n); |
|---|
| | | // %h - IMAP host |
|---|
| | | $h = $_SESSION['imap_host']; |
|---|
| | | |
|---|
| | | $name = str_replace(array('%n', '%d', '%h'), array($n, $d, $h), $name); |
|---|
| | | return $name; |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | |
|---|
| | | // from PEAR::Validate |
|---|
| | | $regexp = '&^(?: |
|---|
| | | ("\s*(?:[^"\f\n\r\t\v\b\s]+\s*)+")| #1 quoted name |
|---|
| | | ([-\w!\#\$%\&\'*+~/^`|{}]+(?:\.[-\w!\#\$%\&\'*+~/^`|{}]+)*)) #2 OR dot-atom |
|---|
| | | ([-\w!\#\$%\&\'*+~/^`|{}=]+(?:\.[-\w!\#\$%\&\'*+~/^`|{}=]+)*)) #2 OR dot-atom (RFC5322) |
|---|
| | | $&xi'; |
|---|
| | | |
|---|
| | | if (!preg_match($regexp, $local_part)) |
|---|
| | |
|---|
| | | if (!$dns_check || !rcmail::get_instance()->config->get('email_dns_check')) |
|---|
| | | return true; |
|---|
| | | |
|---|
| | | if (strtoupper(substr(PHP_OS, 0, 3)) == 'WIN' && version_compare(PHP_VERSION, '5.3.0', '<')) |
|---|
| | | return true; |
|---|
| | | if (strtoupper(substr(PHP_OS, 0, 3)) == 'WIN' && version_compare(PHP_VERSION, '5.3.0', '<')) { |
|---|
| | | $lookup = array(); |
|---|
| | | @exec("nslookup -type=MX " . escapeshellarg($domain_part) . " 2>&1", $lookup); |
|---|
| | | foreach ($lookup as $line) { |
|---|
| | | if (strpos($line, 'MX preference')) |
|---|
| | | return true; |
|---|
| | | } |
|---|
| | | return false; |
|---|
| | | } |
|---|
| | | |
|---|
| | | // find MX record(s) |
|---|
| | | if (getmxrr($domain_part, $mx_records)) |
|---|
| | |
|---|
| | | class rcube_base_replacer |
|---|
| | | { |
|---|
| | | private $base_url; |
|---|
| | | |
|---|
| | | |
|---|
| | | public function __construct($base) |
|---|
| | | { |
|---|
| | | $this->base_url = $base; |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | | public function callback($matches) |
|---|
| | | { |
|---|
| | | return $matches[1] . '="' . make_absolute_url($matches[3], $this->base_url) . '"'; |
|---|
| | | } |
|---|
| | | } |
|---|
| | | |
|---|
| | | ?> |
|---|
| | | |
|---|
| | | /** |
|---|
| | | * Throw system error and show error page |
|---|
| | | * |
|---|
| | | * @param array Named parameters |
|---|
| | | * - code: Error code (required) |
|---|
| | | * - type: Error type [php|db|imap|javascript] (required) |
|---|
| | | * - message: Error message |
|---|
| | | * - file: File where error occured |
|---|
| | | * - line: Line where error occured |
|---|
| | | * @param boolean True to log the error |
|---|
| | | * @param boolean Terminate script execution |
|---|
| | | */ |
|---|
| | | // may be defined in Installer |
|---|
| | | if (!function_exists('raise_error')) { |
|---|
| | | function raise_error($arg=array(), $log=false, $terminate=false) |
|---|
| | | { |
|---|
| | | global $__page_content, $CONFIG, $OUTPUT, $ERROR_CODE, $ERROR_MESSAGE; |
|---|
| | | |
|---|
| | | // report bug (if not incompatible browser) |
|---|
| | | if ($log && $arg['type'] && $arg['message']) |
|---|
| | | log_bug($arg); |
|---|
| | | |
|---|
| | | // display error page and terminate script |
|---|
| | | if ($terminate) { |
|---|
| | | $ERROR_CODE = $arg['code']; |
|---|
| | | $ERROR_MESSAGE = $arg['message']; |
|---|
| | | include('program/steps/utils/error.inc'); |
|---|
| | | exit; |
|---|
| | | } |
|---|
| | | } |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | | /** |
|---|
| | | * Report error according to configured debug_level |
|---|
| | | * |
|---|
| | | * @param array Named parameters |
|---|
| | | * @see raise_error() |
|---|
| | | */ |
|---|
| | | function log_bug($arg_arr) |
|---|
| | | { |
|---|
| | | global $CONFIG; |
|---|
| | | $program = strtoupper($arg_arr['type']); |
|---|
| | | |
|---|
| | | // write error to local log file |
|---|
| | | if ($CONFIG['debug_level'] & 1) { |
|---|
| | | $post_query = ($_SERVER['REQUEST_METHOD'] == 'POST' ? '?_task='.urlencode($_POST['_task']).'&_action='.urlencode($_POST['_action']) : ''); |
|---|
| | | $log_entry = sprintf("%s Error: %s%s (%s %s)", |
|---|
| | | $program, |
|---|
| | | $arg_arr['message'], |
|---|
| | | $arg_arr['file'] ? sprintf(' in %s on line %d', $arg_arr['file'], $arg_arr['line']) : '', |
|---|
| | | $_SERVER['REQUEST_METHOD'], |
|---|
| | | $_SERVER['REQUEST_URI'] . $post_query); |
|---|
| | | |
|---|
| | | if (!write_log('errors', $log_entry)) { |
|---|
| | | // send error to PHPs error handler if write_log didn't succeed |
|---|
| | | trigger_error($arg_arr['message']); |
|---|
| | | } |
|---|
| | | } |
|---|
| | | |
|---|
| | | // resport the bug to the global bug reporting system |
|---|
| | | if ($CONFIG['debug_level'] & 2) { |
|---|
| | | // TODO: Send error via HTTP |
|---|
| | | } |
|---|
| | | |
|---|
| | | // show error if debug_mode is on |
|---|
| | | if ($CONFIG['debug_level'] & 4) { |
|---|
| | | print "<b>$program Error"; |
|---|
| | | |
|---|
| | | if (!empty($arg_arr['file']) && !empty($arg_arr['line'])) |
|---|
| | | print " in $arg_arr[file] ($arg_arr[line])"; |
|---|
| | | |
|---|
| | | print ':</b> '; |
|---|
| | | print nl2br($arg_arr['message']); |
|---|
| | | print '<br />'; |
|---|
| | | flush(); |
|---|
| | | } |
|---|
| | | } |
|---|
| | | |
|---|
