Merged from silc_1_0_branch.
[silc.git] / apps / irssi / src / silc / core / silc-core.c
index 7afa379ba7805c3267e8c7d38cbd72b9641a8090..eeea2685303e9ffbbe7e6f804c490d114d8c6fb0 100644 (file)
@@ -1,5 +1,26 @@
+/*
+
+  silc-core.c
+
+  Author: Pekka Riikonen <priikone@poseidon.pspt.fi>
+
+  Copyright (C) 2001 Pekka Riikonen
+
+  This program is free software; you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation; either version 2 of the License, or
+  (at your option) any later version.
+  
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+*/
+
 #include "module.h"
 #include "chat-protocols.h"
+#include "args.h"
 
 #include "chatnets.h"
 #include "servers-setup.h"
 #include "silc-channels.h"
 #include "silc-queries.h"
 #include "silc-nicklist.h"
-#include "version_internal.h"
 
 #include "signals.h"
 #include "levels.h"
 #include "settings.h"
 #include "fe-common/core/printtext.h"
 #include "fe-common/core/fe-channels.h"
+#include "fe-common/core/keyboard.h"
+#include "fe-common/silc/module-formats.h"
 
-#define SILC_CLIENT_PUBLIC_KEY_NAME "public_key.pub"
-#define SILC_CLIENT_PRIVATE_KEY_NAME "private_key.prv"
-
-#define SILC_CLIENT_DEF_PKCS "rsa"
-#define SILC_CLIENT_DEF_PKCS_LEN 1024
-
-SilcClient silc_client;
-const char *silc_version_string = SILC_PROTOCOL_VERSION_STRING;
+/* Command line option variables */
+static char *opt_pkcs = NULL;
+static int opt_bits = 0;
 
 static int idletag;
 
+SilcClient silc_client = NULL;
 extern SilcClientOperations ops;
+extern bool silc_debug;
+extern bool silc_debug_hexdump;
 
-static void silc_say(SilcClient client, SilcClientConnection conn,
-                    char *msg, ...)
-{
-       SILC_SERVER_REC *server;
-       va_list va;
-       char *str;
-
-       server = conn == NULL ? NULL : conn->context;
+void silc_expandos_init(void);
+void silc_expandos_deinit(void);
 
-       va_start(va, msg);
-       str = g_strdup_vprintf(msg, va);
-       printtext(server, "#silc", MSGLEVEL_CRAP, "%s", str);
-       g_free(str);
-       va_end(va);
-}
-
-static void silc_channel_message(SilcClient c, SilcClientConnection conn,
-                                SilcClientEntry client,
-                                SilcChannelEntry channel, char *msg)
+static int my_silc_scheduler(void)
 {
-       SILC_SERVER_REC *server;
-       SILC_NICK_REC *nick;
-        SILC_CHANNEL_REC *chanrec;
-
-       server = conn == NULL ? NULL : conn->context;
-       chanrec = silc_channel_find_entry(server, channel);
-
-       nick = client == NULL ? NULL : silc_nicklist_find(chanrec, client);
-       signal_emit("message public", 6, server, msg,
-                   nick == NULL ? "(unknown)" : nick->nick,
-                   nick == NULL ? NULL : nick->host,
-                   chanrec->name, nick);
+  silc_client_run_one(silc_client);
+  return 1;
 }
 
-static void silc_private_message(SilcClient c, SilcClientConnection conn,
-                                SilcClientEntry client, char *msg)
+static CHATNET_REC *create_chatnet(void)
 {
-       SILC_SERVER_REC *server;
-
-       server = conn == NULL ? NULL : conn->context;
-       signal_emit("message private", 4, server, msg,
-                   client == NULL ? "(unknown)" : client->nickname,
-                   client == NULL ? NULL : client->username);
+  return g_malloc0(sizeof(CHATNET_REC));
 }
 
