Лингвофорум

function l_parse_raw_href($content)
{
   static $pattern = false;

   if (!$pattern)
   {

   /*
      Шаблон для выделения ссылок вида:
      mailto:name@host
      name@host.host1
      ftp://host:port/path
      http://host:port/path
      www.host:port/path
      host.host1/path
      Где:
      host  - любое теоретически корректное название домена
      path  - полный путь, включая параметры запроса
      host1 - реальное имя домена верхнего уровня
   */

   /*
      Список действующих доменов взят из Википедии
      http://ru.wikipedia.org/wiki/Категория:Домены_верхнего_уровня
      (2007 г.)
   */
   $hosts1 = array(
      /* Общие домены */
      /* Неспонсированные  */ 'biz', 'com', 'edu', 'gov', 'info', 'int', 'mil', 'name', 'net', 'org', 'pro',
      /* Спонсированные      */ 'aero', 'coop', 'jobs', 'museum', 'travel',
      /* Инфраструктура      */ 'arpa', 'root',
      /* В начальной фазе  */ 'cat', 'mobi', 'post', 'tel',
      /* Предлагаемые      */ //'asia', 'geo', 'kid', 'mail', 'sco', 'web', 'xxx',
      /* Удалённые      */ //'nato',
      /* Зарезервированные */ //'example', 'invalid', 'localhost', 'test',
      /* Псевдо-домены      */ 'bitnet', 'csnet', 'onion', 'uucp',
      /* Национальные домены */
      'ac', 'ad', 'ae', 'af', 'ag', 'ai', 'al', 'am', 'an', 'ao', 'aq', 'ar', 'as', 'at', 'au', 'aw', 'ax', 'az', 'ba', 'bb', 'bd', 'be', 'bf', 'bg', 'bh', 'bi', 'bj', 'bm', 'bn', 'bo', 'br', 'bs', 'bt', 'bu', 'bv', 'bw', 'by', 'bz', 'ca', 'cc', 'cd', 'cf', 'cg', 'ch', 'ci', 'ck', 'cl', 'cm', 'cn', 'co', 'cr', 'cs', 'cu', 'cv', 'cx', 'cy', 'cz', 'dd', 'de', 'dj', 'dk', 'dm', 'do', 'dz', 'ec', 'ee', 'eg', 'eh', 'er', 'es', 'et', 'eu', 'fi', 'fj', 'fk', 'fm', 'fo', 'fr', 'ga', 'gb', 'gd', 'ge', 'gf', 'gg', 'gh', 'gi', 'gl', 'gm', 'gn', 'gp', 'gq', 'gr', 'gs', 'gt', 'gu', 'gw', 'gy', 'hk', 'hm', 'hn', 'hr', 'ht', 'hu', 'id', 'ie', 'il', 'im', 'in', 'io', 'iq', 'ir', 'is', 'it', 'je', 'jm', 'jo', 'jp', 'ke', 'kg', 'kh', 'ki', 'km', 'kn', 'kp', 'kr', 'kw', 'ky', 'kz', 'la', 'lb', 'lc', 'li', 'lk', 'lr', 'ls', 'lt', 'lu', 'lv', 'ly', 'ma', 'mc', 'md', 'me', 'mg', 'mh', 'mk', 'ml', 'mm', 'mn', 'mo', 'mp', 'mq', 'mr', 'ms', 'mt', 'mu', 'mv', 'mw', 'mx', 'my', 'mz', 'na', 'nc', 'ne', 'nf', 'ng', 'ni', 'nl', 'no', 'np', 'nr', 'nu', 'nz', 'om', 'pa', 'pe', 'pf', 'pg', 'ph', 'pk', 'pl', 'pm', 'pn', 'pr', 'ps', 'pt', 'pw', 'py', 'qa', 're', 'ro', 'rs', 'ru', 'rw', 'sa', 'sb', 'sc', 'sd', 'se', 'sg', 'sh', 'si', 'sj', 'sk', 'sl', 'sm', 'sn', 'so', 'sr', 'st', 'su', 'sv', 'sy', 'sz', 'tc', 'td', 'tf', 'tg', 'th', 'tj', 'tk', 'tl', 'tm', 'tn', 'to', 'tp', 'tr', 'tt', 'tv', 'tw', 'tz', 'ua', 'ug', 'uk', 'um', 'us', 'uy', 'uz', 'va', 'vc', 've', 'vg', 'vi', 'vn', 'vu', 'wf', 'ws', 'ye', 'yt', 'yu', 'za', 'zm', 'zr', 'zw',
   );

   /* Шаблон для доменов верхнего уровня. */
   $host1 = '';
   foreach ($hosts1 as $h)
   {
      if ($host1 != '') $host1 .= '|';
      $host1 .= $h;
   }

   /*
      Название поддомена должно начинаться с буквы
      Название поддомена состоит из букв, цифр и символа '-'.
      Название поддомена должно оканчиваться на букву или цифру.
   */
   $host = '(\.?[a-zA-Z][a-zA-Z0-9\-]*[a-zA-Z0-9])+'; /* Шаблон для домена. */
   $host_host1 = "($host)(\.($host1))";               /* Шаблон для домена с корректным доменом верхего уровня. */
   $port = "(\:[0-9]{1,5}|)";                         /* Шаблон для номера порта. */
   $path = "([a-zA-Z0-9\-\/\?\&\:\%#]*)";             /* Шаблон для пути. */
   $name = "([a-zA-Z0-9\-\.\_]+)";                    /* Шаблон для имени в email адресе. */

   /* Собираем общий шаблон для разных вариантов адресов. */
   $pattern = ""
   /* mailto:name@host */ ."(mailto:$name\@$host)|"
   /* name@host.host1  */ ."($name(\@)$host_host1)|"
   /* **tp://host/path */ ."(((http|ftp):/?/?)$host$port$path)|"
   /* www.host/path    */ ."((www\.)$host$port$path)|"
   /* host.host1/path  */ ."($host_host1$port$path)"
   . "";

   $pattern = "'" . $pattern . "'";

   }//end if

   $content = preg_replace_callback($pattern, 'l_parse_raw_href_callback', $content);

   return $content;
}