#!/usr/bin/perl

$libwww_dir = "libwww-perl-0.40";
$| = 1;

$docroot = substr($ARGV[0],0,rindex($ARGV[0],'/')).'/';
$chop_docroot = substr($ARGV[0],0,rindex($ARGV[0],'/'));

open(GETHTML,"$libwww_dir/get -t1000 $ARGV[0]|");

$counter = 0;

$i = 0;
while(<GETHTML>)
  {
  while($_ =~ /(href|HREF)\=\"(\w\S*)\"/g)
    {
    $firstlinks[$i] = $2;
    if((substr($firstlinks[$i],0,5) ne 'http:')&&
       (substr($firstlinks[$i],0,6) ne 'https:')&&
       (substr($firstlinks[$i],0,5) ne 'file:')&&
       (substr($firstlinks[$i],0,7) ne 'mailto:')&&
       (substr($firstlinks[$i],0,4) ne 'ftp:')&&
       (substr($firstlinks[$i],0,5) ne 'news:')&&
       (substr($firstlinks[$i],0,5) ne 'nntp:')&&
       (substr($firstlinks[$i],0,5) ne 'wais:')&&
       (substr($firstlinks[$i],0,7) ne 'gopher:')&&
       (substr($firstlinks[$i],0,7) ne 'telnet:'))
      {
      if(substr($firstlinks[$i],0,1) ne '/')
        {
        $firstlinks[$i] = $docroot."$firstlinks[$i]";
        }
      else
        {
        $firstlinks[$i] = $chop_docroot."$firstlinks[$i]";
        }
      $pound = rindex($firstlinks[$i],'#');
      if($pound>0)
        {
        $firstlinks[$i] = substr($firstlinks[$i],0,$pound);
        }
      }
    $i++;
    }
  }
close(GETHTML);

if(substr($ARGV[0],rindex($links[$i],'.')) eq '.html')
  {
  $ARGV[0] = substr($ARGV[0],0,(length($ARGV[0])-5));
  }

$visited[$counter] = substr($ARGV[0],length($main::docroot));

print "<A HREF=\"$ARGV[0]\">$ARGV[0]</A>\n<UL>\n";

&recurse_HTML(@firstlinks);

#End of main()

sub recurse_HTML
  {
  local(@links) = @_;
  local($i) = 0;

  while($links[$i])
    {
    if((substr($links[$i],0,length($main::docroot)) eq $main::docroot)&&
       (substr($links[$i],rindex($links[$i],'.')) eq '.html'))
      {
      if($placeholder = &link_visited(substr($links[$i],0,(length($links[$i])-5))))
        {
        print("<LI>#<A HREF=\"#$placeholder\">".substr($links[$i],length($main::docroot))."</A>\n");
        $i++;
        next;
        }
      print("<LI><A HREF=\"$links[$i]\">".substr($links[$i],length($main::docroot))."</A>\n");
      open(GETHTML,"$libwww_dir/get -t1000 $links[$i]|");

      $links[$i] = substr($links[$i],0,(length($links[$i])-5));

      local($j) = 0;
      local(@links2) = "";
      while(<GETHTML>)
        {
        while($_ =~ /(HREF|href)\=\"(\w\S*)\"/g)
          {
          $links2[$j] = $2;
          if((substr($links2[$j],0,5) ne 'http:')&&
             (substr($links2[$j],0,6) ne 'https:')&&
             (substr($links2[$j],0,5) ne 'file:')&&
             (substr($links2[$j],0,7) ne 'mailto:')&&
             (substr($links2[$j],0,4) ne 'ftp:')&&
             (substr($links2[$j],0,5) ne 'news:')&&
             (substr($links2[$j],0,5) ne 'nntp:')&&
             (substr($links2[$j],0,5) ne 'wais:')&&
             (substr($links2[$j],0,7) ne 'gopher:')&&
             (substr($links2[$j],0,7) ne 'telnet:'))
            {
            if(substr($links2[$j],0,1) ne '/')
              {
              $links2[$j] = $main::docroot."$links2[$j]";
              }
            else
              {
              $links2[$j] = $main::chop_docroot."$links2[$j]";
              }
            local($pound) = rindex($links2[$j],'#');
            if($pound>0)
              {
              $links2[$j] = substr($links2[$j],0,$pound);
              }
            }
          $j++;
          }
        }
      close(GETHTML);
      $main::counter++;
      $main::visited[$main::counter] = substr($links[$i],length($main::docroot));
      if($j)
        {
        print"<UL>\n";
        &recurse_HTML(@links2);
        print"</UL>\n";
        }
      }
    else
      {
      if(substr($links[$i],0,length($main::docroot)) ne $main::docroot)
        {
        print"<LI>REMOTE:<A HREF=\"$links[$i]\">$links[$i]</A>\n";
        }
      else
        {
        print("<LI>\@<A HREF=\"$links[$i]\">".substr($links[$i],length($main::docroot))."</A>\n");
        }
      }
    $i++;
    }
  }

sub link_visited
  {
  local($link) = @_;
  local($k) = 0;

  while($k<=$main::counter)
    {
    if($link eq $main::docroot.$main::visited[$k])
      {
      return $k;
      }
    $k++;
    }
  return 0;
  }

#EOF