loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.15, 2000/06/26 20:10:49	version 1.16, 2000/06/30 17:09:51
Line 22	Line 22
# 04/05,05/29,05/31,06/01,	# 04/05,05/29,05/31,06/01,
# 06/05,06/26 Gerd Kortemeyer	# 06/05,06/26 Gerd Kortemeyer
# 06/26 Ben Tyszka	# 06/26 Ben Tyszka
	# 06/30 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 324 sub repcopy {	Line 325 sub repcopy {
." LWP get: $message: $filename</font>");	." LWP get: $message: $filename</font>");
return HTTP_SERVICE_UNAVAILABLE;	return HTTP_SERVICE_UNAVAILABLE;
} else {	} else {
	if ($remoteurl!~/\.meta$/) {
	my $mrequest=new HTTP::Request('GET',$remoteurl.'.meta');
	my $mresponse=$ua->request($mrequest,$filename.'.meta');
	if ($mresponse->is_error()) {
	unlink($filename.'.meta');
	&logthis(
	"<font color=yellow>INFO: No metadata: $filename</font>");
	}
	}
rename($transname,$filename);	rename($transname,$filename);
return OK;	return OK;
}	}