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

Diff for /loncom/auth/lonlogin.pm between versions 1.143 and 1.147

version 1.143, 2010/08/26 08:10:47 version 1.147, 2011/03/03 06:37:30
Line 131  sub handler { Line 131  sub handler {
     }      }
     my $role    = $r->dir_config('lonRole');      my $role    = $r->dir_config('lonRole');
     my $loadlim = $r->dir_config('lonLoadLim');      my $loadlim = $r->dir_config('lonLoadLim');
       my $uloadlim= $r->dir_config('lonUserLoadLim');
     my $servadm = $r->dir_config('lonAdmEMail');      my $servadm = $r->dir_config('lonAdmEMail');
     my $tabdir  = $r->dir_config('lonTabDir');      my $tabdir  = $r->dir_config('lonTabDir');
     my $include = $r->dir_config('lonIncludes');      my $include = $r->dir_config('lonIncludes');
Line 150  sub handler { Line 151  sub handler {
  $loadavg=<$loadfile>;   $loadavg=<$loadfile>;
     }      }
     $loadavg =~ s/\s.*//g;      $loadavg =~ s/\s.*//g;
     my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim);  
     my $userloadpercent=&Apache::lonnet::userload();      my ($loadpercent,$userloadpercent);
       if ($loadlim) {
           $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim);
       }
       if ($uloadlim) {
           $userloadpercent=&Apache::lonnet::userload();
       }
   
     my $firsturl=      my $firsturl=
     ($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'});      ($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'});
Line 309  return false; Line 316  return false;
 }  }
   
 function enableInput() {  function enableInput() {
     this.document.client.elements.upass$now.removeAttribute("readonly");      this.document.client.elements.upass$now.removeAttribute("readOnly");
     this.document.client.elements.uname.removeAttribute("readonly");      this.document.client.elements.uname.removeAttribute("readOnly");
     this.document.client.elements.udom.removeAttribute("readonly");      this.document.client.elements.udom.removeAttribute("readOnly");
     return;      return;
 }  }
   
Line 435  LFORM Line 442  LFORM
 HEADER  HEADER
     }      }
     $r->print(<<ENDTOP);      $r->print(<<ENDTOP);
 <div style="float:left;">  <div style="float:left;margin-top:0;">
 <div class="LC_Box" style="background:$loginbox_bg;">  <div class="LC_Box" style="background:$loginbox_bg;">
   $logintitle    $logintitle
   $loginform    $loginform
Line 461  $announcements Line 468  $announcements
 </div>  </div>
 <hr style="clear:both;" />  <hr style="clear:both;" />
 ENDTOP  ENDTOP
       my ($domainrow,$serverrow,$loadrow,$userloadrow,$versionrow);
 $r->print(<<ENDDOCUMENT);      $domainrow = <<"END";
     <div style="float: left;">  
      <table border="0" cellspacing="0" cellpadding="0">  
       <tr>        <tr>
        <td  align="left" valign="top">         <td  align="left" valign="top">
         <small><b>$lt{'dom'}:&nbsp;</b></small>          <small><b>$lt{'dom'}:&nbsp;</b></small>
Line 473  $r->print(<<ENDDOCUMENT); Line 478  $r->print(<<ENDDOCUMENT);
         <small><tt>&nbsp;$domain</tt></small>          <small><tt>&nbsp;$domain</tt></small>
        </td>         </td>
       </tr>        </tr>
   END
       $serverrow = <<"END";
       <tr>        <tr>
        <td  align="left" valign="top">         <td  align="left" valign="top">
         <small><b>$lt{'serv'}:&nbsp;</b></small>          <small><b>$lt{'serv'}:&nbsp;</b></small>
Line 481  $r->print(<<ENDDOCUMENT); Line 488  $r->print(<<ENDDOCUMENT);
         <small><tt>&nbsp;$lonhost ($role)</tt></small>          <small><tt>&nbsp;$lonhost ($role)</tt></small>
        </td>         </td>
       </tr>        </tr>
   END
       if ($loadlim) {
           $loadrow = <<"END";
       <tr>        <tr>
        <td align="left" valign="top">         <td align="left" valign="top">
         <small><b>$lt{'load'}:&nbsp;</b></small>          <small><b>$lt{'load'}:&nbsp;</b></small>
Line 489  $r->print(<<ENDDOCUMENT); Line 499  $r->print(<<ENDDOCUMENT);
         <small><tt>&nbsp;$loadpercent $lt{'perc'}</tt></small>          <small><tt>&nbsp;$loadpercent $lt{'perc'}</tt></small>
        </td>         </td>
       </tr>        </tr>
   END
       }
       if ($uloadlim) {
           $userloadrow = <<"END";
       <tr>        <tr>
        <td align="left" valign="top">         <td align="left" valign="top">
         <small><b>$lt{'userload'}:&nbsp;</b></small>          <small><b>$lt{'userload'}:&nbsp;</b></small>
Line 497  $r->print(<<ENDDOCUMENT); Line 511  $r->print(<<ENDDOCUMENT);
         <small><tt>&nbsp;$userloadpercent $lt{'perc'}</tt></small>          <small><tt>&nbsp;$userloadpercent $lt{'perc'}</tt></small>
        </td>         </td>
       </tr>        </tr>
   END
       }
       if (($version ne '') && ($version ne '<!-- VERSION -->')) {
           $versionrow = <<"END";
       <tr>        <tr>
        <td colspan="2" align="left">         <td colspan="2" align="left">
         <small>$version</small>          <small>$version</small>
        </td>         </td>
       </tr>        </tr>
   END
       }
   
   $r->print(<<ENDDOCUMENT);
       <div style="float: left;">
        <table border="0" cellspacing="0" cellpadding="0">
   $domainrow
   $serverrow
   $loadrow    
   $userloadrow
   $versionrow
      </table>       </table>
     </div>      </div>
     <div style="float: right;">      <div style="float: right;">
Removed from v.1.143  
changed lines
  Added in v.1.147

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