Anubis / Xlib

Commit 8d5565b8301420293c2b3b9a67f17eb0942cec20

Authored by totoro
1 parent 97fb134c

add type instantiation help for smtp_recipient

Showing 1 changed file with 11 additions and 3 deletions   Show diff stats
Inline Side-by-side
mail/send_mail.anubis
  Show/Hide comments   View file @8d5565b
... ... @@ -44,7 +44,14 @@ public type Smtp_Recipient:
44 44 ).
45 45  
46 46  
47   -
  47 +public define Smtp_Recipient
  48 + smtp_recipient
  49 + (
  50 + String recipient
  51 + )=
  52 + smtp_recipient(recipient, send_tries(0), 0,0)
  53 +.
  54 +
48 55 public type Send_Param:
49 56 send_param( Str_HostName host_name, //domain of the sender like "mail.calexium.com"
50 57 Str_Sender sender, //sender email address
... ... @@ -231,14 +238,15 @@ public define Result(SmtpClientResult, One)
231 238 )=
232 239 if resolve_address(server) is
233 240 {
234   - failure then
  241 + failure then
  242 + println("IP address NOT found for Mail server ["+server+"]");
235 243 logWarning(send_mail_log,"IP address NOT found for Mail server ["+server+"]");
236 244 error(error),
237 245  
238 246 success(ip_addr) then
239 247 with ip_txt = ip_addr_to_string(ip_addr),
240 248 logTrace(send_mail_log, send_mail_mask, "send_mail: Trying to connect to "+ip_txt);
241   -
  249 + println("send_mail: Trying to connect to "+ip_txt);
242 250 if (Result(NetworkConnectError,RWStream))connect(ip_addr, port) is
243 251 {
244 252 error(e) then
... ...