BadVPN – Blame information for rev 1
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
1 | office | 1 | process main { |
2 | getargs() args; |
||
3 | value(args) args; |
||
4 | |||
5 | num_different(args.length, "2") bad_args; |
||
6 | If (bad_args) { |
||
7 | println("bad arguments"); |
||
8 | exit("1"); |
||
9 | }; |
||
10 | |||
11 | args->get("0") addr_ip; |
||
12 | args->get("1") addr_port; |
||
13 | |||
14 | sys.connect({"tcp", {"ipv4", addr_ip, addr_port}}) socket; |
||
15 | If (socket.is_error) { |
||
16 | println("connection error!"); |
||
17 | exit("1"); |
||
18 | }; |
||
19 | |||
20 | println("connected"); |
||
21 | |||
22 | socket->write("This echo client is implemented in NCD!\n\n"); |
||
23 | |||
24 | backtrack_point() recv_point; |
||
25 | |||
26 | socket->read() data; |
||
27 | If (data.not_eof) { |
||
28 | socket->write(data); |
||
29 | recv_point->go(); |
||
30 | }; |
||
31 | |||
32 | println("server disconnected"); |
||
33 | |||
34 | exit("0"); |
||
35 | } |