loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.8, 2000/06/29 20:43:03	version 1.10, 2000/07/14 07:43:15
Line 2	Line 2
# User Authentication Module	# User Authentication Module
# 5/21/99,5/22,5/25,5/26,5/27,5/29,6/2,6/11,6/14,6/15	# 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,	# 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;	package Apache::lonauth;

Line 62 sub success {	Line 63 sub success {
if ($httpbrowser=~/next/i) { $clientos='next'; }	if ($httpbrowser=~/next/i) { $clientos='next'; }
if (($httpbrowser=~/mac/i) \|\|	if (($httpbrowser=~/mac/i) \|\|
($httpbrowser=~/powerpc/i)) { $clientos='mac'; }	($httpbrowser=~/powerpc/i)) { $clientos='mac'; }
if ($httpbrowser=~/win/) { $clientos='win'; }	if ($httpbrowser=~/win/i) { $clientos='win'; }

# --------------------------------------------------------- Write first profile	# --------------------------------------------------------- Write first profile

Line 169 sub handler {	Line 170 sub handler {
return OK;	return OK;
}	}

my ($key,$firsturl)=split(/:/,$tmpinfo);	my ($key,$firsturl)=split(/&/,$tmpinfo);

my $keybin=pack("H16",$key);	my $keybin=pack("H16",$key);