::test config

[Rick Myers]

I guess the better way of asking is to provide the patch.

Here's what I meant...

diff -ur modperl/lib/Apache/test.pm modperl~/lib/Apache/test.pm
--- modperl/lib/Apache/test.pm  Sun Aug 26 18:17:26 2001
+++ modperl~/lib/Apache/test.pm Fri Dec 21 22:39:19 2001
@@ -48,8 +48,18 @@
 
 sub write_httpd_conf {
     my $pkg = shift;
-    my %args = (conf_file => 't/httpd.conf', @_);
     my $DIR = `pwd`; chomp $DIR;
+    my %args = (
+        conf_file => 't/httpd.conf',
+        error_log => "$DIR/t/error_log",
+        pid_file  => "$DIR/t/httpd.pid",
+        lock_file => "$DIR/t/httpd.lock",
+        transfer_log => '/dev/null',
+        document_root => "$DIR/t",
+        server_root   => "$DIR/t",
+        server_name   => 'localhost',
+        @_
+    );
 
     local *CONF;
     open CONF, ">$args{conf_file}" or die "Can't create $args{conf_file}: $!";
@@ -58,18 +68,19 @@
 Port $args{port}
 User $args{user}
 Group $args{group}
-ServerName localhost
-DocumentRoot $DIR/t
+ServerName $args{server_name}
+DocumentRoot $args{document_root}
+ServerRoot $args{server_root}
 
 $args{modules}
 
-ErrorLog $DIR/t/error_log
-PidFile $DIR/t/httpd.pid
+ErrorLog $args{error_log}
+PidFile $args{pid_file}
 AccessConfig /dev/null
 ResourceConfig /dev/null
-LockFile $DIR/t/httpd.lock
+LockFile $args{lock_file}
 TypesConfig /dev/null
-TransferLog /dev/null
+TransferLog $args{transfer_log}
 ScoreBoardFile /dev/null
 
 AddType text/html .html

Rick Myers                            [EMAIL PROTECTED]
----------------------------------------------------
The Feynman Problem       1) Write down the problem.
Solving Algorithm         2) Think real hard.
                          3) Write down the answer.

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]