--- loncom/cgi/userstatus.pl 2008/12/25 01:56:03 1.18 +++ loncom/cgi/userstatus.pl 2018/07/05 15:23:59 1.21 @@ -1,7 +1,7 @@ #!/usr/bin/perl $|=1; # User Status -# $Id: userstatus.pl,v 1.18 2008/12/25 01:56:03 raeburn Exp $ +# $Id: userstatus.pl,v 1.21 2018/07/05 15:23:59 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -73,7 +73,7 @@ sub main { delete $$perlvar{'lonReceipt'}; # remove since sensitive and not needed delete $$perlvar{'lonSqlAccess'}; # remove since sensitive and not needed - if (!&LONCAPA::lonauthcgi::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(); @@ -121,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("
|
---|