#include <unistd.h>
#include "byte.h"
#include "buffer.h"
#include "ldap.h"

#define BUFSIZE 8192

int main() {
  char buf[BUFSIZE];
  int len=0;
  for (;;) {
    int tmp=read(0,buf+len,BUFSIZE-len);
    int res;
    long messageid,op,Len;
    if (tmp==0) { write(2,"eof!\n",5); return 0; }
    if (tmp<1) { write(2,"error!\n",7); return 1; }
    len+=tmp;
    res=scan_ldapmessage(buf,buf+len,&messageid,&op,&Len);
    if (res>0) {
      buffer_puts(buffer_2,"got message of length ");
      buffer_putulong(buffer_2,Len);
      buffer_puts(buffer_2," with id ");
      buffer_putulong(buffer_2,messageid);
      buffer_puts(buffer_2,": op ");
      buffer_putulong(buffer_2,op);
      buffer_putsflush(buffer_2,".\n");
      switch (op) {
      case 0:
	{
	  long version,method;
	  struct string name;
	  res=scan_ldapbindrequest(buf+res,buf+res+len,&version,&name,&method);
	  if (res>=0) {
	    buffer_puts(buffer_2,"bind request: version ");
	    buffer_putulong(buffer_2,version);
	    buffer_puts(buffer_2," for name \"");
	    buffer_put(buffer_2,name.s,name.l);
	    buffer_puts(buffer_2,"\" with method ");
	    buffer_putulong(buffer_2,method);
	    buffer_putsflush(buffer_2,".\n");
	    {
	      char outbuf[1024];
	      int s=100;
	      int len=fmt_ldapbindresponse(outbuf+s,0,"","go ahead","");
	      int hlen=fmt_ldapmessage(0,messageid,BindResponse,len);
	      fmt_ldapmessage(outbuf+s-hlen,messageid,BindResponse,len);
	      write(1,outbuf+s-hlen,len+hlen);
	    }
	  }
	}
      }
      if (Len<len) {
	byte_copyr(buf,len-Len,buf+len);
	len-=Len;
      }
    }
  }
}