version 1.30, 2002/09/07 02:55:38
|
version 1.31, 2002/10/10 19:05:32
|
Line 285 sub handler {
|
Line 285 sub handler {
|
# ============================================== Do not return before this line |
# ============================================== Do not return before this line |
if ($redirecturl) { |
if ($redirecturl) { |
# ----------------------------------------------------- There is a URL to go to |
# ----------------------------------------------------- There is a URL to go to |
|
# ------------------------------------------------- Check for critical messages |
|
if ((time-$ENV{'user.criticalcheck.time'})>300) { |
|
my @what=&Apache::lonnet::dump |
|
('critical',$ENV{'user.domain'}, |
|
$ENV{'user.name'}); |
|
if ($what[0]) { |
|
if (($what[0] ne 'con_lost') && |
|
($what[0]!~/^error\:/)) { |
|
$redirecturl='/adm/email?critical=display'; |
|
} |
|
} |
|
&Apache::lonnet::appenv('user.criticalcheck.time'=>time); |
|
} |
|
|
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->header_out(Location => |
$r->header_out(Location => |
'http://'.$ENV{'HTTP_HOST'}.$redirecturl); |
'http://'.$ENV{'HTTP_HOST'}.$redirecturl); |