1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
|
/***************************************************************************
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 <kpopupmenu.h>
#include <klocale.h>
#include <kconfig.h>
// Kopete Includes
// Local Includes
#include "wpaccount.h"
class KPopupMenu;
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::tqfromLatin1("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);
}
KActionMenu* WPAccount::actionMenu()
{
kdDebug(14170) << "WPAccount::actionMenu()" << endl;
/// How to remove an action from Kopete::Account::actionMenu()? GF
KActionMenu *theActionMenu = new KActionMenu(accountId() , myself()->onlinetqStatus().iconFor(this), this);
theActionMenu->popupMenu()->insertTitle(myself()->onlinetqStatus().iconFor(this), i18n("WinPopup (%1)").tqarg(accountId()));
if (mProtocol)
{
KAction *goOnline = new KAction("Online", TQIconSet(mProtocol->WPOnline.iconFor(this)), 0,
this, TQT_SLOT(connect()), theActionMenu, "actionGoAvailable");
goOnline->setEnabled(isConnected() && isAway());
theActionMenu->insert(goOnline);
KAction *goAway = new KAction("Away", TQIconSet(mProtocol->WPAway.iconFor(this)), 0,
this, TQT_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 KAction(i18n("Properties"), 0,
this, TQT_SLOT(editAccount()), theActionMenu, "actionAccountProperties"));
}
return theActionMenu;
}
void WPAccount::slotSendMessage(const TQString &Body, const TQString &Destination)
{
kdDebug(14170) << "WPAccount::slotSendMessage(" << Body << ", " << Destination << ")" << endl;
if (myself()->onlinetqStatus().status() == Kopete::OnlineStatus::Away) myself()->setOnlineStatus(mProtocol->WPOnline);
mProtocol->sendMessage(Body, Destination);
}
void WPAccount::setOnlineStatus(const Kopete::OnlineStatus &status, const TQString &reason)
{
if (myself()->onlinetqStatus().status() == Kopete::OnlineStatus::Offline && status.status() == Kopete::OnlineStatus::Online)
connect( status );
else if (myself()->onlinetqStatus().status() != Kopete::OnlineStatus::Offline && status.status() == Kopete::OnlineStatus::Offline)
disconnect();
else if (myself()->onlinetqStatus().status() != Kopete::OnlineStatus::Offline && status.status() == Kopete::OnlineStatus::Away)
setAway( true, reason );
}
#include "wpaccount.moc"
// vim: set noet ts=4 sts=4 sw=4:
// kate: tab-width 4; indent-width 4; replace-trailing-space-save on;
|
