3 static void perl_silc_server_fill_hash(HV *hv, SILC_SERVER_REC *server)
5 perl_server_fill_hash(hv, (SERVER_REC *) server);
7 hv_store(hv, "umode", 5, newSViv(server->umode), 0);
10 MODULE = Irssi::Silc PACKAGE = Irssi::Silc
17 static int initialized = FALSE;
20 if (initialized) return;
21 perl_api_version_check("Irssi::Silc");
24 chat_type = chat_protocol_lookup("SILC");
26 irssi_add_object(module_get_uniq_id("SERVER", 0),
27 chat_type, "Irssi::Silc::Server",
28 (PERL_OBJECT_FUNC) perl_silc_server_fill_hash);
35 irssi_boot(Silc__Channel);
36 irssi_boot(Silc__Query);
37 irssi_boot(Silc__Server);