It would be nice if RegistryLoader.pm let me load a script for a virtual host in such a way that I didn't have to worry about how they were represented. Something like: my $r = Apache::RegistryLoader->new; $r->handler($uri, $filename, $virthost); How about this. -- John Hughes <[EMAIL PROTECTED]>, CalvaEDI SA. Tel: +33-1-4313-3131 66 rue du Moulin de la Pointe, Fax: +33-1-4313-3139 75013 PARIS.
--- mod_perl-1.21/lib/Apache/RegistryLoader.pm.orig Tue Mar 16 09:55:06 1999 +++ mod_perl-1.21/lib/Apache/RegistryLoader.pm Wed Jan 19 14:15:38 2000 @@ -13,7 +13,7 @@ } sub handler { - my($self, $uri, $filename) = @_; + my($self, $uri, $filename, $virthost) = @_; unless($filename) { if(my $func = $self->{trans}) { @@ -41,6 +41,8 @@ filename => Apache->server_root_relative($filename || $guess), } => ref($self) || $self; + $r->{virthost} = $virthost if defined $virthost; + $r->SUPER::handler; } @@ -56,7 +58,7 @@ return \$code; } -sub get_server_name {} +sub get_server_name { shift->{virthost} } sub filename { shift->{filename} } sub uri { shift->{uri} } sub status {200} @@ -69,7 +71,7 @@ sub request {} sub seqno {0} sub server { shift } -sub is_virtual {0} +sub is_virtual { exists shift->{virthost} } sub header_out {""} sub chdir_file { my($r, $file) = @_;