loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>');