BadVPN – Blame information for rev 1

Subversion Repositories:
Rev:
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 }