#
# wwwisprep.pl by ted@abcompsvc.com
#
use Strict;

my $startdir = "/netscape/htdocs";

&parsedir ($startdir);


exit;

sub parsedir
{
  my ($dirname) = @_;

  $dirname =~ tr/A-Z/a-z/;

  print "about to parse $dirname ..\n";

  if (!(-e $dirname) || !(-d $dirname))
  {
    print "error: $dirname doesn't exist or is not a directory.\n";
    return;
  }

  opendir (CURRDIR, $dirname) || die "error opening $dirname: $!";

  my @dirstruct = readdir (CURRDIR);

  foreach $entry (@dirstruct)
  {
    $entry =~ tr/A-Z/a-z/;
    print "reading $entry .. ";
    if ($entry eq "." || $entry eq "..")
    {
      print "<zot>\n";
    }
    elsif (-d $entry)
    {
      my $toparse = $dirname . "/" . $entry;
      &parsedir ($toparse);
    }
    elsif ($entry =~ /\.htm$/i || $entry =~ /\.html$/i)
    {
      print "found HTML: $dirname/$entry\n";
      my $ret = `c:\\apps\\perl\\bin\\perl.exe
c:\\winnt35\\profiles\\www\\desktop\\wwwis.pl $dirname/$entry`;
      print $ret, "\n";
    }
    else
    {
      print "ignoring: $dirname/$entry\n";
    }
  }  
  return;
}