loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.828, 2007/01/18 21:02:06	version 1.829, 2007/01/18 21:31:40
Line 7202 sub repcopy_userfile {	Line 7202 sub repcopy_userfile {
if (-e $transferfile) { return 'ok'; }	if (-e $transferfile) { return 'ok'; }
my $request;	my $request;
$uri=~s/^\///;	$uri=~s/^\///;
if (&homeserver($cnum,$cdom) eq $perlvar{'lonHostID'}) {	$request=new HTTP::Request('GET','http://'.$hostname{&homeserver($cnum,$cdom)}.'/raw/'.$uri);
# if this is my own server, get it via tokenwrapper
$request=new HTTP::Request('GET',&tokenwrapper('/'.$uri));
} else {
# get it from another server, raw request
$request=new HTTP::Request('GET','http://'.$hostname{&homeserver($cnum,$cdom)}.'/raw/'.$uri);
}
my $response=$ua->request($request,$transferfile);	my $response=$ua->request($request,$transferfile);
# did it work?	# did it work?
if ($response->is_error()) {	if ($response->is_error()) {