-typedef struct {
-       int type;
-       const char *name;
-} NOTIFY_REC;
-
-#define MAX_NOTIFY (sizeof(notifies)/sizeof(notifies[0]))
-static NOTIFY_REC notifies[] = {
-       { SILC_NOTIFY_TYPE_NONE,                NULL },
-       { SILC_NOTIFY_TYPE_INVITE,              "invite" },
-       { SILC_NOTIFY_TYPE_JOIN,                "join" },
-       { SILC_NOTIFY_TYPE_LEAVE,               "leave" },
-       { SILC_NOTIFY_TYPE_SIGNOFF,             "signoff" },
-       { SILC_NOTIFY_TYPE_TOPIC_SET,           "topic" },
-       { SILC_NOTIFY_TYPE_NICK_CHANGE,         "nick" },
-       { SILC_NOTIFY_TYPE_CMODE_CHANGE,        "cmode" },
-       { SILC_NOTIFY_TYPE_CUMODE_CHANGE,       "cumode" },
-       { SILC_NOTIFY_TYPE_MOTD,                "motd" }
-};
-
-static void silc_notify(SilcClient client, SilcClientConnection conn,
-                        SilcNotifyType type, ...)
+static SERVER_SETUP_REC *create_server_setup(void)
 {
-       SILC_SERVER_REC *server;
-       va_list va;
-
-       server = conn == NULL ? NULL : conn->context;
-       va_start(va, type);
-
-       if (type == SILC_NOTIFY_TYPE_NONE) {
-               /* some generic notice from server */
-               printtext(server, NULL, MSGLEVEL_CRAP, "%s",
-                         (char *) va_arg(va, char *));
-       } else if (type < MAX_NOTIFY) {
-               /* send signal about the notify event */
-               char signal[50];
-
-               g_snprintf(signal, sizeof(signal), "silc event %s",
-                          notifies[type].name);
-               signal_emit(signal, 2, server, va);
-       } else {
-               /* unknown notify */
-               printtext(server, NULL, MSGLEVEL_CRAP,
-                         "Unknown notify %d", type);
-       }
-       va_end(va);
+  return g_malloc0(sizeof(SERVER_SETUP_REC));
 }
 
-static void silc_connect(SilcClient client, SilcClientConnection conn, int success)
+static CHANNEL_SETUP_REC *create_channel_setup(void)
 {
-       SILC_SERVER_REC *server = conn->context;
-
-       if (success) {
-               server->connected = TRUE;
-               signal_emit("event connected", 1, server);
-       } else {
-               server->connection_lost = TRUE;
-                server->conn->context = NULL;
-               server_disconnect(SERVER(server));
-       }
+  return g_malloc0(sizeof(CHANNEL_SETUP_REC));
 }
 
-static void silc_disconnect(SilcClient client, SilcClientConnection conn)
+static SERVER_CONNECT_REC *create_server_connect(void)
 {
-       SILC_SERVER_REC *server = conn->context;
-
-       server->conn->context = NULL;
-       server->conn = NULL;
-       server->connection_lost = TRUE;
-       server_disconnect(SERVER(server));
+  return g_malloc0(sizeof(SILC_SERVER_CONNECT_REC));
 }
 
-static void silc_command(SilcClient client, SilcClientConnection conn,
-                        SilcClientCommandContext cmd_context, int success,
-                        SilcCommand command)
+static void destroy_server_connect(SERVER_CONNECT_REC *conn)
 {
-}
 
