[BACK]Return to userstatus.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / cgi

Diff for /loncom/cgi/userstatus.pl between versions 1.1 and 1.3

version 1.1, 2003/02/25 21:56:48 version 1.3, 2003/07/29 20:17:52
Line 14  use HTTP::Headers; Line 14  use HTTP::Headers;
 use IO::File;  use IO::File;
   
     
 print "Content-type: text/html\n\n".  print "Content-type: text/html\n\n";
       "<html><body bgcolor=#FFFFFF>\n";        
 # -------------------- Read loncapa.conf (and by default, loncapa_apache.conf).  # -------------------- Read loncapa.conf (and by default, loncapa_apache.conf).
 my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf');  my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf');
 my %perlvar=%{$perlvarref};  my %perlvar=%{$perlvarref};
Line 23  undef $perlvarref; # remove since sensit Line 23  undef $perlvarref; # remove since sensit
 delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed  delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed
 delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed  delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed
   
 print "<h1>User Status ".localtime()."</h1>";  my $oneline=($ENV{'QUERY_STRING'} eq 'simple');
   unless ($oneline) { print "<html><body bgcolor=#FFFFFF>\n<h1>User Status ".localtime()."</h1>"; }
   
 my $filename;  my $filename;
 opendir(DIR,$perlvar{'lonIDsDir'});  opendir(DIR,$perlvar{'lonIDsDir'});
Line 37  while ($filename=readdir(DIR)) { Line 38  while ($filename=readdir(DIR)) {
         $now=time;          $now=time;
         $since=$now-$mtime;          $since=$now-$mtime;
         $sinceacc=$now-$atime;          $sinceacc=$now-$atime;
  print ("\n\n<hr />");   unless ($oneline) { print ("\n\n<hr />"); }
         my %userinfo=();          my %userinfo=();
         undef $userinfo;          undef $userinfo;
         my $fh=IO::File->new($perlvar{'lonIDsDir'}.'/'.$filename);          my $fh=IO::File->new($perlvar{'lonIDsDir'}.'/'.$filename);
Line 55  while ($filename=readdir(DIR)) { Line 56  while ($filename=readdir(DIR)) {
         if ($since>7200) { $color="#888888"; }          if ($since>7200) { $color="#888888"; }
         if ($since>21600) { $color="#AAAAAA"; $userclass="Inactive"; }          if ($since>21600) { $color="#AAAAAA"; $userclass="Inactive"; }
         $usercount{$userclass}++;          $usercount{$userclass}++;
           $usercount{'in Domain '.$userinfo{'user.domain'}}++;
         unless ($oneline) {
         print '<font color="'.$color.'">';          print '<font color="'.$color.'">';
         print '<h3>'.$userinfo{'environment.lastname'}.', '.          print '<h3>'.$userinfo{'environment.lastname'}.', '.
        $userinfo{'environment.firstname'}.' '.         $userinfo{'environment.firstname'}.' '.
Line 79  while ($filename=readdir(DIR)) { Line 82  while ($filename=readdir(DIR)) {
         print "<br /><b>Last Transaction:</b> ".localtime($mtime).          print "<br /><b>Last Transaction:</b> ".localtime($mtime).
        " (".$since." secs ago) <br /><b>Last Access:</b> ".localtime($atime).         " (".$since." secs ago) <br /><b>Last Access:</b> ".localtime($atime).
        " (".$sinceacc." secs ago)";         " (".$sinceacc." secs ago)";
        print ("</font>");                print ("</font>"); 
        }      
     }      }
 }  }
 closedir(DIR);  closedir(DIR);
   unless ($oneline) { 
 print "<hr /><h2>User Count</h2>";  print "<hr /><h2>User Count</h2>";
 foreach (sort keys %usercount) {  foreach (sort keys %usercount) {
     print "<b>".$_.":</b> ".$usercount{$_}."<br />";      print "<b>".$_.":</b> ".$usercount{$_}."<br />";
 }  }
   
 print "</body></html>";  print "</body></html>";
   } else {
   foreach (sort keys %usercount) {
       print $_.'='.$usercount{$_}.'&';
   }
   }
Removed from v.1.1  
changed lines
  Added in v.1.3

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