loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.40, 2001/03/22 15:14:42	version 1.41, 2001/03/24 16:07:36
Line 13	Line 13
# Jan 01 Scott Harrison	# Jan 01 Scott Harrison
# 02/12 Gerd Kortemeyer	# 02/12 Gerd Kortemeyer
# 03/15 Scott Harrison	# 03/15 Scott Harrison
	# 03/24 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 1077 sub make_new_child {	Line 1078 sub make_new_child {
my $ulsout='';	my $ulsout='';
my $ulsfn;	my $ulsfn;
if (-e $ulsdir) {	if (-e $ulsdir) {
while ($ulsfn=<$ulsdir/*>) {	if (opendir(LSDIR,$ulsdir)) {
	while ($ulsfn=readdir(LSDIR)) {
my @ulsstats=stat($ulsfn);	my @ulsstats=stat($ulsfn);
$ulsout.=$ulsfn.'&'.join('&',@ulsstats).':';	$ulsout.=$ulsfn.'&'.join('&',@ulsstats).':';
}	}
	closedir(LSDIR);
	}
} else {	} else {
$ulsout='no_such_dir';	$ulsout='no_such_dir';
}	}