--- 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;