-static void silc_command_reply(SilcClient client, SilcClientConnection conn,
-                              SilcCommandPayload cmd_payload, int success,
-                              SilcCommand command,
-                              SilcCommandStatus status, ...)
-{
-        SILC_SERVER_REC *server = conn->context;
-       SILC_CHANNEL_REC *chanrec;
-       va_list va;
-
-       va_start(va, status);
-
-       /*g_snprintf(signal, sizeof(signal), "silc command reply %s",
-                  silc_commands[type]);
-       signal_emit(signal, 2, server, va);*/
-
-       switch(command) {
-       case SILC_COMMAND_JOIN: {
-               char *channel, *mode;
-
-               channel = va_arg(va, char *);
-               (void)va_arg(va, SilcChannelEntry);
-               mode = silc_client_chmode(va_arg(va, unsigned int));
-
-               chanrec = silc_channel_find(server, channel);
-               if (chanrec != NULL && !success)
-                       channel_destroy(CHANNEL(chanrec));
-               else if (chanrec == NULL && success)
-                       chanrec = silc_channel_create(server, channel, TRUE);
-
-               g_free_not_null(chanrec->mode);
-               chanrec->mode = g_strdup(mode == NULL ? "" : mode);
-               signal_emit("channel mode changed", 1, chanrec);
-               break;
-       }
-       case SILC_COMMAND_NICK: {
-               SilcClientEntry client = va_arg(va, SilcClientEntry);
-                char *old;
-
-                old = g_strdup(server->nick);
-               server_change_nick(SERVER(server), client->nickname);
-               nicklist_rename_unique(SERVER(server),
-                                      server->conn->local_entry, server->nick,
-                                       client, client->nickname);
-
-               signal_emit("message own_nick", 4,
-                           server, server->nick, old, "");
-                g_free(old);
-               break;
-       }
-       case SILC_COMMAND_USERS: {
-               SilcChannelEntry channel;
-               SilcChannelUser user;
-                NICK_REC *ownnick;
-
-               channel = va_arg(va, SilcChannelEntry);
-               chanrec = silc_channel_find_entry(server, channel);
-               if (chanrec == NULL)
-                       break;
-
-               silc_list_start(channel->clients);
-               while ((user = silc_list_get(channel->clients)) != NULL)
-                       silc_nicklist_insert(chanrec, user, FALSE);
-
-                ownnick = NICK(silc_nicklist_find(chanrec, conn->local_entry));
-               nicklist_set_own(CHANNEL(chanrec), ownnick);
-                signal_emit("channel joined", 1, chanrec);
-               fe_channels_nicklist(CHANNEL(chanrec),
-                                    CHANNEL_NICKLIST_FLAG_ALL);
-               break;
-       }
-       }
-
-       va_end(va);
 }
 
-static int silc_verify_server_key(SilcClient client, SilcClientConnection conn,
-                                 unsigned char *pk, unsigned int pk_len,
-                                 SilcSKEPKType pk_type)
-{
-       return TRUE;
-}
+/* Checks user information and saves them to the config file it they
+   do not exist there already. */
 
-static unsigned char *silc_ask_passphrase(SilcClient client,
-                                         SilcClientConnection conn)
+static void silc_init_userinfo(void)
 {
-       return NULL;
+  const char *set, *nick, *user_name;
+  char *str;   
+        
+  /* check if nick/username/realname wasn't read from setup.. */
+  set = settings_get_str("real_name");
+  if (set == NULL || *set == '\0') {
+    str = g_getenv("SILCNAME");
+    if (!str)
+      str = g_getenv("IRCNAME");
+    settings_set_str("real_name",
+                    str != NULL ? str : silc_get_real_name());
+  }
+  /* username */
+  user_name = settings_get_str("user_name");
+  if (user_name == NULL || *user_name == '\0') {
+    str = g_getenv("SILCUSER");
+    if (!str)
+      str = g_getenv("IRCUSER");
+    settings_set_str("user_name",
+                    str != NULL ? str : silc_get_username());
+
+    user_name = settings_get_str("user_name");
+  }
+
+  /* nick */
+  nick = settings_get_str("nick");
+  if (nick == NULL || *nick == '\0') {
+    str = g_getenv("SILCNICK");
+    if (!str)
+      str = g_getenv("IRCNICK");
+    settings_set_str("nick", str != NULL ? str : user_name);
+    
+    nick = settings_get_str("nick");
+  }
+                
+  /* alternate nick */
+  set = settings_get_str("alternate_nick");
+  if (set == NULL || *set == '\0') {
+    str = g_strconcat(nick, "_", NULL);
+    settings_set_str("alternate_nick", str);
+    g_free(str);
+  }
+
+  /* host name */
+  set = settings_get_str("hostname");
+  if (set == NULL || *set == '\0') {
+    str = g_getenv("SILCHOST");
+    if (!str)
+      str = g_getenv("IRCHOST");
+    if (str != NULL)
+      settings_set_str("hostname", str);
+  }
 }
 
-static int silc_get_auth_method(SilcClient client, SilcClientConnection conn,
-                               char *hostname, unsigned short port,
-                               SilcProtocolAuthMeth *auth_meth,
-                               unsigned char **auth_data,
-                               unsigned int *auth_data_len)
+#ifdef SILC_DEBUG
+static bool i_debug;
+static bool silc_irssi_debug_print(char *file, char *function, int line,
+                                  char *message, void *context)
 {
-       return FALSE;
+  printtext(NULL, NULL, MSGLEVEL_CLIENTCRAP,
+           "DEBUG: %s:%d: %s", function, line, message);
+  return TRUE;
 }
