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.3, 2013/09/02 14:40:18
Line 54 sub handler {	Line 54 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;
}	}