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//; |