aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
Code

Irssi::Chatnet can now be accessed from perl.

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2055 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-11-18 16:36:31 +00:00 committed by cras
parent c374e628dc
commit 73a3b8d908
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/perl/perl-common.c
View File

@ -34,6 +34,7 @@
#include "window-item-def.h" #include "window-item-def.h"
#include "chat-protocols.h" #include "chat-protocols.h"
#include "chatnets.h"
#include "servers.h" #include "servers.h"
#include "channels.h" #include "channels.h"
#include "queries.h" #include "queries.h"
@ -202,6 +203,29 @@ void irssi_callXS(void (*subaddr)(CV* cv), CV *cv, SV **mark)
PUTBACK; PUTBACK;
} }
void perl_chatnet_fill_hash(HV *hv, CHATNET_REC *chatnet)
{
char *type, *chat_type;
g_return_if_fail(hv != NULL);
g_return_if_fail(chatnet != NULL);
type = "CHATNET";
chat_type = (char *) chat_protocol_find_id(chatnet->chat_type)->name;
hv_store(hv, "type", 4, new_pv(type), 0);
hv_store(hv, "chat_type", 9, new_pv(chat_type), 0);
hv_store(hv, "name", 4, new_pv(chatnet->name), 0);
hv_store(hv, "nick", 4, new_pv(chatnet->nick), 0);
hv_store(hv, "username", 8, new_pv(chatnet->username), 0);
hv_store(hv, "realname", 8, new_pv(chatnet->realname), 0);
hv_store(hv, "own_host", 8, new_pv(chatnet->own_host), 0);
hv_store(hv, "autosendcmd", 11, new_pv(chatnet->autosendcmd), 0);
}
void perl_connect_fill_hash(HV *hv, SERVER_CONNECT_REC *conn) void perl_connect_fill_hash(HV *hv, SERVER_CONNECT_REC *conn)
{ {
char *type, *chat_type; char *type, *chat_type;
@ -481,6 +505,12 @@ static void perl_register_protocol(CHAT_PROTOCOL_REC *rec)
irssi_add_object(type, chat_type, stash, irssi_add_object(type, chat_type, stash,
(PERL_OBJECT_FUNC) perl_nick_fill_hash); (PERL_OBJECT_FUNC) perl_nick_fill_hash);
/* chatnets */
type = module_get_uniq_id("CHATNET", 0);
g_snprintf(stash, sizeof(stash), "Irssi::%s::Chatnet", name);
irssi_add_object(type, chat_type, stash,
(PERL_OBJECT_FUNC) perl_chatnet_fill_hash);
/* server specific */ /* server specific */
type = module_get_uniq_id("SERVER", 0); type = module_get_uniq_id("SERVER", 0);
g_snprintf(stash, sizeof(stash), "Irssi::%s::Server", name); g_snprintf(stash, sizeof(stash), "Irssi::%s::Server", name);