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

.

Browse Source 
original commit: 9527ba8a9d865033d48bc08259583cc18bc7f455
This commit is contained in:
Matthew Flatt 2001-05-07 21:24:33 +00:00
parent fde4603d21
commit addf8be57a
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/net/pop3.ss
View File

@ -13,24 +13,24 @@
#|
> (require-library "pop3.ss" "net")
> (define c (pop3:connect-to-server "cs.rice.edu"))
> (pop3:authenticate/plain-text "scheme" "********" c)
> (pop3:get-mailbox-status c)
> (define c (connect-to-server "cs.rice.edu"))
> (authenticate/plain-text "scheme" "********" c)
> (get-mailbox-status c)
100
177824
> (pop3:get-message/headers c 100)
> (get-message/headers c 100)
("Date: Thu, 6 Nov 1997 12:34:18 -0600 (CST)"
"Message-Id: <199711061834.MAA11961@new-world.cs.rice.edu>"
"From: Shriram Krishnamurthi <shriram@cs.rice.edu>"
...
"Status: RO")
> (pop3:get-message/complete c 100)
> (get-message/complete c 100)
("Date: Thu, 6 Nov 1997 12:34:18 -0600 (CST)"
"Message-Id: <199711061834.MAA11961@new-world.cs.rice.edu>"
"From: Shriram Krishnamurthi <shriram@cs.rice.edu>"
...
"Status: RO")
("some body" "text" "goes" "." "here" "." "")
> (pop3:disconnect-from-server c)
> (disconnect-from-server c)
|#

9
collects/net/open-url.ss → collects/net/sendurl.ss
View File

@ -1,9 +1,10 @@
(module open-url mzscheme
(module send-url mzscheme
(require (lib "process.ss"))
(provide open-url)
(provide send-url)
(define (open-url str)
(define (send-url str)
(case (system-type)
[(macos)
(send-event "MACS" "GURL" "GURL" str)]
@ -17,4 +18,4 @@
(close-output-port in)
(close-input-port out)
(close-input-port err))))]
[else (error 'open-url "don't know how to open url on platform: ~s" (system-type))])))
[else (error 'send-url "don't know how to open url on platform: ~s" (system-type))])))