1. ', 'filter_html_help' => 1, 'filter_html_nofollow' => 0, ), 'tips callback' => '_filter_html_tips', ); $filters['filter_autop'] = array( 'title' => t('Convert line breaks'), 'description' => t('Converts line breaks into HTML (i.e. <br> and <p>) tags.'), 'process callback' => '_filter_autop', 'tips callback' => '_filter_autop_tips', ); $filters['filter_url'] = array( 'title' => t('Convert URLs into links'), 'description' => t('Turns web and e-mail addresses into clickable links.'), 'process callback' => '_filter_url', 'settings callback' => '_filter_url_settings', 'default settings' => array( 'filter_url_length' => 72, ), 'tips callback' => '_filter_url_tips', ); $filters['filter_htmlcorrector'] = array( 'title' => t('Correct broken HTML'), 'description' => t('Corrects faulty and chopped off HTML in postings.'), 'process callback' => '_filter_htmlcorrector', ); $filters['filter_html_escape'] = array( 'title' => t('Escape all HTML'), 'description' => t('Escapes all HTML tags, so they will be visible instead of being effective.'), 'process callback' => '_filter_html_escape', 'tips callback' => '_filter_html_escape_tips', ); return $filters; } /** * Settings callback for the HTML filter. */ function _filter_html_settings($form, &$form_state, $filter, $defaults) { $form['allowed_html'] = array( '#type' => 'textfield', '#title' => t('Allowed HTML tags'), '#default_value' => isset($filter->settings['allowed_html']) ? $filter->settings['allowed_html'] : $defaults['allowed_html'], '#size' => 64, '#maxlength' => 1024, '#description' => t('Specify a list of tags which should not be stripped. (Note that JavaScript event attributes are always stripped.)'), ); $form['filter_html_help'] = array( '#type' => 'checkbox', '#title' => t('Display HTML help'), '#default_value' => isset($filter->settings['filter_html_help']) ? $filter->settings['filter_html_help'] : $defaults['filter_html_help'], '#description' => t('If enabled, Drupal will display some basic HTML help in the long filter tips.'), ); $form['filter_html_nofollow'] = array( '#type' => 'checkbox', '#title' => t('Spam link deterrent'), '#default_value' => isset($filter->settings['filter_html_nofollow']) ? $filter->settings['filter_html_nofollow'] : $defaults['filter_html_nofollow'], '#description' => t('If enabled, Drupal will add rel="nofollow" to all links, as a measure to reduce the effectiveness of spam links. Note: this will also prevent valid links from being followed by search engines, therefore it is likely most effective when enabled for anonymous users.'), ); return $form; } /** * HTML filter. Provides filtering of input into accepted HTML. */ function _filter_html($text, $filter) { $allowed_tags = preg_split('/\s+|<|>/', $filter->settings['allowed_html'], -1, PREG_SPLIT_NO_EMPTY); $text = filter_xss($text, $allowed_tags); if ($filter->settings['filter_html_nofollow']) { $html_dom = filter_dom_load($text); $links = $html_dom->getElementsByTagName('a'); foreach($links as $link) { $link->setAttribute('rel', 'nofollow'); } $text = filter_dom_serialize($html_dom); } return trim($text); } /** * Filter tips callback for HTML filter. */ function _filter_html_tips($filter, $format, $long = FALSE) { global $base_url; if (!($allowed_html = $filter->settings['allowed_html'])) { return; } $output = t('Allowed HTML tags: @tags', array('@tags' => $allowed_html)); if (!$long) { return $output; } $output = '

   ' . $output . '

   '; if (!$filter->settings['filter_html_help']) { return $output; } $output .= '

   ' . t('This site allows HTML content. While learning all of HTML may feel intimidating, learning how to use a very small number of the most basic HTML "tags" is very easy. This table provides examples for each tag that is enabled on this site.') . '

   '; $output .= '

   ' . t('For more information see W3C\'s HTML Specifications or use your favorite search engine to find other sites that explain HTML.', array('@html-specifications' => 'http://www.w3.org/TR/html/')) . '

   '; $tips = array( 'a' => array(t('Anchors are used to make links to other pages.'), '' . variable_get('site_name', 'Drupal') . ''), 'br' => array(t('By default line break tags are automatically added, so use this tag to add additional ones. Use of this tag is different because it is not used with an open/close pair like all the others. Use the extra " /" inside the tag to maintain XHTML 1.0 compatibility'), t('Text with
   line break')), 'p' => array(t('By default paragraph tags are automatically added, so use this tag to add additional ones.'), '

   ' . t('Paragraph one.') . '

   ' . t('Paragraph two.') . '

   '), 'strong' => array(t('Strong'), '' . t('Strong') . ''), 'em' => array(t('Emphasized'), '' . t('Emphasized') . ''), 'cite' => array(t('Cited'), '' . t('Cited') . ''), 'code' => array(t('Coded text used to show programming source code'), '' . t('Coded') . ''), 'b' => array(t('Bolded'), '' . t('Bolded') . ''), 'u' => array(t('Underlined'), '' . t('Underlined') . ''), 'i' => array(t('Italicized'), '' . t('Italicized') . ''), 'sup' => array(t('Superscripted'), t('^Superscripted')), 'sub' => array(t('Subscripted'), t('_Subscripted')), 'pre' => array(t('Preformatted'), '

   ' . t('Preformatted') . '

   '), 'abbr' => array(t('Abbreviation'), t('Abbrev.')), 'acronym' => array(t('Acronym'), t('TLA')), 'blockquote' => array(t('Block quoted'), '

   ' . t('Block quoted') . '

   '), 'q' => array(t('Quoted inline'), '' . t('Quoted inline') . ''), // Assumes and describes tr, td, th. 'table' => array(t('Table'), '

   ' . t('Table header') . '
   ' . t('Table cell') . '

   '), 'tr' => NULL, 'td' => NULL, 'th' => NULL, 'del' => array(t('Deleted'), '' . t('Deleted') . ''), 'ins' => array(t('Inserted'), '' . t('Inserted') . ''), // Assumes and describes li. 'ol' => array(t('Ordered list - use the <li> to begin each list item'), '

   1. ' . t('First item') . '
   2. ' . t('Second item') . '

   '), 'ul' => array(t('Unordered list - use the <li> to begin each list item'), '

   • ' . t('First item') . '
   • ' . t('Second item') . '

   '), 'li' => NULL, // Assumes and describes dt and dd. 'dl' => array(t('Definition lists are similar to other HTML lists. <dl> begins the definition list, <dt> begins the definition term and <dd> begins the definition description.'), '

   ' . t('First term') . '

   ' . t('First definition') . '

   ' . t('Second term') . '

   ' . t('Second definition') . '

   '), 'dt' => NULL, 'dd' => NULL, 'h1' => array(t('Heading'), '

   ' . t('Title') . '

   '), 'h2' => array(t('Heading'), '

   ' . t('Subtitle') . '

   '), 'h3' => array(t('Heading'), '

   ' . t('Subtitle three') . '

   '), 'h4' => array(t('Heading'), '

   ' . t('Subtitle four') . '

   '), 'h5' => array(t('Heading'), '

   ' . t('Subtitle five') . '

   '), 'h6' => array(t('Heading'), '

   ' . t('Subtitle six') . '

   ') ); $header = array(t('Tag Description'), t('You Type'), t('You Get')); preg_match_all('/<([a-z0-9]+)[^a-z0-9]/i', $allowed_html, $out); foreach ($out[1] as $tag) { if (array_key_exists($tag, $tips)) { if ($tips[$tag]) { $rows[] = array( array('data' => $tips[$tag][0], 'class' => array('description')), array('data' => '' . check_plain($tips[$tag][1]) . '', 'class' => array('type')), array('data' => $tips[$tag][1], 'class' => array('get')) ); } } else { $rows[] = array( array('data' => t('No help provided for tag %tag.', array('%tag' => $tag)), 'class' => array('description'), 'colspan' => 3), ); } } $output .= theme('table', array('header' => $header, 'rows' => $rows)); $output .= '

   ' . t('Most unusual characters can be directly entered without any problems.') . '

   '; $output .= '

   ' . t('If you do encounter problems, try using HTML character entities. A common example looks like &amp; for an ampersand & character. For a full list of entities see HTML\'s entities page. Some of the available characters include:', array('@html-entities' => 'http://www.w3.org/TR/html4/sgml/entities.html')) . '

   '; $entities = array( array(t('Ampersand'), '&'), array(t('Greater than'), '>'), array(t('Less than'), '<'), array(t('Quotation mark'), '"'), ); $header = array(t('Character Description'), t('You Type'), t('You Get')); unset($rows); foreach ($entities as $entity) { $rows[] = array( array('data' => $entity[0], 'class' => array('description')), array('data' => '' . check_plain($entity[1]) . '', 'class' => array('type')), array('data' => $entity[1], 'class' => array('get')) ); } $output .= theme('table', array('header' => $header, 'rows' => $rows)); return $output; } /** * Settings callback for URL filter. */ function _filter_url_settings($form, &$form_state, $filter, $defaults) { $form['filter_url_length'] = array( '#type' => 'textfield', '#title' => t('Maximum link text length'), '#default_value' => isset($filter->settings['filter_url_length']) ? $filter->settings['filter_url_length'] : $defaults['filter_url_length'], '#maxlength' => 4, '#description' => t('URLs longer than this number of characters will be truncated to prevent long strings that break formatting. The link itself will be retained; just the text portion of the link will be truncated.'), ); return $form; } /** * URL filter. Automatically converts text web addresses (URLs, e-mail addresses, * ftp links, etc.) into hyperlinks. */ function _filter_url($text, $filter) { // Pass length to regexp callback _filter_url_trim(NULL, $filter->settings['filter_url_length']); $text = ' ' . $text . ' '; // Match absolute URLs. $text = preg_replace_callback("`(

   |

   ||[ \n\r\t\(])((http://|https://|ftp://|mailto:|smb://|afp://|file://|gopher://|news://|ssl://|sslv2://|sslv3://|tls://|tcp://|udp://)([a-zA-Z0-9@:%_+*~#?&=.,/;-]*[a-zA-Z0-9@:%_+*~#&=/;-]))([.,?!]*?)(?=(

   |

   ||[ \n\r\t\)]))`i", '_filter_url_parse_full_links', $text); // Match e-mail addresses. $text = preg_replace("`(

   |

   ||[ \n\r\t\(])([A-Za-z0-9._-]+@[A-Za-z0-9._+-]+\.[A-Za-z]{2,4})([.,?!]*?)(?=(

   |

   ||[ \n\r\t\)]))`i", '\1\2\3', $text); // Match www domains/addresses. $text = preg_replace_callback("`(

   |

   |[ \n\r\t\(])(www\.[a-zA-Z0-9@:%_+*~#?&=.,/;-]*[a-zA-Z0-9@:%_+~#\&=/;-])([.,?!]*?)(?=(

   |

   ||[ \n\r\t\)]))`i", '_filter_url_parse_partial_links', $text); $text = substr($text, 1, -1); return $text; } /** * Make links out of absolute URLs. */ function _filter_url_parse_full_links($match) { $match[2] = decode_entities($match[2]); $caption = check_plain(_filter_url_trim($match[2])); $match[2] = check_url($match[2]); return $match[1] . '' . $caption . '' . $match[5]; } /** * Make links out of domain names starting with "www." */ function _filter_url_parse_partial_links($match) { $match[2] = decode_entities($match[2]); $caption = check_plain(_filter_url_trim($match[2])); $match[2] = check_plain($match[2]); return $match[1] . '' . $caption . '' . $match[3]; } /** * Shortens long URLs to http://www.example.com/long/url... */ function _filter_url_trim($text, $length = NULL) { static $_length; if ($length !== NULL) { $_length = $length; } // Use +3 for '...' string length. if (strlen($text) > $_length + 3) { $text = substr($text, 0, $_length) . '...'; } return $text; } /** * Filter tips callback for URL filter. */ function _filter_url_tips($filter, $format, $long = FALSE) { return t('Web page addresses and e-mail addresses turn into links automatically.'); } /** * Scan input and make sure that all HTML tags are properly closed and nested. */ function _filter_htmlcorrector($text) { return filter_dom_serialize(filter_dom_load($text)); } /** * Convert line breaks into

   and
   in an intelligent fashion. * Based on: http://photomatt.net/scripts/autop */ function _filter_autop($text) { // All block level tags $block = '(?:table|thead|tfoot|caption|colgroup|tbody|tr|td|th|div|dl|dd|dt|ul|ol|li|pre|select|form|blockquote|address|p|h[1-6]|hr)'; // Split at

   , ,  tags.
     // We don't apply any processing to the contents of these tags to avoid messing
     // up code. We look for matched pairs and allow basic nesting. For example:
     // "processed 
    ignored  ignored 
    processed"
     $chunks = preg_split('@(]*>)@i', $text, -1, PREG_SPLIT_DELIM_CAPTURE);
     // Note: PHP ensures the array consists of alternating delimiters and literals
     // and begins and ends with a literal (inserting NULL as required).
     $ignore = FALSE;
     $ignoretag = '';
     $output = '';
     foreach ($chunks as $i => $chunk) {
       if ($i % 2) {
         // Opening or closing tag?
         $open = ($chunk[1] != '/');
         list($tag) = preg_split('/[ >]/', substr($chunk, 2 - $open), 2);
         if (!$ignore) {
           if ($open) {
             $ignore = TRUE;
             $ignoretag = $tag;
           }
         }
         // Only allow a matching tag to close it.
         elseif (!$open && $ignoretag == $tag) {
           $ignore = FALSE;
           $ignoretag = '';
         }
       }
       elseif (!$ignore) {
         $chunk = preg_replace('|\n*$|', '', $chunk) . "\n\n"; // just to make things a little easier, pad the end
         $chunk = preg_replace('|
   \s*
   |', "\n\n", $chunk);
         $chunk = preg_replace('!(<' . $block . '[^>]*>)!', "\n$1", $chunk); // Space things out a little
         $chunk = preg_replace('!()!', "$1\n\n", $chunk); // Space things out a little
         $chunk = preg_replace("/\n\n+/", "\n\n", $chunk); // take care of duplicates
         $chunk = preg_replace('/^\n|\n\s*\n$/', '', $chunk);
         $chunk = '
   ' . preg_replace('/\n\s*\n\n?(.)/', "
   \n
   $1", $chunk) . "
   \n"; // make paragraphs, including one at the end
         $chunk = preg_replace("|
   (|", "$1", $chunk); // problem with nested lists
         $chunk = preg_replace('|
   ]*)>|i', "
   ", $chunk);
         $chunk = str_replace('