#
#    File:  patch.pl
#  Author:  Adam Janin (adam@janin.org)
# Version:  0.0
#    Date:  1/22/98
#
#   See http://www.icsi.berkeley.edu/~janin/sproxy/sproxy.html for
#   information on sproxy and additional installation instructions.
#
# This is a small patch to HTML::Element.
#
# The original incorrectly transforms < to &lt and > to &gt inside
# <script> tags. This makes sproxy fail miserably. The patch simply
# keeps track if we're in a <script> tag, and if so, it doesn't encode
# the text.
#
# To install, find where HTML::Element::as_HTML is defined. It should
# be in something like /usr/local/lib/site/HTML/Element.pm. If you
# can't find it, you probably need to install libwww-perl.
#
# Backup Elements.pm (e.g. cp Elements.pm Elements-orig.pm).
#
# Near the bottom of the file is the function as_HTML. Replace from
# the line starting:
#
#    sub as_HTML
#    {
#
# all the way to:
#
#       join('', @html, "\n");
#    }
#
# with the contents of this file.
#

sub as_HTML
{
    my $self = shift;
    my @html = ();
    my $tag;
    my $enc = 1;
    $self->traverse(sub {
	my($node, $start, $depth) = @_;
	if (ref $node) {
	    $tag = $node->tag;
	    if ($start) {
		if ($tag eq "script") { 
		    $enc = 0;
		}
		push(@html, $node->starttag);
	    } else {
		if ($tag eq "script") {
		    $enc = 1;
		}
		if (not ($emptyElement{$tag} or $optionalEndTag{$tag})) {
		    push(@html, $node->endtag);
		}
	    }
	} else {
	    # simple text content
	    if ($enc) { 
	      HTML::Entities::encode_entities($node, "<>&");
	    }
	    push(@html, $node);
	}
    });
    join("\n", @html, "\n");
}