loncom/cgi/userstatus.pl - diff

Return to userstatus.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.11, 2004/09/22 15:00:04	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 100 sub main {	Line 101 sub main {
while (my $line=<$fh>) {	while (my $line=<$fh>) {
chomp($line);	chomp($line);
my ($name,$value)=split(/\=/,$line);	my ($name,$value)=split(/\=/,$line);
	$name = &unescape($name);
	$value = &unescape($value);
$userinfo{$name}=$value;	$userinfo{$name}=$value;
}	}
$fh->close();	$fh->close();