$r-headers_in-get('Referer') doesn't work with IE

[Scott Alexander]

Hi,

I using recipe 10.4 from the mod_perl cookbook.

in

sub logout ($$) {

  # I'm setting the logout address to be the login page again. My login page
  # is made up of /bin/$environment_name/
  # With Netscape it works fine ..

  my ($self, $r) = @_;
  my $uri = $r-headers_in-get('Referer') ;
  my @split = split /\//, $uri ;
  my $db = $split[4] ;

  $self-SUPER::logout($r);

  my $logout_address = /bin/ . $db . / ;
  $r-headers_out-set(Location = $logout_address);


  return REDIRECT;

}

Checking the log file for netscape everything is as expected.

User can login, work, logout - back to login page ready for next user.

But with IE 6.0 the $r-uri and $r-headers_in-get('Referer') is
different than for NN. It is the next page being called in this case just
/logout so I no longer know what was my db value.

Any ideas how to solve this?

Scott

Re: $r-headers_in-get('Referer') doesn't work with IE

[Geoffrey Young]

But with IE 6.0 the $r-uri and $r-headers_in-get('Referer') is
different than for NN. 
as you're seeing, the Referer header is pretty unreliable due to the 
different ways browsers implement it.

you should probably switch to a different method for this, such as 
specifying the environment through a PerlSetVar, or maybe passing it around 
in a form field, the query string, or extra path info or something.

HTH

--Geoff