--- loncom/cgi/userstatus.pl 2008/11/28 20:45:21 1.17 +++ loncom/cgi/userstatus.pl 2021/03/06 19:09:03 1.22 @@ -1,7 +1,7 @@ #!/usr/bin/perl $|=1; # User Status -# $Id: userstatus.pl,v 1.17 2008/11/28 20:45:21 raeburn Exp $ +# $Id: userstatus.pl,v 1.22 2021/03/06 19:09:03 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -32,6 +32,7 @@ use lib '/home/httpd/lib/perl/'; use Apache::lonlocal; use LONCAPA::Configuration; use LONCAPA::loncgi; +use LONCAPA::lonauthcgi; use HTTP::Headers; use GDBM_File; @@ -72,16 +73,16 @@ sub main { delete $$perlvar{'lonReceipt'}; # remove since sensitive and not needed delete $$perlvar{'lonSqlAccess'}; # remove since sensitive and not needed - if (!&LONCAPA::loncgi::check_ipbased_access()) { + if (!&LONCAPA::lonauthcgi::check_ipbased_access('userstatus')) { if (!&LONCAPA::loncgi::check_cookie_and_load_env()) { &Apache::lonlocal::get_language_handle(); print &LONCAPA::loncgi::missing_cookie_msg(); return; } - if (!&LONCAPA::loncgi::can_view('userstatus')) { + if (!&LONCAPA::lonauthcgi::can_view('userstatus')) { &Apache::lonlocal::get_language_handle(); - print &LONCAPA::loncgi::unauthorized_msg('userstatus'); + print &LONCAPA::lonauthcgi::unauthorized_msg('userstatus'); return; } } @@ -113,6 +114,7 @@ sub main { Course => 'Course', Browser => 'Browser', OS => 'OS', + Any => 'Any', Active => 'Active', 'Moderately Active' => 'Moderately Active', Inactive => 'Inactive', @@ -120,7 +122,13 @@ sub main { unless ($oneline) { my $now = time(); - print '
'."\n". + print ''."\n". + ''."\n"."\n". + ''."\n". + ''."\n". + '$filename
". "$lt{'login'}: ". &Apache::lonlocal::locallocaltime($userinfo{'user.login.time'}). " $lt{'Browser'}: ".$userinfo{'browser.type'}. - " $lt{'on'} ".$userinfo{'browser.os'}."$lt{'Client'}:". + " $lt{'on'} ".$userinfo{'browser.os'}." $lt{'Client'}:". $userinfo{'request.host'}.""); - print(join(" | ",('Any',@actl)));
+ print("
|
---|