diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-03-23 18:14:16 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-03-23 18:14:16 +0400 |
| commit | 7d71d88a059e6e7759455a1589d301eb69e64ec9 (patch) | |
| tree | 1e32bf3cb3e59080d625406b61867269d1cb3955 /examples | |
| parent | README (Distribution): Update. (diff) | |
| download | guile-ssh-7d71d88a059e6e7759455a1589d301eb69e64ec9.tar.gz | |
examples/: Improve error handling on `server-accept'.
* examples/ssshd.scm.in (main): Improve error handling on
`server-accept': Print exception key on exception, wait 1 second
before the second try to prevent flooding of the terminal with
errors.
* examples/echo/server.scm.in (main): Likewise.
* doc/api-servers.texi (Servers): Update description of
`server-accept'.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/echo/server.scm.in | 6 | ||||
| -rw-r--r-- | examples/ssshd.scm.in | 6 |
2 files changed, 8 insertions, 4 deletions
diff --git a/examples/echo/server.scm.in b/examples/echo/server.scm.in index 1f41265..6a9ce04 100644 --- a/examples/echo/server.scm.in +++ b/examples/echo/server.scm.in @@ -178,11 +178,13 @@ Options: (lambda () (server-accept server)) (lambda (key . args) - (format #t "~a~%" args) + (format #t "~a: ~a~%" key args) #f)))) (if (not session) - (continue)) + (begin + (sleep 1) + (continue))) (display "Client accepted.\n") (server-handle-key-exchange session) diff --git a/examples/ssshd.scm.in b/examples/ssshd.scm.in index 4f1f9b6..5685b07 100644 --- a/examples/ssshd.scm.in +++ b/examples/ssshd.scm.in @@ -302,11 +302,13 @@ Options: (lambda () (server-accept server)) (lambda (key . args) - (format #t "~a~%" args) + (format #t "~a: ~a~%" key args) #f)))) (if (not session) - (continue)) + (begin + (sleep 1) + (continue))) (server-handle-key-exchange session) |