The write function has now a timeout argument in third position

David RENÉ
1 parent 86040786
Showing 3 changed files with 4 additions and 5 deletions Show diff stats
mail/smtp_client.anubis
net_services/send_file.anubis
web/CXM_multihost_http_server.anubis
@@ -402,7 +402,7 @@ define Maybe(One)
     Int       buffer_start_time,
     (LogLevel, String) -> One logger
   )=
-  if write( target , buffer) is
+  if write( target , buffer, 10) is
   {
     failure           then failure,
     success(nb_write) then
@@ -43,9 +43,8 @@ define Maybe(One)
   with read_size = min(65536, left_read),
   if read(src_file, read_size, 10) is
   {
-    error     then logger(logError, "send_file_state read error");failure,
-    timeout   then logger(logError, "send_file_state timeout");failure,
-    ok(buffer)then 
+    failure         then logger(logError, "send_file_state read error");failure,
+    success(buffer) then 
       with data_msg = message(_CXM_FTP_DATA),
       if add_raw(data_msg, "Data", buffer) is
       {
@@ -902,7 +902,7 @@ define Maybe(ByteArray)
   else
     with t0 = (UTime) unow,
     //if unow > dead_line then record_dubious_connection(connection,dead_line,dos) else
-    if read(connection.conn, 32768, time_out) is // the connection is closed after 10 minutes of inactivity
+    if read(connection.conn, 32768, 0) is // the connection is closed after 10 minutes of inactivity
     {
       failure     then println(pid + "read failed ["+to_string(result_buffer)+"]"); failure,
       success(ba) then