loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.153, 2018/07/01 00:03:42	version 1.154, 2018/07/04 16:58:19
Line 76 sub success {	Line 76 sub success {

# ----------------------------------------------------------- Get cookies ready	# ----------------------------------------------------------- Get cookies ready
my ($securecookie,$defaultcookie);	my ($securecookie,$defaultcookie);
if ($ENV{'SERVER_PORT'} == 443) {	my $ssl = $r->subprocess_env('https');
$securecookie="lonID=$cookie; path=/; HttpOnly; secure";	if ($ssl) {
	$securecookie="lonSID=$cookie; path=/; HttpOnly; secure";
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
if (($lonidsdir) && (-e "$lonidsdir/$cookie.id")) {	if (($lonidsdir) && (-e "$lonidsdir/$cookie.id")) {
my $linkname=substr(Digest::MD5::md5_hex(Digest::MD5::md5_hex(time(). {}. rand(). $$)), 0, 32).'_linked';	my $linkname=substr(Digest::MD5::md5_hex(Digest::MD5::md5_hex(time(). {}. rand(). $$)), 0, 32).'_linked';
Line 88 sub success {	Line 89 sub success {
"$lonidsdir/$linkname.id"); 1 };	"$lonidsdir/$linkname.id"); 1 };
if ($made_symlink) {	if ($made_symlink) {
$defaultcookie = "lonLinkID=$linkname; path=/; HttpOnly;";	$defaultcookie = "lonLinkID=$linkname; path=/; HttpOnly;";
&Apache::lonnet::appenv({'user.linkedenv' => "$lonidsdir/$linkname.id"});	&Apache::lonnet::appenv({'user.linkedenv' => $linkname});
}	}
}	}
} else {	} else {