/g;
}
} elsif ($contentType eq "text") {
$content =~ s/ / /g;
} elsif ($contentType eq "code") {
$content =~ s/ / /g;
$content = '
'.$content.'
';
}
return $content;
}
#-------------------------------------------------------------------
=head2 html2text ( html )
Converts html to text. It currently handles only text, so tables
or forms are not converted.
=head3 html
The html segment you want to convert to text.
=cut
sub html2text {
my $html = shift;
$session{temp}{html2text}{text} = "";
delete($session{temp}{html2text}{inside});
my $tagHandler = sub {
my($tag, $num) = @_;
$session{temp}{html2text}{inside}{$tag} += $num;
if($tag eq "br" || $tag eq "p") {
$session{temp}{html2text}{text} .= "\n";
}
};
my $textHandler = sub {
return if $session{temp}{html2text}{inside}{script} || $session{temp}{html2text}{inside}{style};
if ($_[0] =~ /\S+/) {
$session{temp}{html2text}{text} .= $_[0];
}
};
HTML::Parser->new(api_version => 3,
handlers => [start => [$tagHandler, "tagname, '+1'"],
end => [$tagHandler, "tagname, '-1'"],
text => [$textHandler, "dtext"],
],
marked_sections => 1,
)->parse($html);
return $session{temp}{html2text}{text};
}
#-------------------------------------------------------------------
=head2 makeAbsolute ( html , [ baseURL ] )
Returns html with all relative links converted to absolute.
=head3 html
The html to be made absolute.
=head3 baseURL
The base URL to use. Defaults to current page's url.
=cut
sub makeAbsolute {
my $html = shift;
my $baseURL = shift;
$session{temp}{makeAbsolute}{html} = "";
my $linkParser = sub {
my ($tagname, $attr, $text) = @_;
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',
iframe => 'src',
applet => 'codebase',
area => 'href',
script => 'src',
iframe => 'src',
);
if(not exists $linkElements{$tagname}) { # no need to touch this tag
$session{temp}{makeAbsolute}{html} .= $text;
return;
}
# Build a hash with tag attributes
my %tag_attr;
for my $tag (keys %linkElements) {
my $tagval = $linkElements{$tag};
for my $attr (ref $tagval ? @$tagval : $tagval) {
$tag_attr{"$tag $attr"}++;
}
}
$session{temp}{makeAbsolute}{html} .= "<".$tagname;
foreach (keys %$attr) {
if($_ eq '/') {
$session{temp}{makeAbsolute}{html} .= '/';
next;
}
if ($tag_attr{"$tagname $_"}) { # make this absolute
$attr->{$_} = WebGUI::URL::makeAbsolute($attr->{$_}, $baseURL);
}
$session{temp}{makeAbsolute}{html} .= qq' $_="$attr->{$_}"';
}
$session{temp}{makeAbsolute}{html} .= '>';
};
HTML::Parser->new(
default_h => [ sub { $session{temp}{makeAbsolute}{html} .= shift }, 'text' ],
start_h => [ $linkParser , 'tagname, attr, text' ],
)->parse($html);
return $session{temp}{makeAbsolute}{html};
}
#-------------------------------------------------------------------
=head2 processReplacements ( content )
Processes text using the WebGUI replacements system.
=head3 content
The content to be processed through the replacements filter.
=cut
sub processReplacements {
my ($content) = @_;
if (exists $session{replacements}) {
my $replacements = $session{replacements};
foreach my $searchFor (keys %{$replacements}) {
my $replaceWith = $replacements->{$searchFor};
$content =~ s/\Q$searchFor/$replaceWith/gs;
}
} else {
my $sth = WebGUI::SQL->read("select searchFor,replaceWith from replacements",WebGUI::SQL->getSlave);
while (my ($searchFor,$replaceWith) = $sth->array) {
$session{replacements}{$searchFor} = $replaceWith;
$content =~ s/\Q$searchFor/$replaceWith/gs;
}
$sth->finish;
}
return $content;
}
1;