+#endif
 
-static void silc_failure(SilcClient client, SilcClientConnection conn,
-                        SilcProtocol protocol, void *failure)
+static void sig_setup_changed(void)
 {
+#ifdef SILC_DEBUG
+  bool debug = settings_get_bool("debug");
+  if (debug) {
+    const char *debug_string = settings_get_str("debug_string");
+    i_debug = silc_debug = TRUE;
+    if (strlen(debug_string))
+      silc_log_set_debug_string(debug_string);
+    silc_log_set_debug_callbacks(silc_irssi_debug_print, NULL, NULL, NULL);
+    return;
+  }
+  if (i_debug)
+    silc_debug = FALSE;
+#endif
 }
 
-static int key_agreement(SilcClient client, SilcClientConnection conn,
-                        SilcClientEntry client_entry, char *hostname,
-                        int port)
-{
-        return FALSE;
-}
+/* Log callbacks */
 
-SilcClientOperations ops = {
-       silc_say,
-       silc_channel_message,
-       silc_private_message,
-       silc_notify,
-       silc_command,
-       silc_command_reply,
-       silc_connect,
-       silc_disconnect,
-       silc_get_auth_method,
-       silc_verify_server_key,
-       silc_ask_passphrase,
-       silc_failure,
-        key_agreement
-};
-
-/* Loads public and private key from files. */
-
-static void silc_client_create_key_pair(char *pkcs_name, int bits,
-                                       char *identifier,
-                                       SilcPublicKey *pub_key,
-                                       SilcPrivateKey *prv_key)
+static bool silc_log_misc(SilcLogType type, char *message, void *context)
 {
-       SilcPKCS pkcs;
-       SilcRng rng;
-       unsigned char *key;
-       unsigned int key_len;
-
-       rng = silc_rng_alloc();
-       silc_rng_init(rng);
-       silc_rng_global_init(rng);
-
-       silc_pkcs_alloc(pkcs_name, &pkcs);
-       pkcs->pkcs->init(pkcs->context, bits, rng);
-
-       /* Create public key */
-       key = silc_pkcs_get_public_key(pkcs, &key_len);
-       *pub_key = silc_pkcs_public_key_alloc(pkcs->pkcs->name, identifier,
-                                             key, key_len);
-
-       memset(key, 0, sizeof(key_len));
-       silc_free(key);
-
-       /* Create private key */
-       key = silc_pkcs_get_private_key(pkcs, &key_len);
-       *prv_key = silc_pkcs_private_key_alloc(pkcs->pkcs->name, key, key_len);
-
-       memset(key, 0, sizeof(key_len));
-       silc_free(key);
-
-       silc_rng_free(rng);
-       silc_pkcs_free(pkcs);
+  printtext(NULL, NULL, MSGLEVEL_CLIENTCRAP, "%s: %s", 
+           (type == SILC_LOG_INFO ? "[Info]" :
+            type == SILC_LOG_WARNING ? "[Warning]" : "[Error]"), message);
+  return TRUE;
 }
 
-static int read_keyfiles(SilcClient client, char *public_file,
-                        char *private_file)
+static void silc_nickname_format_parse(const char *nickname,
+                                      char **ret_nickname)
 {
-       struct stat statbuf;
-
-       if (stat(public_file, &statbuf) != 0 ||
-           stat(private_file, &statbuf) != 0)
-               return FALSE;
-
-       if (!silc_pkcs_load_private_key(private_file, &client->private_key,
-                                       SILC_PKCS_FILE_BIN) &&
-           !silc_pkcs_load_private_key(private_file, &client->private_key,
-                                       SILC_PKCS_FILE_PEM))
-               return FALSE;
-
-       if (!silc_pkcs_load_public_key(public_file, &client->public_key,
-                                      SILC_PKCS_FILE_PEM) &&
-           !silc_pkcs_load_public_key(public_file, &client->public_key,
-                                      SILC_PKCS_FILE_BIN))
-               return FALSE;
-
-       return TRUE;
+  silc_parse_userfqdn(nickname, ret_nickname, NULL);
 }
 
