Merged from silc_1_0_branch.
[silc.git] / apps / irssi / src / silc / core / silc-core.c
index 9126d6d90be2a8ba28936d75583c7739eff7a6b3..eeea2685303e9ffbbe7e6f804c490d114d8c6fb0 100644 (file)
 #include "silc-channels.h"
 #include "silc-queries.h"
 #include "silc-nicklist.h"
-#include "version_internal.h"
-#include "version.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"
 
 /* Command line option variables */
-static char *opt_server = NULL;
-static int opt_port = 0;
-static char *opt_nickname = NULL;
-static char *opt_channel = NULL;
-static char *opt_cipher = NULL;
-static char *opt_public_key = NULL;
-static char *opt_private_key = NULL;
-static char *opt_config_file = NULL;
-static bool opt_no_silcrc = FALSE;
-
-static bool opt_create_keypair = FALSE;
 static char *opt_pkcs = NULL;
-static char *opt_keyfile = NULL;
 static int opt_bits = 0;
 
 static int idletag;
 
 SilcClient silc_client = NULL;
-SilcClientConfig silc_config = NULL;
 extern SilcClientOperations ops;
-#ifdef SILC_SIM
-/* SIM (SILC Module) table */
-SilcSimContext **sims = NULL;
-uint32 sims_count = 0;
-#endif
+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;
+void silc_expandos_init(void);
+void silc_expandos_deinit(void);
 
-  server = conn == NULL ? NULL : conn->context;
-  
-  va_start(va, msg);
-  str = g_strdup_vprintf(msg, va);
-  printtext(server, "#silc", MSGLEVEL_CRAP, "%s", str);
-  g_free(str);
-  va_end(va);
+static int my_silc_scheduler(void)
+{
+  silc_client_run_one(silc_client);
+  return 1;
 }
 
-/* Message for a channel. The `sender' is the nickname of the sender 
-   received in the packet. The `channel_name' is the name of the channel. */
-
-static void 
-silc_channel_message(SilcClient client, SilcClientConnection conn,
-                    SilcClientEntry sender, SilcChannelEntry channel,
-                    SilcMessageFlags flags, char *msg)
+static CHATNET_REC *create_chatnet(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 = silc_nicklist_find(chanrec, sender);
-  signal_emit("message public", 6, server, msg,
-             nick == NULL ? "(unknown)" : nick->nick,
-             nick == NULL ? NULL : nick->host,
-             chanrec->name, nick);
+  return g_malloc0(sizeof(CHATNET_REC));
 }
 
-/* Private message to the client. The `sender' is the nickname of the
-   sender received in the packet. */
-
-static void 
-silc_private_message(SilcClient client, SilcClientConnection conn,
-                    SilcClientEntry sender, SilcMessageFlags flags,
-                         char *msg)
+static SERVER_SETUP_REC *create_server_setup(void)
 {
-  SILC_SERVER_REC *server;
-  
-  server = conn == NULL ? NULL : conn->context;
-  signal_emit("message private", 4, server, msg,
-             sender->nickname ? sender->nickname : "(unknown)",
-             sender->username ? sender->username : NULL);
+  return g_malloc0(sizeof(SERVER_SETUP_REC));
 }
 
-/* Notify message to the client. The notify arguments are sent in the
-   same order as servers sends them. The arguments are same as received
-   from the server except for ID's.  If ID is received application receives
-   the corresponding entry to the ID. For example, if Client ID is received
-   application receives SilcClientEntry.  Also, if the notify type is
-   for channel the channel entry is sent to application (even if server
-   does not send it). */
-
-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 CHANNEL_SETUP_REC *create_channel_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(CHANNEL_SETUP_REC));
 }
 
-/* Called to indicate that connection was either successfully established
-   or connecting failed.  This is also the first time application receives
-   the SilcClientConnection objecet which it should save somewhere. */
+static SERVER_CONNECT_REC *create_server_connect(void)
+{
+  return g_malloc0(sizeof(SILC_SERVER_CONNECT_REC));
+}
 
-static void 
-silc_connect(SilcClient client, SilcClientConnection conn, int success)
+static void destroy_server_connect(SERVER_CONNECT_REC *conn)
 {
-  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));
-  }
+
 }
 
-/* Called to indicate that connection was disconnected to the server. */
+/* Checks user information and saves them to the config file it they
+   do not exist there already. */
 
-static void 
-silc_disconnect(SilcClient client, SilcClientConnection conn)
+static void silc_init_userinfo(void)
 {
-       SILC_SERVER_REC *server = conn->context;
+  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);
+  }
 
