Rename a number of libraries and executables to avoid conflicts with KDE4

1 files changed, 1263 insertions, 0 deletions

diff --git a/tdeioslave/pop3/pop3.cc b/tdeioslave/pop3/pop3.cc
new file mode 100644
index 000000000..e4518da08
--- /dev/null
+++ b/tdeioslave/pop3/pop3.cc
@@ -0,0 +1,1263 @@
+/*
+ * Copyright (c) 1999-2001 Alex Zepeda
+ * Copyright (c) 2001-2002 Michael Haeckel <haeckel@kde.org>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <sys/types.h>
+#include <sys/socket.h>
+#include <sys/stat.h>
+#include <sys/time.h>
+#ifdef HAVE_SYS_SELECT_H
+#include <sys/select.h>
+#endif
+
+#include <errno.h>
+#include <stdio.h>
+
+#ifdef HAVE_LIBSASL2
+extern "C" {
+#include <sasl/sasl.h>
+}
+#endif
+
+#include <tqcstring.h>
+#include <tqglobal.h>
+#include <tqregexp.h>
+
+#include <kdebug.h>
+#include <kinstance.h>
+#include <klocale.h>
+#include <kmdcodec.h>
+#include <kprotocolmanager.h>
+#include <ksock.h>
+
+#include <tdeio/connection.h>
+#include <tdeio/slaveinterface.h>
+#include <tdeio/passdlg.h>
+#include "pop3.h"
+
+#define GREETING_BUF_LEN 1024
+#define MAX_RESPONSE_LEN 512
+#define MAX_COMMANDS 10
+
+#define POP3_DEBUG kdDebug(7105)
+
+extern "C" {
+  int KDE_EXPORT kdemain(int argc, char **argv);
+}
+
+using namespace TDEIO;
+
+#ifdef HAVE_LIBSASL2
+static sasl_callback_t callbacks[] = {
+    { SASL_CB_ECHOPROMPT, NULL, NULL },
+    { SASL_CB_NOECHOPROMPT, NULL, NULL },
+    { SASL_CB_GETREALM, NULL, NULL },
+    { SASL_CB_USER, NULL, NULL },
+    { SASL_CB_AUTHNAME, NULL, NULL },
+    { SASL_CB_PASS, NULL, NULL },
+    { SASL_CB_CANON_USER, NULL, NULL },
+    { SASL_CB_LIST_END, NULL, NULL }
+};
+#endif
+
+int kdemain(int argc, char **argv)
+{
+
+  if (argc != 4) {
+    POP3_DEBUG << "Usage: kio_pop3 protocol domain-socket1 domain-socket2"
+        << endl;
+    return -1;
+  }
+
+#ifdef HAVE_LIBSASL2
+  if ( sasl_client_init( NULL ) != SASL_OK ) {
+    fprintf(stderr, "SASL library initialization failed!\n");
+    return -1;
+  }
+#endif
+
+  TDEInstance instance("kio_pop3");
+  POP3Protocol *slave;
+
+  // Are we looking to use SSL?
+  if (strcasecmp(argv[1], "pop3s") == 0) {
+    slave = new POP3Protocol(argv[2], argv[3], true);
+  } else {
+    slave = new POP3Protocol(argv[2], argv[3], false);
+  }
+
+  slave->dispatchLoop();
+  delete slave;
+
+#ifdef HAVE_LIBSASL2
+  sasl_done();
+#endif
+
+  return 0;
+}
+
+POP3Protocol::POP3Protocol(const TQCString & pool, const TQCString & app,
+                           bool isSSL)
+:  TCPSlaveBase((isSSL ? 995 : 110), (isSSL ? "pop3s" : "pop3"), pool, app,
+             isSSL)
+{
+  POP3_DEBUG << "POP3Protocol::POP3Protocol()" << endl;
+  m_bIsSSL = isSSL;
+  m_cmd = CMD_NONE;
+  m_iOldPort = 0;
+  m_tTimeout.tv_sec = 10;
+  m_tTimeout.tv_usec = 0;
+  supports_apop = false;
+  m_try_apop = true;
+  m_try_sasl = true;
+  opened = false;
+  readBufferLen = 0;
+}
+
+POP3Protocol::~POP3Protocol()
+{
+  POP3_DEBUG << "POP3Protocol::~POP3Protocol()" << endl;
+  closeConnection();
+}
+
+void POP3Protocol::setHost(const TQString & _host, int _port,
+                           const TQString & _user, const TQString & _pass)
+{
+  m_sServer = _host;
+  m_iPort = _port;
+  m_sUser = _user;
+  m_sPass = _pass;
+}
+
+ssize_t POP3Protocol::myRead(void *data, ssize_t len)
+{
+  if (readBufferLen) {
+    ssize_t copyLen = (len < readBufferLen) ? len : readBufferLen;
+    memcpy(data, readBuffer, copyLen);
+    readBufferLen -= copyLen;
+    if (readBufferLen)
+      memmove(readBuffer, &readBuffer[copyLen], readBufferLen);
+    return copyLen;
+  }
+  waitForResponse(600);
+  return read(data, len);
+}
+
+ssize_t POP3Protocol::myReadLine(char *data, ssize_t len)
+{
+  ssize_t copyLen = 0, readLen = 0;
+  while (true) {
+    while (copyLen < readBufferLen && readBuffer[copyLen] != '\n')
+      copyLen++;
+    if (copyLen < readBufferLen || copyLen == len) {
+      copyLen++;
+      memcpy(data, readBuffer, copyLen);
+      data[copyLen] = '\0';
+      readBufferLen -= copyLen;
+      if (readBufferLen)
+        memmove(readBuffer, &readBuffer[copyLen], readBufferLen);
+      return copyLen;
+    }
+    waitForResponse(600);
+    readLen = read(&readBuffer[readBufferLen], len - readBufferLen);
+    readBufferLen += readLen;
+    if (readLen <= 0) {
+      data[0] = '\0';
+      return 0;
+    }
+  }
+}
+
+POP3Protocol::Resp POP3Protocol::getResponse(char *r_buf, unsigned int r_len,
+                               const char *cmd)
+{
+  char *buf = 0;
+  unsigned int recv_len = 0;
+  // fd_set FDs;
+
+  // Give the buffer the appropriate size
+  r_len = r_len ? r_len : MAX_RESPONSE_LEN;
+
+  buf = new char[r_len];
+
+  // Clear out the buffer
+  memset(buf, 0, r_len);
+  myReadLine(buf, r_len - 1);
+
+  // This is really a funky crash waiting to happen if something isn't
+  // null terminated.
+  recv_len = strlen(buf);
+
+  /*
+   *   From rfc1939:
+   *
+   *   Responses in the POP3 consist of a status indicator and a keyword
+   *   possibly followed by additional information.  All responses are
+   *   terminated by a CRLF pair.  Responses may be up to 512 characters
+   *   long, including the terminating CRLF.  There are currently two status
+   *   indicators: positive ("+OK") and negative ("-ERR").  Servers MUST
+   *   send the "+OK" and "-ERR" in upper case.
+   */
+
+  if (strncmp(buf, "+OK", 3) == 0) {
+    if (r_buf && r_len) {
+      memcpy(r_buf, (buf[3] == ' ' ? buf + 4 : buf + 3),
+             QMIN(r_len, (buf[3] == ' ' ? recv_len - 4 : recv_len - 3)));
+    }
+
+    delete[]buf;
+
+    return Ok;
+  } else if (strncmp(buf, "-ERR", 4) == 0) {
+    if (r_buf && r_len) {
+      memcpy(r_buf, (buf[4] == ' ' ? buf + 5 : buf + 4),
+             QMIN(r_len, (buf[4] == ' ' ? recv_len - 5 : recv_len - 4)));
+    }
+
+    TQString command = TQString::fromLatin1(cmd);
+    TQString serverMsg = TQString::fromLatin1(buf).mid(5).stripWhiteSpace();
+
+    if (command.left(4) == "PASS") {
+      command = i18n("PASS <your password>");
+    }
+
+    m_sError = i18n("The server said: \"%1\"").arg(serverMsg);
+
+    delete[]buf;
+
+    return Err;
+  } else if (strncmp(buf, "+ ", 2) == 0) {
+    if (r_buf && r_len) {
+      memcpy(r_buf, buf + 2, QMIN(r_len, recv_len - 4));
+      r_buf[QMIN(r_len - 1, recv_len - 4)] = '\0';
+    }
+
+    delete[]buf;
+
+    return Cont;
+  } else {
+    POP3_DEBUG << "Invalid POP3 response received!" << endl;
+
+    if (r_buf && r_len) {
+      memcpy(r_buf, buf, QMIN(r_len, recv_len));
+    }
+
+    if (!buf || !*buf) {
+      m_sError = i18n("The server terminated the connection.");
+    } else {
+      m_sError = i18n("Invalid response from server:\n\"%1\"").arg(buf);
+    }
+
+    delete[]buf;
+
+    return Invalid;
+  }
+}
+
+bool POP3Protocol::sendCommand(const char *cmd)
+{
+  /*
+   *   From rfc1939:
+   *
+   *   Commands in the POP3 consist of a case-insensitive keyword, possibly
+   *   followed by one or more arguments.  All commands are terminated by a
+   *   CRLF pair.  Keywords and arguments consist of printable ASCII
+   *   characters.  Keywords and arguments are each separated by a single
+   *   SPACE character.  Keywords are three or four characters long. Each
+   *   argument may be up to 40 characters long.
+   */
+
+  if (!isConnectionValid()) return false;
+
+  char *cmdrn = new char[strlen(cmd) + 3];
+  sprintf(cmdrn, "%s\r\n", (cmd) ? cmd : "");
+
+  if (write(cmdrn, strlen(cmdrn)) != static_cast < ssize_t >
+      (strlen(cmdrn))) {
+    m_sError = i18n("Could not send to server.\n");
+    delete[]cmdrn;
+    return false;
+  }
+
+  delete[]cmdrn;
+  return true;
+}
+
+POP3Protocol::Resp POP3Protocol::command(const char *cmd, char *recv_buf,
+                           unsigned int len)
+{
+  sendCommand(cmd);
+  return getResponse(recv_buf, len, cmd);
+}
+
+void POP3Protocol::openConnection()
+{
+  m_try_apop = !hasMetaData("auth") || metaData("auth") == "APOP";
+  m_try_sasl = !hasMetaData("auth") || metaData("auth") == "SASL";
+
+  if (!pop3_open()) {
+    POP3_DEBUG << "pop3_open failed" << endl;
+  } else {
+    connected();
+  }
+}
+
+void POP3Protocol::closeConnection()
+{
+  // If the file pointer exists, we can assume the socket is valid,
+  // and to make sure that the server doesn't magically undo any of
+  // our deletions and so-on, we should send a QUIT and wait for a
+  // response.  We don't care if it's positive or negative.  Also
+  // flush out any semblance of a persistant connection, i.e.: the
+  // old username and password are now invalid.
+  if (!opened) {
+    return;
+  }
+
+  command("QUIT");
+  closeDescriptor();
+  readBufferLen = 0;
+  m_sOldUser = m_sOldPass = m_sOldServer = "";
+  opened = false;
+}
+
+int POP3Protocol::loginAPOP( char *challenge, TDEIO::AuthInfo &ai )
+{
+  char buf[512];
+
+  TQString apop_string = TQString::fromLatin1("APOP ");
+  if (m_sUser.isEmpty() || m_sPass.isEmpty()) {
+    // Prompt for usernames
+    if (!openPassDlg(ai)) {
+      error(ERR_ABORTED, i18n("No authentication details supplied."));
+      closeConnection();
+      return -1;
+    } else {
+      m_sUser = ai.username;
+      m_sPass = ai.password;
+    }
+  }
+  m_sOldUser = m_sUser;
+  m_sOldPass = m_sPass;
+
+  apop_string.append(m_sUser);
+
+  memset(buf, 0, sizeof(buf));
+
+  KMD5 ctx;
+
+  POP3_DEBUG << "APOP challenge: " << challenge << endl;
+
+  // Generate digest
+  ctx.update(challenge, strlen(challenge));
+  ctx.update(m_sPass.latin1() );
+
+  // Genenerate APOP command
+  apop_string.append(" ");
+  apop_string.append(ctx.hexDigest());
+
+  if (command(apop_string.local8Bit(), buf, sizeof(buf)) == Ok) {
+    return 0;
+  }
+
+  POP3_DEBUG << "Couldn't login via APOP. Falling back to USER/PASS" <<
+      endl;
+  closeConnection();
+  if (metaData("auth") == "APOP") {
+    error(ERR_COULD_NOT_LOGIN,
+          i18n
+          ("Login via APOP failed. The server %1 may not support APOP, although it claims to support it, or the password may be wrong.\n\n%2").
+          arg(m_sServer).
+          arg(m_sError));
+    return -1;
+  }
+  return 1;
+}
+
+bool POP3Protocol::saslInteract( void *in, AuthInfo &ai )
+{
+#ifdef HAVE_LIBSASL2
+  POP3_DEBUG << "sasl_interact" << endl;
+  sasl_interact_t *interact = ( sasl_interact_t * ) in;
+
+  //some mechanisms do not require username && pass, so don't need a popup
+  //window for getting this info
+  for ( ; interact->id != SASL_CB_LIST_END; interact++ ) {
+    if ( interact->id == SASL_CB_AUTHNAME ||
+         interact->id == SASL_CB_PASS ) {
+
+      if (m_sUser.isEmpty() || m_sPass.isEmpty()) {
+        if (!openPassDlg(ai)) {
+          error(ERR_ABORTED, i18n("No authentication details supplied."));
+          return false;
+        }
+        m_sUser = ai.username;
+        m_sPass = ai.password;
+      }
+      break;
+    }
+  }
+
+  interact = ( sasl_interact_t * ) in;
+  while( interact->id != SASL_CB_LIST_END ) {
+    POP3_DEBUG << "SASL_INTERACT id: " << interact->id << endl;
+    switch( interact->id ) {
+      case SASL_CB_USER:
+      case SASL_CB_AUTHNAME:
+        POP3_DEBUG << "SASL_CB_[USER|AUTHNAME]: " << m_sUser << endl;
+        interact->result = strdup( m_sUser.utf8() );
+        interact->len = strlen( (const char *) interact->result );
+        break;
+      case SASL_CB_PASS:
+        POP3_DEBUG << "SASL_CB_PASS: [hidden] " << endl;
+        interact->result = strdup( m_sPass.utf8() );
+        interact->len = strlen( (const char *) interact->result );
+        break;
+      default:
+        interact->result = NULL; interact->len = 0;
+        break;
+    }
+    interact++;
+  }
+  return true;
+#else
+  return false;
+#endif
+}
+
+#define SASLERROR  closeConnection(); \
+error(ERR_COULD_NOT_AUTHENTICATE, i18n("An error occured during authentication: %1").arg \
+( TQString::fromUtf8( sasl_errdetail( conn ) ))); \
+
+int POP3Protocol::loginSASL( TDEIO::AuthInfo &ai )
+{
+#ifdef HAVE_LIBSASL2
+  char buf[512];
+  TQString sasl_buffer = TQString::fromLatin1("AUTH");
+
+  int result;
+  sasl_conn_t *conn = NULL;
+  sasl_interact_t *client_interact = NULL;
+  const char *out = NULL;
+  uint outlen;
+  const char *mechusing = NULL;
+  Resp resp;
+
+  result = sasl_client_new( "pop",
+                       m_sServer.latin1(),
+                       0, 0, callbacks, 0, &conn );
+
+  if ( result != SASL_OK ) {
+    POP3_DEBUG << "sasl_client_new failed with: " << result << endl;
+    SASLERROR
+    return false;
+  }
+
+  // We need to check what methods the server supports...
+  // This is based on RFC 1734's wisdom
+  if ( hasMetaData("sasl") || command(sasl_buffer.local8Bit()) == Ok  ) {
+
+    TQStringList sasl_list;
+    if (hasMetaData("sasl")) {
+      sasl_list.append(metaData("sasl").latin1());
+    } else
+      while (true /* !AtEOF() */ ) {
+        memset(buf, 0, sizeof(buf));
+        myReadLine(buf, sizeof(buf) - 1);
+
+        // HACK: This assumes fread stops at the first \n and not \r
+        if (strcmp(buf, ".\r\n") == 0) {
+          break;              // End of data
+        }
+        // sanders, changed -2 to -1 below
+        buf[strlen(buf) - 2] = '\0';
+
+        sasl_list.append(buf);
+      }
+
+    do {
+      result = sasl_client_start(conn, sasl_list.join(" ").latin1(),
+        &client_interact, &out, &outlen, &mechusing);
+
+      if (result == SASL_INTERACT)
+        if ( !saslInteract( client_interact, ai ) ) {
+          closeConnection();
+          sasl_dispose( &conn );
+          return -1;
+        };
+    } while ( result == SASL_INTERACT );
+    if ( result != SASL_CONTINUE && result != SASL_OK ) {
+      POP3_DEBUG << "sasl_client_start failed with: " << result << endl;
+      SASLERROR
+      sasl_dispose( &conn );
+      return -1;
+    }
+
+    POP3_DEBUG << "Preferred authentication method is " << mechusing << "." << endl;
+
+    TQByteArray challenge, tmp;
+
+    TQString firstCommand = "AUTH " + TQString::fromLatin1( mechusing );
+    challenge.setRawData( out, outlen );
+    KCodecs::base64Encode( challenge, tmp );
+    challenge.resetRawData( out, outlen );
+    if ( !tmp.isEmpty() ) {
+      firstCommand += " ";
+      firstCommand += TQString::fromLatin1( tmp.data(), tmp.size() );
+    }
+
+    challenge.resize( 2049 );
+    resp = command( firstCommand.latin1(), challenge.data(), 2049 );
+    while( resp == Cont ) {
+      challenge.resize(challenge.find(0));
+//      POP3_DEBUG << "S: " << TQCString(challenge.data(),challenge.size()+1) << endl;
+      KCodecs::base64Decode( challenge, tmp );
+      do {
+        result = sasl_client_step(conn, tmp.isEmpty() ? 0 : tmp.data(),
+                                tmp.size(),
+                                &client_interact,
+                                &out, &outlen);
+
+        if (result == SASL_INTERACT)
+          if ( !saslInteract( client_interact, ai ) ) {
+            closeConnection();
+            sasl_dispose( &conn );
+            return -1;
+          };
+      } while ( result == SASL_INTERACT );
+      if ( result != SASL_CONTINUE && result != SASL_OK ) {
+        POP3_DEBUG << "sasl_client_step failed with: " << result << endl;
+        SASLERROR
+        sasl_dispose( &conn );
+        return -1;
+      }
+
+      challenge.setRawData( out, outlen );
+      KCodecs::base64Encode( challenge, tmp );
+      challenge.resetRawData( out, outlen );
+//        POP3_DEBUG << "C: " << TQCString(tmp.data(),tmp.size()+1) << endl;
+      tmp.resize(tmp.size()+1);
+      tmp[tmp.size()-1] = '\0';
+      challenge.resize(2049);
+      resp = command( tmp.data(), challenge.data(), 2049 );
+    }
+
+    sasl_dispose( &conn );
+    if ( resp == Ok ) {
+      POP3_DEBUG << "SASL authenticated" << endl;
+      m_sOldUser = m_sUser;
+      m_sOldPass = m_sPass;
+      return 0;
+    }
+
+    if (metaData("auth") == "SASL") {
+      closeConnection();
+      error(ERR_COULD_NOT_LOGIN,
+            i18n
+            ("Login via SASL (%1) failed. The server may not support %2, or the password may be wrong.\n\n%3").
+            arg(mechusing).arg(mechusing).arg(m_sError));
+      return -1;
+    }
+  }
+
+  if (metaData("auth") == "SASL") {
+    closeConnection();
+    error(ERR_COULD_NOT_LOGIN,
+          i18n("Your POP3 server does not support SASL.\n"
+               "Choose a different authentication method."));
+    return -1;
+  }
+  return 1;
+#else
+  if (metaData("auth") == "SASL") {
+    closeConnection();
+    error(ERR_COULD_NOT_LOGIN, i18n("SASL authentication is not compiled into kio_pop3."));
+    return -1;
+  }
+  return 1; //if SASL not explicitly required, try another method (USER/PASS)
+#endif
+}
+
+bool POP3Protocol::loginPASS( TDEIO::AuthInfo &ai )
+{
+  char buf[512];
+
+  if (m_sUser.isEmpty() || m_sPass.isEmpty()) {
+    // Prompt for usernames
+    if (!openPassDlg(ai)) {
+      error(ERR_ABORTED, i18n("No authentication details supplied."));
+      closeConnection();
+      return false;
+    } else {
+      m_sUser = ai.username;
+      m_sPass = ai.password;
+    }
+  }
+  m_sOldUser = m_sUser;
+  m_sOldPass = m_sPass;
+
+  TQString one_string = TQString::fromLatin1("USER ");
+  one_string.append( m_sUser );
+
+  if ( command(one_string.local8Bit(), buf, sizeof(buf)) != Ok ) {
+    POP3_DEBUG << "Couldn't login. Bad username Sorry" << endl;
+
+    m_sError =
+        i18n("Could not login to %1.\n\n").arg(m_sServer) + m_sError;
+    error(ERR_COULD_NOT_LOGIN, m_sError);
+    closeConnection();
+
+    return false;
+  }
+
+  one_string = TQString::fromLatin1("PASS ");
+  one_string.append(m_sPass);
+
+  if ( command(one_string.local8Bit(), buf, sizeof(buf)) != Ok ) {
+    POP3_DEBUG << "Couldn't login. Bad password Sorry." << endl;
+    m_sError =
+        i18n
+        ("Could not login to %1. The password may be wrong.\n\n%2").
+        arg(m_sServer).arg(m_sError);
+    error(ERR_COULD_NOT_LOGIN, m_sError);
+    closeConnection();
+    return false;
+  }
+  POP3_DEBUG << "USER/PASS login succeeded" << endl;
+  return true;
+}
+
+bool POP3Protocol::pop3_open()
+{
+  POP3_DEBUG << "pop3_open()" << endl;
+  char  *greeting_buf;
+  if ((m_iOldPort == port(m_iPort)) && (m_sOldServer == m_sServer) &&
+      (m_sOldUser == m_sUser) && (m_sOldPass == m_sPass)) {
+    POP3_DEBUG << "Reusing old connection" << endl;
+    return true;
+  }
+  do {
+    closeConnection();
+
+    if (!connectToHost(m_sServer.ascii(), m_iPort)) {
+      // error(ERR_COULD_NOT_CONNECT, m_sServer);
+      // ConnectToHost has already send an error message.
+      return false;
+    }
+    opened = true;
+
+    greeting_buf = new char[GREETING_BUF_LEN];
+    memset(greeting_buf, 0, GREETING_BUF_LEN);
+
+    // If the server doesn't respond with a greeting
+    if (getResponse(greeting_buf, GREETING_BUF_LEN, "") != Ok) {
+      m_sError =
+          i18n("Could not login to %1.\n\n").arg(m_sServer) +
+          ((!greeting_buf
+            || !*greeting_buf) ?
+           i18n("The server terminated the connection immediately.") :
+           i18n("Server does not respond properly:\n%1\n").
+           arg(greeting_buf));
+      error(ERR_COULD_NOT_LOGIN, m_sError);
+      delete[]greeting_buf;
+      closeConnection();
+      return false;             // we've got major problems, and possibly the
+      // wrong port
+    }
+    TQCString greeting(greeting_buf);
+    delete[]greeting_buf;
+
+    if (greeting.length() > 0) {
+      greeting.truncate(greeting.length() - 2);
+    }
+
+    // Does the server support APOP?
+    TQString apop_cmd;
+    TQRegExp re("<[A-Za-z0-9\\.\\-_]+@[A-Za-z0-9\\.\\-_]+>$", false);
+
+    POP3_DEBUG << "greeting: " << greeting << endl;
+    int apop_pos = greeting.find(re);
+    supports_apop = (bool) (apop_pos != -1);
+
+    if (metaData("nologin") == "on")
+      return true;
+
+    if (metaData("auth") == "APOP" && !supports_apop) {
+      error(ERR_COULD_NOT_LOGIN,
+          i18n("Your POP3 server does not support APOP.\n"
+               "Choose a different authentication method."));
+      closeConnection();
+      return false;
+    }
+
+    m_iOldPort = m_iPort;
+    m_sOldServer = m_sServer;
+
+    // Try to go into TLS mode
+    if ((metaData("tls") == "on" || (canUseTLS() &&
+                                     metaData("tls") != "off"))
+        && command("STLS") == Ok ) {
+      int tlsrc = startTLS();
+      if (tlsrc == 1) {
+        POP3_DEBUG << "TLS mode has been enabled." << endl;
+      } else {
+        if (tlsrc != -3) {
+          POP3_DEBUG << "TLS mode setup has failed. Aborting." << endl;
+          error(ERR_COULD_NOT_CONNECT,
+                i18n("Your POP3 server claims to "
+                     "support TLS but negotiation "
+                     "was unsuccessful. You can "
+                     "disable TLS in KDE using the "
+                     "crypto settings module."));
+        }
+        closeConnection();
+        return false;
+      }
+    } else if (metaData("tls") == "on") {
+      error(ERR_COULD_NOT_CONNECT,
+            i18n("Your POP3 server does not support TLS. Disable "
+                 "TLS, if you want to connect without encryption."));
+      closeConnection();
+      return false;
+    }
+
+    TDEIO::AuthInfo authInfo;
+    authInfo.username = m_sUser;
+    authInfo.password = m_sPass;
+    authInfo.prompt = i18n("Username and password for your POP3 account:");
+
+    if ( supports_apop && m_try_apop ) {
+      POP3_DEBUG << "Trying APOP" << endl;
+      int retval = loginAPOP( greeting.data() + apop_pos, authInfo );
+      switch ( retval ) {
+        case 0: return true;
+        case -1: return false;
+        default:
+          m_try_apop = false;
+      }
+    } else if ( m_try_sasl ) {
+      POP3_DEBUG << "Trying SASL" << endl;
+      int retval = loginSASL( authInfo );
+      switch ( retval ) {
+        case 0: return true;
+        case -1: return false;
+        default:
+          m_try_sasl = false;
+      }
+    } else {
+      // Fall back to conventional USER/PASS scheme
+      POP3_DEBUG << "Trying USER/PASS" << endl;
+      return loginPASS( authInfo );
+    }
+  } while ( true );
+}
+
+size_t POP3Protocol::realGetSize(unsigned int msg_num)
+{
+  char *buf;
+  TQCString cmd;
+  size_t ret = 0;
+
+  buf = new char[MAX_RESPONSE_LEN];
+  memset(buf, 0, MAX_RESPONSE_LEN);
+  cmd.sprintf("LIST %u", msg_num);
+  if ( command(cmd.data(), buf, MAX_RESPONSE_LEN) != Ok ) {
+    delete[]buf;
+    return 0;
+  } else {
+    cmd = buf;
+    cmd.remove(0, cmd.find(" "));
+    ret = cmd.toLong();
+  }
+  delete[]buf;
+  return ret;
+}
+
+void POP3Protocol::special(const TQByteArray & aData)
+{
+  TQString result;
+  char buf[MAX_PACKET_LEN];
+  TQDataStream stream(aData, IO_ReadOnly);
+  int tmp;
+  stream >> tmp;
+
+  if (tmp != 'c')
+    return;
+
+  for (int i = 0; i < 2; i++) {
+    TQCString cmd = (i) ? "AUTH" : "CAPA";
+    if ( command(cmd) != Ok )
+      continue;
+    while (true) {
+      myReadLine(buf, MAX_PACKET_LEN - 1);
+      if (qstrcmp(buf, ".\r\n") == 0)
+        break;
+      result += " " + TQString(buf).left(strlen(buf) - 2)
+          .replace(" ", "-");
+    }
+  }
+  if (supports_apop)
+    result += " APOP";
+  result = result.mid(1);
+  infoMessage(result);
+  finished();
+}
+
+void POP3Protocol::get(const KURL & url)
+{
+// List of supported commands
+//
+// URI                                 Command   Result
+// pop3://user:pass@domain/index       LIST      List message sizes
+// pop3://user:pass@domain/uidl        UIDL      List message UIDs
+// pop3://user:pass@domain/remove/#1   DELE #1   Mark a message for deletion
+// pop3://user:pass@domain/download/#1 RETR #1   Get message header and body
+// pop3://user:pass@domain/list/#1     LIST #1   Get size of a message
+// pop3://user:pass@domain/uid/#1      UIDL #1   Get UID of a message
+// pop3://user:pass@domain/commit      QUIT      Delete marked messages
+// pop3://user:pass@domain/headers/#1  TOP #1    Get header of message
+//
+// Notes:
+// Sizes are in bytes.
+// No support for the STAT command has been implemented.
+// commit closes the connection to the server after issuing the QUIT command.
+
+  bool ok = true;
+  char buf[MAX_PACKET_LEN];
+  char destbuf[MAX_PACKET_LEN];
+  TQByteArray array;
+  TQString cmd, path = url.path();
+  int maxCommands = (metaData("pipelining") == "on") ? MAX_COMMANDS : 1;
+
+  if (path.at(0) == '/')
+    path.remove(0, 1);
+  if (path.isEmpty()) {
+    POP3_DEBUG << "We should be a dir!!" << endl;
+    error(ERR_IS_DIRECTORY, url.url());
+    m_cmd = CMD_NONE;
+    return;
+  }
+
+  if (((path.find('/') == -1) && (path != "index") && (path != "uidl")
+       && (path != "commit"))) {
+    error(ERR_MALFORMED_URL, url.url());
+    m_cmd = CMD_NONE;
+    return;
+  }
+
+  cmd = path.left(path.find('/'));
+  path.remove(0, path.find('/') + 1);
+
+  if (!pop3_open()) {
+    POP3_DEBUG << "pop3_open failed" << endl;
+    error(ERR_COULD_NOT_CONNECT, m_sServer);
+    return;
+  }
+
+  if ((cmd == "index") || (cmd == "uidl")) {
+    unsigned long size = 0;
+    bool result;
+
+    if (cmd == "index") {
+      result = ( command("LIST") == Ok );
+    } else {
+      result = ( command("UIDL") == Ok );
+    }
+
+    /*
+       LIST
+       +OK Mailbox scan listing follows
+       1 2979
+       2 1348
+       .
+     */
+    if (result) {
+      while (true /* !AtEOF() */ ) {
+        memset(buf, 0, sizeof(buf));
+        myReadLine(buf, sizeof(buf) - 1);
+
+        // HACK: This assumes fread stops at the first \n and not \r
+        if (strcmp(buf, ".\r\n") == 0) {
+          break;                // End of data
+        }
+        // sanders, changed -2 to -1 below
+        int bufStrLen = strlen(buf);
+        buf[bufStrLen - 2] = '\0';
+        size += bufStrLen;
+        array.setRawData(buf, bufStrLen);
+        data(array);
+        array.resetRawData(buf, bufStrLen);
+        totalSize(size);
+      }
+    }
+    POP3_DEBUG << "Finishing up list" << endl;
+    data(TQByteArray());
+    finished();
+  } else if (cmd == "remove") {
+    TQStringList waitingCommands = TQStringList::split(',', path);
+    int activeCommands = 0;
+    TQStringList::Iterator it = waitingCommands.begin();
+    while (it != waitingCommands.end() || activeCommands > 0) {
+      while (activeCommands < maxCommands && it != waitingCommands.end()) {
+        sendCommand(("DELE " + *it).latin1());
+        activeCommands++;
+        it++;
+      }
+      getResponse(buf, sizeof(buf) - 1, "");
+      activeCommands--;
+    }
+    finished();
+    m_cmd = CMD_NONE;
+  } else if (cmd == "download" || cmd == "headers") {
+    TQStringList waitingCommands = TQStringList::split(',', path);
+    bool noProgress = (metaData("progress") == "off"
+                       || waitingCommands.count() > 1);
+    int p_size = 0;
+    unsigned int msg_len = 0;
+    TQString list_cmd("LIST ");
+    list_cmd += path;
+    memset(buf, 0, sizeof(buf));
+    if ( !noProgress ) {
+      if ( command(list_cmd.ascii(), buf, sizeof(buf) - 1) == Ok ) {
+        list_cmd = buf;
+        // We need a space, otherwise we got an invalid reply
+        if (!list_cmd.find(" ")) {
+          POP3_DEBUG << "List command needs a space? " << list_cmd << endl;
+          closeConnection();
+          error(ERR_INTERNAL, i18n("Unexpected response from POP3 server."));
+          return;
+        }
+        list_cmd.remove(0, list_cmd.find(" ") + 1);
+        msg_len = list_cmd.toUInt(&ok);
+        if (!ok) {
+          POP3_DEBUG << "LIST command needs to return a number? :" <<
+              list_cmd << ":" << endl;
+          closeConnection();
+          error(ERR_INTERNAL, i18n("Unexpected response from POP3 server."));
+          return;
+        }
+      } else {
+        closeConnection();
+        error(ERR_COULD_NOT_READ, m_sError);
+        return;
+      }
+    }
+
+    int activeCommands = 0;
+    TQStringList::Iterator it = waitingCommands.begin();
+    while (it != waitingCommands.end() || activeCommands > 0) {
+      while (activeCommands < maxCommands && it != waitingCommands.end()) {
+        sendCommand(((cmd ==
+                      "headers") ? "TOP " + *it + " 0" : "RETR " +
+                     *it).latin1());
+        activeCommands++;
+        it++;
+      }
+      if ( getResponse(buf, sizeof(buf) - 1, "") == Ok ) {
+        activeCommands--;
+        mimeType("message/rfc822");
+        totalSize(msg_len);
+        memset(buf, 0, sizeof(buf));
+        char ending = '\n';
+        bool endOfMail = false;
+        bool eat = false;
+        while (true /* !AtEOF() */ ) {
+          ssize_t readlen = myRead(buf, sizeof(buf) - 1);
+          if (readlen <= 0) {
+            if (isConnectionValid())
+              error(ERR_SERVER_TIMEOUT, m_sServer);
+            else
+              error(ERR_CONNECTION_BROKEN, m_sServer);
+            closeConnection();
+            return;
+          }
+          if (ending == '.' && readlen > 1 && buf[0] == '\r'
+              && buf[1] == '\n') {
+            readBufferLen = readlen - 2;
+            memcpy(readBuffer, &buf[2], readBufferLen);
+            break;
+          }
+          bool newline = (ending == '\n');
+
+          if (buf[readlen - 1] == '\n')
+            ending = '\n';
+          else if (buf[readlen - 1] == '.'
+                   && ((readlen > 1) ? buf[readlen - 2] == '\n' : ending ==
+                       '\n'))
+            ending = '.';
+          else
+            ending = ' ';
+
+          char *buf1 = buf, *buf2 = destbuf;
+          // ".." at start of a line means only "."
+          // "." means end of data
+          for (ssize_t i = 0; i < readlen; i++) {
+            if (*buf1 == '\r' && eat) {
+              endOfMail = true;
+              if (i == readlen - 1 /* && !AtEOF() */ )
+                myRead(buf, 1);
+              else if (i < readlen - 2) {
+                readBufferLen = readlen - i - 2;
+                memcpy(readBuffer, &buf[i + 2], readBufferLen);
+              }
+              break;
+            } else if (*buf1 == '\n') {
+              newline = true;
+              eat = false;
+            } else if (*buf1 == '.' && newline) {
+              newline = false;
+              eat = true;
+            } else {
+              newline = false;
+              eat = false;
+            }
+            if (!eat) {
+              *buf2 = *buf1;
+              buf2++;
+            }
+            buf1++;
+          }
+
+          if (buf2 > destbuf) {
+            array.setRawData(destbuf, buf2 - destbuf);
+            data(array);
+            array.resetRawData(destbuf, buf2 - destbuf);
+          }
+
+          if (endOfMail)
+            break;
+
+          if (!noProgress) {
+            p_size += readlen;
+            processedSize(p_size);
+          }
+        }
+        infoMessage("message complete");
+      } else {
+        POP3_DEBUG << "Couldn't login. Bad RETR Sorry" << endl;
+        closeConnection();
+        error(ERR_COULD_NOT_READ, m_sError);
+        return;
+      }
+    }
+    POP3_DEBUG << "Finishing up" << endl;
+    data(TQByteArray());
+    finished();
+  } else if ((cmd == "uid") || (cmd == "list")) {
+    TQString qbuf;
+    (void) path.toInt(&ok);
+
+    if (!ok) {
+      return;                   //  We fscking need a number!
+    }
+
+    if (cmd == "uid") {
+      path.prepend("UIDL ");
+    } else {
+      path.prepend("LIST ");
+    }
+
+    memset(buf, 0, sizeof(buf));
+    if ( command(path.ascii(), buf, sizeof(buf) - 1) == Ok ) {
+      const int len = strlen(buf);
+      mimeType("text/plain");
+      totalSize(len);
+      array.setRawData(buf, len);
+      data(array);
+      array.resetRawData(buf, len);
+      processedSize(len);
+      POP3_DEBUG << buf << endl;
+      POP3_DEBUG << "Finishing up uid" << endl;
+      data(TQByteArray());
+      finished();
+    } else {
+      closeConnection();
+      error(ERR_INTERNAL, i18n("Unexpected response from POP3 server."));
+      return;
+    }
+  } else if (cmd == "commit") {
+    POP3_DEBUG << "Issued QUIT" << endl;
+    closeConnection();
+    finished();
+    m_cmd = CMD_NONE;
+    return;
+  }
+}
+
+void POP3Protocol::listDir(const KURL &)
+{
+  bool isINT;
+  int num_messages = 0;
+  char buf[MAX_RESPONSE_LEN];
+  TQCString q_buf;
+
+  // Try and open a connection
+  if (!pop3_open()) {
+    POP3_DEBUG << "pop3_open failed" << endl;
+    error(ERR_COULD_NOT_CONNECT, m_sServer);
+    return;
+  }
+  // Check how many messages we have. STAT is by law required to
+  // at least return +OK num_messages total_size
+  memset(buf, 0, MAX_RESPONSE_LEN);
+  if ( command("STAT", buf, MAX_RESPONSE_LEN) != Ok ) {
+    error(ERR_INTERNAL, "??");
+    return;
+  }
+  POP3_DEBUG << "The stat buf is :" << buf << ":" << endl;
+  q_buf = buf;
+  if (q_buf.find(" ") == -1) {
+    error(ERR_INTERNAL,
+          "Invalid POP3 response, we should have at least one space!");
+    closeConnection();
+    return;
+  }
+  q_buf.remove(q_buf.find(" "), q_buf.length());
+
+  num_messages = q_buf.toUInt(&isINT);
+  if (!isINT) {
+    error(ERR_INTERNAL, "Invalid POP3 STAT response!");
+    closeConnection();
+    return;
+  }
+  UDSEntry entry;
+  UDSAtom atom;
+  TQString fname;
+  for (int i = 0; i < num_messages; i++) {
+    fname = "Message %1";
+
+    atom.m_uds = UDS_NAME;
+    atom.m_long = 0;
+    atom.m_str = fname.arg(i + 1);
+    entry.append(atom);
+
+    atom.m_uds = UDS_MIME_TYPE;
+    atom.m_long = 0;
+    atom.m_str = "text/plain";
+    entry.append(atom);
+    POP3_DEBUG << "Mimetype is " << atom.m_str.ascii() << endl;
+
+    atom.m_uds = UDS_URL;
+    KURL uds_url;
+    if (m_bIsSSL) {
+      uds_url.setProtocol("pop3s");
+    } else {
+      uds_url.setProtocol("pop3");
+    }
+
+    uds_url.setUser(m_sUser);
+    uds_url.setPass(m_sPass);
+    uds_url.setHost(m_sServer);
+    uds_url.setPath(TQString::fromLatin1("/download/%1").arg(i + 1));
+    atom.m_str = uds_url.url();
+    atom.m_long = 0;
+    entry.append(atom);
+
+    atom.m_uds = UDS_FILE_TYPE;
+    atom.m_str = "";
+    atom.m_long = S_IFREG;
+    entry.append(atom);
+
+    atom.m_uds = UDS_SIZE;
+    atom.m_str = "";
+    atom.m_long = realGetSize(i + 1);
+    entry.append(atom);
+
+    atom.m_uds = TDEIO::UDS_ACCESS;
+    atom.m_long = S_IRUSR | S_IXUSR | S_IWUSR;
+    entry.append (atom);
+
+    listEntry(entry, false);
+    entry.clear();
+  }
+  listEntry(entry, true);       // ready
+
+  finished();
+}
+
+void POP3Protocol::stat(const KURL & url)
+{
+  TQString _path = url.path();
+
+  if (_path.at(0) == '/')
+    _path.remove(0, 1);
+
+  UDSEntry entry;
+  UDSAtom atom;
+
+  atom.m_uds = UDS_NAME;
+  atom.m_str = _path;
+  entry.append(atom);
+
+  atom.m_uds = UDS_FILE_TYPE;
+  atom.m_str = "";
+  atom.m_long = S_IFREG;
+  entry.append(atom);
+
+  atom.m_uds = UDS_MIME_TYPE;
+  atom.m_str = "message/rfc822";
+  entry.append(atom);
+
+  // TODO: maybe get the size of the message?
+  statEntry(entry);
+
+  finished();
+}
+
+void POP3Protocol::del(const KURL & url, bool /*isfile */ )
+{
+  TQString invalidURI = TQString::null;
+  bool isInt;
+
+  if (!pop3_open()) {
+    POP3_DEBUG << "pop3_open failed" << endl;
+    error(ERR_COULD_NOT_CONNECT, m_sServer);
+    return;
+  }
+
+  TQString _path = url.path();
+  if (_path.at(0) == '/') {
+    _path.remove(0, 1);
+  }
+
+  _path.toUInt(&isInt);
+  if (!isInt) {
+    invalidURI = _path;
+  } else {
+    _path.prepend("DELE ");
+    if ( command(_path.ascii()) != Ok ) {
+      invalidURI = _path;
+    }
+  }
+
+  POP3_DEBUG << "POP3Protocol::del " << _path << endl;
+  finished();
+}