loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.35, 2001/04/17 15:47:19	version 1.37, 2001/10/17 02:15:59
Line 3	Line 3
# 7/25 Gerd Kortemeyer	# 7/25 Gerd Kortemeyer
# many different dates Scott Harrison	# many different dates Scott Harrison
# 03/22/2001 Scott Harrison	# 03/22/2001 Scott Harrison
	# 8/30 Gerd Kortemeyer

use IO::Socket;	use IO::Socket;
use Symbol;	use Symbol;
use POSIX;	use POSIX;
Line 79 while ($configline=<CONFIG>) {	Line 81 while ($configline=<CONFIG>) {
}	}
close(CONFIG);	close(CONFIG);

	$PREFORK=int($PREFORK/4);

$unixsock = "mysqlsock";	$unixsock = "mysqlsock";
my $localfile="$perlvar{'lonSockDir'}/$unixsock";	my $localfile="$perlvar{'lonSockDir'}/$unixsock";
my $server;	my $server;
Line 295 sub make_new_child {	Line 299 sub make_new_child {
'creationdate','keywords','language',	'creationdate','keywords','language',
'lastrevisiondate','mime','notes',	'lastrevisiondate','mime','notes',
'owner','subject','title') {	'owner','subject','title') {
$stuff=~s/\n?\<$f[^\>]\>.?<\/$f[^\>]*\>\n?//;	$stuff=~s/\n?\<$f[^\>]\>.?<\/$f[^\>]*\>\n?//s;
}	}
my $m2=$m; my $docroot=$perlvar{'lonDocRoot'};	my $m2=$m; my $docroot=$perlvar{'lonDocRoot'};
$m2=~s/^$docroot//;	$m2=~s/^$docroot//;