|
version 1.19, 2001/08/11 21:05:42
|
version 1.20, 2001/08/12 01:18:37
|
|
Line 49 sub handler {
|
Line 49 sub handler {
|
| } |
} |
| $ENV{'request.filename'} = $r->filename; |
$ENV{'request.filename'} = $r->filename; |
| |
|
| # --------------------- 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}; |
|
| } |
|
| |
|
| # ------------------------------------------- Still no referer? Check wildcards |
|
| unless ($ENV{'HTTP_REFERER'}) { |
|
| map { |
|
| if ($_=~/^httpref\..*\*/) { |
|
| my $pattern=$_; |
|
| $pattern=~s/\*/\[\^\/\]\+/g; |
|
| $pattern=~s/\//\\\//g; |
|
| if ($requrl=~/$pattern/) { |
|
| $ENV{'HTTP_REFERER'}=$ENV{$_}; |
|
| } |
|
| } |
|
| } keys %ENV; |
|
| } |
|
| # -------------------------------------------------------- Load POST parameters |
# -------------------------------------------------------- Load POST parameters |
| |
|
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonacc.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth