loncom/lonnet/perl/londns.pm - diff

Return to londns.pm CVS log

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

version 1.6, 2018/07/30 14:39:51	version 1.7, 2021/06/06 23:14:18
Line 41 sub serve_file {	Line 41 sub serve_file {
}	}
if (open(my $config,"<","$dir/$file")) {	if (open(my $config,"<","$dir/$file")) {
my $contents = join('',<$config>);	my $contents = join('',<$config>);
	close($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;
Line 63 sub handler {	Line 64 sub handler {
}	}

my $command = (split('/',$r->uri))[3];	my $command = (split('/',$r->uri))[3];
my $dir = $Apache::lonnet::perlvar{'lonTabDir'};	my ($dir,$file) = &Apache::lonnet::parse_getdns_url($command,$r->uri);
if ($command eq 'hosts') {	my %types = (
return &serve_file($r,$dir,'dns_hosts.tab','loncapa/hosts');	hosts => 'loncapa/hosts',
} elsif ($command eq 'domain') {	domain => 'loncapa/domain',
return &serve_file($r,$dir,'dns_domain.tab','loncapa/domain');	checksums => 'loncapa/versions',
} elsif ($command eq 'checksums') {	loncapaCRL => 'application/x-pem-file',
my $version = (split('/',$r->uri))[4];	);
return &serve_file($r,$dir,"dns_checksums/$version.tab",'loncapa/versions');	if (exists($types{$command})) {
} elsif ($command eq 'loncapaCRL') {	return &serve_file($r,$dir,$file,$types{$command});
$dir = $Apache::lonnet::perlvar{'lonCertificateDirectory'};
return &serve_file($r,$dir,$Apache::lonnet::perlvar{'lonnetCertRevocationList'},
'application/x-pem-file');
}	}
return FORBIDDEN;	return FORBIDDEN;
}	}