Merged c0ffee's MIME signal patch.

[silc.git] / apps / irssi / src / perl / perl-common.c

diff --git a/apps/irssi/src/perl/perl-common.c b/apps/irssi/src/perl/perl-common.c
index 72fc557c98f0d1f077cfac93c9e269c1e64b6258..0113bdf3155069948788482d18165b10d6876cd9 100644 (file)
--- a/apps/irssi/src/perl/perl-common.c
+++ b/apps/irssi/src/perl/perl-common.c
@@ -39,6 +39,7 @@
 #include "channels.h"
 #include "queries.h"
 #include "nicklist.h"
+#include "blob.h"
 
 #include "perl-common.h"
 
@@ -229,6 +230,12 @@ void irssi_callXS(void (*subaddr)(CV* cv), CV *cv, SV **mark)
        PUTBACK;
 }
 
+static void perl_blob_fill_hash(HV *hv, BLOB_REC *blob)
+{
+       hv_store(hv, "octets", 6, newSViv(blob->octets), 0);
+       hv_store(hv, "data", 4, newSVpv(blob->data, blob->octets), 0);
+}
+
 void perl_chatnet_fill_hash(HV *hv, CHATNET_REC *chatnet)
 {
        char *type, *chat_type;
@@ -624,6 +631,10 @@ void perl_common_start(void)
        plain_stashes = g_hash_table_new((GHashFunc) g_str_hash,
                                         (GCompareFunc) g_str_equal);
         irssi_add_plains(core_plains);
+       irssi_add_object(module_get_uniq_id("BLOB", 0), 0,
+                       "Irssi::Blob",
+                       (PERL_OBJECT_FUNC) perl_blob_fill_hash);
+
 
         use_protocols = NULL;
        g_slist_foreach(chat_protocols, (GFunc) perl_register_protocol, NULL);