-       server->conn->context = NULL;
-       server->conn = NULL;
-       server->connection_lost = TRUE;
-       server_disconnect(SERVER(server));
+  /* 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);
+  }
 }
 
-/* Command handler. This function is called always in the command function.
-   If error occurs it will be called as well. `conn' is the associated
-   client connection. `cmd_context' is the command context that was
-   originally sent to the command. `success' is FALSE if error occured
-   during command. `command' is the command being processed. It must be
-   noted that this is not reply from server. This is merely called just
-   after application has called the command. Just to tell application
-   that the command really was processed. */
-
-static void 
-silc_command(SilcClient client, SilcClientConnection conn, 
-            SilcClientCommandContext cmd_context, int success,
-            SilcCommand command)
+#ifdef SILC_DEBUG
+static bool i_debug;
+static bool silc_irssi_debug_print(char *file, char *function, int line,
+                                  char *message, void *context)
 {
+  printtext(NULL, NULL, MSGLEVEL_CLIENTCRAP,
+           "DEBUG: %s:%d: %s", function, line, message);
+  return TRUE;
 }
+#endif
 
-/* Command reply handler. This function is called always in the command reply
-   function. If error occurs it will be called as well. Normal scenario
-   is that it will be called after the received command data has been parsed
-   and processed. The function is used to pass the received command data to
-   the application. 
-
-   `conn' is the associated client connection. `cmd_payload' is the command
-   payload data received from server and it can be ignored. It is provided
-   if the application would like to re-parse the received command data,
-   however, it must be noted that the data is parsed already by the library
-   thus the payload can be ignored. `success' is FALSE if error occured.
-   In this case arguments are not sent to the application. `command' is the
-   command reply being processed. The function has variable argument list
-   and each command defines the number and type of arguments it passes to the
-   application (on error they are not sent). */
-
-static void 
-silc_command_reply(SilcClient client, SilcClientConnection conn,
-                  SilcCommandPayload cmd_payload, int success,
-                  SilcCommand command, SilcCommandStatus status, ...)
-
+static void sig_setup_changed(void)
 {
-  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;
-      uint32 modei;
-      SilcChannelEntry channel_entry;
-      
-      channel = va_arg(va, char *);
-      channel_entry = va_arg(va, SilcChannelEntry);
-      modei = va_arg(va, uint32);
-      mode = silc_client_chmode(modei, channel_entry);
-      
-      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;
-    }
+#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;
   }
-  
-  va_end(va);
+  if (i_debug)
+    silc_debug = FALSE;
+#endif
 }
 
-/* Verifies received public key. If user decides to trust the key it is
-   saved as public server key for later use. If user does not trust the
-   key this returns FALSE. */
+/* Log callbacks */
 
-static int silc_verify_public_key(SilcClient client,
-                                 SilcClientConnection conn, 
-                                 SilcSocketType conn_type,
-                                 unsigned char *pk, uint32 pk_len,
-                                 SilcSKEPKType pk_type)
+static bool silc_log_misc(SilcLogType type, char *message, void *context)
 {
+  printtext(NULL, NULL, MSGLEVEL_CLIENTCRAP, "%s: %s", 
+           (type == SILC_LOG_INFO ? "[Info]" :
+            type == SILC_LOG_WARNING ? "[Warning]" : "[Error]"), message);
   return TRUE;
 }
 
-/* Asks passphrase from user on the input line. */
-
-static unsigned char *silc_ask_passphrase(SilcClient client,
-                                         SilcClientConnection conn)
+static void silc_nickname_format_parse(const char *nickname,
+                                      char **ret_nickname)
 {
-       return NULL;
+  silc_parse_userfqdn(nickname, ret_nickname, NULL);
 }
 
-/* Find authentication method and authentication data by hostname and
-   port. The hostname may be IP address as well. The found authentication
-   method and authentication data is returned to `auth_meth', `auth_data'
-   and `auth_data_len'. The function returns TRUE if authentication method
-   is found and FALSE if not. `conn' may be NULL. */
-
-static int 
-silc_get_auth_method(SilcClient client, SilcClientConnection conn,
-                    char *hostname, uint16 port,
-                    SilcProtocolAuthMeth *auth_meth,
-                    unsigned char **auth_data,
-                    uint32 *auth_data_len)
+static void silc_register_cipher(SilcClient client, const char *cipher)
 {
-  return FALSE;
-}
-
-/* Notifies application that failure packet was received.  This is called
-   if there is some protocol active in the client.  The `protocol' is the
-   protocol context.  The `failure' is opaque pointer to the failure
-   indication.  Note, that the `failure' is protocol dependant and application
-   must explicitly cast it to correct type.  Usually `failure' is 32 bit
-   failure type (see protocol specs for all protocol failure types). */
+  int i;
 
