--- loncom/cgi/userstatus.pl 2008/11/28 20:45:21 1.17 +++ loncom/cgi/userstatus.pl 2010/03/23 12:01:49 1.20 @@ -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.20 2010/03/23 12:01:49 bisitz 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; } } @@ -120,7 +121,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("
|
---|