Name

strip_html —

DESCRIPTION

EXAMPLES

No examples are available at this time. We do consider this a problem and will try to supply some.

NOTES

AVAILABILITY

strip_html is available in Interchange versions:

4.6.0-5.7.0 (git-head)

SOURCE

Interchange 5.7.0:

Source: code/Filter/strip_html.filter
Lines: 34


# Copyright 2009 Interchange Development Group and others
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version. See the LICENSE file for details.

CodeDef strip_html Filter
CodeDef strip_html Description Strip HTML
CodeDef strip_html Routine <<EOR
sub {
  my $val = shift;

# get rid of HTML comments
$val =~ s/<!(?:--(?:[^-]*|-[^-]+)*--\s*)>//s;

  # replace these container tags with a space
  $val =~ s{</?(?:p|ol|ul|li|div|h[123456]|pre|dl|dd|dt|form|option|textarea \
|blockquote)(?:\s[^>]*)?>}{ }ig;

  # replace these self-closing tags with a space
  $val =~ s{<[bh]r(?:\s*/|\s[^>]*)?>}{ }ig;

  # remove all remaining tags and leave no space
  $val =~ s{</?\w[^>]*>}{}g;

  # collapse all whitespace, as HTML does when rendering anyway,
  # to facilitate truncating at a certain number of characters
  $val =~ s{\A\s+}{};
  $val =~ s{\s+\z}{};
  $val =~ s{\s+}{ }g;

  return $val;
}
EOR

AUTHORS

Interchange Development Group

SEE ALSO

DocBook! Interchange!