[mp2] API questions.

[Ruslan U. Zakirov]

		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