-static char *silc_create_identifier(SilcClient client)
+static void silc_register_cipher(SilcClient client, const char *cipher)
 {
-       char hostname[256], *email, *ret;
-
-       if (gethostname(hostname, sizeof(hostname)) != 0)
-               hostname[0] = '\0';
-
-       email = g_strdup_printf("%s@%s", client->username, hostname);
-       ret = silc_pkcs_encode_identifier(client->username, hostname,
-                                         client->realname, email,
-                                         NULL, NULL);
-       g_free(email);
-       return ret;
+  int i;
+
+  if (cipher) {
+    for (i = 0; silc_default_ciphers[i].name; i++)
+      if (!strcmp(silc_default_ciphers[i].name, cipher)) {
+       silc_cipher_register(&(silc_default_ciphers[i]));
+       break;
+      }
+    
+    if (!silc_cipher_is_supported(cipher)) {
+      SILC_LOG_ERROR(("Unknown cipher `%s'", cipher));
+      exit(1);
+    }
+  }
+
+  /* Register other defaults */
+  silc_cipher_register_default();
 }
 
-static int load_keys(SilcClient client)
+static void silc_register_hash(SilcClient client, const char *hash)
 {
-       char *public_file, *private_file;
-       char *identifier;
-
-       public_file = g_strdup_printf("%s/.irssi/%s", g_get_home_dir(),
-                                     SILC_CLIENT_PUBLIC_KEY_NAME);
-       private_file = g_strdup_printf("%s/.irssi/%s", g_get_home_dir(),
-                                      SILC_CLIENT_PRIVATE_KEY_NAME);
-
-       if (!read_keyfiles(client, public_file, private_file)) {
-               /* couldn't read key files, recreate them */
-               identifier = silc_create_identifier(client);
-               silc_client_create_key_pair(SILC_CLIENT_DEF_PKCS,
-                                           SILC_CLIENT_DEF_PKCS_LEN,
-                                           identifier,
-                                           &client->public_key,
-                                           &client->private_key);
-               silc_free(identifier);
-
-               silc_pkcs_save_public_key(public_file, client->public_key,
-                                         SILC_PKCS_FILE_PEM);
-               silc_pkcs_save_private_key(private_file, client->private_key,
-                                          NULL, SILC_PKCS_FILE_BIN);
-       }
-
-       g_free(public_file);
-       g_free(private_file);
-       return TRUE;
+  int i;
+
+  if (hash) {
+    for (i = 0; silc_default_hash[i].name; i++)
+      if (!strcmp(silc_default_hash[i].name, hash)) {
+       silc_hash_register(&(silc_default_hash[i]));
+       break;
+      }
+    
+    if (!silc_hash_is_supported(hash)) {
+      SILC_LOG_ERROR(("Unknown hash function `%s'", hash));
+      exit(1);
+    }
+  }
+
+  /* Register other defaults */
+  silc_hash_register_default();
 }
 
-static int my_silc_scheduler(void)
+static void silc_register_hmac(SilcClient client, const char *hmac)
 {
-       silc_schedule_one(0);
-       return 1;
+  int i;
+
+  if (hmac) {
+    for (i = 0; silc_default_hmacs[i].name; i++)
+      if (!strcmp(silc_default_hmacs[i].name, hmac)) {
+       silc_hmac_register(&(silc_default_hmacs[i]));
+       break;
+      }
+    
+    if (!silc_hmac_is_supported(hmac)) {
+      SILC_LOG_ERROR(("Unknown HMAC `%s'", hmac));
+      exit(1);
+    }
+  }
+
+  /* Register other defaults */
+  silc_hmac_register_default();
 }
 
-static CHATNET_REC *create_chatnet(void)
-{
-        return g_malloc0(sizeof(CHATNET_REC));
-}
+/* Finalize init. Init finish signal calls this. */
 
