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.
207 lines
7.0 KiB
207 lines
7.0 KiB
/***************************************************************************
|
|
wpaccount.cpp - WP Plugin
|
|
-------------------
|
|
begin : Fri Apr 26 2002
|
|
copyright : (C) 2002 by Gav Wood
|
|
email : gav@indigoarchive.net
|
|
|
|
Based on code from : (C) 2002 by Duncan Mac-Vicar Prett
|
|
email : duncan@kde.org
|
|
***************************************************************************
|
|
|
|
***************************************************************************
|
|
* *
|
|
* This program is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU General Public License as published by *
|
|
* the Free Software Foundation; either version 2 of the License, or *
|
|
* (at your option) any later version. *
|
|
* *
|
|
***************************************************************************/
|
|
|
|
// QT Includes
|
|
#include <tqregexp.h>
|
|
|
|
// KDE Includes
|
|
#include <kdebug.h>
|
|
#include <tdepopupmenu.h>
|
|
#include <tdelocale.h>
|
|
#include <tdeconfig.h>
|
|
|
|
// Kopete Includes
|
|
|
|
// Local Includes
|
|
#include "wpaccount.h"
|
|
|
|
class TDEPopupMenu;
|
|
|
|
WPAccount::WPAccount(WPProtocol *parent, const TQString &accountID, const char *name)
|
|
: Kopete::Account(parent, accountID, name)
|
|
{
|
|
// kdDebug(14170) << "WPAccount::WPAccount()" << endl;
|
|
|
|
mProtocol = WPProtocol::protocol();
|
|
|
|
// we need this before initActions
|
|
Kopete::MetaContact *myself = Kopete::ContactList::self()->myself();
|
|
setMyself( new WPContact(this, accountID, myself->displayName(), myself) );
|
|
|
|
// if (excludeConnect()) connect(Kopete::OnlineStatus::Online); // ??
|
|
}
|
|
|
|
// Destructor
|
|
WPAccount::~WPAccount()
|
|
{
|
|
}
|
|
|
|
const TQStringList WPAccount::getGroups()
|
|
{
|
|
return mProtocol->getGroups();
|
|
}
|
|
|
|
const TQStringList WPAccount::getHosts(const TQString &Group)
|
|
{
|
|
return mProtocol->getHosts(Group);
|
|
}
|
|
|
|
bool WPAccount::checkHost(const TQString &Name)
|
|
{
|
|
// kdDebug() << "WPAccount::checkHost: " << Name << endl;
|
|
if (Name.upper() == TQString::fromLatin1("LOCALHOST")) {
|
|
// Assume localhost is always there, but it will not appear in the samba output.
|
|
// Should never happen as localhost is now forbidden as contact, just for safety. GF
|
|
return true;
|
|
} else {
|
|
return mProtocol->checkHost(Name);
|
|
}
|
|
}
|
|
|
|
bool WPAccount::createContact(const TQString &contactId, Kopete::MetaContact *parentContact )
|
|
{
|
|
// kdDebug(14170) << "[WPAccount::createContact] contactId: " << contactId << endl;
|
|
|
|
if (!contacts()[contactId]) {
|
|
WPContact *newContact = new WPContact(this, contactId, parentContact->displayName(), parentContact);
|
|
return newContact != 0;
|
|
} else {
|
|
kdDebug(14170) << "[WPAccount::addContact] Contact already exists" << endl;
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
void WPAccount::slotGotNewMessage(const TQString &Body, const TQDateTime &Arrival, const TQString &From)
|
|
{
|
|
// kdDebug(14170) << "WPAccount::slotGotNewMessage(" << Body << ", " << Arrival.toString() << ", " << From << ")" << endl;
|
|
|
|
// Ignore messages from own host or IPs.
|
|
// IPs can not be matched to an account anyway.
|
|
// This should happen rarely but they make kopete crash.
|
|
// The reason for this seems to be in ChatSessionManager? GF
|
|
TQRegExp ip("\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}\\.\\d{1,3}");
|
|
|
|
// kdDebug(14170) << "ip.search: " << From << " match: " << ip.search(From) << endl;
|
|
|
|
if (From == accountId() || ip.exactMatch(From)) {
|
|
kdDebug(14170) << "Ignoring message from own host/account or IP." << endl;
|
|
return;
|
|
}
|
|
|
|
if (isConnected()) {
|
|
if (!isAway()) {
|
|
if(!contacts()[From]) {
|
|
addContact(From, From, 0, Kopete::Account::DontChangeKABC);
|
|
}
|
|
static_cast<WPContact *>(contacts()[From])->slotNewMessage(Body, Arrival);
|
|
}
|
|
else {
|
|
if (!theAwayMessage.isEmpty()) mProtocol->sendMessage(theAwayMessage, From);
|
|
}
|
|
} else {
|
|
// What to do with offline received messages?
|
|
kdDebug(14170) << "That's strange - we got a message while offline! Ignoring." << endl;
|
|
}
|
|
}
|
|
|
|
void WPAccount::connect(const Kopete::OnlineStatus &)
|
|
{
|
|
// kdDebug(14170) << "WPAccount::Connect()" << endl;
|
|
myself()->setOnlineStatus(mProtocol->WPOnline);
|
|
}
|
|
|
|
void WPAccount::disconnect()
|
|
{
|
|
// kdDebug(14170) << "WPAccount::Disconnect()" << endl;
|
|
myself()->setOnlineStatus(mProtocol->WPOffline);
|
|
}
|
|
|
|
/* I commented this code because deleting myself may have *dangerous* side effect, for example, for the status tracking.
|
|
void WPAccount::updateAccountId()
|
|
{
|
|
delete myself();
|
|
theInterface->setHostName(accountId());
|
|
myself() = new WPContact(this, accountId(), accountId(), 0);
|
|
}*/
|
|
|
|
void WPAccount::setAway(bool status, const TQString &awayMessage)
|
|
{
|
|
// kdDebug(14170) << "WPAccount::setAway()" << endl;
|
|
|
|
theAwayMessage = awayMessage;
|
|
|
|
// if(!isConnected())
|
|
// theInterface->goOnline();
|
|
myself()->setOnlineStatus(status ? mProtocol->WPAway : mProtocol->WPOnline);
|
|
}
|
|
|
|
TDEActionMenu* WPAccount::actionMenu()
|
|
{
|
|
kdDebug(14170) << "WPAccount::actionMenu()" << endl;
|
|
|
|
/// How to remove an action from Kopete::Account::actionMenu()? GF
|
|
|
|
TDEActionMenu *theActionMenu = new TDEActionMenu(accountId() , myself()->onlineStatus().iconFor(this), this);
|
|
theActionMenu->popupMenu()->insertTitle(myself()->onlineStatus().iconFor(this), i18n("WinPopup (%1)").arg(accountId()));
|
|
|
|
if (mProtocol)
|
|
{
|
|
TDEAction *goOnline = new TDEAction("Online", TQIconSet(mProtocol->WPOnline.iconFor(this)), 0,
|
|
this, TQ_SLOT(connect()), theActionMenu, "actionGoAvailable");
|
|
goOnline->setEnabled(isConnected() && isAway());
|
|
theActionMenu->insert(goOnline);
|
|
|
|
TDEAction *goAway = new TDEAction("Away", TQIconSet(mProtocol->WPAway.iconFor(this)), 0,
|
|
this, TQ_SLOT(goAway()), theActionMenu, "actionGoAway");
|
|
goAway->setEnabled(isConnected() && !isAway());
|
|
theActionMenu->insert(goAway);
|
|
|
|
/// One can not really go offline manually - appears online as long as samba server is running. GF
|
|
|
|
theActionMenu->popupMenu()->insertSeparator();
|
|
theActionMenu->insert(new TDEAction(i18n("Properties"), 0,
|
|
this, TQ_SLOT(editAccount()), theActionMenu, "actionAccountProperties"));
|
|
|
|
}
|
|
|
|
return theActionMenu;
|
|
}
|
|
|
|
void WPAccount::slotSendMessage(const TQString &Body, const TQString &Destination)
|
|
{
|
|
kdDebug(14170) << "WPAccount::slotSendMessage(" << Body << ", " << Destination << ")" << endl;
|
|
|
|
if (myself()->onlineStatus().status() == Kopete::OnlineStatus::Away) myself()->setOnlineStatus(mProtocol->WPOnline);
|
|
mProtocol->sendMessage(Body, Destination);
|
|
}
|
|
|
|
void WPAccount::setOnlineStatus(const Kopete::OnlineStatus &status, const TQString &reason)
|
|
{
|
|
if (myself()->onlineStatus().status() == Kopete::OnlineStatus::Offline && status.status() == Kopete::OnlineStatus::Online)
|
|
connect( status );
|
|
else if (myself()->onlineStatus().status() != Kopete::OnlineStatus::Offline && status.status() == Kopete::OnlineStatus::Offline)
|
|
disconnect();
|
|
else if (myself()->onlineStatus().status() != Kopete::OnlineStatus::Offline && status.status() == Kopete::OnlineStatus::Away)
|
|
setAway( true, reason );
|
|
}
|
|
|
|
#include "wpaccount.moc"
|