The write function has now a timeout argument in third position

David RENÉ
1 parent 86040786
Showing 2 changed files with 3 additions and 4 deletions Show diff stats
mail/smtp_client.anubis
net_services/send_file.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
       {