Slava,
I wanna bring back the old Factor telnet server code that was used to run
network listeners. However I didn't like that connections were accepted from
non-localhost clients. So I made <loopback-server> which is like <server>
except it only accepts connections coming from localhost. Are you interested
in this patch?
I pasted the words below if you'd like to see how I'm doing this. I'll send
you a proper darcs patch if you decide to include.
Ed
: loopback-server-sockaddr ( port -- sockaddr )
init-sockaddr INADDR_LOOPBACK htonl over set-sockaddr-in-addr ;
: loopback-server-socket ( port -- fd )
loopback-server-sockaddr [
dup SOL_SOCKET SO_REUSEADDR sockopt
swap dupd "sockaddr-in" c-size bind
dup 0 >= [ drop 1 listen ] [ nip ] if
] with-socket-fd ;
TUPLE: loopback-server ;
C: loopback-server ( port -- server )
swap { server f f } >tuple swap
loopback-server-socket f <port> over set-delegate server over set-port-type
over set-delegate ;
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys - and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Factor-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/factor-talk
