| | |
| | | +-----------------------------------------------------------------------+ |
| | | | Author: Thomas Bruederli <roundcube@gmail.com> | |
| | | +-----------------------------------------------------------------------+ |
| | | |
| | | $Id$ |
| | | |
| | | */ |
| | | |
| | | |
| | |
| | | { |
| | | // 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-z0-9]{2,})'; |
| | | $utf_domain = '[^?&@"\'\\/()\s\r\t\n]+\\.?([^\\x00-\\x2f\\x3b-\\x40\\x5b-\\x60\\x7b-\\x7f]{2,}|xn--[a-zA-Z0-9]{2,})'; |
| | | $url1 = '.:;,'; |
| | | $url2 = 'a-z0-9%=#@+?!&\\/_~\\[\\]{}-'; |
| | | $url2 = 'a-zA-Z0-9%=#$@+?!&\\/_~\\[\\]{}\*-'; |
| | | |
| | | $this->link_pattern = "/([\w]+:\/\/|\Wwww\.)($utf_domain([$url1]?[$url2]+)*)/i"; |
| | | $this->link_pattern = "/([\w]+:\/\/|\W[Ww][Ww][Ww]\.|^[Ww][Ww][Ww]\.)($utf_domain([$url1]?[$url2]+)*)/"; |
| | | $this->mailto_pattern = "/(" |
| | | ."[-\w!\#\$%&\'*+~\/^`|{}=]+(?:\.[-\w!\#\$%&\'*+~\/^`|{}=]+)*" // local-part |
| | | ."@$utf_domain" // domain-part |
| | | ."(\?[$url1$url2]+)?" // e.g. ?subject=test... |
| | | .")/i"; |
| | | .")/"; |
| | | } |
| | | |
| | | /** |
| | |
| | | $i = -1; |
| | | $scheme = strtolower($matches[1]); |
| | | |
| | | if (preg_match('!^(http|ftp|file)s?://!', $scheme)) { |
| | | if (preg_match('!^(http|ftp|file)s?://!i', $scheme)) { |
| | | $url = $matches[1] . $matches[2]; |
| | | } |
| | | else if (preg_match('/^(\W)www\.$/', $matches[1], $m)) { |
| | | $url = 'www.' . $matches[2]; |
| | | else if (preg_match('/^(\W*)(www\.)$/i', $matches[1], $m)) { |
| | | $url = $m[2] . $matches[2]; |
| | | $url_prefix = 'http://'; |
| | | $prefix = $m[1]; |
| | | } |
| | |
| | | $i = $this->add($prefix . html::a(array( |
| | | 'href' => $url_prefix . $url, |
| | | 'target' => '_blank' |
| | | ), Q($url)) . $suffix); |
| | | ), rcmail::Q($url)) . $suffix); |
| | | } |
| | | |
| | | // Return valid link for recognized schemes, otherwise, return the unmodified string for unrecognized schemes. |
| | |
| | | |
| | | $i = $this->add(html::a(array( |
| | | 'href' => 'mailto:' . $href, |
| | | 'onclick' => "return ".JS_OBJECT_NAME.".command('compose','".JQ($href)."',this)", |
| | | ), Q($href)) . $suffix); |
| | | 'onclick' => "return ".rcmail::JS_OBJECT_NAME.".command('compose','".rcmail::JQ($href)."',this)", |
| | | ), rcmail::Q($href)) . $suffix); |
| | | |
| | | return $i >= 0 ? $this->get_replacement($i) : ''; |
| | | } |
| | |
| | | } |
| | | |
| | | /** |
| | | * 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); |
| | | |
| | | return $str; |
| | | } |
| | | |
| | | /** |
| | | * Replace substituted strings with original values |
| | | */ |
| | | public function resolve($str) |