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;