loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.194, 2001/12/27 17:00:30	version 1.195, 2001/12/28 19:48:42
Line 64	Line 64
# 12/5 Guy Albertelli	# 12/5 Guy Albertelli
# 12/6,12/7,12/12 Gerd Kortemeyer	# 12/6,12/7,12/12 Gerd Kortemeyer
# 12/18 Scott Harrison	# 12/18 Scott Harrison
# 12/21,12/22,12/27 Gerd Kortemeyer	# 12/21,12/22,12/27,12/28 Gerd Kortemeyer
#	#
###	###

Line 84 use GDBM_File;	Line 84 use GDBM_File;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use HTML::TokeParser;	use HTML::TokeParser;
use Fcntl qw(:flock);	use Fcntl qw(:flock);
	my $readit;

# --------------------------------------------------------------------- Logging	# --------------------------------------------------------------------- Logging

Line 2555 sub goodbye {	Line 2556 sub goodbye {

BEGIN {	BEGIN {
# ------------------------------------------------------------ Read access.conf	# ------------------------------------------------------------ Read access.conf
	unless ($readit) {
{	{
my $config=Apache::File->new("/etc/httpd/conf/access.conf");	my $config=Apache::File->new("/etc/httpd/conf/access.conf");

Line 2640 $dumpcount=0;	Line 2642 $dumpcount=0;

&logtouch();	&logtouch();
&logthis('<font color=yellow>INFO: Read configuration</font>');	&logthis('<font color=yellow>INFO: Read configuration</font>');
	$readit=1;
	}
}	}

1;	1;