-static SERVER_SETUP_REC *create_server_setup(void)
+void silc_opt_callback(poptContext con, 
+                      enum poptCallbackReason reason,
+                      const struct poptOption *opt,
+                      const char *arg, void *data)
 {
-        return g_malloc0(sizeof(SERVER_SETUP_REC));
+  if (strcmp(opt->longName, "list-ciphers") == 0) {
+    silc_cipher_register_default();
+    silc_client_list_ciphers();
+    exit(0);
+  }
+
+  if (strcmp(opt->longName, "list-hash-funcs") == 0) {
+    silc_hash_register_default();
+    silc_client_list_hash_funcs();
+    exit(0);
+  }
+
+  if (strcmp(opt->longName, "list-hmacs") == 0) {
+    silc_hmac_register_default();
+    silc_client_list_hmacs();
+    exit(0);
+  }
+
+  if (strcmp(opt->longName, "list-pkcs") == 0) {
+    silc_pkcs_register_default();
+    silc_client_list_pkcs();
+    exit(0);
+  }
+
+  if (strcmp(opt->longName, "debug") == 0) {
+    silc_debug = TRUE;
+    silc_debug_hexdump = TRUE;
+    silc_log_set_debug_string(arg);
+#ifndef SILC_DEBUG
+    fprintf(stdout, 
+           "Run-time debugging is not enabled. To enable it recompile\n"
+           "the client with --enable-debug configuration option.\n");
+    sleep(1);
+#endif
+  }
+
+  if (strcmp(opt->longName, "create-key-pair") == 0) {
+    /* Create new key pair and exit */
+    silc_cipher_register_default();
+    silc_pkcs_register_default();
+    silc_hash_register_default();
+    silc_hmac_register_default();
+    silc_create_key_pair(opt_pkcs, opt_bits, NULL, NULL, NULL,
+                        NULL, NULL, NULL, NULL, TRUE);
+    exit(0);
+  }
+
+  if (strcmp(opt->longName, "passphrase-change") == 0) {
+    /* Change the passphrase of the private key file */
+    silc_cipher_register_default();
+    silc_pkcs_register_default();
+    silc_hash_register_default();
+    silc_hmac_register_default();
+    silc_change_private_key_passphrase(arg, NULL, NULL);
+    exit(0);
+  }
+
+  if (strcmp(opt->longName, "show-key") == 0) {
+    /* Dump the key */
+    silc_cipher_register_default();
+    silc_pkcs_register_default();
+    silc_hash_register_default();
+    silc_hmac_register_default();
+    silc_show_public_key((char *)arg);
+    exit(0);
+  }
 }
 
-static CHANNEL_SETUP_REC *create_channel_setup(void)
+static void sig_init_finished(void)
 {
-        return g_malloc0(sizeof(CHANNEL_SETUP_REC));
+  /* Check ~/.silc directory and public and private keys */
+  if (!silc_client_check_silc_dir()) {
+    idletag = -1;
+    exit(1);
+  }
+
+  /* Load public and private key */
+  if (!silc_client_load_keys(silc_client)) {
+    idletag = -1;
+    exit(1);
+  }
+
+  /* Initialize the SILC client */
+  if (!silc_client_init(silc_client)) {
+    idletag = -1;
+    exit(1);
+  }
 }
 
-static SERVER_CONNECT_REC *create_server_connect(void)
-{
-        return g_malloc0(sizeof(SILC_SERVER_CONNECT_REC));
-}
+/* Init SILC. Called from src/fe-text/silc.c */
 
