103 lines
3.1 KiB
Perl
103 lines
3.1 KiB
Perl
# Len Kranendonk - 20021212
|
|
|
|
package WebGUI::ProxyParse;;
|
|
require HTML::Parser;
|
|
require HTML::Entities;
|
|
require URI::URL;
|
|
use WebGUI::URL;
|
|
use vars qw(@ISA);
|
|
@ISA = qw(HTML::Parser);
|
|
|
|
my %linkElements = # from HTML::Element.pm
|
|
(
|
|
body => 'background',
|
|
base => 'href',
|
|
a => 'href',
|
|
img => [qw(src lowsrc usemap)], # lowsrc is a Netscape invention
|
|
form => 'action',
|
|
# input => 'src',
|
|
'link' => 'href', # need quoting since link is a perl builtin
|
|
frame => 'src',
|
|
applet => 'codebase',
|
|
area => 'href',
|
|
);
|
|
|
|
my %tag_attr;
|
|
for my $tag (keys %linkElements) {
|
|
my $tagval = $linkElements{$tag};
|
|
for my $attr (ref $tagval ? @$tagval : $tagval) {
|
|
$tag_attr{"$tag $attr"}++;
|
|
}
|
|
}
|
|
|
|
sub new {
|
|
my $pack = shift;
|
|
my $self = $pack->SUPER::new();
|
|
$self->{Url} = shift;
|
|
$self->{Content} = shift;
|
|
$self->{wid} = shift;
|
|
$self->{Filtered} ="";
|
|
$self->{FormAction} = "";
|
|
$self->{FormActionIsDefined} = 0;
|
|
$self;
|
|
}
|
|
|
|
sub filter {
|
|
my $self=shift;
|
|
$self->parse($self->{Content}); # Make paths absolute and let them return to us
|
|
$self->eof;
|
|
return $self->{Filtered};
|
|
}
|
|
|
|
## some items stolen from HTML::Filter
|
|
sub output { $_[0]->{Filtered} .= $_[1]; }
|
|
sub declaration { $_[0]->output("<!$_[1]>") }
|
|
sub comment { $_[0]->output("<!--$_[1]-->") }
|
|
sub text { $_[0]->output($_[1]) }
|
|
sub end { $_[0]->output("</$_[1]>") }
|
|
|
|
sub start {
|
|
my $self = shift;
|
|
my ($tag, $attr, $attrseq, $origtext) = @_;
|
|
$self->output("<$tag");
|
|
for (keys %$attr) {
|
|
$self->output(" $_=\"");
|
|
my $val = $attr->{$_};
|
|
if ((lc($tag) eq "input" || lc($tag) eq "textarea" || lc($tag) eq "select")
|
|
&& (lc($_) eq "name" || lc($_) eq "submit")) { # Rewrite input type names
|
|
$val = 'HttpProxy_' . $val;
|
|
}
|
|
if (lc($tag) eq "form" && not $self->{FormActionIsDefined}) {
|
|
$self->{FormAction} = $self->{Url};
|
|
}
|
|
if ($tag_attr{"$tag $_"}) { # needs rewrite
|
|
if ($val =~ /^\?/) { # link that starts with ? i.e. <a href="?var=hello">
|
|
my @urlBase = split(/\?/, $self->{Url});
|
|
$val = URI::URL::url($urlBase[0] . $val);
|
|
} else {
|
|
$val = URI::URL::url($val)->abs($self->{Url},1); # make absolute
|
|
}
|
|
if ($val->scheme eq "http") {
|
|
if (lc($tag) ne "img") { # no rewrite for images
|
|
if (lc($tag) eq "form" && lc($_) eq "action") { # Found FORM ACTION
|
|
$self->{FormActionIsDefined}=1;
|
|
$self->{FormAction} = $val; # set FormAction to include hidden field later
|
|
$val = WebGUI::URL::page; # Form Action returns to us
|
|
} else {
|
|
$val = WebGUI::URL::page('proxiedUrl='.WebGUI::URL::escape($val).
|
|
'&wid='.$self->{wid}); # return to us
|
|
}
|
|
}
|
|
}
|
|
}
|
|
$self->output($val.'"');
|
|
}
|
|
$self->output(">");
|
|
if ($self->{FormAction} ne "") {
|
|
$self->output('<input type="hidden" name="FormAction" value="'.$self->{FormAction}.'">');
|
|
$self->output('<input type="hidden" name="wid" value="'.$self->{wid}.'">');
|
|
$self->{FormAction} = '';
|
|
$self->{FormActionIsDefined}=0;
|
|
}
|
|
}
|
|
1;
|