suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Splitting messages

Browse Source
This commit is contained in:
Jay McCarthy 2011-08-08 12:09:15 -06:00
parent 6b91638405
commit 64e41704e8
1 changed files with 49 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

96
collects/meta/drdr/analyze.rkt
View File

@ -164,54 +164,56 @@
(not (path-random? (build-path (revision-trunk-dir cur-rev) (substring (path->string* p) 1))))) (not (path-random? (build-path (revision-trunk-dir cur-rev) (substring (path->string* p) 1)))))
(not (symbol=? id 'changes)))))) (not (symbol=? id 'changes))))))
(define mail-recipients (define mail-recipients
(append (if include-committer? (remove-duplicates
(list committer) (append (if include-committer?
empty) (list committer)
responsibles)) empty)
(unless (or (andmap zero? nums) responsibles)))
(empty? mail-recipients))
(send-mail-message "drdr@racket-lang.org"
(format "[DrDr] R~a ~a"
cur-rev totals)
(map (curry format "~a@racket-lang.org")
mail-recipients)
empty empty
(flatten
(list (format "DrDr has finished building push #~a after ~a."
cur-rev
(format-duration-ms abs-dur))
""
(format "http://drdr.racket-lang.org/~a/"
cur-rev)
""
(if include-committer?
(list
(format "~a:" committer)
(format "You are receiving this email because the DrDr test of push #~a\n(which you did) contained a NEW condition that may need inspecting." cur-rev)
(let ([diff-smash (responsible-ht->status-ht diff)])
(for/list ([(id paths) (in-hash diff-smash)]
#:when (not (symbol=? id 'changes)))
(if (empty? paths)
empty
(list (format " ~a" id)
(for/list ([f (in-list paths)]
[i (in-range ERROR-LIMIT)])
(format " ~a" (path->url f)))
""))))
"")
empty)
(for/list ([r (in-list responsibles)])
(list* (format "~a:" r)
"You are receiving this email because a file you are responsible for\nhas a condition that may need inspecting."
(for/list ([(id files) (in-hash (hash-ref responsible-ht r))]
#:when (not (symbol=? id 'changes)))
(list (format " ~a:" id)
(for/list ([f (in-list files)]
[i (in-range ERROR-LIMIT)])
(format " ~a" (path->url f)))
""))
""))))))
; Send messages to everyone...
(unless (andmap zero? nums)
(for ([r (in-list mail-recipients)])
(send-mail-message
"drdr@racket-lang.org"
(format "[DrDr] R~a ~a"
cur-rev totals)
(list (format "~a@racket-lang.org" r))
empty empty
(flatten
(list (format "DrDr has finished building push #~a after ~a."
cur-rev
(format-duration-ms abs-dur))
""
(format "http://drdr.racket-lang.org/~a/"
cur-rev)
""
(if (and include-committer? (equal? committer r))
(list
(format "Push #~a (which you did) contained a NEW condition that may need inspecting." cur-rev)
(let ([diff-smash (responsible-ht->status-ht diff)])
(for/list ([(id paths) (in-hash diff-smash)]
#:when (not (symbol=? id 'changes)))
(if (empty? paths)
empty
(list (format " ~a" id)
(for/list ([f (in-list paths)]
[i (in-range ERROR-LIMIT)]
#:unless (path-random? f))
(format " ~a" (path->url f)))
""))))
"")
empty)
(list* "A file you are responsible for has a condition that may need inspecting."
(for/list ([(id files) (in-hash (hash-ref responsible-ht r))]
#:when (not (symbol=? id 'changes)))
(list (format " ~a:" id)
(for/list ([f (in-list files)]
[i (in-range ERROR-LIMIT)])
(format " ~a" (path->url f)))
""))
""))))))
; Send message to IRC
(send-mail-message "drdr" (send-mail-message "drdr"
(format "http://drdr.racket-lang.org/~a/" (format "http://drdr.racket-lang.org/~a/"
cur-rev) cur-rev)