[BACK]Return to lonauth.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonauth.pm between versions 1.71 and 1.73

version 1.71, 2005/11/10 19:19:08 version 1.73, 2006/01/19 22:14:38
Line 40  use Apache::lonnet; Line 40  use Apache::lonnet;
 use Apache::lonmenu();  use Apache::lonmenu();
 use Fcntl qw(:flock);  use Fcntl qw(:flock);
 use Apache::lonlocal;  use Apache::lonlocal;
 use POSIX qw(mktime);  use POSIX qw(strftime);
   
 my %FORM;  my %FORM;
   
Line 114  sub success { Line 114  sub success {
     my %userenv=Apache::lonnet::dump('environment',$domain,$username);      my %userenv=Apache::lonnet::dump('environment',$domain,$username);
     my ($tmp) = keys(%userenv);      my ($tmp) = keys(%userenv);
     if ($tmp !~ /^(con_lost|error|no_such_host)/i) {      if ($tmp !~ /^(con_lost|error|no_such_host)/i) {
    # default remote control to off
    if ($userenv{'remote'} ne 'on') { $userenv{'remote'} = 'off'; }
  foreach my $key (keys(%userenv)) {   foreach my $key (keys(%userenv)) {
     $userenv.="environment.$key=$userenv{$key}\n";      $userenv.="environment.$key=$userenv{$key}\n";
  }   }
Line 154  sub success { Line 156  sub success {
            print $idf "browser.localres=$FORM{'localres'}\n";             print $idf "browser.localres=$FORM{'localres'}\n";
         }          }
         print $idf "server.domain=".$r->dir_config('lonDefDomain')."\n";          print $idf "server.domain=".$r->dir_config('lonDefDomain')."\n";
         my $timezone='UTC';          my $timezone=POSIX::strftime("%Z",localtime(time));
         my $timediff=POSIX::mktime(localtime())-POSIX::mktime(gmtime());  
         if ($timediff) {  
     my $hours=int($timediff/3600);  
             my $minutes=abs(int(($timediff-$hours*3600)/60));  
             my $sign="+";  
             if ($timediff<0) {  
  $sign="-";  
     }  
             $timezone.=$sign.abs($hours).':'.substr("0$minutes",-2);  
  }  
         print $idf "server.timezone=$timezone\n";          print $idf "server.timezone=$timezone\n";
  print $idf "request.course.fn=\n";   print $idf "request.course.fn=\n";
  print $idf "request.course.uri=\n";   print $idf "request.course.uri=\n";
Removed from v.1.71  
changed lines
  Added in v.1.73

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>