WebGUI 3.6.0 release

lib/WebGUI/HTML.pm

@@ -0,0 +1,76 @@
+package WebGUI::HTML;
+
+=head1 LEGAL
+
+ -------------------------------------------------------------------
+  WebGUI is Copyright 2001-2002 Plain Black Software.
+ -------------------------------------------------------------------
+  Please read the legal notices (docs/legal.txt) and the license
+  (docs/license.txt) that came with this distribution before using
+  this software.
+ -------------------------------------------------------------------
+  http://www.plainblack.com                     info@plainblack.com
+ -------------------------------------------------------------------
+
+=cut
+
+use HTML::TagFilter;
+use strict;
+use WebGUI::Session;
+
+=head1 NAME
+
+ Package WebGUI::HTML
+
+=head1 SYNOPSIS
+
+ use WebGUI::HTML;
+ $html = WebGUI::HTML::filter($html);
+
+=head1 DESCRIPTION
+
+ A package for manipulating and massaging HTML.
+
+=head1 METHODS
+
+ These methods are available from this package:
+
+=cut
+
+
+#-------------------------------------------------------------------
+
+=head2 filter ( html [, filter ] )
+
+ Returns HTML with unwanted tags filtered out.
+
+=item html
+
+ The HTML content you want filtered.
+
+=item filter
+
+ Choose from all, none, or most. Defaults to most. All removes all 
+ HTML tags; none removes no HTML tags; and most removes all but 
+ simple formatting tags like bold and italics.
+
+=cut
+
+sub filter {
+	my ($filter, $html);
+	if ($_[1] eq "all") {
+		$filter = HTML::TagFilter->new(allow=>{'none'},strip_comments=>1);
+		$html = $filter->filter($_[0]);
+	} elsif ($_[1] eq "none") {
+		$html = $_[0];
+	} else {
+		$filter = HTML::TagFilter->new; # defaultly strips almost everything
+		$html = $filter->filter($_[0]);
+	}
+	return $html;
+}
+
+
+
+1;
+