--- loncom/auth/lonauth.pm 2000/06/29 20:43:03 1.8 +++ loncom/auth/lonauth.pm 2000/07/14 07:43:15 1.10 @@ -2,7 +2,8 @@ # 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,5/31,6/1,6/5,6/29 Gerd Kortemeyer +# 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 Gerd Kortemeyer package Apache::lonauth; @@ -62,7 +63,7 @@ sub success { if ($httpbrowser=~/next/i) { $clientos='next'; } if (($httpbrowser=~/mac/i) || ($httpbrowser=~/powerpc/i)) { $clientos='mac'; } - if ($httpbrowser=~/win/) { $clientos='win'; } + if ($httpbrowser=~/win/i) { $clientos='win'; } # --------------------------------------------------------- Write first profile @@ -169,7 +170,7 @@ sub handler { return OK; } - my ($key,$firsturl)=split(/:/,$tmpinfo); + my ($key,$firsturl)=split(/&/,$tmpinfo); my $keybin=pack("H16",$key);