#include <sys/types.h>

#include <sys/socket.h>

#include <netinet/in.h>

#include <fcntl.h>

#include "byte.h"

#include "substdio.h"

#include "ip.h"

#include "fmt.h"

#include "timeoutconn.h"

#include "timeoutread.h"

#include "timeoutwrite.h"

#include "remoteinfo.h"

static char line[999];

static int t;

static int mywrite(fd,buf,len) int fd; char *buf; int len;

{

  return timeoutwrite(t,fd,buf,len);

}

static int myread(fd,buf,len) int fd; char *buf; int len;

{

  return timeoutread(t,fd,buf,len);

}

char *remoteinfo_get(ipr,rp,ipl,lp,timeout)

struct ip_address *ipr;

unsigned long rp;

struct ip_address *ipl;

unsigned long lp;

int timeout;

{

  char *x;

  int s;

  struct sockaddr_in sin;

  substdio ss;

  char buf[32];

  unsigned int len;

  int numcolons;

  char ch;

  t = timeout;

  s = socket(AF_INET,SOCK_STREAM,0);

  if (s == -1) return 0;

  byte_zero(&sin,sizeof(sin));

  sin.sin_family = AF_INET;

  byte_copy(&sin.sin_addr,4,ipl);

  sin.sin_port = 0;

  if (bind(s,(struct sockaddr *) &sin,sizeof(sin)) == -1) { close(s); return 0; }

  if (timeoutconn(s,ipr,113,timeout) == -1) { close(s); return 0; }

  fcntl(s,F_SETFL,fcntl(s,F_GETFL,0) & ~O_NDELAY);

  len = 0;

  len += fmt_ulong(line + len,rp);

  len += fmt_str(line + len," , ");

  len += fmt_ulong(line + len,lp);

  len += fmt_str(line + len,"\r\n");

  substdio_fdbuf(&ss,mywrite,s,buf,sizeof buf);

  if (substdio_putflush(&ss,line,len) == -1) { close(s); return 0; }

  substdio_fdbuf(&ss,myread,s,buf,sizeof buf);

  x = line;

  numcolons = 0;

  for (;;) {

    if (substdio_get(&ss,&ch,1) != 1) { close(s); return 0; }

    if ((ch == ' ') || (ch == '\t') || (ch == '\r')) continue;

    if (ch == '\n') break;

    if (numcolons < 3) { if (ch == ':') ++numcolons; }

    else { *x++ = ch; if (x == line + sizeof(line) - 1) break; }

  }

  *x = 0;

  close(s);

  return line;

}