small bug fixes and packaging

private/log.rkt

@@ -9,9 +9,4 @@
          fatal-am
          sync-log-am)
 
-(define log-defined #f)
-(displayln (format "log-defined: ~a" log-defined))
-(set! log-defined #t)
-
 (sl-def-log audio-manager am)
-

private/mail.rkt

@@ -4,25 +4,40 @@
          net/head
          simple-ini)
 
-(provide mail-report)
+(provide mail-report
+         check-mail-config)
+
+
+(define (get ini key msg)
+  (let ((v (ini-get ini 'mail key 'nil)))
+    (when (eq? v 'nil)
+      (error msg))
+    v))
+
+(define (get-config ini)
+  (let* ((from (get ini 'from "configure from address as name <email>"))
+         (to (get ini 'to "configure to address as name <email>"))
+         (server (get ini 'server "configure the smtp server"))
+         (port (ini-get ini 'mail 'port 25))
+         (user (ini-get ini 'mail 'user #f))
+         (passwd (ini-get ini 'mail 'passwd #f))
+         )
+    (values from to server port user passwd)))
 
 
 (define (mail-report ini subject report)
-  (let* ((get (λ (key msg)
-                (let ((v (ini-get ini 'mail key 'nil)))
-                  (when (eq? v 'nil)
-                    (error msg))
-                  v)))
-         (from (get 'from "configure from address as name <email>"))
-         (to (get 'to "configure to address as name <email>"))
-         (server (get 'server "configure the smtp server"))
-         (port (ini-get ini 'mail 'port 25))
-         )
+  (let-values (((from to server port user auth) (get-config ini)))
     (let* ((hdr (standard-message-header from (list to) '() '() subject)))
       (smtp-send-message server from (list to) hdr
                          (if (list? report) report (list report))
-                         #:port-no port)
+                         #:port-no port
+                         #:auth-user user
+                         #:auth-pwd passwd
+                         )
       )
     )
   )
 
+(define (check-mail-config ini)
+  (let-values (((from to server port user passwd) (get-config ini)))
+    #t))