Commit 5948c7b2565465bcaf114f836711dbba93d33d22

Authored by David RENÉ
1 parent 86040786

The write function has now a timeout argument in third position

Showing 2 changed files with 3 additions and 4 deletions   Show diff stats
mail/smtp_client.anubis
... ... @@ -402,7 +402,7 @@ define Maybe(One)
402 402 Int buffer_start_time,
403 403 (LogLevel, String) -> One logger
404 404 )=
405   - if write( target , buffer) is
  405 + if write( target , buffer, 10) is
406 406 {
407 407 failure then failure,
408 408 success(nb_write) then
... ...
net_services/send_file.anubis
... ... @@ -43,9 +43,8 @@ define Maybe(One)
43 43 with read_size = min(65536, left_read),
44 44 if read(src_file, read_size, 10) is
45 45 {
46   - error then logger(logError, "send_file_state read error");failure,
47   - timeout then logger(logError, "send_file_state timeout");failure,
48   - ok(buffer)then
  46 + failure then logger(logError, "send_file_state read error");failure,
  47 + success(buffer) then
49 48 with data_msg = message(_CXM_FTP_DATA),
50 49 if add_raw(data_msg, "Data", buffer) is
51 50 {
... ...