Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v diff -u -r1.36.2.5 -r1.36.2.6 --- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl 2 Jan 2016 20:42:57 -0000 1.36.2.5 +++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl 21 Nov 2016 16:33:39 -0000 1.36.2.6 @@ -490,18 +490,21 @@ # if the optional xotcl-core components are available... # + # 5 minutes + set timeout 300 + set httpImpls [util::http::available -url $url -spool] if {$httpImpls ne ""} { ns_log notice "we can use the http::util:: interface using the $httpImpls implementation" - set result [util::http::get -url $url -spool] + set result [util::http::get -url $url -timeout $timeout -spool] file rename [dict get $result file] $output_file_name } elseif {[info commands ::ns_http] ne "" && [apm_version_names_compare [ns_info patchlevel] "4.99.5"] == 1} { # # ... use ns_http when we have a version with the "-file" flag ... # foreach i {1 2 3} { ns_log notice "Transfer $url to $output_file_name based on ns_http" - set h [ns_http queue -timeout 60:0 $url] + set h [ns_http queue -timeout $timeout:0 $url] set replyHeaders [ns_set create] ns_http wait -file F -headers $replyHeaders -spoolsize 1 $h if {[file exists $output_file_name]} {file delete $output_file_name}