-static void 
-silc_failure(SilcClient client, SilcClientConnection conn, 
-            SilcProtocol protocol, void *failure)
-{
-  if (protocol->protocol->type == SILC_PROTOCOL_CLIENT_KEY_EXCHANGE) {
-    SilcSKEStatus status = (SilcSKEStatus)failure;
+  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 (status == SILC_SKE_STATUS_BAD_VERSION)
-      silc_say(client, conn, 
-              "You are running incompatible client version (it may be "
-              "too old or too new)");
-    if (status == SILC_SKE_STATUS_UNSUPPORTED_PUBLIC_KEY)
-      silc_say(client, conn, "Server does not support your public key type");
-    if (status == SILC_SKE_STATUS_UNKNOWN_GROUP)
-      silc_say(client, conn, 
-              "Server does not support one of your proposed KE group");
-    if (status == SILC_SKE_STATUS_UNKNOWN_CIPHER)
-      silc_say(client, conn, 
-              "Server does not support one of your proposed cipher");
-    if (status == SILC_SKE_STATUS_UNKNOWN_PKCS)
-      silc_say(client, conn, 
-              "Server does not support one of your proposed PKCS");
-    if (status == SILC_SKE_STATUS_UNKNOWN_HASH_FUNCTION)
-      silc_say(client, conn, 
-              "Server does not support one of your proposed hash function");
-    if (status == SILC_SKE_STATUS_UNKNOWN_HMAC)
-      silc_say(client, conn, 
-              "Server does not support one of your proposed HMAC");
-    if (status == SILC_SKE_STATUS_INCORRECT_SIGNATURE)
-      silc_say(client, conn, "Incorrect signature");
+    if (!silc_cipher_is_supported(cipher)) {
+      SILC_LOG_ERROR(("Unknown cipher `%s'", cipher));
+      exit(1);
+    }
   }
 
-  if (protocol->protocol->type == SILC_PROTOCOL_CLIENT_CONNECTION_AUTH) {
-    uint32 err = (uint32)failure;
-
-    if (err == SILC_AUTH_FAILED)
-      silc_say(client, conn, "Authentication failed");
-  }
+  /* Register other defaults */
+  silc_cipher_register_default();
 }
 
-/* Asks whether the user would like to perform the key agreement protocol.
-   This is called after we have received an key agreement packet or an
-   reply to our key agreement packet. This returns TRUE if the user wants
-   the library to perform the key agreement protocol and FALSE if it is not
-   desired (application may start it later by calling the function
-   silc_client_perform_key_agreement). */
-
-static int 
-silc_key_agreement(SilcClient client, SilcClientConnection conn,
-                  SilcClientEntry client_entry, char *hostname,
-                  int port,
-                  SilcKeyAgreementCallback *completion,
-                  void **context)
+static void silc_register_hash(SilcClient client, const char *hash)
 {
-  char host[256];
+  int i;
 
-  /* We will just display the info on the screen and return FALSE and user
-     will have to start the key agreement with a command. */
-
-  if (hostname) {
-    memset(host, 0, sizeof(host));
-    snprintf(host, sizeof(host) - 1, "(%s on port %d)", hostname, port); 
+  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);
+    }
   }
 
-  silc_say(client, conn, "%s wants to perform key agreement %s",
-          client_entry->nickname, hostname ? host : "");
-
-  *completion = NULL;
-  *context = NULL;
-
-  return FALSE;
+  /* Register other defaults */
+  silc_hash_register_default();
 }
 
-/* SILC client operations */
-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_public_key,
-  silc_ask_passphrase,
-  silc_failure,
-  silc_key_agreement,
-};
-
-static int my_silc_scheduler(void)
+static void silc_register_hmac(SilcClient client, const char *hmac)
 {
-  silc_schedule_one(0);
-  return 1;
-}
+  int i;
 
-static CHATNET_REC *create_chatnet(void)
-{
-  return g_malloc0(sizeof(CHATNET_REC));
-}
+  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);
+    }
+  }
 
-static SERVER_SETUP_REC *create_server_setup(void)
-{
-  return g_malloc0(sizeof(SERVER_SETUP_REC));
+  /* Register other defaults */
+  silc_hmac_register_default();
 }
 
-static CHANNEL_SETUP_REC *create_channel_setup(void)
-{
-  return g_malloc0(sizeof(CHANNEL_SETUP_REC));
-}
+/* Finalize init. Init finish signal calls this. */
 
-static SERVER_CONNECT_REC *create_server_connect(void)
+void silc_opt_callback(poptContext con, 
+                      enum poptCallbackReason reason,
+                      const struct poptOption *opt,
+                      const char *arg, void *data)
 {
-  return g_malloc0(sizeof(SILC_SERVER_CONNECT_REC));
-}
-
-/* Init SILC. Called from src/fe-text/silc.c */
+  if (strcmp(opt->longName, "list-ciphers") == 0) {
+    silc_cipher_register_default();
+    silc_client_list_ciphers();
+    exit(0);
+  }
 
