--- loncom/auth/lonauth.pm 2003/03/17 13:41:12 1.46
+++ loncom/auth/lonauth.pm 2005/02/26 05:37:23 1.65
@@ -1,7 +1,7 @@
# The LearningOnline Network
# User Authentication Module
#
-# $Id: lonauth.pm,v 1.46 2003/03/17 13:41:12 matthew Exp $
+# $Id: lonauth.pm,v 1.65 2005/02/26 05:37:23 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -46,6 +46,7 @@ use Apache::loncommon();
use Apache::lonnet();
use Apache::lonmenu();
use Fcntl qw(:flock);
+use Apache::lonlocal;
my %FORM;
@@ -106,6 +107,15 @@ sub success {
if (($userenv{'interface'}) && (!$FORM{'interface'})) {
$FORM{'interface'}=$userenv{'interface'};
}
+ $ENV{'environment.remote'}=$userenv{'remote'};
+ if ($userenv{'texengine'} eq 'ttm') { $clientmathml=1; }
+
+# --------------- Do not trust query string to be put directly into environment
+ foreach ('imagesuppress','appletsuppress',
+ 'embedsuppress','fontenhance','blackwhite',
+ 'interface','localpath','localres') {
+ $FORM{$_}=~s/[\n\r\=]//gs;
+ }
# --------------------------------------------------------- Write first profile
{
@@ -125,10 +135,15 @@ sub success {
print $idf "browser.mathml=$clientmathml\n";
print $idf "browser.unicode=$clientunicode\n";
print $idf "browser.os=$clientos\n";
+ if ($FORM{'localpath'}) {
+ print $idf "browser.localpath=$FORM{'localpath'}\n";
+ print $idf "browser.localres=$FORM{'localres'}\n";
+ }
print $idf "request.course.fn=\n";
print $idf "request.course.uri=\n";
print $idf "request.course.sec=\n";
print $idf "request.role=cm\n";
+ print $idf "request.role.adv=$ENV{'user.adv'}\n";
print $idf "request.host=$ENV{'REMOTE_ADDR'}\n";
if ($FORM{'interface'}) {
$FORM{'interface'}=~s/\W//gs;
@@ -146,6 +161,7 @@ sub success {
$idf->close();
}
$ENV{'request.role'}='cm';
+ $ENV{'request.role.adv'}=$ENV{'user.adv'};
$ENV{'browser.type'}=$clientbrowser;
# -------------------------------------------------------------------- Log this
@@ -167,16 +183,29 @@ sub success {
# -------------------------------------------------------- Menu script and info
my $windowinfo=&Apache::lonmenu::open($clientos);
my $startupremote=&Apache::lonmenu::startupremote($lowerurl);
+ my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl);
my $setflags=&Apache::lonmenu::setflags();
my $maincall=&Apache::lonmenu::maincall();
my $bodytag=&Apache::loncommon::bodytag('Successful Login');
+ my $add=&addcontent();
+ my $continuelink;
+ if (($ENV{'browser.interface'} eq 'textual') ||
+ ($ENV{'environment.remote'} eq 'off')) {
+ $continuelink="".&mt('Continue')."";
+ }
# ------------------------------------------------- Output for successful login
$r->send_cgi_header(< 'Welcome',
+ 'mes' => 'Welcome to the LearningOnline Network with CAPA. Please wait while your session is being set up',
+ 'pro' => 'Problems',
+ 'log' => 'loginproblems.html',
+ );
$r->print(<
@@ -186,12 +215,12 @@ $startupremote
$bodytag
$setflags
$windowinfo
-Welcome!
-Welcome to the LearningOnline Network with CAPA.
-Please wait while your session
-is being set up.
-Problems?
+$lt{'wel'}
+$lt{'mes'}.
+$lt{'pro'}?
+$remoteinfo
$maincall
+$continuelink