version 1.75, 2004/04/19 16:47:43
|
version 1.76, 2004/05/06 20:56:07
|
Line 418 sub handler {
|
Line 418 sub handler {
|
# |
# |
my $uri=$r->uri; |
my $uri=$r->uri; |
# |
# |
# Check to see if this server is overloaded |
|
my $loaderror=&Apache::lonnet::overloaderror($r); |
|
if ($loaderror) { |
|
return $loaderror; |
|
} |
|
# |
|
# Check to see if original resource server is overloaded |
|
my ($resdomain,$resuser)= |
|
(&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//); |
|
$loaderror=&Apache::lonnet::overloaderror |
|
($r,&Apache::lonnet::homeserver($resuser,$resdomain)); |
|
if ($loaderror) { |
|
return $loaderror; |
|
} |
|
# |
|
# Set document type |
# Set document type |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
# |
# |
|
my ($resdomain,$resuser)= |
|
(&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//); |
$r->print('<html><head><title>'. |
$r->print('<html><head><title>'. |
'Catalog Information'. |
'Catalog Information'. |
'</title></head>'); |
'</title></head>'); |