-void silc_core_init(void)
-{
-  static struct poptOption options[] = {
-    { "create-key-pair", 'C', POPT_ARG_NONE, &opt_create_keypair, 0, 
-      "Create new public key pair", NULL },
-    { "pkcs", 0, POPT_ARG_STRING, &opt_pkcs, 0, 
-      "Set the PKCS of the public key pair", "PKCS" },
-    { "bits", 0, POPT_ARG_INT, &opt_bits, 0, 
-      "Set the length of the public key pair", "VALUE" },
-    { "show-key", 'S', POPT_ARG_STRING, &opt_keyfile, 0, 
-      "Show the contents of the public key", "FILE" },
-    { NULL, '\0', 0, NULL }
-  };
+  if (strcmp(opt->longName, "list-hash-funcs") == 0) {
+    silc_hash_register_default();
+    silc_client_list_hash_funcs();
+    exit(0);
+  }
 
-  args_register(options);
-}
+  if (strcmp(opt->longName, "list-hmacs") == 0) {
+    silc_hmac_register_default();
+    silc_client_list_hmacs();
+    exit(0);
+  }
 
-/* Finalize init. Called from src/fe-text/silc.c */
+  if (strcmp(opt->longName, "list-pkcs") == 0) {
+    silc_pkcs_register_default();
+    silc_client_list_pkcs();
+    exit(0);
+  }
 
-void silc_core_init_finish(void)
-{
-  CHAT_PROTOCOL_REC *rec;
+  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 (opt_create_keypair == TRUE) {
+  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_client_create_key_pair(opt_pkcs, opt_bits, 
-                               NULL, NULL, NULL, NULL, NULL);
-    silc_free(opt_pkcs);
+    silc_create_key_pair(opt_pkcs, opt_bits, NULL, NULL, NULL,
+                        NULL, NULL, NULL, NULL, TRUE);
     exit(0);
   }
 
-  if (opt_keyfile) {
-    /* Dump the key */
+  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_client_show_key(opt_keyfile);
-    silc_free(opt_keyfile);
+    silc_change_private_key_passphrase(arg, NULL, NULL);
     exit(0);
   }
 
-  /* Allocate SILC client */
-  silc_client = silc_client_alloc(&ops, NULL);
-
-  /* Load local config file */
-  silc_config = silc_client_config_alloc(SILC_CLIENT_HOME_CONFIG_FILE);
-
-  /* Get user information */
-  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"));
-
-  /* Register all configured ciphers, PKCS and hash functions. */
-  if (silc_config) {
-    silc_config->client = silc_client;
-    if (!silc_client_config_register_ciphers(silc_config))
-      silc_cipher_register_default();
-    if (!silc_client_config_register_pkcs(silc_config))
-      silc_pkcs_register_default();
-    if (!silc_client_config_register_hashfuncs(silc_config))
-      silc_hash_register_default();
-    if (!silc_client_config_register_hmacs(silc_config))
-      silc_hmac_register_default();
-  } else {
-    /* Register default ciphers, pkcs, hash funtions and hmacs. */
+  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 void sig_init_finished(void)
+{
   /* Check ~/.silc directory and public and private keys */
-  if (silc_client_check_silc_dir() == FALSE) {
+  if (!silc_client_check_silc_dir()) {
     idletag = -1;
-    return;
+    exit(1);
   }
 
   /* Load public and private key */
-  if (silc_client_load_keys(silc_client) == FALSE) {
+  if (!silc_client_load_keys(silc_client)) {
     idletag = -1;
-    return;
+    exit(1);
   }
 
   /* Initialize the SILC client */
   if (!silc_client_init(silc_client)) {
     idletag = -1;
-    return;
+    exit(1);
   }
+}
+
+/* Init SILC. Called from src/fe-text/silc.c */
+
+void silc_core_init(void)
+{
+  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);
@@ -585,9 +460,11 @@ void silc_core_init_finish(void)
   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))
+  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;
@@ -598,8 +475,11 @@ void silc_core_init_finish(void)
   silc_server_init();
   silc_channels_init();
   silc_queries_init();
+  silc_expandos_init();
+
+  idletag = g_timeout_add(5, (GSourceFunc) my_silc_scheduler, NULL);
 
-  idletag = g_timeout_add(100, (GSourceFunc) my_silc_scheduler, NULL);
+  module_register("silc", "core");
 }
 
 /* Deinit SILC. Called from src/fe-text/silc.c */
@@ -609,10 +489,13 @@ void silc_core_deinit(void)
   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");
     
@@ -621,5 +504,9 @@ void silc_core_deinit(void)
   
   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);
 }