scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tmail refactor

This commit is contained in:
erana 2012-01-18 03:48:00 +09:00
parent 3cd105370b
commit 979c46cd94
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scsh/SPAN/SPAN-server-daemon.scm
View File

@ -32,6 +32,14 @@
(define (eoln) (string #\newline)) (define (eoln) (string #\newline))
(define (servermsg) (display "::message::")) (define (servermsg) (display "::message::"))
(define (get-package package-name)
(let* ((in (open-input-file (if (string<=? ".tar.gz" package-name)
package-name
(string-append package-name ".tar.gz"))))
(contents ""))
(do ((c (read-char in) (read-char in)))
((eof-object? c)contents)
(set! contents (string-append contents (string c))))))
(define (run-daemon-child-SPAN rec) (define (run-daemon-child-SPAN rec)
(let ((*hostname (hostname rec)) (let ((*hostname (hostname rec))
@ -63,7 +71,7 @@
(if (symbol? answer) (if (symbol? answer)
(cond ((eq? 'get answer) (cond ((eq? 'get answer)
(let ((answer2 (read (make-string-input-port in)))) (let ((answer2 (read (make-string-input-port in))))
(write (tmail-get-mail-with-index (getenv "USER") idx) out))) (write (get-package answer2) out)))
((eq? 'QUIT answer) ((eq? 'QUIT answer)
(write *bye out) (write *bye out)
(close-input-port in) (close-input-port in)