#!/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"; }