perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Rick Myers <...@sumthin.nu>
Subject ::test config
Date Sat, 22 Dec 2001 03:46:56 GMT
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                            rik@sumthin.nu
----------------------------------------------------
The Feynman Problem       1) Write down the problem.
Solving Algorithm         2) Think real hard.
                          3) Write down the answer.

---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org


Mime
View raw message