loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.69, 2005/11/23 20:46:04
+version 1.70, 2005/11/29 21:12:03
  Line 44  sub handler {
      my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));
      my $lonid=$cookies{'lonID'};
      my $cookie;
+     my $lonidsdir=$r->dir_config('lonIDsDir');
+     my $handle;
      if ($lonid) {
- 	my $handle=$lonid->value;
+ 	$handle=$lonid->value;
          $handle=~s/\W//g;
-         my $lonidsdir=$r->dir_config('lonIDsDir');
+     }
+     if ($r->user
+ 	&& (!$lonid || !-e "$lonidsdir/$handle.id" || $handle eq '') ) {
+ 	my $domain = $r->dir_config('lonDefDomain');
+ 	my $home=&Apache::lonnet::homeserver($r->user,$domain);
+ 	if ($home !~ /(con_lost|no_such_host)/) {
+ 	    $handle=&Apache::lonauth::success($r,$r->user,$domain,
+ 					     $home,'noredirect');
+ 	    $r->header_out('Set-cookie',"lonID=$handle; path=/");
+ 	}
+     }
+     if ($r->dir_config("lonBalancer") eq 'yes') {
+ 	$r->set_handlers('PerlResponseHandler'=>
+ 			 [\&Apache::switchserver::handler]);
+     }
+     if ($handle ne '') {
          if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {
  # ------------------------------------------------------ Initialize Environment