version 1.536, 2017/05/09 03:04:21
|
version 1.537, 2017/05/23 01:31:03
|
Line 2591 sub update_resource_handler {
|
Line 2591 sub update_resource_handler {
|
my $transname="$fname.in.transfer"; |
my $transname="$fname.in.transfer"; |
my $remoteurl=&Apache::lonnet::reply("sub:$fname","$clientname"); |
my $remoteurl=&Apache::lonnet::reply("sub:$fname","$clientname"); |
my $response; |
my $response; |
# FIXME: cannot replicate files that take more than two minutes to transfer? |
# FIXME: cannot replicate files that take more than two minutes to transfer -- needs checking now 1200s timeout used |
# alarm(120); |
# for LWP request. |
# FIXME: this should use the LWP mechanism, not internal alarms. |
my $request=new HTTP::Request('GET',"$remoteurl"); |
alarm(1200); |
$response=&LONCAPA::LWPReq::makerequest($clientname,$request,$transname,\%perlvar,1200,0,1); |
{ |
|
my $request=new HTTP::Request('GET',"$remoteurl"); |
|
$response=&LONCAPA::LWPReq::makerequest($clientname,$request,$transname,\%perlvar,1200,0,1); |
|
} |
|
alarm(0); |
|
if ($response->is_error()) { |
if ($response->is_error()) { |
# FIXME: we should probably clean up here instead of just whine |
# FIXME: we should probably clean up here instead of just whine |
unlink($transname); |
unlink($transname); |
Line 2607 sub update_resource_handler {
|
Line 2602 sub update_resource_handler {
|
&logthis("LWP GET: $message for $fname ($remoteurl)"); |
&logthis("LWP GET: $message for $fname ($remoteurl)"); |
} else { |
} else { |
if ($remoteurl!~/\.meta$/) { |
if ($remoteurl!~/\.meta$/) { |
# FIXME: isn't there an internal LWP mechanism for this? |
my $mrequest=new HTTP::Request('GET',$remoteurl.'.meta'); |
alarm(120); |
my $mresponse = &LONCAPA::LWPReq::makerequest($clientname,$mrequest,$fname.'.meta',\%perlvar,120,0,1); |
{ |
if ($mresponse->is_error()) { |
my $mrequest=new HTTP::Request('GET',$remoteurl.'.meta'); |
unlink($fname.'.meta'); |
my $mresponse = &LONCAPA::LWPReq::makerequest($clientname,$mrequest,$fname.'.meta',\%perlvar,120,0,1); |
|
if ($mresponse->is_error()) { |
|
unlink($fname.'.meta'); |
|
} |
|
} |
} |
alarm(0); |
|
} |
} |
# we successfully transfered, copy file over to real name |
# we successfully transfered, copy file over to real name |
rename($transname,$fname); |
rename($transname,$fname); |
Line 2686 sub fetch_user_file_handler {
|
Line 2676 sub fetch_user_file_handler {
|
my $remoteurl=$clientprotocol.'://'.$clienthost.'/userfiles/'.$fname; |
my $remoteurl=$clientprotocol.'://'.$clienthost.'/userfiles/'.$fname; |
my $response; |
my $response; |
Debug("Remote URL : $remoteurl Transfername $transname Destname: $destname"); |
Debug("Remote URL : $remoteurl Transfername $transname Destname: $destname"); |
alarm(1200); |
my $request=new HTTP::Request('GET',"$remoteurl"); |
{ |
my $verifycert = 1; |
my $request=new HTTP::Request('GET',"$remoteurl"); |
my @machine_ids = &Apache::lonnet::current_machine_ids(); |
my $verifycert = 1; |
if (grep(/^\Q$clientname\E$/,@machine_ids)) { |
my @machine_ids = &Apache::lonnet::current_machine_ids(); |
$verifycert = 0; |
if (grep(/^\Q$clientname\E$/,@machine_ids)) { |
} |
$verifycert = 0; |
$response = &LONCAPA::LWPReq::makerequest($clientname,$request,$transname,\%perlvar,1200,$verifycert); |
} |
|
$response = &LONCAPA::LWPReq::makerequest($clientname,$request,$transname,\%perlvar,1200,$verifycert); |
|
} |
|
alarm(0); |
|
if ($response->is_error()) { |
if ($response->is_error()) { |
unlink($transname); |
unlink($transname); |
my $message=$response->status_line; |
my $message=$response->status_line; |
Line 8742 IO::File
|
Line 8728 IO::File
|
Apache::File |
Apache::File |
POSIX |
POSIX |
Crypt::IDEA |
Crypt::IDEA |
LWP::UserAgent() |
|
GDBM_File |
GDBM_File |
Authen::Krb4 |
Authen::Krb4 |
Authen::Krb5 |
Authen::Krb5 |