loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.824, 2007/01/14 02:01:16	version 1.825, 2007/01/16 22:08:48
Line 7143 sub repcopy_userfile {	Line 7143 sub repcopy_userfile {
if ($lwpresp ne 'ok') {	if ($lwpresp ne 'ok') {
my $ua=new LWP::UserAgent;	my $ua=new LWP::UserAgent;
my $request=new HTTP::Request('GET',&tokenwrapper($uri));	my $request=new HTTP::Request('GET',&tokenwrapper($uri));
	# FIXME, right reads everything into memory then writes it out
	# doing something like
	# my $response=$ua->request($request,$file);
	# would make this write directly to disk
my $response=$ua->request($request);	my $response=$ua->request($request);
if ($response->is_success()) {	if ($response->is_success()) {
$info=$response->content;	$info=$response->content;