loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.13, 2000/06/29 20:43:03	version 1.15, 2000/07/14 07:43:15
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 Gerd Kortemeyer	# 06/29,06/30,07/14 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 217 sub propath {	Line 217 sub propath {
my ($udom,$uname)=@_;	my ($udom,$uname)=@_;
$udom=~s/\W//g;	$udom=~s/\W//g;
$uname=~s/\W//g;	$uname=~s/\W//g;
my $subdir=$uname;	my $subdir=$uname.'___';
$subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;	$subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;
my $proname="$perlvar{'lonUsersDir'}/$udom/$subdir/$uname";	my $proname="$perlvar{'lonUsersDir'}/$udom/$subdir/$uname";
return $proname;	return $proname;
Line 513 sub make_new_child {	Line 513 sub make_new_child {
&logthis(	&logthis(
"LWP GET: $message for $fname ($remoteurl)");	"LWP GET: $message for $fname ($remoteurl)");
} else {	} else {
	if ($remoteurl!~/\.meta$/) {
	my $mrequest=
	new HTTP::Request('GET',$remoteurl.'.meta');
	my $mresponse=
	$ua->request($mrequest,$fname.'.meta');
	if ($mresponse->is_error()) {
	unlink($fname.'.meta');
	}
	}
rename($transname,$fname);	rename($transname,$fname);
}	}
}	}