loncom/lonnet/perl/londns.pm - diff

Return to londns.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.2, 2013/02/02 00:22:47	version 1.4, 2017/11/30 14:33:35
Line 36 use Apache::lonnet;	Line 36 use Apache::lonnet;

sub serve_file {	sub serve_file {
my ($r,$file,$type)=@_;	my ($r,$file,$type)=@_;
open(my $config,"<$Apache::lonnet::perlvar{'lonTabDir'}/$file");	if (open(my $config,"<","$Apache::lonnet::perlvar{'lonTabDir'}/$file")) {
my $file = join('',<$config>);	my $contents = join('',<$config>);
$r->content_type($type);	$r->content_type($type);
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
$r->print($file);	$r->print($contents);
return OK;	return OK;
	} else {
	return FORBIDDEN;
	}
}	}

sub handler {	sub handler {
Line 54 sub handler {	Line 57 sub handler {
} elsif ($command eq 'domain') {	} elsif ($command eq 'domain') {
return &serve_file($r,'dns_domain.tab','loncapa/domain');	return &serve_file($r,'dns_domain.tab','loncapa/domain');
} elsif ($command eq 'checksums') {	} elsif ($command eq 'checksums') {
return &serve_file($r,'dns_checksums.tab','loncapa/versions');	my $version = (split('/',$r->uri))[4];
	return &serve_file($r,"dns_checksums/$version.tab",'loncapa/versions');
}	}
return FORBIDDEN;	return FORBIDDEN;
}	}