loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.861, 2007/04/04 00:05:31	version 1.862, 2007/04/04 00:07:07
Line 7704 sub goodbye {	Line 7704 sub goodbye {
&logthis("Shutting down");	&logthis("Shutting down");
}	}

BEGIN {

# ----------------------------------- Read loncapa.conf and loncapa_apache.conf
unless ($readit) {
{
my $configvars = LONCAPA::Configuration::read_conf('loncapa.conf');
%perlvar = (%perlvar,%{$configvars});
}

sub get_dns {	sub get_dns {
my ($url,$func) = @_;	my ($url,$func) = @_;
open(my $config,"<$perlvar{'lonTabDir'}/hosts.tab");	open(my $config,"<$perlvar{'lonTabDir'}/hosts.tab");
Line 7807 sub get_dns {	Line 7798 sub get_dns {
$loaded=1;	$loaded=1;
}	}

# FIXME: dev server don't want this, production servers _do_ want this
#&get_iphost();

sub hostname {	sub hostname {
&load_hosts_tab() if (!$loaded);	&load_hosts_tab() if (!$loaded);

Line 7925 sub get_dns {	Line 7913 sub get_dns {
}	}
}	}

	BEGIN {

	# ----------------------------------- Read loncapa.conf and loncapa_apache.conf
	unless ($readit) {
	{
	my $configvars = LONCAPA::Configuration::read_conf('loncapa.conf');
	%perlvar = (%perlvar,%{$configvars});
	}


# ------------------------------------------------------ Read spare server file	# ------------------------------------------------------ Read spare server file
{	{
open(my $config,"<$perlvar{'lonTabDir'}/spare.tab");	open(my $config,"<$perlvar{'lonTabDir'}/spare.tab");