zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-17 15:42:26 +02:00
Code Issues Projects Releases Packages Wiki Activity

command() doesn't need cmdchar at start of command anymore.

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@937 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-12-03 04:43:53 +00:00 • committed by cras
commit b3a642e548
2 changed files with 20 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/perl/perl-common.c
View file

@ -30,6 +30,7 @@
#include "module.h"
#include "modules.h"
#include "signals.h"
#include "settings.h"
#include "chat-protocols.h"
#include "servers.h"
@ -189,6 +190,21 @@ void printformat_perl(TEXT_DEST_REC *dest, char *format, char **arglist)
g_free(module);
}
void perl_command(const char *cmd, SERVER_REC *server, WI_ITEM_REC *item)
{
const char *cmdchars;
char *sendcmd = (char *) cmd;
cmdchars = settings_get_str("cmdchars");
if (strchr(cmdchars, *cmd) == NULL) {
/* no command char - let's put it there.. */
sendcmd = g_strdup_printf("%c%s", *cmdchars, cmd);
}
signal_emit("send command", 3, cmd, server, item);
if (sendcmd != cmd) g_free(sendcmd);
}
static void perl_register_protocol(CHAT_PROTOCOL_REC *rec)
{
static char *items[] = {