a580e12000-09-27Fredrik Hübinette (Hubbe) #pike __REAL_VERSION__
a20af62000-09-26Fredrik Hübinette (Hubbe) 
aa370a1999-04-24Johan Schön // LDAP client protocol implementation for Pike. //
cec0932005-03-11Martin Stjernholm // $Id: protocol.pike,v 1.16 2005/03/11 16:49:57 mast Exp $
aa370a1999-04-24Johan Schön // // Honza Petrous, hop@unibase.cz // // ---------------------------------------------------------------------- // // History: // // v1.9 1999-02-19 created separate file // - improved checking of readed bytes in 'readmsg' // v1.9.1.1 // 1999-03-21 - changed FILE to File (unbuffered) // - some inactive code // // v1.10 1999-03-28 - rewritten methods 'readmsg' & 'writemsg' // to new method 'xchgmsg' // - added core for async operation //
ffaf452004-04-14Martin Nilsson #if constant(Standards.ASN1.Types)
aa370a1999-04-24Johan Schön 
cec0932005-03-11Martin Stjernholm import Protocols.LDAP;
aa370a1999-04-24Johan Schön #include "ldap_globals.h" #include "ldap_errors.h" // private variables int next_id = 1; // message id counter int ldap_version = LDAP_DEFAULT_VERSION; // actually used protocol vers.
cec0932005-03-11Martin Stjernholm  string ldap_rem_errstr = ldap_errlist[LDAP_SUCCESS]; // last remote error description
aa370a1999-04-24Johan Schön  int ldap_errno = LDAP_SUCCESS; // last error code /*private*/ string readbuf=""; // read buffer private int ok; // read buffer status /*private*/ string writebuf=""; // write buffer // private written; // count of written chars private function con_ok, con_fail; // async callback functions object conthread; // thread connection array extra_args; // not used, yet // /*private*/ int errno; int connected = 0;
4cb56b2004-10-13H. William Welliver III  object low_fd = Stdio.File(); // helper fd
0668612001-09-14Honza Petrous  object ldapfd; // helper fd
aa370a1999-04-24Johan Schön  int seterr(int errno) { // Sets ldap_err* variables and returns errno //ldap_rem_errstr = errstr; ldap_errno = errno;
6659452003-09-01Martin Nilsson  return errno;
aa370a1999-04-24Johan Schön  }
0b5e392002-07-22H. William Welliver III  //! //! Returns error number of last transaction. //! //! @seealso //! @[LDAP.protocol.error_string]
6659452003-09-01Martin Nilsson  int error_number() { return ldap_errno; }
aa370a1999-04-24Johan Schön 
0b5e392002-07-22H. William Welliver III  //! //! Returns error description of search result. //! //! @seealso //! @[LDAP.protocol.error_number]
6659452003-09-01Martin Nilsson  string error_string() { return ldap_errlist[ldap_errno]; }
aa370a1999-04-24Johan Schön 
6659452003-09-01Martin Nilsson  array error() { return ({error_number(), error_string()}); }
aa370a1999-04-24Johan Schön  static void read_answer() { // ---------------------- // Reads LDAP PDU (with defined msgid) from the server int msglen = 0, ix, ofs; string s, shlp;
ead9722003-01-20Martin Nilsson  if(sizeof(readbuf) < 2)
0668612001-09-14Honza Petrous  readbuf = ldapfd->read(2); // 1. byte = 0x0C, 2. byte = msglen
ead9722003-01-20Martin Nilsson  if (intp(readbuf) || (sizeof(readbuf) < 2)) {
aa370a1999-04-24Johan Schön  seterr (LDAP_TIMEOUT);
8648672004-06-18Henrik Grubbström (Grubba)  DWRITE_HI("protocol.read_answer: ERROR: connection closed.\n"); THROW(({"LDAP: connection closed.\n",backtrace()}));
6659452003-09-01Martin Nilsson  //return -ldap_errno;
aa370a1999-04-24Johan Schön  return; } if (readbuf[0] != '0') { seterr (LDAP_PROTOCOL_ERROR);
8648672004-06-18Henrik Grubbström (Grubba)  DWRITE_HI("protocol.read_answer: ERROR: retv=<"+sprintf("%O",readbuf)+">\n");
aa370a1999-04-24Johan Schön  THROW(({"LDAP: Protocol mismatch.\n",backtrace()}));
6659452003-09-01Martin Nilsson  //return -ldap_errno;
aa370a1999-04-24Johan Schön  return; }
8648672004-06-18Henrik Grubbström (Grubba)  DWRITE(sprintf("protocol.read_answer: sizeof = %d\n", sizeof(readbuf)));
aa370a1999-04-24Johan Schön  msglen = readbuf[1]; ofs = 2; if (msglen & 0x80) { // > 0x7f if (msglen == 0x80) { // RFC not allows unexplicitly defined length seterr (LDAP_PROTOCOL_ERROR); THROW(({"LDAP: Protocol mismatch.\n",backtrace()}));
6659452003-09-01Martin Nilsson  //return -ldap_errno;
aa370a1999-04-24Johan Schön  return; } ofs = (msglen & 0x7f) + 2;
ead9722003-01-20Martin Nilsson  ix = ofs - sizeof(readbuf);
aa370a1999-04-24Johan Schön  if(ix > 0)
0668612001-09-14Honza Petrous  s = ldapfd->read(ix);
ead9722003-01-20Martin Nilsson  if (!s || (sizeof(s) < ix)) {
aa370a1999-04-24Johan Schön  seterr (LDAP_PROTOCOL_ERROR); THROW(({"LDAP: Protocol mismatch.\n",backtrace()}));
6659452003-09-01Martin Nilsson  //return -ldap_errno;
aa370a1999-04-24Johan Schön  return; } readbuf += s; msglen = 0; // !!! RESTRICTION: 2^32 !!! shlp = reverse(readbuf[2..ofs]);
ead9722003-01-20Martin Nilsson  for (ix=0; ix<sizeof(shlp); ix++) {
aa370a1999-04-24Johan Schön  msglen += shlp[ix]*(1<<(ix*8)); } }
ead9722003-01-20Martin Nilsson  ix = (ofs + msglen) - sizeof(readbuf);
aa370a1999-04-24Johan Schön  if(ix > 0)
0668612001-09-14Honza Petrous  s = ldapfd->read(ix);
ead9722003-01-20Martin Nilsson  if (!s || (sizeof(s) < ix)) {
aa370a1999-04-24Johan Schön  seterr (LDAP_SERVER_DOWN); THROW(({"LDAP: connection closed by server.\n",backtrace()}));
6659452003-09-01Martin Nilsson  //return -ldap_errno;
aa370a1999-04-24Johan Schön  return; } readbuf += s;
8648672004-06-18Henrik Grubbström (Grubba)  //DWRITE(sprintf("protocol.read_answer: %s\n", .ldap_privates.ldap_der_decode(readbuf)->debug_string())); DWRITE("protocol.read_answer: ok=1.\n");
aa370a1999-04-24Johan Schön  ok = 1; if(con_ok)
563bd72004-01-11Martin Nilsson  con_ok(this, @extra_args);
aa370a1999-04-24Johan Schön  } static int is_whole_pdu() { // ---------------------- // Check if LDAP PDU is complete in 'readbuf' int msglen, ix, ofs; string shlp;
ead9722003-01-20Martin Nilsson  if (sizeof(readbuf) < 3)
6659452003-09-01Martin Nilsson  return 0; // PDU have min. 3 bytes
aa370a1999-04-24Johan Schön  if (readbuf[0] != '0')
6659452003-09-01Martin Nilsson  return 1; // PDU has bad header -> forced execution
aa370a1999-04-24Johan Schön  msglen = readbuf[1]; if (msglen & 0x80) { // > 0x7f if (msglen == 0x80)
6659452003-09-01Martin Nilsson  return 1; // forced execution
aa370a1999-04-24Johan Schön  ofs = (msglen & 0x7f) + 2;
ead9722003-01-20Martin Nilsson  ix = ofs - sizeof(readbuf);
aa370a1999-04-24Johan Schön  if(ix > 0)
6659452003-09-01Martin Nilsson  return 0; // incomplete PDU
aa370a1999-04-24Johan Schön  msglen = 0; shlp = reverse(readbuf[2..ofs]);
ead9722003-01-20Martin Nilsson  for (ix=0; ix<sizeof(shlp); ix++) {
aa370a1999-04-24Johan Schön  msglen += shlp[ix]*(1<<(ix*8)); } }
ead9722003-01-20Martin Nilsson  ix = (ofs + msglen) - sizeof(readbuf);
aa370a1999-04-24Johan Schön  if(ix > 0)
6659452003-09-01Martin Nilsson  return 0; // incomplete PDU
aa370a1999-04-24Johan Schön 
6659452003-09-01Martin Nilsson  return 1;
aa370a1999-04-24Johan Schön  }
0668612001-09-14Honza Petrous  void create(object fd) { // ------------------- ldapfd = fd;
aa370a1999-04-24Johan Schön  }
d83c722004-05-25Henrik Grubbström (Grubba)  string|int do_op(object msgop, object|void controls) {
aa370a1999-04-24Johan Schön  // --------------------------- // Make LDAP PDU envelope for 'msgop', send it and read answer ... object msgval; object msgid; int rv = 0, msgnum; string s; //THREAD_LOCK msgnum = next_id++; //THREAD_UNLOCK msgid = Standards.ASN1.Types.asn1_integer(msgnum);
d83c722004-05-25Henrik Grubbström (Grubba)  if (controls) { msgval = Standards.ASN1.Types.asn1_sequence(({msgid, msgop, controls})); } else { msgval = Standards.ASN1.Types.asn1_sequence(({msgid, msgop})); }
aa370a1999-04-24Johan Schön  if (objectp(msgval)) { DWRITE(sprintf("protocol.do_op: msg = [%d]\n",sizeof(msgval->get_der()))); } else DWRITE("protocol.do_op: msg is null!\n"); // call_out writebuf = msgval->get_der();
0668612001-09-14Honza Petrous  rv = ldapfd->write(writebuf); // !!!!! - jak rozlisit async a sync ????
aa370a1999-04-24Johan Schön  // call_out if (rv < 2) { seterr (LDAP_SERVER_DOWN); THROW(({"LDAP: connection closed by server.\n",backtrace()}));
6659452003-09-01Martin Nilsson  return -ldap_errno;
aa370a1999-04-24Johan Schön  } DWRITE(sprintf("protocol.do_op: write OK [%d bytes].\n",rv)); msgval = 0; msgid = 0; writebuf= ""; readbuf= ""; // !!! NEni to pozde ? //`()(); read_answer(); // now is all in 'readbuf'
6659452003-09-01Martin Nilsson  return readbuf;
aa370a1999-04-24Johan Schön  } /* ------------ legacy support -----------------*/ string|int readmsg(int msgid) { // Reads LDAP PDU (with defined msgid) from server, checks msgid ... int msglen = 0, ix;
89cbf81999-12-30Henrik Grubbström (Grubba)  string|int retv;
1498051999-12-30Henrik Grubbström (Grubba)  string s, shlp;
aa370a1999-04-24Johan Schön 
0668612001-09-14Honza Petrous  retv = ldapfd->read(2); // 1. byte = 0x0C, 2. byte = msglen
8648672004-06-18Henrik Grubbström (Grubba)  if (retv == -1) {
aa370a1999-04-24Johan Schön  seterr (LDAP_TIMEOUT); DWRITE_HI("protocol.readmsg: ERROR: connection timeout.\n"); THROW(({"LDAP: connection timeout.\n",backtrace()}));
6659452003-09-01Martin Nilsson  return -ldap_errno;
aa370a1999-04-24Johan Schön  } if (!retv || (sizeof(retv) != 2) || (retv[0] != '0')) { seterr (LDAP_PROTOCOL_ERROR); DWRITE_HI("protocol.readmsg: ERROR: retv=<"+sprintf("%O",retv)+">\n"); THROW(({"LDAP: Protocol mismatch.\n",backtrace()}));
6659452003-09-01Martin Nilsson  return -ldap_errno;
aa370a1999-04-24Johan Schön  } DWRITE(sprintf("protocol.readmsg: sizeof = %d\n", sizeof(retv))); msglen = retv[1]; if (msglen & 0x80) { // > 0x7f
8648672004-06-18Henrik Grubbström (Grubba)  if (msglen == 0x80) { // RFC does not allow implicitly defined length
aa370a1999-04-24Johan Schön  seterr (LDAP_PROTOCOL_ERROR); THROW(({"LDAP: Protocol mismatch.\n",backtrace()}));
6659452003-09-01Martin Nilsson  return -ldap_errno;
aa370a1999-04-24Johan Schön  }
0668612001-09-14Honza Petrous  s = ldapfd->read(msglen & 0x7f);
aa370a1999-04-24Johan Schön  if (!s) { seterr (LDAP_PROTOCOL_ERROR); THROW(({"LDAP: Protocol mismatch.\n",backtrace()}));
6659452003-09-01Martin Nilsson  return -ldap_errno;
aa370a1999-04-24Johan Schön  } retv += s; msglen = 0; // !!! RESTRICTION: 2^32 !!! shlp = reverse(s); for (ix=0; ix<sizeof(shlp); ix++) { msglen += shlp[ix]*(1<<(ix*8)); } }
8648672004-06-18Henrik Grubbström (Grubba)  DWRITE(sprintf("protocol.readmsg: reading %d bytes.\n", msglen));
0668612001-09-14Honza Petrous  s = ldapfd->read(msglen);
aa370a1999-04-24Johan Schön  if (!s | (sizeof(s) < msglen)) { seterr (LDAP_SERVER_DOWN); THROW(({"LDAP: connection closed by server.\n",backtrace()}));
6659452003-09-01Martin Nilsson  return -ldap_errno;
aa370a1999-04-24Johan Schön  } retv += s; DWRITE(sprintf("protocol.readmsg: %s\n", .ldap_privates.ldap_der_decode(retv)->debug_string()));
6659452003-09-01Martin Nilsson  return retv;
aa370a1999-04-24Johan Schön  } int writemsg(object msgop) { // Make LDAP PDU envelope for 'msgop' and send it object msgval; object msgid; int rv = 0, msgnum; string s; //THREAD_LOCK msgnum = next_id++; //THREAD_UNLOCK msgid = Standards.ASN1.Types.asn1_integer(msgnum); msgval = Standards.ASN1.Types.asn1_sequence(({msgid, msgop})); if (objectp(msgval)) { DWRITE(sprintf("protocol.writemsg: msg = [%d]\n",sizeof(msgval->get_der()))); } else DWRITE("protocol.writemsg: msg is null!\n"); // call_out
0668612001-09-14Honza Petrous  rv = ldapfd->write(msgval->get_der());
aa370a1999-04-24Johan Schön  // call_out if (rv < 2) { seterr (LDAP_SERVER_DOWN); THROW(({"LDAP: connection closed by server.\n",backtrace()}));
6659452003-09-01Martin Nilsson  return -ldap_errno;
aa370a1999-04-24Johan Schön  } DWRITE(sprintf("protocol.writemsg: write OK [%d bytes].\n",rv)); msgval = 0; msgid = 0;
6659452003-09-01Martin Nilsson  return msgnum;
aa370a1999-04-24Johan Schön  }
ffaf452004-04-14Martin Nilsson #else constant this_program_does_not_exist=1;
92dbd31999-08-24Fredrik Hübinette (Hubbe) #endif