loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.34, 2001/04/16 18:51:22	version 1.36, 2001/08/30 13:57:04
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 301 sub make_new_child {	Line 305 sub make_new_child {
$m2=~s/^$docroot//;	$m2=~s/^$docroot//;
$m2=~s/\.meta$//;	$m2=~s/\.meta$//;
unless ($query) {	unless ($query) {
my $q2="select * from metadata where url like '$m2'";	my $q2="select * from metadata where url like binary '$m2'";
my $sth = $dbh->prepare($q2);	my $sth = $dbh->prepare($q2);
$sth->execute();	$sth->execute();
my $r1=$sth->fetchall_arrayref;	my $r1=$sth->fetchall_arrayref;