home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -seriously_amiga- / comms / other / rxsocket / examples / revclient.rexx < prev    next >
OS/2 REXX Batch file  |  1998-05-09  |  616b  |  40 lines
  1. /*
  2.     client for reserv
  3. */
  4.  
  5.  
  6. if ~show("L","rxsocket.library") then
  7.     if ~addLib("rxsocket.library",0,-30) then do
  8.         say "can't find rxsocket.library"
  9.         exit
  10.     end
  11.  
  12. sin.ADDRFAMILY = "INET"
  13. sin.ADDRPORT   = 4000
  14. sin.ADDRADDR   = '127.0.0.1'
  15.  
  16. sock = socket("INET","STREAM",0)
  17. if sock<0 then do
  18.     say "no socket:" errno()
  19.     exit
  20. end
  21.  
  22. if connect(sock,"SIN")<0 then do
  23.     say "connect error:" errno()
  24.     exit
  25. end
  26.  
  27. request = "reverse service test"
  28. res = send(sock,request)
  29. if res~=length(request) then do
  30.     say "send error:"  errno()
  31.     exit
  32. end
  33.  
  34. len = recv(sock,"BUF",256)
  35. if len<0 then do
  36.     say "recv error:" errno()
  37.     exit
  38. end
  39. say buf
  40.