Changeset 12407 in project


Ignore:
Timestamp:
11/08/08 16:28:17 (11 years ago)
Author:
azul
Message:

Fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/stream-wiki/trunk/extensions/mail.scm

    r12405 r12407  
    149149(define *last-mail-time* 0)
    150150
     151(define (sendmail-command file to)
     152  (format #f "/usr/sbin/sendmail -i ~A <~A"
     153          (svnwiki-path-escape to)
     154          (svnwiki-path-escape file)))
     155
    151156(define (send-mail env from to writer)
    152157  (when (> (+ *last-mail-time* *seconds-between-mails*) (current-time))
     
    164169          (let ((tmp-path (svnwiki-make-pathname *tmp-dir* (format #f "svnwiki-mail-~A" (current-process-id)) "txt")))
    165170            (with-output-to-file tmp-path (lambda () (writer from)))
    166             (system (sendmail-command tmp-path))
     171            (system (sendmail-command tmp-path to))
    167172            (delete-file tmp-path)))
    168173        (exit 0))
Note: See TracChangeset for help on using the changeset viewer.