--- toast 2003/08/25 05:06:36 1.180 +++ toast 2003/08/25 17:23:59 1.181 @@ -742,19 +742,10 @@ while($html =~ m!\b(href\s*\=\s*\"?|((http|ftp)://))([^\s\>\"]+)!ig) { my($link) = join("", undeftoempty($2, $4)); -warn("url = $url"); -warn("proto = $proto"); -warn("host = $host"); -warn("parent = $parent"); -warn("link = $link"); next if $link =~ /^mailto:/i; -warn("link = $link"); $link = $proto . $link if $link =~ m!^//!; -warn("link = $link"); $link = $host . $link if $link =~ m!^/!; -warn("link = $link"); $link = $parent . $link unless $link =~ m!^(\w+)://!; -warn("link = $link"); push(@links, $link); } return @links;