--- loncom/auth/lonacc.pm 2000/10/31 19:26:21 1.12 +++ loncom/auth/lonacc.pm 2000/11/06 16:30:21 1.13 @@ -1,7 +1,7 @@ # The LearningOnline Network # Cookie Based Access Handler # 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11, -# 01/06,01/13,05/31,06/01,09/06,09/25,09/28,10/30 Gerd Kortemeyer +# 01/06,01/13,05/31,06/01,09/06,09/25,09/28,10/30,11/6 Gerd Kortemeyer package Apache::lonacc; @@ -40,22 +40,13 @@ sub handler { $ENV{'request.state'} = "published"; $ENV{'request.filename'} = $r->filename; -# ---- Figure out referer, first from HTTP_REFERER, then cache, then wild guess +# --------------------- Figure out referer, first from HTTP_REFERER, then cache my $referer=''; if ($referer=$r->header_in('Referer')) { $ENV{'HTTP_REFERER'}=$referer; } else { $ENV{'HTTP_REFERER'}=$ENV{'httpref.'.$requrl}; - unless($ENV{'HTTP_REFERER'}) { - my $pathpart=$requrl; - $pathpart=~s/\/[\w\.]*$//; - map { - if ($_=~/^httpref.$pathpart/) { - $ENV{'HTTP_REFERER'}=$ENV{$_}; - } - } keys %ENV; - } } # -------------------------------------------------------- Load POST parameters