[LON-CAPA-cvs] cvs: loncom /auth lonauth.pm /cgi userstatus.pl

[www]

www		Wed Feb 26 09:10:38 2003 EDT

  Modified files:              
    /loncom/auth	lonauth.pm 
    /loncom/cgi	userstatus.pl 
  Log:
  $ENV{'remote_host'} made no sense
  userstatus counts domains now
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.41 loncom/auth/lonauth.pm:1.42
--- loncom/auth/lonauth.pm:1.41	Thu Feb 20 01:49:23 2003
+++ loncom/auth/lonauth.pm	Wed Feb 26 09:10:38 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.41 2003/02/20 06:49:23 albertel Exp $
+# $Id: lonauth.pm,v 1.42 2003/02/26 14:10:38 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -156,7 +156,7 @@
 	print $idf "request.course.uri=\n";
 	print $idf "request.course.sec=\n";
 	print $idf "request.role=cm\n";
-	print $idf "request.host=$ENV{'HTTP_HOST'}\n";
+	print $idf "request.host=$ENV{'REMOTE_ADDR'}\n";
 	if ($FORM{'interface'}) {
 	    $FORM{'interface'}=~s/\W//gs;
 	    print $idf "browser.interface=$FORM{'interface'}\n";
Index: loncom/cgi/userstatus.pl
diff -u loncom/cgi/userstatus.pl:1.1 loncom/cgi/userstatus.pl:1.2
--- loncom/cgi/userstatus.pl:1.1	Tue Feb 25 16:56:48 2003
+++ loncom/cgi/userstatus.pl	Wed Feb 26 09:10:38 2003
@@ -55,6 +55,7 @@
         if ($since>7200) { $color="#888888"; }
         if ($since>21600) { $color="#AAAAAA"; $userclass="Inactive"; }
         $usercount{$userclass}++;
+        $usercount{'in Domain '.$userinfo{'user.domain'}}++;
         print '<font color="'.$color.'">';
         print '<h3>'.$userinfo{'environment.lastname'}.', '.
 	       $userinfo{'environment.firstname'}.' '.