oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

POD docs

Browse source
This commit is contained in:
Colin Kuskie 2006-03-05 06:42:07 +00:00
parent aa99ced360
commit 34b2068286
7 changed files with 187 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

37
lib/WebGUI/Asset/Wobject/HttpProxy/Parse.pm
View file

@ -1,16 +1,18 @@
package WebGUI::Asset::Wobject::HttpProxy::Parse;
=head1 LEGAL
# -------------------------------------------------------------------
# WebGUI is Copyright 2001-2006 Plain Black Corporation.
# -------------------------------------------------------------------
# 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
# -------------------------------------------------------------------
-------------------------------------------------------------------
WebGUI is Copyright 2001-2006 Plain Black Corporation.
-------------------------------------------------------------------
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::Parser;
use HTML::Entities;
@ -18,6 +20,16 @@ use URI::URL;
use vars qw(@ISA);
@ISA = qw(HTML::Parser);
=head1 NAME
Package WebGUI::Asset::Wobject::HttpProxy::Parse
=head1 DESCRIPTION
HTML parser for Asset::Wobject::HttpProxy. Is not able to parse its
own output.
=cut
my %tag_attr = (
"body background" => 1,
@ -41,6 +53,12 @@ sub DESTROY {
$self = undef;
}
=head2 new ( $class, $session)
Constructor for parser.
=cut
sub new {
my $pack = shift;
my $self = $pack->SUPER::new();
@ -57,7 +75,6 @@ sub new {
$self;
}
sub filter {
my $self=shift;
$self->parse($self->{Content}); # Make paths absolute and let them return to us