loncom/lonc - diff

Return to lonc CVS log

Up to [LON-CAPA] / loncom

version 1.39, 2002/04/10 04:35:31	version 1.41, 2002/05/17 14:03:04
Line 48	Line 48
# 3/07/02 Ron Fox	# 3/07/02 Ron Fox
# based on nonforker from Perl Cookbook	# based on nonforker from Perl Cookbook
# - server who multiplexes without forking	# - server who multiplexes without forking
	# 5/11/2002 Scott Harrison

	use lib '/home/httpd/lib/perl/';
	use LONCAPA::Configuration;

use POSIX;	use POSIX;
use IO::Socket;	use IO::Socket;
Line 71 $DEBUG = 0; # Set to 1 for annoyingly	Line 75 $DEBUG = 0; # Set to 1 for annoyingly
$SIG{QUIT}=\&catchexception;	$SIG{QUIT}=\&catchexception;
$SIG{__DIE__}=\&catchexception;	$SIG{__DIE__}=\&catchexception;

# ------------------------------------ Read httpd access.conf and get variables	# ---------------------------------- Read loncapa_apache.conf and loncapa.conf
&status("Read access.conf");	&status("Read loncapa_apache.conf and loncapa.conf");
open (CONFIG,"/etc/httpd/conf/access.conf") \|\| die "Can't read access.conf";	my $perlvarref=LONCAPA::Configuration::read_conf('loncapa_apache.conf',
	'loncapa.conf');
while ($configline=<CONFIG>) {	my %perlvar=%{$perlvarref};
if ($configline =~ /PerlSetVar/) {	undef $perlvarref;
my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
chomp($varvalue);
$perlvar{$varname}=$varvalue;
}
}
close(CONFIG);

# ----------------------------- Make sure this process is running from user=www	# ----------------------------- Make sure this process is running from user=www
&status("Check user ID");	&status("Check user ID");