[htdig] RE: Stuck on rundig.. (Mohler, Jeff)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 454-5900

Jeff

If it's any help I use a perl script to generate an site.html file
containing links to all files in the subtree

#!/usr/bin/perl
# Written by Brian Lavender
# last mod sm 28/2/02 modified 5/02/02 to see htm files too
#
# Configuration Variables
# Change these variables to match your web server's configuration

use File::Find;
use strict;

my $base_url = "http://192.168.1.2";
#my $base_url = "http://www.brie.com";
my $base_dir = "/usr/website";
my $i = 1;

if (! -f "$base_dir/site.html") {
   open (OUTFILE , ">$base_dir/site.html");
 } else {
   die "$base_dir/site.html already exists.\n Remove or move it before
running this\n"; }

print OUTFILE << "__END__";
<html>
<head>
<title>Site Mapa</title>
<body>
<h1>$base_url Site Map</h1>
<PRE>
__END__

finddepth(\&wanted, $base_dir);

print OUTFILE << "__END__";
</PRE>
<P>
Originally developed by: <br>
<address>
<a href="mailto:brian\@brie.com">Brian Lavender</a> </address>
</html>
__END__

sub wanted {

#   if (/\.html$/) {  original line for HTML only
#   if (/\.html$|\.pdf$|\.txt/i) {
    if (/\.html$|\.pdf$|\.htm$|\.txt/i) {
     my $temp = $File::Find::name;
     $temp =~ s/\Q$base_dir//;
     printf OUTFILE ("%5d",$i);
     print OUTFILE qq{  <A HREF="},$base_url,$temp,
 qq{">},$temp,"</A>\n";
     if ($i % 5 == 0) { print OUTFILE "\n"};
     $i++;
   }

}

________________________________________________________________________
This e-mail has been scanned for all viruses by Star Internet. The
service is powered by MessageLabs. For more information on a proactive
anti-virus service working around the clock, around the globe, visit:
http://www.star.net.uk
________________________________________________________________________