You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdenetwork/kopete/protocols/jabber/libiris/iris/jabber/s5b.cpp

2542 lines
53 KiB

/*
* s5b.cpp - direct connection protocol via tcp
* Copyright (C) 2003 Justin Karneges
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*
*/
#include <config.h>
#include"s5b.h"
#include<tqtimer.h>
#include<tqguardedptr.h>
#include<stdlib.h>
#include<qca.h>
#include"xmpp_xmlcommon.h"
#include"hash.h"
#include"socks.h"
#include"safedelete.h"
#ifdef Q_OS_WIN
# include <windows.h>
#else
# ifdef HAVE_SYS_TYPES_H
# include <sys/types.h>
# endif
# include <netinet/in.h>
#endif
#define MAXSTREAMHOSTS 5
//#define S5B_DEBUG
namespace XMPP {
static TQString makeKey(const TQString &sid, const Jid &initiator, const Jid &target)
{
TQString str = sid + initiator.full() + target.full();
return QCA::SHA1::hashToString(str.utf8());
}
static bool haveHost(const StreamHostList &list, const Jid &j)
{
for(StreamHostList::ConstIterator it = list.begin(); it != list.end(); ++it) {
if((*it).jid().compare(j))
return true;
}
return false;
}
class S5BManager::Item : public TQObject
{
Q_OBJECT
public:
enum { Idle, Initiator, Target, Active };
enum { ErrRefused, ErrConnect, ErrWrongHost, ErrProxy };
enum { Unknown, Fast, NotFast };
S5BManager *m;
int state;
TQString sid, key, out_key, out_id, in_id;
Jid self, peer;
StreamHostList in_hosts;
JT_S5B *task, *proxy_task;
SocksClient *client, *client_out;
SocksUDP *client_udp, *client_out_udp;
S5BConnector *conn, *proxy_conn;
bool wantFast;
StreamHost proxy;
int targetMode; // initiator sets this once it figures it out
bool fast; // target sets this
bool activated;
bool lateProxy;
bool connSuccess;
bool localFailed, remoteFailed;
bool allowIncoming;
bool udp;
int statusCode;
Jid activatedStream;
Item(S5BManager *manager);
~Item();
void reset();
void startInitiator(const TQString &_sid, const Jid &_self, const Jid &_peer, bool fast, bool udp);
void startTarget(const TQString &_sid, const Jid &_self, const Jid &_peer, const StreamHostList &hosts, const TQString &iq_id, bool fast, bool udp);
void handleFast(const StreamHostList &hosts, const TQString &iq_id);
void doOutgoing();
void doIncoming();
void setIncomingClient(SocksClient *sc);
void incomingActivate(const Jid &streamHost);
signals:
void accepted();
void tryingHosts(const StreamHostList &list);
void proxyConnect();
void waitingForActivation();
void connected();
void error(int);
private slots:
void jt_finished();
void conn_result(bool b);
void proxy_result(bool b);
void proxy_finished();
void sc_readyRead();
void sc_bytesWritten(int);
void sc_error(int);
private:
void doConnectError();
void tryActivation();
void checkForActivation();
void checkFailure();
void finished();
};
//----------------------------------------------------------------------------
// S5BDatagram
//----------------------------------------------------------------------------
S5BDatagram::S5BDatagram()
{
_source = 0;
_dest = 0;
}
S5BDatagram::S5BDatagram(int source, int dest, const TQByteArray &data)
{
_source = source;
_dest = dest;
_buf = data;
}
int S5BDatagram::sourcePort() const
{
return _source;
}
int S5BDatagram::destPort() const
{
return _dest;
}
TQByteArray S5BDatagram::data() const
{
return _buf;
}
//----------------------------------------------------------------------------
// S5BConnection
//----------------------------------------------------------------------------
class S5BConnection::Private
{
public:
S5BManager *m;
SocksClient *sc;
SocksUDP *su;
int state;
Jid peer;
TQString sid;
bool remote;
bool switched;
bool notifyRead, notifyClose;
int id;
S5BRequest req;
Jid proxy;
Mode mode;
TQPtrList<S5BDatagram> dglist;
};
static int id_conn = 0;
static int num_conn = 0;
S5BConnection::S5BConnection(S5BManager *m, TQObject *parent)
:ByteStream(parent)
{
d = new Private;
d->m = m;
d->sc = 0;
d->su = 0;
++num_conn;
d->id = id_conn++;
#ifdef S5B_DEBUG
printf("S5BConnection[%d]: constructing, count=%d, %p\n", d->id, num_conn, this);
#endif
reset();
}
S5BConnection::~S5BConnection()
{
reset(true);
--num_conn;
#ifdef S5B_DEBUG
printf("S5BConnection[%d]: destructing, count=%d\n", d->id, num_conn);
#endif
delete d;
}
void S5BConnection::reset(bool clear)
{
d->m->con_unlink(this);
if(clear && d->sc) {
delete d->sc;
d->sc = 0;
}
delete d->su;
d->su = 0;
if(clear) {
d->dglist.setAutoDelete(true);
d->dglist.clear();
d->dglist.setAutoDelete(false);
}
d->state = Idle;
d->peer = Jid();
d->sid = TQString();
d->remote = false;
d->switched = false;
d->notifyRead = false;
d->notifyClose = false;
}
Jid S5BConnection::proxy() const
{
return d->proxy;
}
void S5BConnection::setProxy(const Jid &proxy)
{
d->proxy = proxy;
}
void S5BConnection::connectToJid(const Jid &peer, const TQString &sid, Mode m)
{
reset(true);
if(!d->m->isAcceptableSID(peer, sid))
return;
d->peer = peer;
d->sid = sid;
d->state = Requesting;
d->mode = m;
#ifdef S5B_DEBUG
printf("S5BConnection[%d]: connecting %s [%s]\n", d->id, d->peer.full().latin1(), d->sid.latin1());
#endif
d->m->con_connect(this);
}
void S5BConnection::accept()
{
if(d->state != WaitingForAccept)
return;
d->state = Connecting;
#ifdef S5B_DEBUG
printf("S5BConnection[%d]: accepting %s [%s]\n", d->id, d->peer.full().latin1(), d->sid.latin1());
#endif
d->m->con_accept(this);
}
void S5BConnection::close()
{
if(d->state == Idle)
return;
if(d->state == WaitingForAccept)
d->m->con_reject(this);
else if(d->state == Active)
d->sc->close();
#ifdef S5B_DEBUG
printf("S5BConnection[%d]: closing %s [%s]\n", d->id, d->peer.full().latin1(), d->sid.latin1());
#endif
reset();
}
Jid S5BConnection::peer() const
{
return d->peer;
}
TQString S5BConnection::sid() const
{
return d->sid;
}
bool S5BConnection::isRemote() const
{
return d->remote;
}
S5BConnection::Mode S5BConnection::mode() const
{
return d->mode;
}
int S5BConnection::state() const
{
return d->state;
}
bool S5BConnection::isOpen() const
{
if(d->state == Active)
return true;
else
return false;
}
void S5BConnection::write(const TQByteArray &buf)
{
if(d->state == Active && d->mode == Stream)
d->sc->write(buf);
}
TQByteArray S5BConnection::read(int bytes)
{
if(d->sc)
return d->sc->read(bytes);
else
return TQByteArray();
}
int S5BConnection::bytesAvailable() const
{
if(d->sc)
return d->sc->bytesAvailable();
else
return 0;
}
int S5BConnection::bytesToWrite() const
{
if(d->state == Active)
return d->sc->bytesToWrite();
else
return 0;
}
void S5BConnection::writeDatagram(const S5BDatagram &i)
{
TQByteArray buf(i.data().size() + 4);
ushort ssp = htons(i.sourcePort());
ushort sdp = htons(i.destPort());
TQByteArray data = i.data();
memcpy(buf.data(), &ssp, 2);
memcpy(buf.data() + 2, &sdp, 2);
memcpy(buf.data() + 4, data.data(), data.size());
sendUDP(buf);
}
S5BDatagram S5BConnection::readDatagram()
{
if(d->dglist.isEmpty())
return S5BDatagram();
S5BDatagram *i = d->dglist.getFirst();
d->dglist.removeRef(i);
S5BDatagram val = *i;
delete i;
return val;
}
int S5BConnection::datagramsAvailable() const
{
return d->dglist.count();
}
void S5BConnection::man_waitForAccept(const S5BRequest &r)
{
d->state = WaitingForAccept;
d->remote = true;
d->req = r;
d->peer = r.from;
d->sid = r.sid;
d->mode = r.udp ? Datagram : Stream;
}
void S5BConnection::man_clientReady(SocksClient *sc, SocksUDP *sc_udp)
{
d->sc = sc;
connect(d->sc, TQT_SIGNAL(connectionClosed()), TQT_SLOT(sc_connectionClosed()));
connect(d->sc, TQT_SIGNAL(delayedCloseFinished()), TQT_SLOT(sc_delayedCloseFinished()));
connect(d->sc, TQT_SIGNAL(readyRead()), TQT_SLOT(sc_readyRead()));
connect(d->sc, TQT_SIGNAL(bytesWritten(int)), TQT_SLOT(sc_bytesWritten(int)));
connect(d->sc, TQT_SIGNAL(error(int)), TQT_SLOT(sc_error(int)));
if(sc_udp) {
d->su = sc_udp;
connect(d->su, TQT_SIGNAL(packetReady(const TQByteArray &)), TQT_SLOT(su_packetReady(const TQByteArray &)));
}
d->state = Active;
#ifdef S5B_DEBUG
printf("S5BConnection[%d]: %s [%s] <<< success >>>\n", d->id, d->peer.full().latin1(), d->sid.latin1());
#endif
// bytes already in the stream?
if(d->sc->bytesAvailable()) {
#ifdef S5B_DEBUG
printf("Stream has %d bytes in it.\n", d->sc->bytesAvailable());
#endif
d->notifyRead = true;
}
// closed before it got here?
if(!d->sc->isOpen()) {
#ifdef S5B_DEBUG
printf("Stream was closed before S5B request finished?\n");
#endif
d->notifyClose = true;
}
if(d->notifyRead || d->notifyClose)
TQTimer::singleShot(0, this, TQT_SLOT(doPending()));
connected();
}
void S5BConnection::doPending()
{
if(d->notifyRead) {
if(d->notifyClose)
TQTimer::singleShot(0, this, TQT_SLOT(doPending()));
sc_readyRead();
}
else if(d->notifyClose)
sc_connectionClosed();
}
void S5BConnection::man_udpReady(const TQByteArray &buf)
{
handleUDP(buf);
}
void S5BConnection::man_failed(int x)
{
reset(true);
if(x == S5BManager::Item::ErrRefused)
error(ErrRefused);
if(x == S5BManager::Item::ErrConnect)
error(ErrConnect);
if(x == S5BManager::Item::ErrWrongHost)
error(ErrConnect);
if(x == S5BManager::Item::ErrProxy)
error(ErrProxy);
}
void S5BConnection::sc_connectionClosed()
{
// if we have a pending read notification, postpone close
if(d->notifyRead) {
#ifdef S5B_DEBUG
printf("closed while pending read\n");
#endif
d->notifyClose = true;
return;
}
d->notifyClose = false;
reset();
connectionClosed();
}
void S5BConnection::sc_delayedCloseFinished()
{
// echo
delayedCloseFinished();
}
void S5BConnection::sc_readyRead()
{
if(d->mode == Datagram) {
// throw the data away
d->sc->read();
return;
}
d->notifyRead = false;
// echo
readyRead();
}
void S5BConnection::sc_bytesWritten(int x)
{
// echo
bytesWritten(x);
}
void S5BConnection::sc_error(int)
{
reset();
error(ErrSocket);
}
void S5BConnection::su_packetReady(const TQByteArray &buf)
{
handleUDP(buf);
}
void S5BConnection::handleUDP(const TQByteArray &buf)
{
// must be at least 4 bytes, to accomodate virtual ports
if(buf.size() < 4)
return; // drop
ushort ssp, sdp;
memcpy(&ssp, buf.data(), 2);
memcpy(&sdp, buf.data() + 2, 2);
int source = ntohs(ssp);
int dest = ntohs(sdp);
TQByteArray data(buf.size() - 4);
memcpy(data.data(), buf.data() + 4, data.size());
d->dglist.append(new S5BDatagram(source, dest, data));
datagramReady();
}
void S5BConnection::sendUDP(const TQByteArray &buf)
{
if(d->su)
d->su->write(buf);
else
d->m->con_sendUDP(this, buf);
}
//----------------------------------------------------------------------------
// S5BManager
//----------------------------------------------------------------------------
class S5BManager::Entry
{
public:
Entry()
{
i = 0;
query = 0;
udp_init = false;
}
~Entry()
{
delete query;
}
S5BConnection *c;
Item *i;
TQString sid;
JT_S5B *query;
StreamHost proxyInfo;
TQGuardedPtr<S5BServer> relatedServer;
bool udp_init;
TQHostAddress udp_addr;
int udp_port;
};
class S5BManager::Private
{
public:
Client *client;
S5BServer *serv;
TQPtrList<Entry> activeList;
S5BConnectionList incomingConns;
JT_PushS5B *ps;
};
S5BManager::S5BManager(Client *parent)
:TQObject(parent)
{
// S5B needs SHA1
if(!QCA::isSupported(QCA::CAP_SHA1))
QCA::insertProvider(createProviderHash());
d = new Private;
d->client = parent;
d->serv = 0;
d->activeList.setAutoDelete(true);
d->ps = new JT_PushS5B(d->client->rootTask());
connect(d->ps, TQT_SIGNAL(incoming(const S5BRequest &)), TQT_SLOT(ps_incoming(const S5BRequest &)));
connect(d->ps, TQT_SIGNAL(incomingUDPSuccess(const Jid &, const TQString &)), TQT_SLOT(ps_incomingUDPSuccess(const Jid &, const TQString &)));
connect(d->ps, TQT_SIGNAL(incomingActivate(const Jid &, const TQString &, const Jid &)), TQT_SLOT(ps_incomingActivate(const Jid &, const TQString &, const Jid &)));
}
S5BManager::~S5BManager()
{
setServer(0);
d->incomingConns.setAutoDelete(true);
d->incomingConns.clear();
delete d->ps;
delete d;
}
Client *S5BManager::client() const
{
return d->client;
}
S5BServer *S5BManager::server() const
{
return d->serv;
}
void S5BManager::setServer(S5BServer *serv)
{
if(d->serv) {
d->serv->unlink(this);
d->serv = 0;
}
if(serv) {
d->serv = serv;
d->serv->link(this);
}
}
S5BConnection *S5BManager::createConnection()
{
S5BConnection *c = new S5BConnection(this);
return c;
}
S5BConnection *S5BManager::takeIncoming()
{
if(d->incomingConns.isEmpty())
return 0;
S5BConnection *c = d->incomingConns.getFirst();
d->incomingConns.removeRef(c);
// move to activeList
Entry *e = new Entry;
e->c = c;
e->sid = c->d->sid;
d->activeList.append(e);
return c;
}
void S5BManager::ps_incoming(const S5BRequest &req)
{
#ifdef S5B_DEBUG
printf("S5BManager: incoming from %s\n", req.from.full().latin1());
#endif
bool ok = false;
// ensure we don't already have an incoming connection from this peer+sid
S5BConnection *c = findIncoming(req.from, req.sid);
if(!c) {
// do we have an active entry with this sid already?
Entry *e = findEntryBySID(req.from, req.sid);
if(e) {
if(e->i) {
// loopback
if(req.from.compare(d->client->jid()) && (req.id == e->i->out_id)) {
#ifdef S5B_DEBUG
printf("ALLOWED: loopback\n");
#endif
ok = true;
}
// allowed by 'fast mode'
else if(e->i->state == Item::Initiator && e->i->targetMode == Item::Unknown) {
#ifdef S5B_DEBUG
printf("ALLOWED: fast-mode\n");
#endif
e->i->handleFast(req.hosts, req.id);
return;
}
}
}
else {
#ifdef S5B_DEBUG
printf("ALLOWED: we don't have it\n");
#endif
ok = true;
}
}
if(!ok) {
d->ps->respondError(req.from, req.id, 406, "SID in use");
return;
}
// create an incoming connection
c = new S5BConnection(this);
c->man_waitForAccept(req);
d->incomingConns.append(c);
incomingReady();
}
void S5BManager::ps_incomingUDPSuccess(const Jid &from, const TQString &key)
{
Entry *e = findEntryByHash(key);
if(e && e->i) {
if(e->i->conn)
e->i->conn->man_udpSuccess(from);
else if(e->i->proxy_conn)
e->i->proxy_conn->man_udpSuccess(from);
}
}
void S5BManager::ps_incomingActivate(const Jid &from, const TQString &sid, const Jid &streamHost)
{
Entry *e = findEntryBySID(from, sid);
if(e && e->i)
e->i->incomingActivate(streamHost);
}
void S5BManager::doSuccess(const Jid &peer, const TQString &id, const Jid &streamHost)
{
d->ps->respondSuccess(peer, id, streamHost);
}
void S5BManager::doError(const Jid &peer, const TQString &id, int code, const TQString &str)
{
d->ps->respondError(peer, id, code, str);
}
void S5BManager::doActivate(const Jid &peer, const TQString &sid, const Jid &streamHost)
{
d->ps->sendActivate(peer, sid, streamHost);
}
TQString S5BManager::genUniqueSID(const Jid &peer) const
{
// get unused key
TQString sid;
do {
sid = "s5b_";
for(int i = 0; i < 4; ++i) {
int word = rand() & 0xffff;
for(int n = 0; n < 4; ++n) {
TQString s;
s.sprintf("%x", (word >> (n * 4)) & 0xf);
sid.append(s);
}
}
} while(!isAcceptableSID(peer, sid));
return sid;
}
bool S5BManager::isAcceptableSID(const Jid &peer, const TQString &sid) const
{
TQString key = makeKey(sid, d->client->jid(), peer);
TQString key_out = makeKey(sid, peer, d->client->jid());
// if we have a server, then check through it
if(d->serv) {
if(findServerEntryByHash(key) || findServerEntryByHash(key_out))
return false;
}
else {
if(findEntryByHash(key) || findEntryByHash(key_out))
return false;
}
return true;
}
S5BConnection *S5BManager::findIncoming(const Jid &from, const TQString &sid) const
{
TQPtrListIterator<S5BConnection> it(d->incomingConns);
for(S5BConnection *c; (c = it.current()); ++it) {
if(c->d->peer.compare(from) && c->d->sid == sid)
return c;
}
return 0;
}
S5BManager::Entry *S5BManager::findEntry(S5BConnection *c) const
{
TQPtrListIterator<Entry> it(d->activeList);
for(Entry *e; (e = it.current()); ++it) {
if(e->c == c)
return e;
}
return 0;
}
S5BManager::Entry *S5BManager::findEntry(Item *i) const
{
TQPtrListIterator<Entry> it(d->activeList);
for(Entry *e; (e = it.current()); ++it) {
if(e->i == i)
return e;
}
return 0;
}
S5BManager::Entry *S5BManager::findEntryByHash(const TQString &key) const
{
TQPtrListIterator<Entry> it(d->activeList);
for(Entry *e; (e = it.current()); ++it) {
if(e->i && e->i->key == key)
return e;
}
return 0;
}
S5BManager::Entry *S5BManager::findEntryBySID(const Jid &peer, const TQString &sid) const
{
TQPtrListIterator<Entry> it(d->activeList);
for(Entry *e; (e = it.current()); ++it) {
if(e->i && e->i->peer.compare(peer) && e->sid == sid)
return e;
}
return 0;
}
S5BManager::Entry *S5BManager::findServerEntryByHash(const TQString &key) const
{
const TQPtrList<S5BManager> &manList = d->serv->managerList();
TQPtrListIterator<S5BManager> it(manList);
for(S5BManager *m; (m = it.current()); ++it) {
Entry *e = m->findEntryByHash(key);
if(e)
return e;
}
return 0;
}
bool S5BManager::srv_ownsHash(const TQString &key) const
{
if(findEntryByHash(key))
return true;
return false;
}
void S5BManager::srv_incomingReady(SocksClient *sc, const TQString &key)
{
Entry *e = findEntryByHash(key);
if(!e->i->allowIncoming) {
sc->requestDeny();
SafeDelete::deleteSingle(sc);
return;
}
if(e->c->d->mode == S5BConnection::Datagram)
sc->grantUDPAssociate("", 0);
else
sc->grantConnect();
e->relatedServer = (S5BServer *)sender();
e->i->setIncomingClient(sc);
}
void S5BManager::srv_incomingUDP(bool init, const TQHostAddress &addr, int port, const TQString &key, const TQByteArray &data)
{
Entry *e = findEntryByHash(key);
if(!e->c->d->mode != S5BConnection::Datagram)
return; // this key isn't in udp mode? drop!
if(init) {
if(e->udp_init)
return; // only init once
// lock on to this sender
e->udp_addr = addr;
e->udp_port = port;
e->udp_init = true;
// reply that initialization was successful
d->ps->sendUDPSuccess(e->c->d->peer, key);
return;
}
// not initialized yet? something went wrong
if(!e->udp_init)
return;
// must come from same source as when initialized
if(addr.toString() != e->udp_addr.toString() || port != e->udp_port)
return;
e->c->man_udpReady(data);
}
void S5BManager::srv_unlink()
{
d->serv = 0;
}
void S5BManager::con_connect(S5BConnection *c)
{
if(findEntry(c))
return;
Entry *e = new Entry;
e->c = c;
e->sid = c->d->sid;
d->activeList.append(e);
if(c->d->proxy.isValid()) {
queryProxy(e);
return;
}
entryContinue(e);
}
void S5BManager::con_accept(S5BConnection *c)
{
Entry *e = findEntry(c);
if(!e)
return;
if(e->c->d->req.fast) {
if(targetShouldOfferProxy(e)) {
queryProxy(e);
return;
}
}
entryContinue(e);
}
void S5BManager::con_reject(S5BConnection *c)
{
d->ps->respondError(c->d->peer, c->d->req.id, 406, "Not acceptable");
}
void S5BManager::con_unlink(S5BConnection *c)
{
Entry *e = findEntry(c);
if(!e)
return;
// active incoming request? cancel it
if(e->i && e->i->conn)
d->ps->respondError(e->i->peer, e->i->out_id, 406, "Not acceptable");
delete e->i;
d->activeList.removeRef(e);
}
void S5BManager::con_sendUDP(S5BConnection *c, const TQByteArray &buf)
{
Entry *e = findEntry(c);
if(!e)
return;
if(!e->udp_init)
return;
if(e->relatedServer)
e->relatedServer->writeUDP(e->udp_addr, e->udp_port, buf);
}
void S5BManager::item_accepted()
{
Item *i = (Item *)sender();
Entry *e = findEntry(i);
e->c->accepted(); // signal
}
void S5BManager::item_tryingHosts(const StreamHostList &list)
{
Item *i = (Item *)sender();
Entry *e = findEntry(i);
e->c->tryingHosts(list); // signal
}
void S5BManager::item_proxyConnect()
{
Item *i = (Item *)sender();
Entry *e = findEntry(i);
e->c->proxyConnect(); // signal
}
void S5BManager::item_waitingForActivation()
{
Item *i = (Item *)sender();
Entry *e = findEntry(i);
e->c->waitingForActivation(); // signal
}
void S5BManager::item_connected()
{
Item *i = (Item *)sender();
Entry *e = findEntry(i);
// grab the client
SocksClient *client = i->client;
i->client = 0;
SocksUDP *client_udp = i->client_udp;
i->client_udp = 0;
// give it to the connection
e->c->man_clientReady(client, client_udp);
}
void S5BManager::item_error(int x)
{
Item *i = (Item *)sender();
Entry *e = findEntry(i);
e->c->man_failed(x);
}
void S5BManager::entryContinue(Entry *e)
{
e->i = new Item(this);
e->i->proxy = e->proxyInfo;
connect(e->i, TQT_SIGNAL(accepted()), TQT_SLOT(item_accepted()));
connect(e->i, TQT_SIGNAL(tryingHosts(const StreamHostList &)), TQT_SLOT(item_tryingHosts(const StreamHostList &)));
connect(e->i, TQT_SIGNAL(proxyConnect()), TQT_SLOT(item_proxyConnect()));
connect(e->i, TQT_SIGNAL(waitingForActivation()), TQT_SLOT(item_waitingForActivation()));
connect(e->i, TQT_SIGNAL(connected()), TQT_SLOT(item_connected()));
connect(e->i, TQT_SIGNAL(error(int)), TQT_SLOT(item_error(int)));
if(e->c->isRemote()) {
const S5BRequest &req = e->c->d->req;
e->i->startTarget(e->sid, d->client->jid(), e->c->d->peer, req.hosts, req.id, req.fast, req.udp);
}
else {
e->i->startInitiator(e->sid, d->client->jid(), e->c->d->peer, true, e->c->d->mode == S5BConnection::Datagram ? true: false);
e->c->requesting(); // signal
}
}
void S5BManager::queryProxy(Entry *e)
{
TQGuardedPtr<TQObject> self = this;
e->c->proxyQuery(); // signal
if(!self)
return;
#ifdef S5B_DEBUG
printf("querying proxy: [%s]\n", e->c->d->proxy.full().latin1());
#endif
e->query = new JT_S5B(d->client->rootTask());
connect(e->query, TQT_SIGNAL(finished()), TQT_SLOT(query_finished()));
e->query->requestProxyInfo(e->c->d->proxy);
e->query->go(true);
}
void S5BManager::query_finished()
{
JT_S5B *query = (JT_S5B *)sender();
Entry *e;
bool found = false;
TQPtrListIterator<Entry> it(d->activeList);
for(; (e = it.current()); ++it) {
if(e->query == query) {
found = true;
break;
}
}
if(!found)
return;
e->query = 0;
#ifdef S5B_DEBUG
printf("query finished: ");
#endif
if(query->success()) {
e->proxyInfo = query->proxyInfo();
#ifdef S5B_DEBUG
printf("host/ip=[%s] port=[%d]\n", e->proxyInfo.host().latin1(), e->proxyInfo.port());
#endif
}
else {
#ifdef S5B_DEBUG
printf("fail\n");
#endif
}
TQGuardedPtr<TQObject> self = this;
e->c->proxyResult(query->success()); // signal
if(!self)
return;
entryContinue(e);
}
bool S5BManager::targetShouldOfferProxy(Entry *e)
{
if(!e->c->d->proxy.isValid())
return false;
// if target, don't offer any proxy if the initiator already did
const StreamHostList &hosts = e->c->d->req.hosts;
for(StreamHostList::ConstIterator it = hosts.begin(); it != hosts.end(); ++it) {
if((*it).isProxy())
return false;
}
// ensure we don't offer the same proxy as the initiator
if(haveHost(hosts, e->c->d->proxy))
return false;
return true;
}
//----------------------------------------------------------------------------
// S5BManager::Item
//----------------------------------------------------------------------------
S5BManager::Item::Item(S5BManager *manager) : TQObject(0)
{
m = manager;
task = 0;
proxy_task = 0;
conn = 0;
proxy_conn = 0;
client_udp = 0;
client = 0;
client_out_udp = 0;
client_out = 0;
reset();
}
S5BManager::Item::~Item()
{
reset();
}
void S5BManager::Item::reset()
{
delete task;
task = 0;
delete proxy_task;
proxy_task = 0;
delete conn;
conn = 0;
delete proxy_conn;
proxy_conn = 0;
delete client_udp;
client_udp = 0;
delete client;
client = 0;
delete client_out_udp;
client_out_udp = 0;
delete client_out;
client_out = 0;
state = Idle;
wantFast = false;
targetMode = Unknown;
fast = false;
activated = false;
lateProxy = false;
connSuccess = false;
localFailed = false;
remoteFailed = false;
allowIncoming = false;
udp = false;
}
void S5BManager::Item::startInitiator(const TQString &_sid, const Jid &_self, const Jid &_peer, bool fast, bool _udp)
{
sid = _sid;
self = _self;
peer = _peer;
key = makeKey(sid, self, peer);
out_key = makeKey(sid, peer, self);
wantFast = fast;
udp = _udp;
#ifdef S5B_DEBUG
printf("S5BManager::Item initiating request %s [%s]\n", peer.full().latin1(), sid.latin1());
#endif
state = Initiator;
doOutgoing();
}
void S5BManager::Item::startTarget(const TQString &_sid, const Jid &_self, const Jid &_peer, const StreamHostList &hosts, const TQString &iq_id, bool _fast, bool _udp)
{
sid = _sid;
peer = _peer;
self = _self;
in_hosts = hosts;
in_id = iq_id;
fast = _fast;
key = makeKey(sid, self, peer);
out_key = makeKey(sid, peer, self);
udp = _udp;
#ifdef S5B_DEBUG
printf("S5BManager::Item incoming request %s [%s]\n", peer.full().latin1(), sid.latin1());
#endif
state = Target;
if(fast)
doOutgoing();
doIncoming();
}
void S5BManager::Item::handleFast(const StreamHostList &hosts, const TQString &iq_id)
{
targetMode = Fast;
TQGuardedPtr<TQObject> self = this;
accepted();
if(!self)
return;
// if we already have a stream, then bounce this request
if(client) {
m->doError(peer, iq_id, 406, "Not acceptable");
}
else {
in_hosts = hosts;
in_id = iq_id;
doIncoming();
}
}
void S5BManager::Item::doOutgoing()
{
StreamHostList hosts;
S5BServer *serv = m->server();
if(serv && serv->isActive() && !haveHost(in_hosts, m->client()->jid())) {
TQStringList hostList = serv->hostList();
for(TQStringList::ConstIterator it = hostList.begin(); it != hostList.end(); ++it) {
StreamHost h;
h.setJid(m->client()->jid());
h.setHost(*it);
h.setPort(serv->port());
hosts += h;
}
}
// if the proxy is valid, then it's ok to add (the manager already ensured that it doesn't conflict)
if(proxy.jid().isValid())
hosts += proxy;
// if we're the target and we have no streamhosts of our own, then don't even bother with fast-mode
if(state == Target && hosts.isEmpty()) {
fast = false;
return;
}
allowIncoming = true;
task = new JT_S5B(m->client()->rootTask());
connect(task, TQT_SIGNAL(finished()), TQT_SLOT(jt_finished()));
task->request(peer, sid, hosts, state == Initiator ? wantFast : false, udp);
out_id = task->id();
task->go(true);
}
void S5BManager::Item::doIncoming()
{
if(in_hosts.isEmpty()) {
doConnectError();
return;
}
StreamHostList list;
if(lateProxy) {
// take just the proxy streamhosts
for(StreamHostList::ConstIterator it = in_hosts.begin(); it != in_hosts.end(); ++it) {
if((*it).isProxy())
list += *it;
}
lateProxy = false;
}
else {
// only try doing the late proxy trick if using fast mode AND we did not offer a proxy
if((state == Initiator || (state == Target && fast)) && !proxy.jid().isValid()) {
// take just the non-proxy streamhosts
bool hasProxies = false;
for(StreamHostList::ConstIterator it = in_hosts.begin(); it != in_hosts.end(); ++it) {
if((*it).isProxy())
hasProxies = true;
else
list += *it;
}
if(hasProxies) {
lateProxy = true;
// no regular streamhosts? wait for remote error
if(list.isEmpty())
return;
}
}
else
list = in_hosts;
}
conn = new S5BConnector;
connect(conn, TQT_SIGNAL(result(bool)), TQT_SLOT(conn_result(bool)));
TQGuardedPtr<TQObject> self = this;
tryingHosts(list);
if(!self)
return;
conn->start(m->client()->jid(), list, out_key, udp, lateProxy ? 10 : 30);
}
void S5BManager::Item::setIncomingClient(SocksClient *sc)
{
#ifdef S5B_DEBUG
printf("S5BManager::Item: %s [%s] successful incoming connection\n", peer.full().latin1(), sid.latin1());
#endif
connect(sc, TQT_SIGNAL(readyRead()), TQT_SLOT(sc_readyRead()));
connect(sc, TQT_SIGNAL(bytesWritten(int)), TQT_SLOT(sc_bytesWritten(int)));
connect(sc, TQT_SIGNAL(error(int)), TQT_SLOT(sc_error(int)));
client = sc;
allowIncoming = false;
}
void S5BManager::Item::incomingActivate(const Jid &streamHost)
{
if(!activated) {
activatedStream = streamHost;
checkForActivation();
}
}
void S5BManager::Item::jt_finished()
{
JT_S5B *j = task;
task = 0;
#ifdef S5B_DEBUG
printf("jt_finished: state=%s, %s\n", state == Initiator ? "initiator" : "target", j->success() ? "ok" : "fail");
#endif
if(state == Initiator) {
if(targetMode == Unknown) {
targetMode = NotFast;
TQGuardedPtr<TQObject> self = this;
accepted();
if(!self)
return;
}
}
// if we've already reported successfully connecting to them, then this response doesn't matter
if(state == Initiator && connSuccess) {
tryActivation();
return;
}
if(j->success()) {
// stop connecting out
if(conn || lateProxy) {
delete conn;
conn = 0;
doConnectError();
}
Jid streamHost = j->streamHostUsed();
// they connected to us?
if(streamHost.compare(self)) {
if(client) {
if(state == Initiator) {
activatedStream = streamHost;
tryActivation();
}
else
checkForActivation();
}
else {
#ifdef S5B_DEBUG
printf("S5BManager::Item %s claims to have connected to us, but we don't see this\n", peer.full().latin1());
#endif
reset();
error(ErrWrongHost);
}
}
else if(streamHost.compare(proxy.jid())) {
// toss out any direct incoming, since it won't be used
delete client;
client = 0;
allowIncoming = false;
#ifdef S5B_DEBUG
printf("attempting to connect to proxy\n");
#endif
// connect to the proxy
proxy_conn = new S5BConnector;
connect(proxy_conn, TQT_SIGNAL(result(bool)), TQT_SLOT(proxy_result(bool)));
StreamHostList list;
list += proxy;
TQGuardedPtr<TQObject> self = this;
proxyConnect();
if(!self)
return;
proxy_conn->start(m->client()->jid(), list, key, udp, 30);
}
else {
#ifdef S5B_DEBUG
printf("S5BManager::Item %s claims to have connected to a streamhost we never offered\n", peer.full().latin1());
#endif
reset();
error(ErrWrongHost);
}
}
else {
#ifdef S5B_DEBUG
printf("S5BManager::Item %s [%s] error\n", peer.full().latin1(), sid.latin1());
#endif
remoteFailed = true;
statusCode = j->statusCode();
if(lateProxy) {
if(!conn)
doIncoming();
}
else {
// if connSuccess is true at this point, then we're a Target
if(connSuccess)
checkForActivation();
else
checkFailure();
}
}
}
void S5BManager::Item::conn_result(bool b)
{
if(b) {
SocksClient *sc = conn->takeClient();
SocksUDP *sc_udp = conn->takeUDP();
StreamHost h = conn->streamHostUsed();
delete conn;
conn = 0;
connSuccess = true;
#ifdef S5B_DEBUG
printf("S5BManager::Item: %s [%s] successful outgoing connection\n", peer.full().latin1(), sid.latin1());
#endif
connect(sc, TQT_SIGNAL(readyRead()), TQT_SLOT(sc_readyRead()));
connect(sc, TQT_SIGNAL(bytesWritten(int)), TQT_SLOT(sc_bytesWritten(int)));
connect(sc, TQT_SIGNAL(error(int)), TQT_SLOT(sc_error(int)));
m->doSuccess(peer, in_id, h.jid());
// if the first batch works, don't try proxy
lateProxy = false;
// if initiator, run with this one
if(state == Initiator) {
// if we had an incoming one, toss it
delete client_udp;
client_udp = sc_udp;
delete client;
client = sc;
allowIncoming = false;
activatedStream = peer;
tryActivation();
}
else {
client_out_udp = sc_udp;
client_out = sc;
checkForActivation();
}
}
else {
delete conn;
conn = 0;
// if we delayed the proxies for later, try now
if(lateProxy) {
if(remoteFailed)
doIncoming();
}
else
doConnectError();
}
}
void S5BManager::Item::proxy_result(bool b)
{
#ifdef S5B_DEBUG
printf("proxy_result: %s\n", b ? "ok" : "fail");
#endif
if(b) {
SocksClient *sc = proxy_conn->takeClient();
SocksUDP *sc_udp = proxy_conn->takeUDP();
delete proxy_conn;
proxy_conn = 0;
connect(sc, TQT_SIGNAL(readyRead()), TQT_SLOT(sc_readyRead()));
connect(sc, TQT_SIGNAL(bytesWritten(int)), TQT_SLOT(sc_bytesWritten(int)));
connect(sc, TQT_SIGNAL(error(int)), TQT_SLOT(sc_error(int)));
client = sc;
client_udp = sc_udp;
// activate
#ifdef S5B_DEBUG
printf("activating proxy stream\n");
#endif
proxy_task = new JT_S5B(m->client()->rootTask());
connect(proxy_task, TQT_SIGNAL(finished()), TQT_SLOT(proxy_finished()));
proxy_task->requestActivation(proxy.jid(), sid, peer);
proxy_task->go(true);
}
else {
delete proxy_conn;
proxy_conn = 0;
reset();
error(ErrProxy);
}
}
void S5BManager::Item::proxy_finished()
{
JT_S5B *j = proxy_task;
proxy_task = 0;
if(j->success()) {
#ifdef S5B_DEBUG
printf("proxy stream activated\n");
#endif
if(state == Initiator) {
activatedStream = proxy.jid();
tryActivation();
}
else
checkForActivation();
}
else {
reset();
error(ErrProxy);
}
}
void S5BManager::Item::sc_readyRead()
{
#ifdef S5B_DEBUG
printf("sc_readyRead\n");
#endif
// only targets check for activation, and only should do it if there is no pending outgoing iq-set
if(state == Target && !task && !proxy_task)
checkForActivation();
}
void S5BManager::Item::sc_bytesWritten(int)
{
#ifdef S5B_DEBUG
printf("sc_bytesWritten\n");
#endif
// this should only happen to the initiator, and should always be 1 byte (the '\r' sent earlier)
finished();
}
void S5BManager::Item::sc_error(int)
{
#ifdef S5B_DEBUG
printf("sc_error\n");
#endif
reset();
error(ErrConnect);
}
void S5BManager::Item::doConnectError()
{
localFailed = true;
m->doError(peer, in_id, 404, "Could not connect to given hosts");
checkFailure();
}
void S5BManager::Item::tryActivation()
{
#ifdef S5B_DEBUG
printf("tryActivation\n");
#endif
if(activated) {
#ifdef S5B_DEBUG
printf("already activated !?\n");
#endif
return;
}
if(targetMode == NotFast) {
#ifdef S5B_DEBUG
printf("tryActivation: NotFast\n");
#endif
// nothing to activate, we're done
finished();
}
else if(targetMode == Fast) {
// with fast mode, we don't wait for the iq reply, so delete the task (if any)
delete task;
task = 0;
activated = true;
// if udp, activate using special stanza
if(udp) {
m->doActivate(peer, sid, activatedStream);
}
else {
#ifdef S5B_DEBUG
printf("sending extra CR\n");
#endif
// must send [CR] to activate target streamhost
TQByteArray a(1);
a[0] = '\r';
client->write(a);
}
}
}
void S5BManager::Item::checkForActivation()
{
TQPtrList<SocksClient> clientList;
if(client)
clientList.append(client);
if(client_out)
clientList.append(client_out);
TQPtrListIterator<SocksClient> it(clientList);
for(SocksClient *sc; (sc = it.current()); ++it) {
#ifdef S5B_DEBUG
printf("checking for activation\n");
#endif
if(fast) {
bool ok = false;
if(udp) {
if((sc == client_out && activatedStream.compare(self)) || (sc == client && !activatedStream.compare(self))) {
clientList.removeRef(sc);
ok = true;
}
}
else {
#ifdef S5B_DEBUG
printf("need CR\n");
#endif
if(sc->bytesAvailable() >= 1) {
clientList.removeRef(sc);
TQByteArray a = sc->read(1);
if(a[0] != '\r') {
delete sc;
return;
}
ok = true;
}
}
if(ok) {
SocksUDP *sc_udp = 0;
if(sc == client) {
delete client_out_udp;
client_out_udp = 0;
sc_udp = client_udp;
}
else if(sc == client_out) {
delete client_udp;
client_udp = 0;
sc_udp = client_out_udp;
}
sc->disconnect(this);
clientList.setAutoDelete(true);
clientList.clear();
client = sc;
client_out = 0;
client_udp = sc_udp;
activated = true;
#ifdef S5B_DEBUG
printf("activation success\n");
#endif
break;
}
}
else {
#ifdef S5B_DEBUG
printf("not fast mode, no need to wait for anything\n");
#endif
clientList.removeRef(sc);
sc->disconnect(this);
clientList.setAutoDelete(true);
clientList.clear();
client = sc;
client_out = 0;
activated = true;
break;
}
}
if(activated) {
finished();
}
else {
// only emit waitingForActivation if there is nothing left to do
if((connSuccess || localFailed) && !proxy_task && !proxy_conn)
waitingForActivation();
}
}
void S5BManager::Item::checkFailure()
{
bool failed = false;
if(state == Initiator) {
if(remoteFailed) {
if((localFailed && targetMode == Fast) || targetMode == NotFast)
failed = true;
}
}
else {
if(localFailed) {
if((remoteFailed && fast) || !fast)
failed = true;
}
}
if(failed) {
if(state == Initiator) {
reset();
if(statusCode == 404)
error(ErrConnect);
else
error(ErrRefused);
}
else {
reset();
error(ErrConnect);
}
}
}
void S5BManager::Item::finished()
{
client->disconnect(this);
state = Active;
#ifdef S5B_DEBUG
printf("S5BManager::Item %s [%s] linked successfully\n", peer.full().latin1(), sid.latin1());
#endif
connected();
}
//----------------------------------------------------------------------------
// S5BConnector
//----------------------------------------------------------------------------
class S5BConnector::Item : public TQObject
{
Q_OBJECT
public:
SocksClient *client;
SocksUDP *client_udp;
StreamHost host;
TQString key;
bool udp;
int udp_tries;
TQTimer t;
Jid jid;
Item(const Jid &self, const StreamHost &_host, const TQString &_key, bool _udp) : TQObject(0)
{
jid = self;
host = _host;
key = _key;
udp = _udp;
client = new SocksClient;
client_udp = 0;
connect(client, TQT_SIGNAL(connected()), TQT_SLOT(sc_connected()));
connect(client, TQT_SIGNAL(error(int)), TQT_SLOT(sc_error(int)));
connect(&t, TQT_SIGNAL(timeout()), TQT_SLOT(trySendUDP()));
}
~Item()
{
cleanup();
}
void start()
{
client->connectToHost(host.host(), host.port(), key, 0, udp);
}
void udpSuccess()
{
t.stop();
client_udp->change(key, 0); // flip over to the data port
success();
}
signals:
void result(bool);
private slots:
void sc_connected()
{
// if udp, need to send init packet before we are good
if(udp) {
// port 1 is init
client_udp = client->createUDP(key, 1, client->peerAddress(), client->peerPort());
udp_tries = 0;
t.start(5000);
trySendUDP();
return;
}
success();
}
void sc_error(int)
{
#ifdef S5B_DEBUG
printf("S5BConnector[%s]: error\n", host.host().latin1());
#endif
cleanup();
result(false);
}
void trySendUDP()
{
if(udp_tries == 5) {
t.stop();
cleanup();
result(false);
return;
}
// send initialization with our JID
TQCString cs = jid.full().utf8();
TQByteArray a(cs.length());
memcpy(a.data(), cs.data(), a.size());
client_udp->write(a);
++udp_tries;
}
private:
void cleanup()
{
delete client_udp;
client_udp = 0;
delete client;
client = 0;
}
void success()
{
#ifdef S5B_DEBUG
printf("S5BConnector[%s]: success\n", host.host().latin1());
#endif
client->disconnect(this);
result(true);
}
};
class S5BConnector::Private
{
public:
SocksClient *active;
SocksUDP *active_udp;
TQPtrList<Item> itemList;
TQString key;
StreamHost activeHost;
TQTimer t;
};
S5BConnector::S5BConnector(TQObject *parent)
:TQObject(parent)
{
d = new Private;
d->active = 0;
d->active_udp = 0;
d->itemList.setAutoDelete(true);
connect(&d->t, TQT_SIGNAL(timeout()), TQT_SLOT(t_timeout()));
}
S5BConnector::~S5BConnector()
{
reset();
delete d;
}
void S5BConnector::reset()
{
d->t.stop();
delete d->active_udp;
d->active_udp = 0;
delete d->active;
d->active = 0;
d->itemList.clear();
}
void S5BConnector::start(const Jid &self, const StreamHostList &hosts, const TQString &key, bool udp, int timeout)
{
reset();
#ifdef S5B_DEBUG
printf("S5BConnector: starting [%p]!\n", this);
#endif
for(StreamHostList::ConstIterator it = hosts.begin(); it != hosts.end(); ++it) {
Item *i = new Item(self, *it, key, udp);
connect(i, TQT_SIGNAL(result(bool)), TQT_SLOT(item_result(bool)));
d->itemList.append(i);
i->start();
}
d->t.start(timeout * 1000);
}
SocksClient *S5BConnector::takeClient()
{
SocksClient *c = d->active;
d->active = 0;
return c;
}
SocksUDP *S5BConnector::takeUDP()
{
SocksUDP *c = d->active_udp;
d->active_udp = 0;
return c;
}
StreamHost S5BConnector::streamHostUsed() const
{
return d->activeHost;
}
void S5BConnector::item_result(bool b)
{
Item *i = (Item *)sender();
if(b) {
d->active = i->client;
i->client = 0;
d->active_udp = i->client_udp;
i->client_udp = 0;
d->activeHost = i->host;
d->itemList.clear();
d->t.stop();
#ifdef S5B_DEBUG
printf("S5BConnector: complete! [%p]\n", this);
#endif
result(true);
}
else {
d->itemList.removeRef(i);
if(d->itemList.isEmpty()) {
d->t.stop();
#ifdef S5B_DEBUG
printf("S5BConnector: failed! [%p]\n", this);
#endif
result(false);
}
}
}
void S5BConnector::t_timeout()
{
reset();
#ifdef S5B_DEBUG
printf("S5BConnector: failed! (timeout)\n");
#endif
result(false);
}
void S5BConnector::man_udpSuccess(const Jid &streamHost)
{
// was anyone sending to this streamhost?
TQPtrListIterator<Item> it(d->itemList);
for(Item *i; (i = it.current()); ++it) {
if(i->host.jid().compare(streamHost) && i->client_udp) {
i->udpSuccess();
return;
}
}
}
//----------------------------------------------------------------------------
// S5BServer
//----------------------------------------------------------------------------
class S5BServer::Item : public TQObject
{
Q_OBJECT
public:
SocksClient *client;
TQString host;
TQTimer expire;
Item(SocksClient *c) : TQObject(0)
{
client = c;
connect(client, TQT_SIGNAL(incomingMethods(int)), TQT_SLOT(sc_incomingMethods(int)));
connect(client, TQT_SIGNAL(incomingConnectRequest(const TQString &, int)), TQT_SLOT(sc_incomingConnectRequest(const TQString &, int)));
connect(client, TQT_SIGNAL(error(int)), TQT_SLOT(sc_error(int)));
connect(&expire, TQT_SIGNAL(timeout()), TQT_SLOT(doError()));
resetExpiration();
}
~Item()
{
delete client;
}
void resetExpiration()
{
expire.start(30000);
}
signals:
void result(bool);
private slots:
void doError()
{
expire.stop();
delete client;
client = 0;
result(false);
}
void sc_incomingMethods(int m)
{
if(m & SocksClient::AuthNone)
client->chooseMethod(SocksClient::AuthNone);
else
doError();
}
void sc_incomingConnectRequest(const TQString &_host, int port)
{
if(port == 0) {
host = _host;
client->disconnect(this);
result(true);
}
else
doError();
}
void sc_error(int)
{
doError();
}
};
class S5BServer::Private
{
public:
SocksServer serv;
TQStringList hostList;
TQPtrList<S5BManager> manList;
TQPtrList<Item> itemList;
};
S5BServer::S5BServer(TQObject *parent)
:TQObject(parent)
{
d = new Private;
d->itemList.setAutoDelete(true);
connect(&d->serv, TQT_SIGNAL(incomingReady()), TQT_SLOT(ss_incomingReady()));
connect(&d->serv, TQT_SIGNAL(incomingUDP(const TQString &, int, const TQHostAddress &, int, const TQByteArray &)), TQT_SLOT(ss_incomingUDP(const TQString &, int, const TQHostAddress &, int, const TQByteArray &)));
}
S5BServer::~S5BServer()
{
unlinkAll();
delete d;
}
bool S5BServer::isActive() const
{
return d->serv.isActive();
}
bool S5BServer::start(int port)
{
d->serv.stop();
return d->serv.listen(port, true);
}
void S5BServer::stop()
{
d->serv.stop();
}
void S5BServer::setHostList(const TQStringList &list)
{
d->hostList = list;
}
TQStringList S5BServer::hostList() const
{
return d->hostList;
}
int S5BServer::port() const
{
return d->serv.port();
}
void S5BServer::ss_incomingReady()
{
Item *i = new Item(d->serv.takeIncoming());
#ifdef S5B_DEBUG
printf("S5BServer: incoming connection from %s:%d\n", i->client->peerAddress().toString().latin1(), i->client->peerPort());
#endif
connect(i, TQT_SIGNAL(result(bool)), TQT_SLOT(item_result(bool)));
d->itemList.append(i);
}
void S5BServer::ss_incomingUDP(const TQString &host, int port, const TQHostAddress &addr, int sourcePort, const TQByteArray &data)
{
if(port != 0 || port != 1)
return;
TQPtrListIterator<S5BManager> it(d->manList);
for(S5BManager *m; (m = it.current()); ++it) {
if(m->srv_ownsHash(host)) {
m->srv_incomingUDP(port == 1 ? true : false, addr, sourcePort, host, data);
return;
}
}
}
void S5BServer::item_result(bool b)
{
Item *i = (Item *)sender();
#ifdef S5B_DEBUG
printf("S5BServer item result: %d\n", b);
#endif
if(!b) {
d->itemList.removeRef(i);
return;
}
SocksClient *c = i->client;
i->client = 0;
TQString key = i->host;
d->itemList.removeRef(i);
// find the appropriate manager for this incoming connection
TQPtrListIterator<S5BManager> it(d->manList);
for(S5BManager *m; (m = it.current()); ++it) {
if(m->srv_ownsHash(key)) {
m->srv_incomingReady(c, key);
return;
}
}
// throw it away
delete c;
}
void S5BServer::link(S5BManager *m)
{
d->manList.append(m);
}
void S5BServer::unlink(S5BManager *m)
{
d->manList.removeRef(m);
}
void S5BServer::unlinkAll()
{
TQPtrListIterator<S5BManager> it(d->manList);
for(S5BManager *m; (m = it.current()); ++it)
m->srv_unlink();
d->manList.clear();
}
const TQPtrList<S5BManager> & S5BServer::managerList() const
{
return d->manList;
}
void S5BServer::writeUDP(const TQHostAddress &addr, int port, const TQByteArray &data)
{
d->serv.writeUDP(addr, port, data);
}
//----------------------------------------------------------------------------
// JT_S5B
//----------------------------------------------------------------------------
class JT_S5B::Private
{
public:
TQDomElement iq;
Jid to;
Jid streamHost;
StreamHost proxyInfo;
int mode;
TQTimer t;
};
JT_S5B::JT_S5B(Task *parent)
:Task(parent)
{
d = new Private;
d->mode = -1;
connect(&d->t, TQT_SIGNAL(timeout()), TQT_SLOT(t_timeout()));
}
JT_S5B::~JT_S5B()
{
delete d;
}
void JT_S5B::request(const Jid &to, const TQString &sid, const StreamHostList &hosts, bool fast, bool udp)
{
d->mode = 0;
TQDomElement iq;
d->to = to;
iq = createIQ(doc(), "set", to.full(), id());
TQDomElement query = doc()->createElement("query");
query.setAttribute("xmlns", "http://jabber.org/protocol/bytestreams");
query.setAttribute("sid", sid);
query.setAttribute("mode", udp ? "udp" : "tcp" );
iq.appendChild(query);
for(StreamHostList::ConstIterator it = hosts.begin(); it != hosts.end(); ++it) {
TQDomElement shost = doc()->createElement("streamhost");
shost.setAttribute("jid", (*it).jid().full());
shost.setAttribute("host", (*it).host());
shost.setAttribute("port", TQString::number((*it).port()));
if((*it).isProxy()) {
TQDomElement p = doc()->createElement("proxy");
p.setAttribute("xmlns", "http://affinix.com/jabber/stream");
shost.appendChild(p);
}
query.appendChild(shost);
}
if(fast) {
TQDomElement e = doc()->createElement("fast");
e.setAttribute("xmlns", "http://affinix.com/jabber/stream");
query.appendChild(e);
}
d->iq = iq;
}
void JT_S5B::requestProxyInfo(const Jid &to)
{
d->mode = 1;
TQDomElement iq;
d->to = to;
iq = createIQ(doc(), "get", to.full(), id());
TQDomElement query = doc()->createElement("query");
query.setAttribute("xmlns", "http://jabber.org/protocol/bytestreams");
iq.appendChild(query);
d->iq = iq;
}
void JT_S5B::requestActivation(const Jid &to, const TQString &sid, const Jid &target)
{
d->mode = 2;
TQDomElement iq;
d->to = to;
iq = createIQ(doc(), "set", to.full(), id());
TQDomElement query = doc()->createElement("query");
query.setAttribute("xmlns", "http://jabber.org/protocol/bytestreams");
query.setAttribute("sid", sid);
iq.appendChild(query);
TQDomElement act = doc()->createElement("activate");
act.appendChild(doc()->createTextNode(target.full()));
query.appendChild(act);
d->iq = iq;
}
void JT_S5B::onGo()
{
if(d->mode == 1)
d->t.start(15000, true);
send(d->iq);
}
void JT_S5B::onDisconnect()
{
d->t.stop();
}
bool JT_S5B::take(const TQDomElement &x)
{
if(d->mode == -1)
return false;
if(!iqVerify(x, d->to, id()))
return false;
d->t.stop();
if(x.attribute("type") == "result") {
TQDomElement q = queryTag(x);
if(d->mode == 0) {
d->streamHost = "";
if(!q.isNull()) {
TQDomElement shost = q.elementsByTagName("streamhost-used").item(0).toElement();
if(!shost.isNull())
d->streamHost = shost.attribute("jid");
}
setSuccess();
}
else if(d->mode == 1) {
if(!q.isNull()) {
TQDomElement shost = q.elementsByTagName("streamhost").item(0).toElement();
if(!shost.isNull()) {
Jid j = shost.attribute("jid");
if(j.isValid()) {
TQString host = shost.attribute("host");
if(!host.isEmpty()) {
int port = shost.attribute("port").toInt();
StreamHost h;
h.setJid(j);
h.setHost(host);
h.setPort(port);
h.setIsProxy(true);
d->proxyInfo = h;
}
}
}
}
setSuccess();
}
else {
setSuccess();
}
}
else {
setError(x);
}
return true;
}
void JT_S5B::t_timeout()
{
d->mode = -1;
setError(500, "Timed out");
}
Jid JT_S5B::streamHostUsed() const
{
return d->streamHost;
}
StreamHost JT_S5B::proxyInfo() const
{
return d->proxyInfo;
}
//----------------------------------------------------------------------------
// JT_PushS5B
//----------------------------------------------------------------------------
JT_PushS5B::JT_PushS5B(Task *parent)
:Task(parent)
{
}
JT_PushS5B::~JT_PushS5B()
{
}
int JT_PushS5B::priority() const
{
return 1;
}
bool JT_PushS5B::take(const TQDomElement &e)
{
// look for udpsuccess
if(e.tagName() == "message") {
TQDomElement x = e.elementsByTagName("udpsuccess").item(0).toElement();
if(!x.isNull() && x.attribute("xmlns") == "http://jabber.org/protocol/bytestreams") {
incomingUDPSuccess(Jid(x.attribute("from")), x.attribute("dstaddr"));
return true;
}
x = e.elementsByTagName("activate").item(0).toElement();
if(!x.isNull() && x.attribute("xmlns") == "http://affinix.com/jabber/stream") {
incomingActivate(Jid(x.attribute("from")), x.attribute("sid"), Jid(x.attribute("jid")));
return true;
}
return false;
}
// must be an iq-set tag
if(e.tagName() != "iq")
return false;
if(e.attribute("type") != "set")
return false;
if(queryNS(e) != "http://jabber.org/protocol/bytestreams")
return false;
Jid from(e.attribute("from"));
TQDomElement q = queryTag(e);
TQString sid = q.attribute("sid");
StreamHostList hosts;
TQDomNodeList nl = q.elementsByTagName("streamhost");
for(uint n = 0; n < nl.count(); ++n) {
TQDomElement shost = nl.item(n).toElement();
if(hosts.count() < MAXSTREAMHOSTS) {
Jid j = shost.attribute("jid");
if(!j.isValid())
continue;
TQString host = shost.attribute("host");
if(host.isEmpty())
continue;
int port = shost.attribute("port").toInt();
TQDomElement p = shost.elementsByTagName("proxy").item(0).toElement();
bool isProxy = false;
if(!p.isNull() && p.attribute("xmlns") == "http://affinix.com/jabber/stream")
isProxy = true;
StreamHost h;
h.setJid(j);
h.setHost(host);
h.setPort(port);
h.setIsProxy(isProxy);
hosts += h;
}
}
bool fast = false;
TQDomElement t;
t = q.elementsByTagName("fast").item(0).toElement();
if(!t.isNull() && t.attribute("xmlns") == "http://affinix.com/jabber/stream")
fast = true;
S5BRequest r;
r.from = from;
r.id = e.attribute("id");
r.sid = sid;
r.hosts = hosts;
r.fast = fast;
r.udp = q.attribute("mode") == "udp" ? true: false;
incoming(r);
return true;
}
void JT_PushS5B::respondSuccess(const Jid &to, const TQString &id, const Jid &streamHost)
{
TQDomElement iq = createIQ(doc(), "result", to.full(), id);
TQDomElement query = doc()->createElement("query");
query.setAttribute("xmlns", "http://jabber.org/protocol/bytestreams");
iq.appendChild(query);
TQDomElement shost = doc()->createElement("streamhost-used");
shost.setAttribute("jid", streamHost.full());
query.appendChild(shost);
send(iq);
}
void JT_PushS5B::respondError(const Jid &to, const TQString &id, int code, const TQString &str)
{
TQDomElement iq = createIQ(doc(), "error", to.full(), id);
TQDomElement err = textTag(doc(), "error", str);
err.setAttribute("code", TQString::number(code));
iq.appendChild(err);
send(iq);
}
void JT_PushS5B::sendUDPSuccess(const Jid &to, const TQString &dstaddr)
{
TQDomElement m = doc()->createElement("message");
m.setAttribute("to", to.full());
TQDomElement u = doc()->createElement("udpsuccess");
u.setAttribute("xmlns", "http://jabber.org/protocol/bytestreams");
u.setAttribute("dstaddr", dstaddr);
m.appendChild(u);
send(m);
}
void JT_PushS5B::sendActivate(const Jid &to, const TQString &sid, const Jid &streamHost)
{
TQDomElement m = doc()->createElement("message");
m.setAttribute("to", to.full());
TQDomElement act = doc()->createElement("activate");
act.setAttribute("xmlns", "http://affinix.com/jabber/stream");
act.setAttribute("sid", sid);
act.setAttribute("jid", streamHost.full());
m.appendChild(act);
send(m);
}
//----------------------------------------------------------------------------
// StreamHost
//----------------------------------------------------------------------------
StreamHost::StreamHost()
{
v_port = -1;
proxy = false;
}
const Jid & StreamHost::jid() const
{
return j;
}
const TQString & StreamHost::host() const
{
return v_host;
}
int StreamHost::port() const
{
return v_port;
}
bool StreamHost::isProxy() const
{
return proxy;
}
void StreamHost::setJid(const Jid &_j)
{
j = _j;
}
void StreamHost::setHost(const TQString &host)
{
v_host = host;
}
void StreamHost::setPort(int port)
{
v_port = port;
}
void StreamHost::setIsProxy(bool b)
{
proxy = b;
}
}
#include"s5b.moc"