loncom/lonc - diff

Return to lonc CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/Attic/lonc between versions 1.39 and 1.43

version 1.39, 2002/04/10 04:35:31	version 1.43, 2002/10/30 14:50: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.conf and loncapa_apache.conf");
open (CONFIG,"/etc/httpd/conf/access.conf") \|\| die "Can't read access.conf";	my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf');
	my %perlvar=%{$perlvarref};
while ($configline=<CONFIG>) {	undef $perlvarref;
if ($configline =~ /PerlSetVar/) {
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");
Line 1040 sub status {	Line 1037 sub status {
my $now=time;	my $now=time;
my $local=localtime($now);	my $local=localtime($now);
$status=$local.': '.$what;	$status=$local.': '.$what;
	$0='lonc: '.$what.' '.$local;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.39
changed lines
	Added in v.1.43