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

[albertel]

albertel		Thu Aug 25 15:43:42 2005 EDT

  Modified files:              
    /loncom/cgi	userstatus.pl 
  Log:
  - don't count public users as reall users
  
  
Index: loncom/cgi/userstatus.pl
diff -u loncom/cgi/userstatus.pl:1.11 loncom/cgi/userstatus.pl:1.12
--- loncom/cgi/userstatus.pl:1.11	Wed Sep 22 11:00:04 2004
+++ loncom/cgi/userstatus.pl	Thu Aug 25 15:43:40 2005
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 $|=1;
 # User Status
-# $Id: userstatus.pl,v 1.11 2004/09/22 15:00:04 albertel Exp $
+# $Id: userstatus.pl,v 1.12 2005/08/25 19:43:40 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -80,6 +80,7 @@
     my @allfiles=(sort(readdir(DIR)));
     foreach my $filename (@allfiles) {
 	if ($filename=~/^\./) { next; }
+	if ($filename=~/^publicuser_/) { next; }
 	my ($dev,$ino,$mode,$nlink,
 	    $uid,$gid,$rdev,$size,
 	    $atime,$mtime,$ctime,