loncom/lonnet/perl/londns.pm - diff

Return to londns.pm CVS log

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

version 1.5, 2018/07/18 13:45:03	version 1.6, 2018/07/30 14:39:51
Line 31 package Apache::londns;	Line 31 package Apache::londns;

use strict;	use strict;
use LONCAPA;	use LONCAPA;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http :remotehost);
use Apache::lonnet;	use Apache::lonnet;

sub serve_file {	sub serve_file {
Line 54 sub serve_file {	Line 54 sub serve_file {
sub handler {	sub handler {
my ($r) = @_;	my ($r) = @_;

	my $reqhost = $r->get_remote_host(REMOTE_NOLOOKUP);
	my @hostids= &Apache::lonnet::get_hosts_from_ip($reqhost);
	if (!@hostids && $reqhost ne '127.0.0.1' ) {
	$r->log_reason("Unable to find a host for ".
	$r->get_remote_host(REMOTE_NOLOOKUP));
	return FORBIDDEN;
	}

my $command = (split('/',$r->uri))[3];	my $command = (split('/',$r->uri))[3];
my $dir = $Apache::lonnet::perlvar{'lonTabDir'};	my $dir = $Apache::lonnet::perlvar{'lonTabDir'};
if ($command eq 'hosts') {	if ($command eq 'hosts') {