Play with Erlang socket.
A simple echo server using tcp. Open up two shells.
$ make run |
1> echo:start(9527). |
<0.84.0> |
| $ telnet 127.0.0.1 9527
Socket #Port<0.7> connected. | Trying 127.0.0.1...
| Connected to localhost.
| Escape character is '^]'.
| 123
| 123
| abc
| abc
| ^]
| telnet> quit
Socket #Port<0.7> disconnected. | Connection closed.
Open up two shells.
$ make run | $ make run
1> P=udp:start(9527). | 1> P=udp:start(9999).
<0.84.0> | <0.84.0>
2> udp:send(P,9999,"hello"). |
ok | 127.0.0.1:9527 hello
| 2> udp:send(P,9527,"hi").
127.0.0.1:9999 hi | ok
Open up two shells.
$ make run | $ make run
1> tcp:start(9527). |
<0.84.0> | 1> P=tcp:start_client(9527).
Socket #Port<0.7> connected. | <0.84.0>
| 2> tcp:send(P,"hi").
#Port<0.7>: hi | ok
Socket #Port<0.7> disconnected. | % ctrl+\ to exit
|
| $ telnet 127.0.0.1 9527
Socket #Port<0.8> connected. | Trying 127.0.0.1...
| Connected to localhost.
| Escape character is '^]'.
| 123
#Port<0.8>: 123 |
| abc
#Port<0.8>: abc |
| telnet> Connection closed.
Socket #Port<0.8> disconnected. |
Simple NAT-PMP implementation. RFC 6886.
$ make run
1> P=nat_pmp:start().
<0.103.0>
Time since last restart: 5525s
Public IP is 238.88.166.250
2> nat_pmp:tcp_mapping(P,6677,56789).
ok
Successfully created tcp mapping 192.168.1.101:6677 <> 238.88.166.250:56789, expires in 7200s
Now open up two shells, one from local, one from anywhere.
$ make run | $ erl % from anywhere
1> tcp:start(6677). |
<0.84.0> | 1> {ok,S}=gen_tcp:connect({238,88,166,250},56789,[]).
Socket #Port<0.7> connected. | {ok,#Port<0.6>}
| 2> gen_tcp:send(S,"hi").
#Port<0.7>: hi | ok
Socket #Port<0.7> disconnected. | % ctrl+\ to exit
This indicates a localhost ip 192.168.1.101:6677 is talking to a remote ip via NAT gateway 238.88.166.250:56789.
Minimum UPnP discovery for your router. Adding tcp/udp port mapping requires send HTTP/1.1 post request over UDP with huge SOAP XML(skip for now). Specs in here.
$ make run
1> upnp:start().
<0.87.0>
HTTP/1.1 200 OK
Server: Custom/1.0 UPnP/1.0 Proc/Ver
EXT:
Location: http://192.168.1.1:5431/dyndev/uuid:98fc11f8-e410-10e4-f811-fc98fcf8100000
Cache-Control:max-age=40
ST:urn:schemas-upnp-org:device:InternetGatewayDevice:1
USN:uuid:98fc11f8-e410-10e4-f811-fc98fcf8100000::urn:schemas-upnp-org:device:InternetGatewayDevice:1
Distributed qq.
Start first node
$ make join
> Time since last restart: 172584s
> Public IP is 238.88.166.250
> Successfully created udp mapping 10.0.1.22:53615 <> 238.88.166.250:9527, expires in 7200s
>
Start second node
$ PORT=9527 make join
> Time since last restart: 172658s
> Public IP is 238.88.166.250
> Successfully created udp mapping 10.0.1.22:64782 <> 238.88.166.250:39295, expires in 7200s
>
Now they can start chatting!
Simplest rpc. Use rpc1 to avoid name clash with Kernel's rpc module.
Open up two shells.
$ make run | $ make run
1> rpc1:start(). | 1> rpc1:call(lists,seq,[1,10]).
<0.84.0> | [1,2,3,4,5,6,7,8,9,10]
Open up two shells.
$ make run | $ make run
1> P=udp:start("/tmp/a.sock"). | 1> P=udp:start("/tmp/b.sock").
<0.84.0> | <0.84.0>
2> udp:send(P,"/tmp/b.sock","hi"). |
ok | /tmp/a.sock hi
| 2> udp:send(P,"/tmp/a.sock","hello").
/tmp/b.sock hello | ok