Sorry, I should mention that the PRELOAD_WEBSITES variable is set to OFF, so no
preloading is happening with the test config.
> And, for the sake of completeness, here's my startup.pl:
>
> #!/usr/local/bin/perl
>
> # First modify the include path
> BEGIN
> {
> use strict;
> use Apache ();
> use lib '/www/lib/perl';
> }
>
> # Common modules
> use Apache::Registry ();
> use Apache::Constants ();
> use Apache::File ();
> use Apache::Log ();
> use Safe ();
> use URI::Escape ();
> use Log::Logger ();
> use File::Copy ();
> use File::Path ();
> use File::Glob ();
> use Time::Zone ();
> use CGI qw (-compile :cookie cgi_error header);
> use Date::Calc qw(:all);
> use Image::Magick ();
> use HTML::Embperl ();
> use HTML::EmbperlObject ();
> use Embperl ();
> use Embperl::Object ();
> use DBI ();
> DBI->install_driver('mysql');
> use Digest::HMAC_MD5 qw(hmac_md5_hex);
>
> # My modules
> use Apache::BlockAgent ();
> use Apache::Nilspace::Main::Access ();
> use Apache::Nilspace::Subscription::Access ();
> use Apache::Nilspace::Subscription::Handler ();
> use Nilspace ();
> use Nilspace::Agenda ();
> use Nilspace::Commerce ();
> use Nilspace::Mail ();
>
> # Apache::VMonitor
> use Apache::VMonitor();
> $Apache::VMonitor::Config{BLINKING} = 1;
> $Apache::VMonitor::Config{REFRESH} = 0;
> $Apache::VMonitor::Config{VERBOSE} = 0;
> $Apache::VMonitor::Config{SYSTEM} = 1;
> $Apache::VMonitor::Config{APACHE} = 1;
> $Apache::VMonitor::Config{PROCS} = 1;
> $Apache::VMonitor::Config{MOUNT} = 1;
> $Apache::VMonitor::Config{FS_USAGE} = 1;
> $Apache::VMonitor::Config{SORT_BY} = 'size';
> $Apache::VMonitor::PROC_REGEX = join "\|", qw(httpd mysql squid);
>
> # Preload Embperl website code
> if (lc($ENV{PRELOAD_WEBSITES}) eq 'on')
> {
> preload_dir ('/www/lib/perl/Apache', '*.html *.epl');
> preload_dir ('/www/vhosts/www.neilgunton.com/htdocs', '*.html *.epl');
> preload_dir ('/www/vhosts/www.crazyguyonabike.com/htdocs', '*.html
*.epl');
> }
>
> # Recursive directory traversal sub which preloads Embperl files
> sub preload_dir
> {
> my ($dir, # The current directory which is to be processed
> $pattern, # A pattern identifying files to be processed, e.g. '*.html
> *.epl'
> @search_path # List of paths for giving to Embperl to search for files
> ) = @_;
>
> @search_path = () if !@search_path;
>
> # Put the current dir on the search path
> push (@search_path, $dir);
>
> local *DIR;
> opendir (DIR, $dir) or die "Could not open directory: $dir: $!";
>
> # First, process files in this directory
> # Pattern consists of a potential list of patterns, separated by spaces.
> # First we make a list of patterns, and then glob each of these
> foreach my $glob (split (/\s/, $pattern))
> {
> # Iterate through the resulting list of files
> foreach my $file (File::Glob::glob ("$dir/$glob"))
> {
> if (!(-d $file) && (-e $file))
> {
> # Build up the paths, starting with the current dir and working back
>up to
the
> website root
> my $path = '';
> foreach my $i (1 .. scalar(@search_path))
> {
> $path .= ':' . $search_path[scalar(@search_path) - $i];
> }
> $path .= ':/www/lib/perl/Apache/';
> $file =~ /\/([^\/]+)$/;
> my $filename = $1;
> print "Embperl::Execute $file\n";
> Embperl::Execute ({inputfile => $filename,
> import => 0,
> path => $path,
> escmode => 0,
> options => 16}) ;
> }
> }
> }
>
> # Now, recursively go down into subdirectories
> while (defined(my $subdir = readdir (DIR)))
> {
> # Only recurse on directories, which do not start with ".", and skip symbolic
> links
> if (-d "$dir/$subdir" &&
> !(-l "$dir/$subdir") &&
> ($subdir !~ /^\.{1,2}$/))
> {
>
> preload_dir ("$dir/$subdir", $pattern, @search_path);
> }
> }
> }
>
> 1;
>
> >
> > Gerald
> >
> > -------------------------------------------------------------
> > Gerald Richter ecos electronic communication services gmbh
> > Internetconnect * Webserver/-design/-datenbanken * Consulting
> >
> > Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
> > E-Mail: [EMAIL PROTECTED] Voice: +49 6133 925131
> > WWW: http://www.ecos.de Fax: +49 6133 925152
> > -------------------------------------------------------------
> >
> >
> > ---------------------------------------------------------------------
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
