Suggested improvements to RegistryLoader.pm - stuff for virtual hosts

[John Hughes]

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) = @_;