[LON-CAPA-cvs] cvs: loncom / lond /auth lonlogin.pm /lonnet/perl lonnet.pm

[albertel]

albertel		Thu May  8 18:23:19 2003 EDT

  Modified files:              
    /loncom/auth	lonlogin.pm 
    /loncom	lond 
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - put user load on front page
  - make userload pretty
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.41 loncom/auth/lonlogin.pm:1.42
--- loncom/auth/lonlogin.pm:1.41	Thu May  8 17:50:54 2003
+++ loncom/auth/lonlogin.pm	Thu May  8 18:23:19 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.41 2003/05/08 21:50:54 albertel Exp $
+# $Id: lonlogin.pm,v 1.42 2003/05/08 22:23:19 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -414,6 +414,14 @@
        </td>
        <td bgcolor="$sidebg" align="left" valign="top">
         <small><tt>&nbsp;$loadpercent percent</tt></small>
+       </td>
+      </tr>
+      <tr>
+       <td bgcolor="$sidebg" align="left" valign="top">
+        <small><b>&nbsp;&nbsp;&nbsp;User&nbsp;Load:&nbsp;</b></small>
+       </td>
+       <td bgcolor="$sidebg" align="left" valign="top">
+        <small><tt>&nbsp;$userloadpercent percent</tt></small>
        </td>
       </tr>
      </table>
Index: loncom/lond
diff -u loncom/lond:1.129 loncom/lond:1.130
--- loncom/lond:1.129	Thu May  8 18:07:48 2003
+++ loncom/lond	Thu May  8 18:23:19 2003
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.129 2003/05/08 22:07:48 albertel Exp $
+# $Id: lond,v 1.130 2003/05/08 22:23:19 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -73,7 +73,7 @@
 my $status='';
 my $lastlog='';
 
-my $VERSION='$Revision: 1.129 $'; #' stupid emacs
+my $VERSION='$Revision: 1.130 $'; #' stupid emacs
 my $remoteVERSION;
 my $currenthostid;
 my $currentdomainid;
@@ -2090,6 +2090,7 @@
     if ($maxuserload) {
 	$userloadpercent=100*$numusers/$maxuserload;
     }
+    $userloadpercent=sprintf("%.2f",$userloadpercent);
     return $userloadpercent;
 }
 
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.371 loncom/lonnet/perl/lonnet.pm:1.372
--- loncom/lonnet/perl/lonnet.pm:1.371	Thu May  8 18:07:28 2003
+++ loncom/lonnet/perl/lonnet.pm	Thu May  8 18:23:19 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.371 2003/05/08 22:07:28 albertel Exp $
+# $Id: lonnet.pm,v 1.372 2003/05/08 22:23:19 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -367,6 +367,7 @@
     if ($maxuserload) {
 	$userloadpercent=100*$numusers/$maxuserload;
     }
+    $userloadpercent=sprintf("%.2f",$userloadpercent);
     return $userloadpercent;
 }