--- loncom/auth/lonauth.pm 2001/01/09 22:10:40 1.18 +++ loncom/auth/lonauth.pm 2001/06/02 16:10:04 1.19 @@ -3,7 +3,8 @@ # 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,5/31,6/1,6/5,6/29, -# 7/1,7/10,10/2,10/5,10/9,10/26,10/30,11/10 Gerd Kortemeyer +# 7/1,7/10,10/2,10/5,10/9,10/26,10/30,11/10, +# 05/28,05/29 Gerd Kortemeyer package Apache::lonauth; @@ -91,7 +92,7 @@ sub success { my $idf=Apache::File->new(">$lonids/$cookie.id"); unless (flock($idf,LOCK_EX)) { &Apache::lonnet::logthis("WARNING: ". - 'Could not obtain exclusive lock in lonauth: '.$!); + 'Could not obtain exclusive lock in lonauth: '.$!); $idf->close(); return 'error: '.$!; } @@ -111,7 +112,7 @@ sub success { if ($userroles ne '') { print $idf "$userroles"; } $idf->close(); } - + $ENV{'request.role'}='cm'; # -------------------------------------------------------------------- Log this &Apache::lonnet::log($domain,$username,$authhost, @@ -130,8 +131,9 @@ sub success { $cookie="lonID=$cookie; path=/"; # -------------------------------------------------------- Menu script and info - my $windowinfo=&Apache::lonmenu::open(); +# ------------------------------------------------------------- Info for Remote + my $configmenu=&Apache::lonmenu::rawconfig(); # ------------------------------------------------- Output for successful login $r->send_cgi_header(< Successful Login to the LearningOnline Network with CAPA - + - - $windowinfo + + +$windowinfo

Welcome!