--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/libpurple/plugins/perl/common/Server.xs Sun Apr 15 03:43:17 2007 +0000
@@ -0,0 +1,216 @@
+#include "module.h"
+
+MODULE = Purple::Serv PACKAGE = Purple::Serv PREFIX = serv_
+PROTOTYPES: ENABLE
+
+
+void
+serv_add_deny(con, a)
+ Purple::Connection con
+ const char * a
+
+void
+serv_add_permit(a, b)
+ Purple::Connection a
+ const char * b
+
+void
+serv_alias_buddy(buddy)
+ Purple::BuddyList::Buddy buddy
+
+void
+serv_chat_invite(con, a, b, c)
+ Purple::Connection con
+ int a
+ const char * b
+ const char * c
+
+void
+serv_chat_leave(a, b)
+ Purple::Connection a
+ int b
+
+int
+serv_chat_send(con, a, b, flags)
+ Purple::Connection con
+ int a
+ const char * b
+ Purple::MessageFlags flags
+
+void
+serv_chat_whisper(con, a, b, c)
+ Purple::Connection con
+ int a
+ const char * b
+ const char * c
+
+void
+serv_get_info(con, a)
+ Purple::Connection con
+ const char * a
+
+void
+serv_got_alias(gc, who, alias)
+ Purple::Connection gc
+ const char *who
+ const char *alias
+
+void
+serv_got_chat_in(g, id, who, chatflags, message, mtime)
+ Purple::Connection g
+ int id
+ const char *who
+ Purple::MessageFlags chatflags
+ const char *message
+ time_t mtime
+
+void
+serv_got_chat_invite(gc, name, who, message, components)
+ Purple::Connection gc
+ const char *name
+ const char *who
+ const char *message
+ SV * components
+INIT:
+ HV * t_HV;
+ HE * t_HE;
+ SV * t_SV;
+ GHashTable * t_GHash;
+ I32 len;
+ char *t_key, *t_value;
+CODE:
+ t_HV = (HV *)SvRV(components);
+ t_GHash = g_hash_table_new(g_str_hash, g_str_equal);
+
+ for (t_HE = hv_iternext(t_HV); t_HE != NULL; t_HE = hv_iternext(t_HV) ) {
+ t_key = hv_iterkey(t_HE, &len);
+ t_SV = *hv_fetch(t_HV, t_key, len, 0);
+ t_value = SvPV(t_SV, PL_na);
+
+ g_hash_table_insert(t_GHash, t_key, t_value);
+ }
+ serv_got_chat_invite(gc, name, who, message, t_GHash);
+
+void
+serv_got_chat_left(g, id)
+ Purple::Connection g
+ int id
+
+void
+serv_got_im(gc, who, msg, imflags, mtime)
+ Purple::Connection gc
+ const char *who
+ const char *msg
+ Purple::MessageFlags imflags
+ time_t mtime
+
+Purple::Conversation
+serv_got_joined_chat(gc, id, name)
+ Purple::Connection gc
+ int id
+ const char *name
+
+void
+serv_got_typing(gc, name, timeout, state)
+ Purple::Connection gc
+ const char *name
+ int timeout
+ Purple::TypingState state
+
+void
+serv_got_typing_stopped(gc, name)
+ Purple::Connection gc
+ const char *name
+
+void
+serv_join_chat(con, components)
+ Purple::Connection con
+ SV * components
+INIT:
+ HV * t_HV;
+ HE * t_HE;
+ SV * t_SV;
+ GHashTable * t_GHash;
+ I32 len;
+ char *t_key, *t_value;
+CODE:
+ t_HV = (HV *)SvRV(components);
+ t_GHash = g_hash_table_new(g_str_hash, g_str_equal);
+
+ for (t_HE = hv_iternext(t_HV); t_HE != NULL; t_HE = hv_iternext(t_HV) ) {
+ t_key = hv_iterkey(t_HE, &len);
+ t_SV = *hv_fetch(t_HV, t_key, len, 0);
+ t_value = SvPV(t_SV, PL_na);
+
+ g_hash_table_insert(t_GHash, t_key, t_value);
+ }
+ serv_join_chat(con, t_GHash);
+
+void
+serv_move_buddy(buddy, group1, group2)
+ Purple::BuddyList::Buddy buddy
+ Purple::BuddyList::Group group1
+ Purple::BuddyList::Group group2
+
+void
+serv_reject_chat(con, components)
+ Purple::Connection con
+ SV * components
+INIT:
+ HV * t_HV;
+ HE * t_HE;
+ SV * t_SV;
+ GHashTable * t_GHash;
+ I32 len;
+ char *t_key, *t_value;
+CODE:
+ t_HV = (HV *)SvRV(components);
+ t_GHash = g_hash_table_new(g_str_hash, g_str_equal);
+
+ for (t_HE = hv_iternext(t_HV); t_HE != NULL; t_HE = hv_iternext(t_HV) ) {
+ t_key = hv_iterkey(t_HE, &len);
+ t_SV = *hv_fetch(t_HV, t_key, len, 0);
+ t_value = SvPV(t_SV, PL_na);
+
+ g_hash_table_insert(t_GHash, t_key, t_value);
+ }
+ serv_reject_chat(con, t_GHash);
+
+void
+serv_rem_deny(con, a)
+ Purple::Connection con
+ const char * a
+
+void
+serv_rem_permit(con, a)
+ Purple::Connection con
+ const char * a
+
+void
+serv_send_file(gc, who, file)
+ Purple::Connection gc
+ const char *who
+ const char *file
+
+int
+serv_send_im(con, a, b, flags )
+ Purple::Connection con
+ const char * a
+ const char * b
+ Purple::MessageFlags flags
+
+int
+serv_send_typing(con, a, state)
+ Purple::Connection con
+ const char * a
+ Purple::TypingState state
+
+void
+serv_set_info(con, a)
+ Purple::Connection con
+ const char * a
+
+void
+serv_set_permit_deny(con)
+ Purple::Connection con
+