#!/usr/local/bin/webwork-perl


####################################################################
# Copyright @ 1995-1999 University of Rochester
# All Rights Reserved
####################################################################

use lib '/ud/webwork/base/system/cgi/cgi-scripts'; use webworkInit; # WeBWorKInitLine
use Global;
use Auth;
use strict;

# get information from CGI inputs  (see also below for additional information)

my $Course 			= $ARGV[0];
my $cntonly = 0;
if(scalar(@ARGV)>1) { $cntonly = 1;}

$Course =~ s/\/$//;

# establish environment for this script

&Global::getCourseEnvironment($Course);

my $cgiURL   				= getWebworkCgiURL;
my $databaseDirectory 		= getCourseDatabaseDirectory;
my $scriptDirectory   		= getWebworkScriptDirectory;

require "${scriptDirectory}$Global::DBglue_pl";
require "${scriptDirectory}$Global::classlist_DBglue_pl";
require "${scriptDirectory}$Global::FILE_pl";
require "${scriptDirectory}$Global::HTMLglue_pl";
require "${scriptDirectory}$Global::SCRtools_pl";

my $permissionsFile = &Global::getCoursePermissionsFile($Course);
my $keyFile = &Global::getCourseKeyFile($Course);

##  show active users

my @activeUsers = get_active_users_from_keysDB($keyFile);

if($cntonly>0) {
  $cntonly = scalar(@activeUsers);
  print "$cntonly \n";
  exit();
}

@activeUsers = sort @activeUsers;

my ($user, $name);


print"Current users logged into $Course\n";

foreach $user (@activeUsers) {
#	attachCLRecord($user);
#	$name = &CL_getStudentName($user);
   # print "$name ($user) \n";
    print "$user \n";
}