rc2: program/lib/Roundcube/rcube_string

comparison program/lib/Roundcube/rcube_string_replacer.php @ 0:4681f974d28b

vanilla 1.3.3 distro, I hope

author	Charlie Root
date	Thu, 04 Jan 2018 15:52:31 -0500
parents
children	c32b53434b47

comparison

equal deleted inserted replaced

--1:000000000000
+:4681f974d28b
+<?php
+/**
++-----------------------------------------------------------------------+
+| This file is part of the Roundcube Webmail client                     |
+| Copyright (C) 2009-2012, The Roundcube Dev Team                       |
+|                                                                       |
+| Licensed under the GNU General Public License version 3 or            |
+| any later version with exceptions for skins & plugins.                |
+| See the README file for a full license statement.                     |
+|                                                                       |
+| PURPOSE:                                                              |
+|   Handle string replacements based on preg_replace_callback           |
++-----------------------------------------------------------------------+
+| Author: Thomas Bruederli <roundcube@gmail.com>                        |
++-----------------------------------------------------------------------+
+*/
+/**
+* Helper class for string replacements based on preg_replace_callback
+*
+* @package    Framework
+* @subpackage Utils
+*/
+class rcube_string_replacer
+{
+public static $pattern = '/##str_replacement_(\d+)##/';
+public $mailto_pattern;
+public $link_pattern;
+public $linkref_index;
+public $linkref_pattern;
+protected $values   = array();
+protected $options  = array();
+protected $linkrefs = array();
+protected $urls     = array();
+protected $noword   = '[^\w@.#-]';
+function __construct($options = array())
+{
+// Simplified domain expression for UTF8 characters handling
+// Support unicode/punycode in top-level domain part
+$utf_domain = '[^?&@"\'\\/()<>\s\r\t\n]+\\.?([^\\x00-\\x2f\\x3b-\\x40\\x5b-\\x60\\x7b-\\x7f]{2,}|xn--[a-zA-Z0-9]{2,})';
+$url1       = '.:;,';
+$url2       = 'a-zA-Z0-9%=#$@+?|!&\\/_~\\[\\]\\(\\){}\*\x80-\xFE-';
+// Supported link prefixes
+$link_prefix = "([\w]+:\/\/|{$this->noword}[Ww][Ww][Ww]\.|^[Ww][Ww][Ww]\.)";
+$this->options         = $options;
+$this->linkref_index   = '/\[([^\]#]+)\](:?\s*##str_replacement_(\d+)##)/';
+$this->linkref_pattern = '/\[([^\]#]+)\]/';
+$this->link_pattern    = "/$link_prefix($utf_domain([$url1]*[$url2]+)*)/";
+$this->mailto_pattern  = "/("
+."[-\w!\#\$%&\'*+~\/^`|{}=]+(?:\.[-\w!\#\$%&\'*+~\/^`|{}=]+)*"  // local-part
+."@$utf_domain"                                                 // domain-part
+."(\?[$url1$url2]+)?"                                           // e.g. ?subject=test...
+.")/";
+}
+/**
+* Add a string to the internal list
+*
+* @param string String value
+*
+* @return int Index of value for retrieval
+*/
+public function add($str)
+{
+$i = count($this->values);
+$this->values[$i] = $str;
+return $i;
+}
+/**
+* Build replacement string
+*/
+public function get_replacement($i)
+{
+return '##str_replacement_' . $i . '##';
+}
+/**
+* Callback function used to build HTML links around URL strings
+*
+* @param array Matches result from preg_replace_callback
+* @return int Index of saved string value
+*/
+public function link_callback($matches)
+{
+$i = -1;
+$scheme = strtolower($matches[1]);
+if (preg_match('!^(http|ftp|file)s?://!i', $scheme)) {
+$url = $matches[1] . $matches[2];
+}
+else if (preg_match("/^({$this->noword}*)(www\.)$/i", $matches[1], $m)) {
+$url        = $m[2] . $matches[2];
+$url_prefix = 'http://';
+$prefix     = $m[1];
+}
+if ($url) {
+$suffix = $this->parse_url_brackets($url);
+$attrib = (array)$this->options['link_attribs'];
+$attrib['href'] = $url_prefix . $url;
+$i = $this->add(html::a($attrib, rcube::Q($url)) . $suffix);
+$this->urls[$i] = $attrib['href'];
+}
+// Return valid link for recognized schemes, otherwise
+// return the unmodified string for unrecognized schemes.
+return $i >= 0 ? $prefix . $this->get_replacement($i) : $matches[0];
+}
+/**
+* Callback to add an entry to the link index
+*/
+public function linkref_addindex($matches)
+{
+$key = $matches[1];
+$this->linkrefs[$key] = $this->urls[$matches[3]];
+return $this->get_replacement($this->add('['.$key.']')) . $matches[2];
+}
+/**
+* Callback to replace link references with real links
+*/
+public function linkref_callback($matches)
+{
+$i = 0;
+if ($url = $this->linkrefs[$matches[1]]) {
+$attrib = (array)$this->options['link_attribs'];
+$attrib['href'] = $url;
+$i = $this->add(html::a($attrib, rcube::Q($matches[1])));
+}
+return $i > 0 ? '['.$this->get_replacement($i).']' : $matches[0];
+}
+/**
+* Callback function used to build mailto: links around e-mail strings
+*
+* @param array Matches result from preg_replace_callback
+*
+* @return int Index of saved string value
+*/
+public function mailto_callback($matches)
+{
+$href   = $matches[1];
+$suffix = $this->parse_url_brackets($href);
+$i = $this->add(html::a('mailto:' . $href, rcube::Q($href)) . $suffix);
+return $i >= 0 ? $this->get_replacement($i) : '';
+}
+/**
+* Look up the index from the preg_replace matches array
+* and return the substitution value.
+*
+* @param array Matches result from preg_replace_callback
+* @return string Value at index $matches[1]
+*/
+public function replace_callback($matches)
+{
+return $this->values[$matches[1]];
+}
+/**
+* Replace all defined (link|mailto) patterns with replacement string
+*
+* @param string $str Text
+*
+* @return string Text
+*/
+public function replace($str)
+{
+// search for patterns like links and e-mail addresses
+$str = preg_replace_callback($this->link_pattern, array($this, 'link_callback'), $str);
+$str = preg_replace_callback($this->mailto_pattern, array($this, 'mailto_callback'), $str);
+// resolve link references
+$str = preg_replace_callback($this->linkref_index, array($this, 'linkref_addindex'), $str);
+$str = preg_replace_callback($this->linkref_pattern, array($this, 'linkref_callback'), $str);
+return $str;
+}
+/**
+* Replace substituted strings with original values
+*/
+public function resolve($str)
+{
+return preg_replace_callback(self::$pattern, array($this, 'replace_callback'), $str);
+}
+/**
+* Fixes bracket characters in URL handling
+*/
+public static function parse_url_brackets(&$url)
+{
+// #1487672: special handling of square brackets,
+// URL regexp allows [] characters in URL, for example:
+// "http://example.com/?a[b]=c". However we need to handle
+// properly situation when a bracket is placed at the end
+// of the link e.g. "[http://example.com]"
+// Yes, this is not perfect handles correctly only paired characters
+// but it should work for common cases
+if (preg_match('/(\\[|\\])/', $url)) {
+$in = false;
+for ($i=0, $len=strlen($url); $i<$len; $i++) {
+if ($url[$i] == '[') {
+if ($in)
+break;
+$in = true;
+}
+else if ($url[$i] == ']') {
+if (!$in)
+break;
+$in = false;
+}
+}
+if ($i < $len) {
+$suffix = substr($url, $i);
+$url    = substr($url, 0, $i);
+}
+}
+// Do the same for parentheses
+if (preg_match('/(\\(|\\))/', $url)) {
+$in = false;
+for ($i=0, $len=strlen($url); $i<$len; $i++) {
+if ($url[$i] == '(') {
+if ($in)
+break;
+$in = true;
+}
+else if ($url[$i] == ')') {
+if (!$in)
+break;
+$in = false;
+}
+}
+if ($i < $len) {
+$suffix = substr($url, $i);
+$url    = substr($url, 0, $i);
+}
+}
+return $suffix;
+}
+}

Mercurial > hg > rc2

comparison program/lib/Roundcube/rcube_string_replacer.php @ 0:4681f974d28b