Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
LSH
lsh
Commits
cd00de67
Commit
cd00de67
authored
Feb 07, 2000
by
Niels Möller
Browse files
* src/tcpforward_commands.c (forward_local_port): Use
connection_remember. Rev: src/tcpforward_commands.c:1.20
parent
c428874c
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/tcpforward_commands.c
View file @
cd00de67
...
...
@@ -26,6 +26,7 @@
#include
"atoms.h"
#include
"channel_commands.h"
#include
"connection_commands.h"
#include
"format.h"
#include
"io_commands.h"
#include
"ssh.h"
...
...
@@ -379,12 +380,13 @@ STATIC_COLLECT_1(&collect_info_remote_listen_2);
(target object address_info))
(expr
(lambda (connection)
(listen (lambda (peer)
(tcpip_start_io
(catch_channel_open
(open_direct_tcpip target peer) connection)))
backend
local))))
(connection_remember connection
(listen (lambda (peer)
(tcpip_start_io
(catch_channel_open
(open_direct_tcpip target peer) connection)))
backend
local)))))
*/
struct
command
*
...
...
@@ -403,17 +405,13 @@ make_forward_local_port(struct io_backend *backend,
/* GABA:
(expr
(name forward_remote_port)
(globals
(remote_listen REMOTE_LISTEN)
;; (connection_remember CONNECTION_REMEMBER)
(connect_io TCPIP_CONNECT_IO))
(params
(connect object command)
(remote object address_info))
(expr
(lambda (connection)
(remote_listen (lambda (peer)
(connect_io
(
tcpip_
connect_io
; NOTE: The use of prog1 is needed to
; delay the connect call until the
; (otherwise ignored) peer argument is
...
...
@@ -536,6 +534,7 @@ STATIC_COLLECT_1(&install_tcpip_forward_info_2.super);
(install connection
(handler (lambda (port)
;; Called when the client requests remote forwarding
;; FIXME: Doesn't catch all exceptions from listen.
(listen (lambda (peer)
;; Called when someone connects to the
;; forwarded port.
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment