Q: about ->extractlinks

Fred Kleindenst (fred@boxtop.com)
Thu, 29 Feb 96 16:03 PST


My question concerns the following code segment:


       for (@{ $h->extractLinks( qw(a img body) ) }) {
            ($link, $linkelem) = @$_;
             $bar = $linkelem->tag();
             $link =~ tr/A-Z/a-z/;
             if ( $bar eq a ) { $linkelem ->attr(href, $link); }
             if ( $bar eq img ) { $linkelem ->attr(src, $link); }
             if ( $bar eq body ) { $linkelem ->attr(background, $link);}
        }


extractlinks won't return links inside of the body tag.  Why is this?  How can
I work around it?

TIA

-- Fred Kleindenst             \
-- Systems Administrator        \             fred@boxtop.com
-- Boxtop Interactive            \