loncom/lonnet/perl/londns.pm - diff

Return to londns.pm CVS log

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

version 1.1, 2007/03/28 00:12:59	version 1.2, 2013/02/02 00:22:47
Line 53 sub handler {	Line 53 sub handler {
return &serve_file($r,'dns_hosts.tab','loncapa/hosts');	return &serve_file($r,'dns_hosts.tab','loncapa/hosts');
} 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') {
	return &serve_file($r,'dns_checksums.tab','loncapa/versions');
}	}
return FORBIDDEN;	return FORBIDDEN;
}	}