From a6d58bb6052ac8cb01805a48c4ad2f129126116f Mon Sep 17 00:00:00 2001 From: tpearson Date: Wed, 24 Feb 2010 02:13:59 +0000 Subject: Added KDE3 version of kvirc git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/applications/kvirc@1095341 283d02a7-25f6-0310-bc7c-ecb5cbfe19da --- src/modules/regchan/libkviregchan.cpp | 426 ++++++++++++++++++++++++++++++++++ 1 file changed, 426 insertions(+) create mode 100644 src/modules/regchan/libkviregchan.cpp (limited to 'src/modules/regchan/libkviregchan.cpp') diff --git a/src/modules/regchan/libkviregchan.cpp b/src/modules/regchan/libkviregchan.cpp new file mode 100644 index 00000000..eaa53268 --- /dev/null +++ b/src/modules/regchan/libkviregchan.cpp @@ -0,0 +1,426 @@ +//====================================================================================== +// +// File : libkviregchan.cpp +// Creation date : Sat Jun 29 02:55:18 2002 GMT by Szymon Stefanek +// +// This file is part of the KVirc irc client distribution +// Copyright (C) 2002-2004 Szymon Stefanek (pragma at kvirc dot net) +// +// 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 opinion) any later version. +// +// This program 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 General Public License for more details. +// +// You should have received a copy of the GNU General Public License +// along with this program. If not, write to the Free Software Foundation, +// Inc. ,51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. +// +//====================================================================================== +// incomplete +#include "kvi_module.h" + + +#include "kvi_regchan.h" +#include "kvi_locale.h" +#include "kvi_out.h" +#include "kvi_mirccntrl.h" +#include "kvi_window.h" + + +// kvi_app.cpp +extern KVIRC_API KviRegisteredChannelDataBase * g_pRegisteredChannelDataBase; + +/* + @doc: regchan.add + @type: + command + @title: + regchan.add + @keyterms: + registering channels + @short: + Registers a channel + @syntax: + regchan.add [netmask:string] + @description: + Registers the with the specified [netmask]. + [netmask] can be a full network name or a wildcard string + tht will be matched against network names. + For example, if you want to register #kvirc on IRCNet + you can use regchan.add #kvirc IRCNet. + If you want to handle #kvirc on all the IRC networks then + you can use regchan.add #kvirc *[br] + Obviously if you register both #kvirc/IRCNet and #kvirc/* + then #kvirc/IRCNet will be looked first. + If netmask is not passed a netmask of * is assumed.[br] + @examples: + [example] + regchan.add #kvirc openprojects + [/example] + @seealso: +*/ + +static bool regchan_kvs_cmd_add(KviKvsModuleCommandCall * c) +{ + QString szChan,szNetmask; + KVSM_PARAMETERS_BEGIN(c) + KVSM_PARAMETER("channel name",KVS_PT_NONEMPTYSTRING,0,szChan) + KVSM_PARAMETER("netmask",KVS_PT_STRING,KVS_PF_OPTIONAL,szNetmask) + KVSM_PARAMETERS_END(c) + if(szNetmask.isEmpty())szNetmask="*"; + g_pRegisteredChannelDataBase->add(new KviRegisteredChannel(szChan,szNetmask)); + return true; +} + +/* + @doc: regchan.remove + @type: + command + @title: + regchan.remove + @keyterms: + unregistering channels + @short: + Unregisters a channel + @syntax: + regchan.remove [-q|--quiet] [-e|--exactly] + @description: + Unregisters the channel named that best matches + with its netmask.[br] + If no match for / is found in the database then + a warning is printed unless -q is used.[br] + If -e is specified then is not matched against the + netmasks in the database but is compared directly. This means + that must be exactly the netmask used to register a channel. + @examples: + [example] + regchan.remove #kvirc openprojects + [/example] + @seealso: + [cmd]regchan.add[/cmd] +*/ +static bool regchan_kvs_cmd_remove(KviKvsModuleCommandCall * c) +{ + QString szChan,szNetwork; + KVSM_PARAMETERS_BEGIN(c) + KVSM_PARAMETER("channel name",KVS_PT_NONEMPTYSTRING,0,szChan) + KVSM_PARAMETER("network",KVS_PT_NONEMPTYSTRING,0,szNetwork) + KVSM_PARAMETERS_END(c) + KviRegisteredChannel * ch; + if(c->hasSwitch('e',"exactly"))ch = g_pRegisteredChannelDataBase->findExact(szChan,szNetwork); + else ch = g_pRegisteredChannelDataBase->find(szChan,szNetwork); + if(ch) + { + g_pRegisteredChannelDataBase->remove(ch); + } else { + if(!c->hasSwitch('q',"quiet"))c->warning(__tr2qs("No such channel/netmask entry in the database")); + } + return true; +} + +/* + @doc: regchan.setproperty + @type: + command + @title: + regchan.setproperty + @short: + Sets a property for a registered channel + @syntax: + regchan.setproperty [-e|--exactly] [-q|--quiet] + @description: + Sets the for the registered that best + matches to .[br] + If is an empty string the is removed.[br] + If no match for / is found in the database then + a warning is printed unless -q is used.[br] + @switches: + !fn: -q|--quiet + No warning on screen. + !fn: -e|--exactly + If -e is specified then is not matched against the + netmasks in the database but is compared directly. This means + that must be exactly the netmask used to register a channel. + @examples: + [example] + regchan.setproperty #kvirc openprojects autojoin true + [/example] + @seealso: + [cmd]regchan.add[/cmd] +*/ + +static bool regchan_kvs_cmd_setProperty(KviKvsModuleCommandCall * c) +{ + QString szChan,szNetwork,szProperty,szValue; + KVSM_PARAMETERS_BEGIN(c) + KVSM_PARAMETER("channel name",KVS_PT_NONEMPTYSTRING,0,szChan) + KVSM_PARAMETER("network",KVS_PT_NONEMPTYSTRING,0,szNetwork) + KVSM_PARAMETER("property name",KVS_PT_NONEMPTYSTRING,0,szProperty) + KVSM_PARAMETER("value",KVS_PT_STRING,0,szValue) + KVSM_PARAMETERS_END(c) + KviRegisteredChannel * ch; + if(c->hasSwitch('e',"exactly"))ch = g_pRegisteredChannelDataBase->findExact(szChan,szNetwork); + else ch = g_pRegisteredChannelDataBase->find(szChan,szNetwork); + if(ch) + { + if(!szValue.isEmpty()) + { + ch->setProperty(szProperty.utf8().data(),new KviStr(szValue)); + } else { + ch->removeProperty(szProperty); + } + } else { + if(!c->hasSwitch('q',"quiet")) c->warning(__tr2qs("No such channel/netmask entry in the database")); + } + return true; +} +/* + @doc: regchan.showlist + @type: + command + @title: + regchan.showlist + @short: + Lists the registered channels + @syntax: + regchan.showlist + @description: + Lists the registered channels with their description +*/ + +static bool regchan_kvs_cmd_showlist(KviKvsModuleCommandCall * c) +{ + c->window()->output(KVI_OUT_SYSTEMMESSAGE,__tr2qs("Registered channel list:")); + + int tot = 0; + + KviPointerHashTableIterator it(*(g_pRegisteredChannelDataBase->channelDict())); + while(KviRegisteredChannelList * l = it.current()) + { + for(KviRegisteredChannel * ch = l->first();ch;ch = l->next()) + { + tot++; + c->window()->output(KVI_OUT_SYSTEMMESSAGE,__tr2qs("Channel: %c%s@%s"), + KVI_TEXT_BOLD,ch->name().ptr(),ch->netMask().ptr()); + KviPointerHashTableIterator pit(*(ch->propertyDict())); + while(KviStr * s = pit.current()) + { + c->window()->output(KVI_OUT_SYSTEMMESSAGE,__tr2qs(" Property: %s=%s"),pit.currentKey(),s->ptr()); + ++pit; + } + } + ++it; + } + + c->window()->output(KVI_OUT_SYSTEMMESSAGE,__tr2qs("Total %d channels"),tot); + return true; +} + +/* + @doc: regchan.list + @type: + function + @title: + $regchan.list + @short: + Get a list of registered channels + @syntax: + $regchan.list([],[]) + @description: + Returns an array of the channel@netmask entries in the registered + channels database.[br] + Please note that is a wildcard string that will match + wildcard strings.[br] + @examples: + [example] + echo $regchan.list(#kvirc*,[fnc]$my.network[/fnc]) + [/example] +*/ + +static bool regchan_kvs_fnc_list(KviKvsModuleFunctionCall * c) +{ + QString szChan,szNetmask; + KVSM_PARAMETERS_BEGIN(c) + KVSM_PARAMETER("channel name",KVS_PT_STRING,KVS_PF_OPTIONAL,szChan) + KVSM_PARAMETER("netmask",KVS_PT_STRING,KVS_PF_OPTIONAL,szNetmask) + KVSM_PARAMETERS_END(c) + + KviKvsArray* pArray = new KviKvsArray(); +// KviKvsArray* pArrayCN = new KviKvsArray(); +// pArrayCN->set(0,new KviKvsVariant(QString(""))); +// pArrayCN->set(1,new KviKvsVariant(QString(""))); + int aid=0; + + if(szChan.isEmpty())szChan="*"; + if(szNetmask.isEmpty())szNetmask="*"; + + KviPointerHashTable * d = g_pRegisteredChannelDataBase->channelDict(); + KviPointerHashTableIterator it(*d); + + while(KviRegisteredChannelList * l = it.current()) + { + for(KviRegisteredChannel * ch = l->first();ch;ch = l->next()) + if(KviQString::matchWildExpressionsCI(ch->name().ptr(),szChan) && + KviQString::matchWildExpressionsCI(ch->netMask().ptr(),szNetmask)) + { +// FIXME: WE NEED TO RETURN AN ARRAY OF 2-ELEMENT ARRAYS (chan name, netmask) + pArray->set(aid,new KviKvsVariant(QString(ch->name()+"@"+ch->netMask()))); +// pArray->set(aid,new KviKvsVariant(QString(ch->name())); +// pArrayCN->set(0,new KviKvsVariant(QString(ch->name()))); +// pArrayCN->set(1,new KviKvsVariant(QString(ch->netMask()))); +// pArray->set(aid,new KviKvsVariant(pArrayCN)); + aid++; + } + ++it; + } + c->returnValue()->setArray(pArray); + return true; +} + +/* + @doc: regchan.property + @type: + function + @title: + $regchan.property + @short: + Returns a property of an entry in the registered channels database + @syntax: + $regchan.property(,,) + @description: + Returns the value of the property identified by and + bound to the channel identified by and best + matched by .[br] + If the property is not set or if there is no matching channel entry an empty string is returned.[br] + @examples: + [example] + echo $regchan.property(#kvirc,[fnc]$my.network[/fnc],autojoin) + [/example] +*/ + +static bool regchan_kvs_fnc_property(KviKvsModuleFunctionCall * c) +{ + QString szChan,szNetwork,szPropertyName; + KVSM_PARAMETERS_BEGIN(c) + KVSM_PARAMETER("channel name",KVS_PT_STRING,0,szChan) + KVSM_PARAMETER("network",KVS_PT_STRING,0,szNetwork) + KVSM_PARAMETER("property name",KVS_PT_NONEMPTYSTRING,0,szPropertyName) + KVSM_PARAMETERS_END(c) + KviRegisteredChannel * ch = g_pRegisteredChannelDataBase->find(szChan,szNetwork); + if(ch) + { + KviStr * p = ch->property(szPropertyName); + if(p)c->returnValue()->setString(p->ptr()); + } //else c->warning(__tr("User %s not found"),parms->safeFirstParam()); + return true; +} +/* + @doc: regchan.match + @type: + function + @title: + $regchan.match + @short: + Checks if a channel is registered + @syntax: + $regchan.match(,) + @description: + Returns 1 if and match a registered channel entry + and 0 otherwise. + @examples: + [example] + echo $regchan.match(#kvirc,IRCNet) + echo $regchan.match(#kvirc,$my.network) + [/example] + @seealso: + [fnc]$regchan.find[/fnc] +*/ + + +static bool regchan_kvs_fnc_match(KviKvsModuleFunctionCall * c) +{ + QString szChan,szNetwork; + KVSM_PARAMETERS_BEGIN(c) + KVSM_PARAMETER("channel name",KVS_PT_STRING,0,szChan) + KVSM_PARAMETER("network",KVS_PT_STRING,0,szNetwork) + KVSM_PARAMETERS_END(c) + KviRegisteredChannel * ch = g_pRegisteredChannelDataBase->find(szChan,szNetwork); + c->returnValue()->setBoolean(ch); + return true; +} + +/* + @doc: regchan.find + @type: + function + @title: + $regchan.find + @short: + Checks if a channel is registered + @syntax: + $regchan.find(,) + @description: + Returns 1 if the channel identified by and + is registered and 0 otherwise. This function is similar to $regchan.match + but for $regchan.find the second parameter is the exact netmask + of the registered channel entry. + @examples: + [example] + echo $regchan.find(#kvirc,IRCNet) + echo $regchan.find(#kvirc,*) + [/example] + @seealso: + [fnc]$regchan.match[/fnc] +*/ + +static bool regchan_kvs_fnc_find(KviKvsModuleFunctionCall * c) +{ + QString szChan,szNetmask; + KVSM_PARAMETERS_BEGIN(c) + KVSM_PARAMETER("channel name",KVS_PT_STRING,0,szChan) + KVSM_PARAMETER("netmask",KVS_PT_STRING,0,szNetmask) + KVSM_PARAMETERS_END(c) + KviRegisteredChannel * ch = g_pRegisteredChannelDataBase->find(szChan,szNetmask); + c->returnValue()->setBoolean(ch); + return true; +} + +static bool regchan_module_init(KviModule * m) +{ + KVSM_REGISTER_SIMPLE_COMMAND(m,"add",regchan_kvs_cmd_add); + KVSM_REGISTER_SIMPLE_COMMAND(m,"showlist",regchan_kvs_cmd_showlist); + KVSM_REGISTER_SIMPLE_COMMAND(m,"remove",regchan_kvs_cmd_remove); + KVSM_REGISTER_SIMPLE_COMMAND(m,"setProperty",regchan_kvs_cmd_setProperty); + KVSM_REGISTER_FUNCTION(m,"property",regchan_kvs_fnc_property); + KVSM_REGISTER_FUNCTION(m,"match",regchan_kvs_fnc_match); + KVSM_REGISTER_FUNCTION(m,"find",regchan_kvs_fnc_find); + KVSM_REGISTER_FUNCTION(m,"list",regchan_kvs_fnc_list); + + return true; +} + +static bool regchan_module_cleanup(KviModule *m) +{ + return true; +} + +static bool regchan_module_can_unload(KviModule *) +{ + return true; +} + +KVIRC_MODULE( + "RegChan", // module name + "1.0.0", // module version + "Copyright (C) 2002 Szymon Stefanek (pragma at kvirc dot net)", // author & (C) + "Script interface to the registered channels database", + regchan_module_init, + regchan_module_can_unload, + 0, + regchan_module_cleanup +) -- cgit v1.2.1