-/* Command line option variables */
 void silc_core_init(void)
 {
-       CHAT_PROTOCOL_REC *rec;
-
-       silc_client = silc_client_alloc(&ops, NULL);
-       silc_client->username = g_strdup(settings_get_str("user_name"));
-       silc_client->hostname = silc_net_localhost();
-       silc_client->realname = g_strdup(settings_get_str("real_name"));
-
-       if (!load_keys(silc_client)) {
-               idletag = -1;
-               return;
-       }
-
-       silc_client_init(silc_client);
-
-       rec = g_new0(CHAT_PROTOCOL_REC, 1);
-       rec->name = "SILC";
-       rec->fullname = "Secure Internet Live Conferencing";
-       rec->chatnet = "silcnet";
-
-       rec->create_chatnet = create_chatnet;
-        rec->create_server_setup = create_server_setup;
-        rec->create_channel_setup = create_channel_setup;
-       rec->create_server_connect = create_server_connect;
-
-       rec->server_connect = (SERVER_REC *(*) (SERVER_CONNECT_REC *))
-               silc_server_connect;
-       rec->channel_create =
-               (CHANNEL_REC *(*) (SERVER_REC *, const char *, int))
-                silc_channel_create;
-       rec->query_create =
-               (QUERY_REC *(*) (const char *, const char *, int))
-                silc_query_create;
-
-       chat_protocol_register(rec);
-       g_free(rec);
-
-       silc_server_init();
-       silc_channels_init();
-       silc_queries_init();
-
-       idletag = g_timeout_add(100, (GSourceFunc) my_silc_scheduler, NULL);
+  static struct poptOption silc_options[] = {
+    { NULL, '\0', POPT_ARG_CALLBACK, (void *)&silc_opt_callback, '\0', NULL },
+    { "list-ciphers", 0, POPT_ARG_NONE, NULL, 0,
+      "List supported ciphers", NULL },
+    { "list-hash-funcs", 0, POPT_ARG_NONE, NULL, 0,
+      "List supported hash functions", NULL },
+    { "list-hmacs", 0, POPT_ARG_NONE, NULL, 0,
+      "List supported HMACs", NULL },
+    { "list-pkcs", 0, POPT_ARG_NONE, NULL, 0,
+      "List supported PKCSs", NULL },
+    { "debug", 'd', POPT_ARG_STRING, NULL, 0,
+      "Enable debugging", "STRING" },
+    { "create-key-pair", 'C', POPT_ARG_NONE, NULL, 0,
+      "Create new public key pair", NULL },
+    { "pkcs", 0, POPT_ARG_STRING, &opt_pkcs, 0,
+      "Set the PKCS of the public key pair (-C)", "PKCS" },
+    { "bits", 0, POPT_ARG_INT, &opt_bits, 0,
+      "Set the length of the public key pair (-C)", "VALUE" },
+    { "passphrase-change", 'P', POPT_ARG_STRING, NULL, 0,
+      "Change the passphrase of private key file", "FILE" },
+    { "show-key", 'S', POPT_ARG_STRING, NULL, 0,
+      "Show the contents of the public key", "FILE" },
+    { NULL, '\0', 0, NULL }
+  };
+
+  CHAT_PROTOCOL_REC *rec;
+  SilcClientParams params;
+  const char *def_cipher, *def_hash, *def_hmac;
+
+  args_register(silc_options);
+
+  /* Settings */
+  settings_add_bool("server", "skip_motd", FALSE);
+  settings_add_str("server", "alternate_nick", NULL);
+  settings_add_bool("server", "use_auto_addr", FALSE);
+  settings_add_str("server", "auto_bind_ip", "");
+  settings_add_str("server", "auto_public_ip", "");
+  settings_add_int("server", "auto_bind_port", 0);
+  settings_add_str("server", "crypto_default_cipher", SILC_DEFAULT_CIPHER);
+  settings_add_str("server", "crypto_default_hash", SILC_DEFAULT_HASH);
+  settings_add_str("server", "crypto_default_hmac", SILC_DEFAULT_HMAC);
+  settings_add_int("server", "key_exchange_timeout_secs", 120);
+  settings_add_int("server", "key_exchange_rekey_secs", 3600);
+  settings_add_int("server", "connauth_request_secs", 2);
+  settings_add_int("server", "heartbeat", 300);
+  settings_add_bool("server", "ignore_message_signatures", FALSE);
+
+  /* Requested Attributes settings */
+  settings_add_bool("silc", "attr_allow", TRUE);
+  settings_add_str("silc", "attr_vcard", "");
+  settings_add_str("silc", "attr_services", "");
+  settings_add_str("silc", "attr_status_mood", "NORMAL");
+  settings_add_str("silc", "attr_status_text", "");
+  settings_add_str("silc", "attr_status_message", NULL);
+  settings_add_str("silc", "attr_preferred_language", "");
+  settings_add_str("silc", "attr_preferred_contact", "CHAT");
+  settings_add_bool("silc", "attr_timezone", TRUE);
+  settings_add_str("silc", "attr_geolocation", "");
+  settings_add_str("silc", "attr_device_info", NULL);
+  settings_add_str("silc", "attr_public_keys", "");
+
+#ifdef SILC_DEBUG
+  settings_add_bool("debug", "debug", FALSE);
+  settings_add_str("debug", "debug_string", "");
+#endif
+
+  signal_add("setup changed", (SIGNAL_FUNC) sig_setup_changed);
+  signal_add("irssi init finished", (SIGNAL_FUNC) sig_init_finished);
+
+  silc_init_userinfo();
+
+  /* Initialize client parameters */
+  memset(&params, 0, sizeof(params));
+  strcat(params.nickname_format, "%n@%h%a");
+  params.nickname_parse = silc_nickname_format_parse;
+  params.rekey_secs = settings_get_int("key_exchange_rekey_secs");
+  params.connauth_request_secs = settings_get_int("connauth_request_secs");
+
+  /* Allocate SILC client */
+  silc_client = silc_client_alloc(&ops, &params, NULL, silc_version_string);
+
+  /* Get the ciphers and stuff from config file */
+  def_cipher = settings_get_str("crypto_default_cipher");
+  def_hash = settings_get_str("crypto_default_hash");
+  def_hmac = settings_get_str("crypto_default_hmac");
+  silc_register_cipher(silc_client, def_cipher);
+  silc_register_hash(silc_client, def_hash);
+  silc_register_hmac(silc_client, def_hmac);
+  silc_pkcs_register_default();
+
+  /* Get user information */
+  silc_client->username = g_strdup(settings_get_str("user_name"));
+  silc_client->nickname = g_strdup(settings_get_str("nick"));
+  silc_client->hostname = silc_net_localhost();
+  silc_client->realname = g_strdup(settings_get_str("real_name"));
+
+  silc_log_set_callback(SILC_LOG_INFO, silc_log_misc, NULL);
+  silc_log_set_callback(SILC_LOG_WARNING, silc_log_misc, NULL);
+  silc_log_set_callback(SILC_LOG_ERROR, silc_log_misc, NULL);
+  silc_log_set_callback(SILC_LOG_FATAL, silc_log_misc, NULL);
+
+  /* Register SILC to the irssi */
+  rec = g_new0(CHAT_PROTOCOL_REC, 1);
+  rec->name = "SILC";
+  rec->fullname = "Secure Internet Live Conferencing";
+  rec->chatnet = "silcnet";
+  rec->create_chatnet = create_chatnet;
+  rec->create_server_setup = create_server_setup;
+  rec->create_channel_setup = create_channel_setup;
+  rec->create_server_connect = create_server_connect;
+  rec->destroy_server_connect = destroy_server_connect;
+  rec->server_init_connect = silc_server_init_connect; 
+  rec->server_connect = silc_server_connect;
+  rec->channel_create = (CHANNEL_REC *(*) (SERVER_REC *, const char *, 
+                                          const char *, int))
+    silc_channel_create;
+  rec->query_create = (QUERY_REC *(*) (const char *, const char *, int))
+    silc_query_create;
+  
+  chat_protocol_register(rec);
+  g_free(rec);
+
+  silc_server_init();
+  silc_channels_init();
+  silc_queries_init();
+  silc_expandos_init();
+
+  idletag = g_timeout_add(5, (GSourceFunc) my_silc_scheduler, NULL);
+
+  module_register("silc", "core");
 }
 
