--- loncom/auth/lonauth.pm 2000/05/31 13:27:28 1.6 +++ loncom/auth/lonauth.pm 2000/06/05 20:28:17 1.7 @@ -2,7 +2,7 @@ # User Authentication Module # 5/21/99,5/22,5/25,5/26,5/27,5/29,6/2,6/11,6/14,6/15 # 16/11,12/16, -# 1/14,2/24,2/28,2/29,3/7,5/29,5/30 Gerd Kortemeyer +# 1/14,2/24,2/28,2/29,3/7,5/29,5/30,5/31,6/1,6/5 Gerd Kortemeyer package Apache::lonauth; @@ -33,7 +33,7 @@ sub success { my $userroles=Apache::lonnet::rolesinit($domain,$username,$authhost); -# Check browser type and MathML capability +# ------------------------------------ Check browser type and MathML capability my @browsertype=split(/\&/,$r->dir_config("lonBrowsDet")); my %mathcap=split(/\&/,$r->dir_config("lonMathML")); @@ -63,7 +63,7 @@ sub success { ($httpbrowser=~/powerpc/i)) { $clientos='mac'; } if ($httpbrowser=~/win/) { $clientos='win'; } -# Write first profile +# --------------------------------------------------------- Write first profile { my $idf=Apache::File->new(">$lonids/$cookie.id"); @@ -76,6 +76,10 @@ sub success { print $idf "browser.os=$clientos\n"; if ($userroles ne '') { print $idf "$userroles" }; } +# -------------------------------------------------------------------- Log this + + &Apache::lonnet::log($domain,$username,$authhost, + "Login $ENV{'REMOTE_ADDR'}"); # ------------------------------------------------------------ Get cookie ready @@ -95,6 +99,10 @@ ENDHEADER +

Welcome!

@@ -134,6 +142,8 @@ sub handler { my $pair; my $name; my $value; my %FORM; foreach $pair (@pairs) { ($name,$value) = split(/=/,$pair); + $value =~ tr/+/ /; + $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $FORM{$name}=$value; } @@ -160,14 +170,15 @@ sub handler { return OK; } - my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); - my $lonurl=$cookies{'lonURL'}; - if (!$lonurl) { failed($r,'Cookies need to be activated'); return OK; } - my $lowerurl=$lonurl->value; + if ($FORM{'firsturl'} eq '') { + $FORM{'firsturl'}='/res/index.html'; + } - success($r,$FORM{'uname'},$FORM{'udom'},$authhost,$lowerurl); + success($r,$FORM{'uname'},$FORM{'udom'},$authhost,$FORM{'firsturl'}); return OK; } 1; __END__ + +