[mp2] API questions.

[prev] [thread] [next] [Date index for 2004/11/04]

		Hello.
1) I can't find how to get string that represent initial request 
location. I mean 'http://www.example.com/foo...'. Is it possible? Now, I 
use next code as workaround:
       my $location = $r->dir_config( 'ServerName' );
       unless( $location ) {
          $location = 'http://'. join ':', $r->get_server_name, 
$r->get_server_port;
       }

2) Can I get name of the current mod_perl hook. My module works well as 
PerlTransHandler or other that executes later, but should return OK if 
it's translating handler and DECLINED in other cases. I wish to write 
something like next code:
   if( $r->foo_method eq 'PerlTransHandler' ) {
     return OK;
   } else {
     return DECLINED
   }

3) I have two configuration variables in httpd.conf:
  PerlSetVar StorageRoot /mnt/local/storage/music/
  PerlSetVar BaseLocation /download
Can I declare 'Alias BaseLocation StorageRoot' with mod_perl API?
Without this alias Apache can't find file and I don't want to force user 
to input same strings twice.

				Best regards. Ruslan.

        -- 
        Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html