version 1.107, 2008/11/22 19:07:02
|
version 1.118, 2009/04/08 10:13:13
|
Line 84 sub handler {
|
Line 84 sub handler {
|
$r->print( |
$r->print( |
$start_page |
$start_page |
.'<h1>'.&mt('You are already logged in!').'</h1>' |
.'<h1>'.&mt('You are already logged in!').'</h1>' |
.'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]logout[_4].', |
.'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].', |
'<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').'</p>' |
'<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').'</p>' |
.'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>' |
.'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>' |
.$end_page |
.$end_page |
Line 102 sub handler {
|
Line 102 sub handler {
|
# ----------------------------------------------------------- Process Interface |
# ----------------------------------------------------------- Process Interface |
$env{'form.interface'}=~s/\W//g; |
$env{'form.interface'}=~s/\W//g; |
|
|
# my $textbrowsers=$r->dir_config('lonTextBrowsers'); |
|
my $httpbrowser=$ENV{"HTTP_USER_AGENT"}; |
my $httpbrowser=$ENV{"HTTP_USER_AGENT"}; |
|
|
# foreach (split(/\:/,$textbrowsers)) { |
|
# if ($httpbrowser=~/$_/i) { |
|
# $env{'form.interface'}='textual'; |
|
# } |
|
# } |
|
|
|
my $fullgraph=($env{'form.interface'} ne 'textual'); |
my $fullgraph=($env{'form.interface'} ne 'textual'); |
|
|
my $iconpath= |
my $iconpath= |
Line 253 my $vlink=
|
Line 246 my $vlink=
|
my $alink=&Apache::loncommon::designparm('login.alink',$domain); |
my $alink=&Apache::loncommon::designparm('login.alink',$domain); |
my $mainbg= |
my $mainbg= |
($fullgraph?&Apache::loncommon::designparm('login.mainbg',$domain):'#FFFFFF'); |
($fullgraph?&Apache::loncommon::designparm('login.mainbg',$domain):'#FFFFFF'); |
my $sidebg= |
|
($fullgraph?&Apache::loncommon::designparm('login.sidebg',$domain):'#FFFFFF'); |
|
my $textcol = |
|
($fullgraph?&Apache::loncommon::designparm('login.textcol',$domain):'#000000'); |
|
my $bgcol = |
|
($fullgraph?&Apache::loncommon::designparm('login.bgcol',$domain):'#FFFFFF'); |
|
my $logo=&Apache::loncommon::designparm('login.logo',$domain); |
my $logo=&Apache::loncommon::designparm('login.logo',$domain); |
my $img=&Apache::loncommon::designparm('login.img',$domain); |
my $img=&Apache::loncommon::designparm('login.img',$domain); |
my $domainlogo=&Apache::loncommon::domainlogo($domain); |
my $domainlogo=&Apache::loncommon::domainlogo($domain); |
Line 266 my $login=&Apache::loncommon::designparm
|
Line 253 my $login=&Apache::loncommon::designparm
|
if ($login eq '') { |
if ($login eq '') { |
$login = $iconpath.'/'.&mt('userauthentication.gif'); |
$login = $iconpath.'/'.&mt('userauthentication.gif'); |
} |
} |
|
my $showbanner = 1; |
|
my $showmainlogo = 1; |
|
if (defined(&Apache::loncommon::designparm('login.showlogo_img',$domain))) { |
|
$showbanner = &Apache::loncommon::designparm('login.showlogo_img',$domain); |
|
} |
|
if (defined(&Apache::loncommon::designparm('login.showlogo_logo',$domain))) { |
|
$showmainlogo = &Apache::loncommon::designparm('login.showlogo_logo',$domain); |
|
} |
my $showadminmail=&Apache::loncommon::designparm('login.adminmail',$domain); |
my $showadminmail=&Apache::loncommon::designparm('login.adminmail',$domain); |
my $showcoursecat = |
my $showcoursecat = |
&Apache::loncommon::designparm('login.coursecatalog',$domain); |
&Apache::loncommon::designparm('login.coursecatalog',$domain); |
Line 275 my $shownewuserlink =
|
Line 270 my $shownewuserlink =
|
my $now=time; |
my $now=time; |
my $js = (<<ENDSCRIPT); |
my $js = (<<ENDSCRIPT); |
|
|
<script language="JavaScript"> |
<script type="text/javascript" language="JavaScript"> |
function send() |
function send() |
{ |
{ |
this.document.server.elements.uname.value |
this.document.server.elements.uname.value |
Line 307 ENDSCRIPT
|
Line 302 ENDSCRIPT
|
|
|
# --------------------------------------------------- Print login screen header |
# --------------------------------------------------- Print login screen header |
|
|
my %add_entries = (topmargin => "0", |
my %add_entries = ( |
leftmargin => "0", |
bgcolor => "$mainbg", |
marginheight => "0", |
|
marginwidth => "0", |
|
bgcolor => "$pgbg", |
|
text => "$font", |
text => "$font", |
link => "$link", |
link => "$link", |
vlink => "$vlink", |
vlink => "$vlink", |
Line 340 my %lt=&Apache::lonlocal::texthash(
|
Line 332 my %lt=&Apache::lonlocal::texthash(
|
'helpdesk' => 'Contact Helpdesk', |
'helpdesk' => 'Contact Helpdesk', |
'forgotpw' => 'Forgot password?', |
'forgotpw' => 'Forgot password?', |
'newuser' => 'New User?', |
'newuser' => 'New User?', |
'options_headline' => 'Select Accessibility Options', |
); |
'sprs_img' => 'Suppress rendering of images', |
|
'sprs_applet' => 'Suppress Java applets', |
|
'sprs_embed' => 'Suppress rendering of embedded multimedia', |
|
'sprs_font' => 'Increase font size', |
|
'sprs_blackwhite' => 'Switch to black and white mode', |
|
'remember' => 'Remember these settings for next login'); |
|
# -------------------------------------------------- Change password field name |
# -------------------------------------------------- Change password field name |
my $forgotpw = &forgotpwdisplay(%lt); |
my $forgotpw = &forgotpwdisplay(%lt); |
my $loginhelp = &loginhelpdisplay(%lt); |
my $loginhelp = &loginhelpdisplay(%lt); |
Line 376 $r->print(<<ENDSERVERFORM);
|
Line 362 $r->print(<<ENDSERVERFORM);
|
<input type="hidden" name="localres" value="$env{'form.localres'}" /> |
<input type="hidden" name="localres" value="$env{'form.localres'}" /> |
</form> |
</form> |
ENDSERVERFORM |
ENDSERVERFORM |
my $coursecatalog; |
my $coursecatalog; |
if (($showcoursecat eq '') || ($showcoursecat)) { |
if (($showcoursecat eq '') || ($showcoursecat)) { |
$coursecatalog = &coursecatalog_link($lt{'catalog'}); |
$coursecatalog = &coursecatalog_link($lt{'catalog'}); |
} |
} |
my $newuserlink; |
my $newuserlink; |
if ($shownewuserlink) { |
if ($shownewuserlink) { |
$newuserlink = &newuser_link($lt{'newuser'}); |
$newuserlink = &newuser_link($lt{'newuser'}).'<br />'; |
} |
} |
my $logintitle; |
my $logintitle; |
if ($loginheader eq 'text') { |
if ($loginheader eq 'text') { |
$logintitle = $lt{'log'}; |
$logintitle ='<h2>'.$lt{'log'}.'</h2>'; |
} else { |
} else { |
$logintitle = '<img src="'.$login.'" alt="'. |
$logintitle = '<img src="'.$login.'" alt="'. |
&mt('User Authentication').'" />'; |
&mt('User Authentication').'" />'; |
} |
} |
|
|
my $noscript_warning='<noscript>' |
|
.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.') |
|
.'</noscript>'; |
|
my $helpdeskscript; |
|
my $contactblock = &contactdisplay(\%lt,$servadm,$showadminmail, |
|
$version,$authdomain,\$helpdeskscript); |
|
|
|
if ($fullgraph) { |
|
$r->print(<<ENDTOP); |
|
<!-- The LON-CAPA Header --> |
|
<table border="0" align="left" width="100%" cellspacing="0" cellpadding="1"> |
|
<tr> |
|
<td align="left" valign="top" bgcolor="$pgbg"> <img src="$img" border=0 alt="The Learning Online Network with CAPA" /> </td> |
|
</tr> |
|
</table> |
|
|
|
<div class="LC_loginpage_space"> </div> |
my $noscript_warning='<noscript><span class="LC_warning"><b>' |
<img src="$logo" alt="" /> |
.&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.') |
<div class="LC_loginpage_loginContainer"><fieldset class="LC_loginpage_fieldset"> |
.'</b></span></noscript>'; |
<legend class="LC_loginpage_legend">$logintitle</legend> |
my $helpdeskscript; |
<table border="0" align="left" cellspacing="1" cellpadding="1" width="100%"> |
my $contactblock = &contactdisplay(\%lt,$servadm,$showadminmail, |
<tr> |
$version,$authdomain,\$helpdeskscript); |
<td width="50%" align="center" valign="top">$domainlogo</td> |
|
<td> |
my $loginform=(<<LFORM); |
ENDTOP |
<form name="client" onsubmit="return(send())"> |
|
<input type="hidden" name="lextkey" value="$lextkey" /> |
$r->print('<form name="client" onsubmit="return(send())">'); |
<input type="hidden" name="uextkey" value="$uextkey" /> |
|
<b><label for="uname">$lt{'un'}</label>:</b><br /> |
|
<input type="text" name="uname" size="15" value="$authusername" /><br /> |
|
<b><label for="upass$now">$lt{'pw'}</label>:</b><br /> |
|
<input type="password" name="upass$now" size="15" /><br /> |
|
<b><label for="udom">$lt{'dom'}</label>:</b><br /> |
|
<input type="text" name="udom" size="15" value="$authdomain" /><br /> |
|
<input type="submit" value="$lt{'log'}" /> |
|
</form> |
|
LFORM |
|
|
$r->print(<<ENDTOPP) |
if ($fullgraph) { |
<input type="hidden" name="lextkey" value="$lextkey"> |
if ($showbanner) { |
<input type="hidden" name="uextkey" value="$uextkey"> |
$r->print(<<HEADER); |
<b><label for="uname">$lt{'un'}</label>:</b><br /> |
<!-- The LON-CAPA Header --> |
<input type="text" name="uname" size="10" value="$authusername" /><br /> |
<table border="0" align="left" width="100%" cellspacing="0" cellpadding="1"> |
<b><label for="upass$now">$lt{'pw'}</label>:</b><br /> |
<tr> |
<input type="password" name="upass$now" size="10" /><br /> |
<td align="left" valign="top" bgcolor="$pgbg"> |
<b><label for="udom">$lt{'dom'}</label>:</b><br /> |
<img src="$img" border="0" alt="The Learning Online Network with CAPA" /> |
<input type="text" name="udom" size="10" value="$authdomain" /><br /> |
</td> |
<input type="submit" value="$lt{'log'}" /> |
</tr> |
</form> |
</table> |
</td> |
HEADER |
</tr> |
} |
</table> |
$r->print(<<ENDTOP); |
$noscript_warning |
<div class="LC_loginpage_space"> </div> |
</fieldset></div> |
<div class="LC_loginpage_floatLeft"> |
|
<div class="LC_loginpage_loginContainer"> |
|
$logintitle |
|
<table border="0" align="left" cellspacing="1" cellpadding="2" width="100%"> |
|
<tr> |
|
<td> |
|
$loginform |
|
</td> |
|
</tr> |
|
</table> |
|
$noscript_warning |
|
</div> |
|
|
<div class="LC_loginpage_loginInfo"> |
<div class="LC_loginpage_loginInfo"> |
$loginhelp<br /> |
$loginhelp<br /> |
$forgotpw<br /><br /> |
$forgotpw<br /> |
$newuserlink<br /> |
$contactblock<br /> |
|
$newuserlink |
$coursecatalog<br /><br /> |
$coursecatalog<br /><br /> |
<a href="/adm/about.html"><b>$lt{'about'}</b></a><br /> |
<a href="/adm/about.html"><b>$lt{'about'}</b></a> |
$helpdeskscript |
|
</div> |
</div> |
<div class="LC_loginpage_space"> </div> |
</div> |
|
ENDTOP |
|
if ($showmainlogo) { |
|
$r->print(' <img src="'.$logo.'" alt="" />'."\n"); |
|
} |
|
$r->print(<<ENDTOP); |
$announcements |
$announcements |
ENDTOPP |
$domainlogo |
|
<div class="LC_loginpage_space"> </div> |
|
ENDTOP |
} |
} |
if($announcements){$r->print('<div class="LC_loginpage_space"> </div>');} |
|
|
|
|
|
if ($fullgraph) { |
if ($fullgraph) { |
|
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<table border="0" cellspacing="0" cellpadding="0"> |
|
|
|
|
<table border=0 cellspacing=0 cellpadding=0> |
|
<tr> |
<tr> |
<td bgcolor="$sidebg" align="left" valign="top"> |
<td align="left" valign="top"> |
<small><b> $lt{'dom'}: </b></small> |
<small><b> $lt{'dom'}: </b></small> |
</td> |
</td> |
<td bgcolor="$sidebg" align="left" valign="top"> |
<td align="left" valign="top"> |
<small><tt> $domain</tt></small> |
<small><tt> $domain</tt></small> |
</td> |
</td> |
</tr> |
</tr> |
<tr> |
<tr> |
<td bgcolor="$sidebg" align="left" valign="top"> |
<td align="left" valign="top"> |
<small><b> $lt{'serv'}: </b></small> |
<small><b> $lt{'serv'}: </b></small> |
</td> |
</td> |
<td bgcolor="$sidebg" align="left" valign="top"> |
<td align="left" valign="top"> |
<small><tt> $lonhost ($role)</tt></small> |
<small><tt> $lonhost ($role)</tt></small> |
</td> |
</td> |
</tr> |
</tr> |
<tr> |
<tr> |
<td bgcolor="$sidebg" align="left" valign="top"> |
<td align="left" valign="top"> |
<small><b> $lt{'load'}: </b></small> |
<small><b> $lt{'load'}: </b></small> |
</td> |
</td> |
<td bgcolor="$sidebg" align="left" valign="top"> |
<td align="left" valign="top"> |
<small><tt> $loadpercent $lt{'perc'}</tt></small> |
<small><tt> $loadpercent $lt{'perc'}</tt></small> |
</td> |
</td> |
</tr> |
</tr> |
<tr> |
<tr> |
<td bgcolor="$sidebg" align="left" valign="top"> |
<td align="left" valign="top"> |
<small><b> $lt{'userload'}: </b></small> |
<small><b> $lt{'userload'}: </b></small> |
</td> |
</td> |
<td bgcolor="$sidebg" align="left" valign="top"> |
<td align="left" valign="top"> |
<small><tt> $userloadpercent $lt{'perc'}</tt></small> |
<small><tt> $userloadpercent $lt{'perc'}</tt></small> |
</td> |
</td> |
</tr> |
</tr> |
</table> |
</table> |
|
|
$contactblock |
|
|
|
</div> |
</div> |
|
|
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 522 sub contactdisplay {
|
Line 511 sub contactdisplay {
|
'<tt> '.$servadm.'</tt><br /> <br />'; |
'<tt> '.$servadm.'</tt><br /> <br />'; |
} |
} |
if ($showhelpdesk) { |
if ($showhelpdesk) { |
$contactblock .= '<b> <a href="javascript:helpdesk()"><font size="+1">'.$lt->{'helpdesk'}.'</font></a></b><br />'; |
$contactblock .= '<a href="javascript:helpdesk()">'.$lt->{'helpdesk'}.'</a><br />'; |
my $thisurl = &escape('/adm/login'); |
my $thisurl = &escape('/adm/login'); |
$$helpdeskscript = <<"ENDSCRIPT"; |
$$helpdeskscript = <<"ENDSCRIPT"; |
<script type="text/javascript"> |
<script type="text/javascript"> |