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

Diff for /loncom/cgi/userstatus.pl between versions 1.10 and 1.13

version 1.10, 2004/01/14 01:42:09 version 1.13, 2006/06/02 21:36:21
Line 30  $|=1; Line 30  $|=1;
 use strict;  use strict;
 use lib '/home/httpd/lib/perl/';  use lib '/home/httpd/lib/perl/';
 use LONCAPA::Configuration;  use LONCAPA::Configuration;
   use LONCAPA;
 use HTTP::Headers;  use HTTP::Headers;
 use IO::File;  use IO::File;
   
Line 80  sub main { Line 80  sub main {
     my @allfiles=(sort(readdir(DIR)));      my @allfiles=(sort(readdir(DIR)));
     foreach my $filename (@allfiles) {      foreach my $filename (@allfiles) {
  if ($filename=~/^\./) { next; }   if ($filename=~/^\./) { next; }
    if ($filename=~/^publicuser_/) { next; }
  my ($dev,$ino,$mode,$nlink,   my ($dev,$ino,$mode,$nlink,
     $uid,$gid,$rdev,$size,      $uid,$gid,$rdev,$size,
     $atime,$mtime,$ctime,      $atime,$mtime,$ctime,
Line 89  sub main { Line 90  sub main {
  my $sinceacc=$now-$atime;   my $sinceacc=$now-$atime;
  unless ($oneline || $justsummary) { print ("\n\n<hr />"); }   unless ($oneline || $justsummary) { print ("\n\n<hr />"); }
  my %userinfo;   my %userinfo;
  my $fh=IO::File->new($$perlvar{'lonIDsDir'}.'/'.$filename);   ($userinfo{'user.name'},undef,$userinfo{'user.domain'})=
  while (my $line=<$fh>) {      split('_',$filename);
     chomp($line);  
     my ($name,$value)=split(/\=/,$line);  
     $userinfo{$name}=$value;  
  }  
  $fh->close();  
  my ($color,$userclass)=&analyze_time($since);   my ($color,$userclass)=&analyze_time($since);
  &add_count('Overall','all',$userclass);   &add_count('Overall','all',$userclass);
  &add_count('Domain',$userinfo{'user.domain'},$userclass);   &add_count('Domain',$userinfo{'user.domain'},$userclass);
   
  unless ($oneline) {   unless ($oneline) {
       my $fh=IO::File->new($$perlvar{'lonIDsDir'}.'/'.$filename);
       while (my $line=<$fh>) {
    chomp($line);
    my ($name,$value)=split(/\=/,$line);
    $name = &unescape($name);
    $value = &unescape($value);
    $userinfo{$name}=$value;
       }
       $fh->close();
     if (!$justsummary) {      if (!$justsummary) {
  print '<font color="'.$color.'">';   print '<font color="'.$color.'">';
  print '<h3>'.$userinfo{'environment.lastname'}.', '.   print '<h3>'.$userinfo{'environment.lastname'}.', '.
Removed from v.1.10  
changed lines
  Added in v.1.13

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