loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.17, 2000/07/17 21:36:33	version 1.18, 2000/07/21 00:40:37
Line 7	Line 7
# 12/7,12/15,01/06,01/11,01/12,01/14,2/8,	# 12/7,12/15,01/06,01/11,01/12,01/14,2/8,
# 03/07,05/31 Gerd Kortemeyer	# 03/07,05/31 Gerd Kortemeyer
# 06/26 Scott Harrison	# 06/26 Scott Harrison
# 06/29,06/30,07/14,07/15,07/17 Gerd Kortemeyer	# 06/29,06/30,07/14,07/15,07/17,07/20 Gerd Kortemeyer
#	#
# based on "Perl Cookbook" ISBN 1-56592-243-3	# based on "Perl Cookbook" ISBN 1-56592-243-3
# preforker - server who forks first	# preforker - server who forks first
Line 553 sub make_new_child {	Line 553 sub make_new_child {
my $ownership=ishome($fname);	my $ownership=ishome($fname);
if ($ownership eq 'owner') {	if ($ownership eq 'owner') {
if (-e $fname) {	if (-e $fname) {
	if (-d $fname) {
	print $client "directory\n";
	} else {
$now=time;	$now=time;
{	{
my $sh=IO::File->new(">$fname.$hostid{$clientip}");	my $sh=IO::File->new(">$fname.$hostid{$clientip}");
Line 561 sub make_new_child {	Line 564 sub make_new_child {
$fname=~s/\/home\/httpd\/html\/res/raw/;	$fname=~s/\/home\/httpd\/html\/res/raw/;
$fname="http://$thisserver/".$fname;	$fname="http://$thisserver/".$fname;
print $client "$fname\n";	print $client "$fname\n";
	}
} else {	} else {
print $client "not_found\n";	print $client "not_found\n";
}	}