+/* Deinit SILC. Called from src/fe-text/silc.c */
+
 void silc_core_deinit(void)
 {
-       if (idletag != -1) {
-               signal_emit("chat protocol deinit", 1,
-                           chat_protocol_find("SILC"));
-
-               silc_server_deinit();
-               silc_channels_deinit();
-               silc_queries_deinit();
-
-               chat_protocol_unregister("SILC");
-
-               g_source_remove(idletag);
-       }
-
-       g_free(silc_client->username);
-       g_free(silc_client->realname);
-       silc_client_free(silc_client);
+  if (idletag != -1) {
+    signal_emit("chat protocol deinit", 1,
+               chat_protocol_find("SILC"));
+    signal_remove("setup changed", (SIGNAL_FUNC) sig_setup_changed);
+    signal_remove("irssi init finished", (SIGNAL_FUNC) sig_init_finished);
+
+    silc_server_deinit();
+    silc_channels_deinit();
+    silc_queries_deinit();
+    silc_expandos_deinit();
+    
+    chat_protocol_unregister("SILC");
+    
+    g_source_remove(idletag);
+  }
+  
+  g_free(silc_client->username);
+  g_free(silc_client->realname);
+  silc_free(silc_client->hostname);
+  silc_pkcs_free(silc_client->pkcs);
+  silc_pkcs_private_key_free(silc_client->private_key);
+  silc_pkcs_public_key_free(silc_client->public_key);
+  silc_client_free(silc_client);
 }