#!/usr/bin/perl # Configuration Variables # Change these variables to match your web server's configuration use File::Find; use strict; my $base_url = "http://www.brie.com"; my $base_dir = "/home/www/htdocs"; 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__";
__END__ finddepth(\&wanted, $base_dir); print OUTFILE << "__END__";
Originally developed by: