loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.169, 2021/11/03 01:04:02	version 1.170, 2021/11/17 00:44:47
Line 42 use Apache::lonlocal;	Line 42 use Apache::lonlocal;
use Apache::File();	use Apache::File();
use HTML::Entities;	use HTML::Entities;
use Digest::MD5;	use Digest::MD5;
	use CGI::Cookie();

# ------------------------------------------------------------ Successful login	# ------------------------------------------------------------ Successful login
sub success {	sub success {
my ($r, $username, $domain, $authhost, $lowerurl, $extra_env,	my ($r, $username, $domain, $authhost, $lowerurl, $extra_env,
$form,$skipcritical,$cid) = @_;	$form,$skipcritical,$cid,$expirepub) = @_;

# ------------------------------------------------------------ Get cookie ready	# ------------------------------------------------------------ Get cookie ready
my $cookie =	my $cookie =
Line 233 sub success {	Line 234 sub success {
if ($defaultcookie) {	if ($defaultcookie) {
$r->headers_out->add('Set-cookie' => $defaultcookie);	$r->headers_out->add('Set-cookie' => $defaultcookie);
}	}
	if ($expirepub) {
	my $c = new CGI::Cookie(-name => 'lonPubID',
	-value => '',
	-expires => '-10y',);
	$r->headers_out->add('Set-cookie' => $c);
	}
$r->send_http_header;	$r->send_http_header;

my ($start_page,$js,$pagebody,$end_page);	my ($start_page,$js,$pagebody,$end_page);