version 1.35, 2001/04/17 15:47:19
|
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; |