Merged silc_1_1_branch to trunk.
[silc.git] / apps / irssi / src / silc / core / silc-core.c
index c13b0403d208a622c0061fae5302b50c9b306369..8b6f9f74ed50fc08326068ad805b09a3c27d86d0 100644 (file)
@@ -2,15 +2,15 @@
 
   silc-core.c
 
-  Author: Pekka Riikonen <priikone@poseidon.pspt.fi>
+  Author: Pekka Riikonen <priikone@silcnet.org>
 
-  Copyright (C) 2001 Pekka Riikonen
+  Copyright (C) 2001 - 2007 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
 #include "silc-channels.h"
 #include "silc-queries.h"
 #include "silc-nicklist.h"
-#include "version_internal.h"
-#include "version.h"
+#include "silc-chatnets.h"
+#include "silc-cmdqueue.h"
+#include "silc-commands.h"
 
 #include "signals.h"
 #include "levels.h"
 #include "settings.h"
+#include "commands.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"
 
+#ifndef SILC_PLUGIN
 /* Command line option variables */
-static bool opt_create_keypair = FALSE;
 static char *opt_pkcs = NULL;
-static char *opt_keyfile = NULL;
 static int opt_bits = 0;
+#else
+static int init_failed = 0;
+#endif
 
-static int idletag;
+static int running = 0;
 
+/* SILC Client */
 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
-
-static void silc_say(SilcClient client, SilcClientConnection conn,
-                    char *msg, ...);
-static void 
-silc_channel_message(SilcClient client, SilcClientConnection conn,
-                    SilcClientEntry sender, SilcChannelEntry channel,
-                    SilcMessageFlags flags, char *msg);
-static void 
-silc_private_message(SilcClient client, SilcClientConnection conn,
-                    SilcClientEntry sender, SilcMessageFlags flags,
-                    char *msg);
-static void silc_notify(SilcClient client, SilcClientConnection conn,
-                       SilcNotifyType type, ...);
-static void 
-silc_connect(SilcClient client, SilcClientConnection conn, int success);
-static void 
-silc_disconnect(SilcClient client, SilcClientConnection conn);
-static void 
-silc_command(SilcClient client, SilcClientConnection conn, 
-            SilcClientCommandContext cmd_context, int success,
-            SilcCommand command);
-static void 
-silc_command_reply(SilcClient client, SilcClientConnection conn,
-                  SilcCommandPayload cmd_payload, int success,
-                  SilcCommand command, SilcCommandStatus status, ...);
-
-static int silc_verify_public_key(SilcClient client,
-                                 SilcClientConnection conn, 
-                                 SilcSocketType conn_type,
-                                 unsigned char *pk, uint32 pk_len,
-                                 SilcSKEPKType pk_type);
-static unsigned char *silc_ask_passphrase(SilcClient client,
-                                         SilcClientConnection conn);
-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_failure(SilcClient client, SilcClientConnection conn, 
-            SilcProtocol protocol, void *failure);
-static int 
-silc_key_agreement(SilcClient client, SilcClientConnection conn,
-                  SilcClientEntry client_entry, char *hostname,
-                  int port,
-                  SilcKeyAgreementCallback *completion,
-                  void **context);
-
-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;
-  
-  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_say_error(char *msg, ...)
-{
-  va_list va;
-  char *str;
+/* Our keypair */
+SilcPublicKey irssi_pubkey = NULL;
+SilcPrivateKey irssi_privkey = NULL;
 
-  va_start(va, msg);
-  str = g_strdup_vprintf(msg, va);
-  printtext(NULL, NULL, MSGLEVEL_CLIENTERROR, "%s", str);
+char *opt_nickname = NULL;
+char *opt_hostname = NULL;
 
-  g_free(str);
-  va_end(va);
-}
+/* Default hash function */
+SilcHash sha1hash = NULL;
 
-/* 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. */
+void silc_expandos_init(void);
+void silc_expandos_deinit(void);
 
-static void 
-silc_channel_message(SilcClient client, SilcClientConnection conn,
-                    SilcClientEntry sender, SilcChannelEntry channel,
-                    SilcMessageFlags flags, char *msg)
-{
-  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);
-
-  if (flags & SILC_MESSAGE_FLAG_ACTION)
-    ;
-  else if (flags & SILC_MESSAGE_FLAG_NOTICE)
-    ;
-  else
-    signal_emit("message public", 6, server, msg,
-               nick == NULL ? "[<unknown>]" : nick->nick,
-               nick == NULL ? NULL : nick->host,
-               chanrec->name, nick);
-}
+void silc_lag_init(void);
+void silc_lag_deinit(void);
 
-/* 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)
-{
-  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);
-}
-
-/* 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" },
-  { SILC_NOTIFY_TYPE_CHANNEL_CHANGE,   "channel_change" },
-  { SILC_NOTIFY_TYPE_SERVER_SIGNOFF,   "server_signoff" },
-  { SILC_NOTIFY_TYPE_KICKED,           "kick" },
-  { SILC_NOTIFY_TYPE_KILLED,           "kill" },
-  { SILC_NOTIFY_TYPE_UMODE_CHANGE,      "umode" },
-  { SILC_NOTIFY_TYPE_BAN,               "ban" },
-};
-
-static void silc_notify(SilcClient client, SilcClientConnection conn,
-                       SilcNotifyType type, ...)
-{
-  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 type %d", type);
-  }
-
-  va_end(va);
-}
-
-/* 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 void 
-silc_connect(SilcClient client, SilcClientConnection conn, int success)
-{
-  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. */
+#ifdef SILC_PLUGIN
+void silc_core_deinit(void);
+#endif
 
-static void 
-silc_disconnect(SilcClient client, SilcClientConnection conn)
+static gboolean my_silc_scheduler(gpointer data)
 {
-  SILC_SERVER_REC *server = conn->context;
-
-  server->conn->context = NULL;
-  server->conn = NULL;
-  server->connection_lost = TRUE;
-  server_disconnect(SERVER(server));
+  SILC_LOG_DEBUG(("Timeout"));
+  silc_client_run_one(silc_client);
+  return FALSE;
 }
 
-/* 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)
+static gboolean my_silc_scheduler_fd(GIOChannel *source,
+                                     GIOCondition condition,
+                                     gpointer data)
 {
+  SILC_LOG_DEBUG(("I/O event, %d", SILC_PTR_TO_32(data)));
+  silc_client_run_one(silc_client);
+  return TRUE;
 }
 
-/* Client info resolving callback when JOIN command reply is received.
-   This will cache all users on the channel. */
-
-void silc_client_join_get_users(SilcClient client,
-                               SilcClientConnection conn,
-                               SilcClientEntry *clients,
-                               uint32 clients_count,
+static void scheduler_notify_cb(SilcSchedule schedule,
+                               SilcBool added, SilcTask task,
+                               SilcBool fd_task, SilcUInt32 fd,
+                               SilcTaskEvent event,
+                               long seconds, long useconds,
                                void *context)
 {
-  SilcChannelEntry channel = (SilcChannelEntry)context;
-  SilcChannelUser chu;
-  SILC_SERVER_REC *server = conn->context;
-  SILC_CHANNEL_REC *chanrec;
-  NICK_REC *ownnick;
-
-  if (!clients)
-    return;
-
-  chanrec = silc_channel_find_entry(server, channel);
-  if (chanrec == NULL)
-    return;
-
-  silc_list_start(channel->clients);
-  while ((chu = silc_list_get(channel->clients)) != SILC_LIST_END)
-    silc_nicklist_insert(chanrec, chu, 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);
-}
-
-/* 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, ...)
-
-{
-  SILC_SERVER_REC *server = conn->context;
-  SILC_CHANNEL_REC *chanrec;
-  va_list vp;
-
-  va_start(vp, status);
-
-  switch(command) {
-  case SILC_COMMAND_WHOIS:
-    {
-      char buf[1024], *nickname, *username, *realname;
-      int len;
-      uint32 idle, mode;
-      SilcBuffer channels;
-      
-      /* XXX should use irssi routines */
-      
-      if (status == SILC_STATUS_ERR_NO_SUCH_NICK ||
-         status == SILC_STATUS_ERR_NO_SUCH_CLIENT_ID) {
-       char *tmp;
-       tmp = silc_argument_get_arg_type(silc_command_get_args(cmd_payload),
-                                        3, NULL);
-       if (tmp)
-         client->ops->say(client, conn, "%s: %s", tmp,
-                          silc_client_command_status_message(status));
-       else
-         client->ops->say(client, conn, "%s",
-                          silc_client_command_status_message(status));
-       break;
-      }
-      
-      if (!success)
-       return;
-      
-      (void)va_arg(vp, SilcClientEntry);
-      nickname = va_arg(vp, char *);
-      username = va_arg(vp, char *);
-      realname = va_arg(vp, char *);
-      channels = va_arg(vp, SilcBuffer);
-      mode = va_arg(vp, uint32);
-      idle = va_arg(vp, uint32);
-      
-      memset(buf, 0, sizeof(buf));
-      
-      if (nickname) {
-       len = strlen(nickname);
-       strncat(buf, nickname, len);
-       strncat(buf, " is ", 4);
-      }
-       
-      if (username) {
-       strncat(buf, username, strlen(username));
-      }
-       
-      if (realname) {
-       strncat(buf, " (", 2);
-       strncat(buf, realname, strlen(realname));
-       strncat(buf, ")", 1);
-      }
-      
-      client->ops->say(client, conn, "%s", buf);
-      
-      if (channels) {
-       SilcDList list = silc_channel_payload_parse_list(channels);
-       if (list) {
-         SilcChannelPayload entry;
-         
-         memset(buf, 0, sizeof(buf));
-         strcat(buf, "on channels: ");
-         
-         silc_dlist_start(list);
-         while ((entry = silc_dlist_get(list)) != SILC_LIST_END) {
-           char *m = silc_client_chumode_char(silc_channel_get_mode(entry));
-           uint32 name_len;
-           char *name = silc_channel_get_name(entry, &name_len);
-           
-           if (m)
-             strncat(buf, m, strlen(m));
-           strncat(buf, name, name_len);
-           strncat(buf, " ", 1);
-           silc_free(m);
-         }
-
-         client->ops->say(client, conn, "%s", buf);
-         silc_channel_payload_list_free(list);
-       }
-      }
-      
-      if (mode) {
-       if ((mode & SILC_UMODE_SERVER_OPERATOR) ||
-           (mode & SILC_UMODE_ROUTER_OPERATOR))
-         client->ops->say(client, conn, "%s is %s", nickname,
-                          (mode & SILC_UMODE_SERVER_OPERATOR) ?
-                          "Server Operator" :
-                          (mode & SILC_UMODE_ROUTER_OPERATOR) ?
-                          "SILC Operator" : "[Unknown mode]");
-       
-       if (mode & SILC_UMODE_GONE)
-         client->ops->say(client, conn, "%s is gone", nickname);
-      }
-      
-      if (idle && nickname)
-       client->ops->say(client, conn, "%s has been idle %d %s",
-                        nickname,
-                        idle > 60 ? (idle / 60) : idle,
-                        idle > 60 ? "minutes" : "seconds");
-    }
-    break;
-    
-  case SILC_COMMAND_WHOWAS:
-    {
-      char buf[1024], *nickname, *username, *realname;
-      int len;
-      
-      /* XXX should use irssi routines */
-      
-      if (status == SILC_STATUS_ERR_NO_SUCH_NICK ||
-         status == SILC_STATUS_ERR_NO_SUCH_CLIENT_ID) {
-       char *tmp;
-       tmp = silc_argument_get_arg_type(silc_command_get_args(cmd_payload),
-                                        3, NULL);
-       if (tmp)
-         client->ops->say(client, conn, "%s: %s", tmp,
-                          silc_client_command_status_message(status));
-       else
-         client->ops->say(client, conn, "%s",
-                          silc_client_command_status_message(status));
-       break;
-      }
-      
-      if (!success)
-       return;
-      
-      (void)va_arg(vp, SilcClientEntry);
-      nickname = va_arg(vp, char *);
-      username = va_arg(vp, char *);
-      realname = va_arg(vp, char *);
-      
-      memset(buf, 0, sizeof(buf));
-      
-      if (nickname) {
-       len = strlen(nickname);
-       strncat(buf, nickname, len);
-       strncat(buf, " was ", 5);
-      }
-      
-      if (username) {
-       strncat(buf, username, strlen(nickname));
-      }
-       
-      if (realname) {
-       strncat(buf, " (", 2);
-       strncat(buf, realname, strlen(realname));
-       strncat(buf, ")", 1);
-      }
-      
-      client->ops->say(client, conn, "%s", buf);
-    }
-    break;
-    
-  case SILC_COMMAND_INVITE:
-    {
-      SilcChannelEntry channel;
-      char *invite_list;
-      
-      if (!success)
-       return;
-      
-      /* XXX should use irssi routines */
-      
-      channel = va_arg(vp, SilcChannelEntry);
-      invite_list = va_arg(vp, char *);
-      
-      if (invite_list)
-       silc_say(client, conn, "%s invite list: %s", channel->channel_name,
-                invite_list);
-      else
-       silc_say(client, conn, "%s invite list not set", 
-                channel->channel_name);
-    }
-    break;
-
-  case SILC_COMMAND_JOIN: 
-    {
-      char *channel, *mode, *topic;
-      uint32 modei;
-      SilcChannelEntry channel_entry;
-      SilcBuffer client_id_list;
-      uint32 list_count;
-
-      channel = va_arg(vp, char *);
-      channel_entry = va_arg(vp, SilcChannelEntry);
-      modei = va_arg(vp, uint32);
-      (void)va_arg(vp, uint32);
-      (void)va_arg(vp, unsigned char *);
-      (void)va_arg(vp, unsigned char *);
-      (void)va_arg(vp, unsigned char *);
-      topic = va_arg(vp, char *);
-      (void)va_arg(vp, unsigned char *);
-      list_count = va_arg(vp, uint32);
-      client_id_list = va_arg(vp, SilcBuffer);
-
-      if (!success)
-       return;
-
-      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);
-      
-      if (topic) {
-       g_free_not_null(chanrec->topic);
-       chanrec->topic = *topic == '\0' ? NULL : g_strdup(topic);
-       signal_emit("channel topic changed", 1, chanrec);
-       silc_say(client, conn, "Topic for %s: %s", channel, topic);
+  if (added) {
+    if (fd_task) {
+      /* Add fd */
+      GIOChannel *ch;
+      guint e = 0;
+
+      SILC_LOG_DEBUG(("Add fd %d, events %d", fd, event));
+      g_source_remove_by_user_data(SILC_32_TO_PTR(fd));
+
+      if (event & SILC_TASK_READ)
+        e |= (G_IO_IN | G_IO_PRI | G_IO_HUP | G_IO_ERR);
+      if (event & SILC_TASK_WRITE)
+        e |= (G_IO_OUT | G_IO_HUP | G_IO_ERR | G_IO_NVAL);
+
+      if (e) {
+       ch = g_io_channel_unix_new(fd);
+       g_io_add_watch(ch, e, my_silc_scheduler_fd, SILC_32_TO_PTR(fd));
+       g_io_channel_unref(ch);
       }
+    } else {
+      /* Add timeout */
+      guint t;
 
-      mode = silc_client_chmode(modei, channel_entry);
-      g_free_not_null(chanrec->mode);
-      chanrec->mode = g_strdup(mode == NULL ? "" : mode);
-      signal_emit("channel mode changed", 1, chanrec);
-
-      /* Resolve the client information */
-      silc_client_get_clients_by_list(client, conn, list_count, client_id_list,
-                                     silc_client_join_get_users, 
-                                     channel_entry);
-      break;
-    }
-
-  case SILC_COMMAND_NICK: 
-    {
-      SilcClientEntry client = va_arg(vp, SilcClientEntry);
-      char *old;
-      
-      if (!success)
-       return;
-
-      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_LIST:
-    {
-      char *topic, *name;
-      int usercount;
-      unsigned char buf[256], tmp[16];
-      int i, len;
-      
-      if (!success)
-       return;
-      
-      /* XXX should use irssi routines */
-      
-      (void)va_arg(vp, SilcChannelEntry);
-      name = va_arg(vp, char *);
-      topic = va_arg(vp, char *);
-      usercount = va_arg(vp, int);
-      
-      if (status == SILC_STATUS_LIST_START ||
-         status == SILC_STATUS_OK)
-       silc_say(client, conn, 
-                "  Channel                                  Users     Topic");
-      
-      memset(buf, 0, sizeof(buf));
-      strncat(buf, "  ", 2);
-      len = strlen(name);
-      strncat(buf, name, len > 40 ? 40 : len);
-      if (len < 40)
-       for (i = 0; i < 40 - len; i++)
-         strcat(buf, " ");
-      strcat(buf, " ");
-      
-      memset(tmp, 0, sizeof(tmp));
-      if (usercount) {
-       snprintf(tmp, sizeof(tmp), "%d", usercount);
-       strcat(buf, tmp);
-      }
-      len = strlen(tmp);
-      if (len < 10)
-       for (i = 0; i < 10 - len; i++)
-         strcat(buf, " ");
-      strcat(buf, " ");
-      
-      if (topic) {
-       len = strlen(topic);
-       strncat(buf, topic, len);
-      }
-      
-      silc_say(client, conn, "%s", buf);
-    }
-    break;
-    
-  case SILC_COMMAND_UMODE:
-    {
-      uint32 mode;
-      
-      if (!success)
-       return;
-      
-      mode = va_arg(vp, uint32);
-      
-      /* XXX todo */
-    }
-    break;
-    
-  case SILC_COMMAND_OPER:
-#if 0
-    if (status == SILC_STATUS_OK) {
-      conn->local_entry->mode |= SILC_UMODE_SERVER_OPERATOR;
-      if (app->screen->bottom_line->umode)
-       silc_free(app->screen->bottom_line->umode);
-      app->screen->bottom_line->umode = strdup("Server Operator");;
-      silc_screen_print_bottom_line(app->screen, 0);
-    }
-#endif
-    break;
-    
-  case SILC_COMMAND_SILCOPER:
-#if 0
-    if (status == SILC_STATUS_OK) {
-      conn->local_entry->mode |= SILC_UMODE_ROUTER_OPERATOR;
-      if (app->screen->bottom_line->umode)
-       silc_free(app->screen->bottom_line->umode);
-      app->screen->bottom_line->umode = strdup("SILC Operator");;
-      silc_screen_print_bottom_line(app->screen, 0);
-    }
-#endif
-    break;
-    
-  case SILC_COMMAND_USERS: 
-    {
-      SilcChannelEntry channel;
-      SilcChannelUser chu;
-      int line_len;
-      char *line;
-      
-      if (!success)
-       return;
-      
-      channel = va_arg(vp, SilcChannelEntry);
-      
-      /* There are two ways to do this, either parse the list (that
-        the command_reply sends (just take it with va_arg()) or just
-        traverse the channel's client list.  I'll do the latter.  See
-        JOIN command reply for example for the list. */
-      
-      silc_say(client, conn, "Users on %s", channel->channel_name);
-       
-      line = silc_calloc(1024, sizeof(*line));
-      line_len = 1024;
-      silc_list_start(channel->clients);
-      while ((chu = silc_list_get(channel->clients)) != SILC_LIST_END) {
-       SilcClientEntry e = chu->client;
-       int i, len1;
-       char *m, tmp[80];
-       
-       memset(line, 0, line_len);
-       
-       if (strlen(e->nickname) + strlen(e->server) + 100 > line_len) {
-         silc_free(line);
-         line_len += strlen(e->nickname) + strlen(e->server) + 100;
-         line = silc_calloc(line_len, sizeof(*line));
-       }
-       
-       memset(tmp, 0, sizeof(tmp));
-       m = silc_client_chumode_char(chu->mode);
-       
-       strncat(line, " ", 1);
-       strncat(line, e->nickname, strlen(e->nickname));
-       strncat(line, e->server ? "@" : "", 1);
-       
-       len1 = 0;
-       if (e->server)
-         len1 = strlen(e->server);
-       strncat(line, e->server ? e->server : "", len1 > 30 ? 30 : len1);
-       
-       len1 = strlen(line);
-       if (len1 >= 30) {
-         memset(&line[29], 0, len1 - 29);
-       } else {
-         for (i = 0; i < 30 - len1 - 1; i++)
-           strcat(line, " ");
-       }
-       
-       if (e->mode & SILC_UMODE_GONE)
-         strcat(line, "  G");
-       else
-         strcat(line, "  H");
-       strcat(tmp, m ? m : "");
-       strncat(line, tmp, strlen(tmp));
-       
-       if (strlen(tmp) < 5)
-         for (i = 0; i < 5 - strlen(tmp); i++)
-           strcat(line, " ");
-       
-       strcat(line, e->username ? e->username : "");
-       
-       silc_say(client, conn, "%s", line);
-       
-       if (m)
-         silc_free(m);
-      }
-      
-      silc_free(line);
-    }
-    break;
-
-  case SILC_COMMAND_BAN:
-    {
-      SilcChannelEntry channel;
-      char *ban_list;
-      
-      if (!success)
-       return;
-      
-      /* XXX should use irssi routines */
-          
-      channel = va_arg(vp, SilcChannelEntry);
-      ban_list = va_arg(vp, char *);
-      
-      if (ban_list)
-       silc_say(client, conn, "%s ban list: %s", channel->channel_name,
-                ban_list);
-      else
-       silc_say(client, conn, "%s ban list not set", channel->channel_name);
+      t = (seconds * 1000) + (useconds / 1000);
+      SILC_LOG_DEBUG(("interval %d msec", t));
+      g_timeout_add(t, my_silc_scheduler, NULL);
     }
-    break;
-    
-  case SILC_COMMAND_GETKEY:
-    {
-      SilcIdType id_type;
-      void *entry;
-      SilcPublicKey public_key;
-      unsigned char *pk;
-      uint32 pk_len;
-      
-      id_type = va_arg(vp, uint32);
-      entry = va_arg(vp, void *);
-      public_key = va_arg(vp, SilcPublicKey);
-      
-      pk = silc_pkcs_public_key_encode(public_key, &pk_len);
-      
-      if (id_type == SILC_ID_CLIENT) {
-       silc_verify_public_key(client, conn, SILC_SOCKET_TYPE_CLIENT,
-                              pk, pk_len, SILC_SKE_PK_TYPE_SILC);
-      }
-      
-      silc_free(pk);
-    }
-    
-  case SILC_COMMAND_TOPIC:
-    {
-      SilcChannelEntry channel;
-      char *topic;
-      
-      if (!success)
-       return;
-      
-      channel = va_arg(vp, SilcChannelEntry);
-      topic = va_arg(vp, char *);
-      
-      /* XXX should use irssi routines */
-      
-      if (topic)
-       silc_say(client, conn, 
-                "Topic on channel %s: %s", channel->channel_name,
-                topic);
+  } else {
+    if (fd_task) {
+      /* Remove fd */
+      g_source_remove_by_user_data(SILC_32_TO_PTR(fd));
     }
-    break;
   }
-
-  va_end(vp);
-}
-
-/* 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. */
-
-static int silc_verify_public_key(SilcClient client,
-                                 SilcClientConnection conn, 
-                                 SilcSocketType conn_type,
-                                 unsigned char *pk, uint32 pk_len,
-                                 SilcSKEPKType pk_type)
-{
-  return TRUE;
-}
-
-/* Asks passphrase from user on the input line. */
-
-static unsigned char *silc_ask_passphrase(SilcClient client,
-                                         SilcClientConnection conn)
-{
-  return 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)
-{
-
-  /* XXX must resolve from configuration whether this connection has
-     any specific authentication data */
-
-  *auth_meth = SILC_AUTH_NONE;
-  *auth_data = NULL;
-  *auth_data_len = 0;
-
-  return TRUE;
-}
-
-/* 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). */
-
-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 (status == SILC_SKE_STATUS_BAD_VERSION)
-      silc_say_error("You are running incompatible client version (it may be "
-                    "too old or too new)");
-    if (status == SILC_SKE_STATUS_UNSUPPORTED_PUBLIC_KEY)
-      silc_say_error("Server does not support your public key type");
-    if (status == SILC_SKE_STATUS_UNKNOWN_GROUP)
-      silc_say_error("Server does not support one of your proposed KE group");
-    if (status == SILC_SKE_STATUS_UNKNOWN_CIPHER)
-      silc_say_error("Server does not support one of your proposed cipher");
-    if (status == SILC_SKE_STATUS_UNKNOWN_PKCS)
-      silc_say_error("Server does not support one of your proposed PKCS");
-    if (status == SILC_SKE_STATUS_UNKNOWN_HASH_FUNCTION)
-      silc_say_error("Server does not support one of your proposed "
-                    "hash function");
-    if (status == SILC_SKE_STATUS_UNKNOWN_HMAC)
-      silc_say_error("Server does not support one of your proposed HMAC");
-    if (status == SILC_SKE_STATUS_INCORRECT_SIGNATURE)
-      silc_say_error("Incorrect signature");
-  }
-
-  if (protocol->protocol->type == SILC_PROTOCOL_CLIENT_CONNECTION_AUTH) {
-    uint32 err = (uint32)failure;
-
-    if (err == SILC_AUTH_FAILED)
-      silc_say(client, conn, "Authentication failed");
-  }
-}
-
-/* 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)
-{
-  char host[256];
-
-  /* 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); 
-  }
-
-  silc_say(client, conn, "%s wants to perform key agreement %s",
-          client_entry->nickname, hostname ? host : "");
-
-  *completion = NULL;
-  *context = NULL;
-
-  return FALSE;
-}
-
-/* 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)
-{
-  silc_schedule_one(0);
-  return 1;
 }
 
 static CHATNET_REC *create_chatnet(void)
@@ -980,14 +154,19 @@ static SERVER_CONNECT_REC *create_server_connect(void)
   return g_malloc0(sizeof(SILC_SERVER_CONNECT_REC));
 }
 
+static void destroy_server_connect(SERVER_CONNECT_REC *conn)
+{
+
+}
+
 /* Checks user information and saves them to the config file it they
    do not exist there already. */
 
 static void silc_init_userinfo(void)
 {
-  const char *set, *nick, *user_name;
-  char *str;   
-        
+  const char *set, *nick, *user_name, *str;
+  char *tmp;
+
   /* check if nick/username/realname wasn't read from setup.. */
   set = settings_get_str("real_name");
   if (set == NULL || *set == '\0') {
@@ -995,9 +174,21 @@ static void silc_init_userinfo(void)
     if (!str)
       str = g_getenv("IRCNAME");
     settings_set_str("real_name",
-                    str != NULL ? str : g_get_real_name());
+                    str != NULL ? str : silc_get_real_name());
   }
+
+  /* Check that real name is UTF-8 encoded */
+  set = settings_get_str("real_name");
+  if (!silc_utf8_valid(set, strlen(set))) {
+    int len = silc_utf8_encoded_len(set, strlen(set), SILC_STRING_LOCALE);
+    tmp = silc_calloc(len, sizeof(*tmp));
+    if (tmp) {
+      silc_utf8_encode(set, strlen(set), SILC_STRING_LOCALE, tmp, len);
+      settings_set_str("real_name", tmp);
+      silc_free(tmp);
+    }
+  }
+
   /* username */
   user_name = settings_get_str("user_name");
   if (user_name == NULL || *user_name == '\0') {
@@ -1005,11 +196,11 @@ static void silc_init_userinfo(void)
     if (!str)
       str = g_getenv("IRCUSER");
     settings_set_str("user_name",
-                    str != NULL ? str : g_get_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') {
@@ -1017,21 +208,16 @@ static void silc_init_userinfo(void)
     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') {
-    if (strlen(nick) < 9)
-      str = g_strconcat(nick, "_", NULL);
-    else { 
-      str = g_strdup(nick);
-      str[strlen(str)-1] = '_';
-    }
-    settings_set_str("alternate_nick", str);
-    g_free(str);
+    tmp = g_strconcat(nick, "_", NULL);
+    settings_set_str("alternate_nick", tmp);
+    g_free(tmp);
   }
 
   /* host name */
@@ -1045,102 +231,575 @@ static void silc_init_userinfo(void)
   }
 }
 
-/* Init SILC. Called from src/fe-text/silc.c */
+#if defined(SILC_DEBUG) || defined(SILC_PLUGIN)
+static bool i_debug;
+#endif
 
-void silc_core_init(void)
+#ifdef SILC_DEBUG
+static bool silc_irssi_debug_print(char *file, char *function, int line,
+                                  char *message, void *context)
 {
-  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 }
-  };
+  printtext(NULL, NULL, MSGLEVEL_CLIENTCRAP,
+           "DEBUG: %s:%d: %s", function, line, message);
+  return TRUE;
+}
+#endif
 
-  args_register(options);
+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 = TRUE;
+    silc_log_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_log_debug(FALSE);
+#endif
 }
 
-/* Finalize init. Called from src/fe-text/silc.c */
+/* Log callbacks */
 
-void silc_core_init_finish(void)
+static bool silc_log_misc(SilcLogType type, char *message, void *context)
 {
-  CHAT_PROTOCOL_REC *rec;
+  printtext(NULL, NULL, MSGLEVEL_CLIENTCRAP, "%s: %s",
+           (type == SILC_LOG_INFO ? "[Info]" :
+            type == SILC_LOG_WARNING ? "[Warning]" : "[Error]"), message);
+  return TRUE;
+}
+
+static bool silc_log_stderr(SilcLogType type, char *message, void *context)
+{
+  fprintf(stderr, "%s: %s\n",
+         (type == SILC_LOG_INFO ? "[Info]" :
+          type == SILC_LOG_WARNING ? "[Warning]" : "[Error]"), message);
+  return TRUE;
+}
+
+static void silc_register_cipher(SilcClient client, const char *cipher)
+{
+  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));
+#ifdef SILC_PLUGIN
+      init_failed = -1;
+      return;
+#else
+      exit(1);
+#endif
+    }
+  }
+
+  /* Register other defaults */
+  silc_cipher_register_default();
+}
+
+static void silc_register_hash(SilcClient client, const char *hash)
+{
+  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));
+#ifdef SILC_PLUGIN
+      init_failed = -1;
+      return;
+#else
+      exit(1);
+#endif
+    }
+  }
+
+  /* Register other defaults */
+  silc_hash_register_default();
+}
+
+static void silc_register_hmac(SilcClient client, const char *hmac)
+{
+  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));
+#ifdef SILC_PLUGIN
+      init_failed = -1;
+      return;
+#else
+      exit(1);
+#endif
+    }
+  }
+
+  /* Register other defaults */
+  silc_hmac_register_default();
+}
+
+/* Finalize init. Init finish signal calls this. */
+
+#ifdef SILC_PLUGIN
+#define FUNCTION_EXIT goto out
+void silc_opt_callback(const char *data, SERVER_REC *server,
+                       WI_ITEM_REC *item)
+#else
+#define FUNCTION_EXIT exit(0)
+void silc_opt_callback(poptContext con,
+                      enum poptCallbackReason reason,
+                      const struct poptOption *opt,
+                      const char *arg, void *data)
+#endif
+{
+#ifdef SILC_PLUGIN
+  unsigned char **argv=NULL, *tmp;
+  SilcUInt32 *argv_lens=NULL, *argv_types=NULL, argc=0;
+  int i;
+  unsigned char privkey[128], pubkey[128];
+
+  memset(privkey, 0, sizeof(privkey));
+  memset(pubkey, 0, sizeof(pubkey));
+  snprintf(pubkey, sizeof(pubkey) - 1, "%s/%s", get_irssi_dir(),
+          SILC_CLIENT_PUBLIC_KEY_NAME);
+  snprintf(privkey, sizeof(privkey) - 1, "%s/%s", get_irssi_dir(),
+          SILC_CLIENT_PRIVATE_KEY_NAME);
+
+  tmp = g_strconcat("SILC", " ", data, NULL);
+  silc_parse_command_line(tmp, &argv, &argv_lens, &argv_types, &argc, 6);
+  g_free(tmp);
+
+  if (argc < 2)
+    goto err;
+#else
+  if (strcmp(opt->longName, "nick") == 0) {
+    g_free(opt_nickname);
+    opt_nickname = g_strdup(arg);
+  }
+
+  if (strcmp(opt->longName, "hostname") == 0) {
+    silc_free(opt_hostname);
+    opt_hostname = strdup(arg);
+  }
+#endif
+
+#ifdef SILC_PLUGIN
+  if ((argc == 2) && (strcasecmp(argv[1], "list-ciphers") == 0)) {
+#else
+  if (strcmp(opt->longName, "list-ciphers") == 0) {
+    silc_cipher_register_default();
+#endif
+    silc_client_list_ciphers();
+    FUNCTION_EXIT;
+  }
 
-  if (opt_create_keypair == TRUE) {
+#ifdef SILC_PLUGIN
+  if ((argc == 2) && (strcasecmp(argv[1], "list-hash-funcs") == 0)) {
+#else
+  if (strcmp(opt->longName, "list-hash-funcs") == 0) {
+    silc_hash_register_default();
+#endif
+    silc_client_list_hash_funcs();
+    FUNCTION_EXIT;
+  }
+
+#ifdef SILC_PLUGIN
+  if ((argc == 2) && (strcasecmp(argv[1], "list-hmacs") == 0)) {
+#else
+  if (strcmp(opt->longName, "list-hmacs") == 0) {
+    silc_hmac_register_default();
+#endif
+    silc_client_list_hmacs();
+    FUNCTION_EXIT;
+  }
+
+#ifdef SILC_PLUGIN
+  if ((argc == 2) && (strcasecmp(argv[1], "list-pkcs") == 0)) {
+#else
+  if (strcmp(opt->longName, "list-pkcs") == 0) {
+    silc_pkcs_register_default();
+#endif
+    silc_client_list_pkcs();
+    FUNCTION_EXIT;
+  }
+
+#ifdef SILC_PLUGIN
+  if ((argc < 5) && (strcasecmp(argv[1], "debug") == 0)) {
+#else
+  if (strcmp(opt->longName, "debug") == 0) {
+    silc_log_debug(TRUE);
+    silc_log_debug_hexdump(TRUE);
+    silc_log_set_debug_string(arg);
+#endif
+#ifdef SILC_PLUGIN
+    if (argc == 2) {
+      printformat_module("fe-common/silc", NULL, NULL,
+                        MSGLEVEL_CRAP, SILCTXT_CONFIG_DEBUG,
+                        (i_debug == TRUE ? "enabled" : "disabled"));
+      goto out;
+    }
+#endif
+#ifndef SILC_DEBUG
+#ifdef SILC_PLUGIN
+    printformat_module("fe-common/silc", NULL, NULL,
+                      MSGLEVEL_CRAP, SILCTXT_CONFIG_NODEBUG);
+#else
+    fprintf(stdout,
+           "Run-time debugging is not enabled. To enable it recompile\n"
+           "the client with --enable-debug configuration option.\n");
+    sleep(1);
+#endif
+#else
+#ifdef SILC_PLUGIN
+    if (strcasecmp(argv[2], "on") == 0) {
+      settings_set_bool("debug", TRUE);
+      if (argc == 4)
+        settings_set_str("debug_string", argv[3]);
+    } else if ((argc == 3) && (strcasecmp(argv[2], "off") == 0)) {
+      settings_set_bool("debug", FALSE);
+    } else
+      goto err;
+    sig_setup_changed();
+    printformat_module("fe-common/silc", NULL, NULL,
+                      MSGLEVEL_CRAP, SILCTXT_CONFIG_DEBUG,
+                      (settings_get_bool("debug") == TRUE ?
+                       "enabled" : "disabled"));
+    goto out;
+#endif
+#endif
+  }
+
+#ifdef SILC_PLUGIN
+  if (strcasecmp(argv[1], "create-key-pair") == 0) {
+#else
+  if (strcmp(opt->longName, "create-key-pair") == 0) {
+#endif
     /* Create new key pair and exit */
+#ifdef SILC_PLUGIN
+    char *endptr, *pkcs=NULL;
+    long int val;
+    int bits=0;
+    CREATE_KEY_REC *rec;
+
+    if ((argc == 3) || (argc == 5))
+      goto err;
+
+    for (i=2; i<argc-1; i+=2)
+      if (strcasecmp(argv[i], "-pkcs") == 0) {
+       if (pkcs == NULL)
+         pkcs = argv[i+1];
+       else
+         goto err;
+      } else if (strcasecmp(argv[i], "-bits") == 0) {
+       if (bits == 0) {
+         val = strtol(argv[i+1], &endptr, 10);
+         if ((*endptr != '\0') || (val <= 0) || (val >= INT_MAX))
+           goto err;
+          bits = val;
+       } else
+         goto err;
+      } else
+       goto err;
+
+    rec = g_new0(CREATE_KEY_REC, 1);
+    rec->pkcs = (pkcs == NULL ? NULL : g_strdup(pkcs));
+    rec->bits = bits;
+
+    keyboard_entry_redirect((SIGNAL_FUNC) create_key_passphrase,
+                           format_get_text("fe-common/silc", NULL, NULL,
+                                           NULL, SILCTXT_CONFIG_PASS_ASK2),
+                           ENTRY_REDIRECT_FLAG_HIDDEN, rec);
+    printformat_module("fe-common/silc", NULL, NULL,
+                      MSGLEVEL_CRAP, SILCTXT_CONFIG_NEXTTIME);
+    goto out;
+#else
     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_create_key_pair(opt_pkcs, opt_bits, NULL, NULL,
+                        NULL, NULL, NULL, NULL, TRUE);
     exit(0);
+#endif
   }
 
-  if (opt_keyfile) {
-    /* Dump the key */
+#ifdef SILC_PLUGIN
+  if ((argc < 4) && (strcasecmp(argv[1], "passphrase-change") == 0)) {
+#else
+  if (strcmp(opt->longName, "passphrase-change") == 0) {
+#endif
+    /* Change the passphrase of the private key file */
+#ifdef SILC_PLUGIN
+    CREATE_KEY_REC *rec;
+
+    rec = g_new0(CREATE_KEY_REC, 1);
+    rec->file = g_strdup((argc == 3 ? argv[2] : privkey));
+
+    keyboard_entry_redirect((SIGNAL_FUNC) change_private_key_passphrase,
+                           format_get_text("fe-common/silc", NULL, NULL,
+                                           NULL, SILCTXT_CONFIG_PASS_ASK1),
+                           ENTRY_REDIRECT_FLAG_HIDDEN, rec);
+    goto out;
+#else
     silc_cipher_register_default();
     silc_pkcs_register_default();
     silc_hash_register_default();
     silc_hmac_register_default();
-    silc_client_show_key(opt_keyfile);
+    silc_change_private_key_passphrase(arg, NULL, NULL);
     exit(0);
+#endif
   }
 
-  silc_init_userinfo();
-
-  /* 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. */
+#ifndef SILC_PLUGIN
+  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_file((char *)arg);
+    exit(0);
   }
+#endif
+
+#ifdef SILC_PLUGIN
+err:
+  printformat_module("fe-common/silc", NULL, NULL,
+                    MSGLEVEL_CRAP, SILCTXT_CONFIG_UNKNOWN,
+                    data);
+
+out:
+  for (i=0; i<argc; i++)
+    silc_free(argv[i]);
 
+  silc_free(argv);
+  silc_free(argv_lens);
+  silc_free(argv_types);
+#endif
+}
+#undef FUNCTION_EXIT
+
+/* Called to indicate the client library has stopped. */
+static void
+silc_stopped(SilcClient client, void *context)
+{
+  SILC_LOG_DEBUG(("Client library has stopped"));
+  *(int*)context = -1;
+}
+
+/* Called to indicate the client library is running. */
+
+static void
+silc_running(SilcClient client, void *context)
+{
+  running = 1;
+  SILC_LOG_DEBUG(("Client library is running"));
+}
+
+static void sig_init_finished(void)
+{
   /* Check ~/.silc directory and public and private keys */
-  if (silc_client_check_silc_dir() == FALSE) {
-    idletag = -1;
+  if (!silc_client_check_silc_dir()) {
+#ifdef SILC_PLUGIN
+    init_failed = -1;
+#else
+    sleep(1);
+    exit(1);
+#endif
     return;
   }
 
   /* Load public and private key */
-  if (silc_client_load_keys(silc_client) == FALSE) {
-    idletag = -1;
+  if (!silc_client_load_keys(silc_client)) {
+#ifdef SILC_PLUGIN
+    init_failed = -1;
+#else
+    sleep(1);
+    exit(1);
+#endif
     return;
   }
 
   /* Initialize the SILC client */
-  if (!silc_client_init(silc_client)) {
-    idletag = -1;
+  opt_hostname = (opt_hostname ? opt_hostname : silc_net_localhost());
+  if (!silc_client_init(silc_client, settings_get_str("user_name"),
+                       opt_hostname, settings_get_str("real_name"),
+                       silc_running, NULL)) {
+#ifdef SILC_PLUGIN
+    init_failed = -1;
+#else
+    sleep(1);
+    exit(1);
+#endif
     return;
   }
 
+  silc_schedule_set_notify(silc_client->schedule, scheduler_notify_cb, NULL);
+
+  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);
+
+  silc_hash_alloc("sha1", &sha1hash);
+
+  /* Run SILC scheduler */
+  my_silc_scheduler(NULL);
+}
+
+/* Init SILC. Called from src/fe-text/silc.c */
+
+void silc_core_init(void)
+{
+#ifndef SILC_PLUGIN
+  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 },
+#ifdef SILC_DEBUG
+    { "debug", 'd', POPT_ARG_STRING, NULL, 0,
+      "Enable debugging", "STRING" },
+#endif /* SILC_DEBUG */
+    { "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 }
+  };
+#endif
+
+  CHAT_PROTOCOL_REC *rec;
+  SilcClientParams params;
+  const char *def_cipher, *def_hash, *def_hmac;
+
+#ifndef SILC_PLUGIN
+  args_register(silc_options);
+#endif
+
+  /* Settings */
+#ifndef SILC_PLUGIN
+  settings_add_bool("server", "skip_motd", FALSE);
+  settings_add_str("server", "alternate_nick", NULL);
+#endif
+  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_bool("server", "key_exchange_rekey_pfs", FALSE);
+  settings_add_int("server", "heartbeat", 300);
+  settings_add_bool("server", "ignore_message_signatures", FALSE);
+  settings_add_str("server", "session_filename", "session.$chatnet");
+  settings_add_bool("server", "sign_channel_messages", FALSE);
+  settings_add_bool("server", "sign_private_messages", FALSE);
+  settings_add_str("silc", "nickname_format", "%n#%a");
+
+  /* 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);
+#ifndef SILC_PLUGIN
+  signal_add("irssi init finished", (SIGNAL_FUNC) sig_init_finished);
+#endif
+
+#if defined (SILC_PLUGIN) && defined (SILC_DEBUG)
+  if (settings_get_bool("debug") == TRUE)
+    sig_setup_changed();
+#endif
+
+  silc_init_userinfo();
+
+  silc_log_set_callback(SILC_LOG_INFO, silc_log_stderr, NULL);
+  silc_log_set_callback(SILC_LOG_WARNING, silc_log_stderr, NULL);
+  silc_log_set_callback(SILC_LOG_ERROR, silc_log_stderr, NULL);
+  silc_log_set_callback(SILC_LOG_FATAL, silc_log_stderr, NULL);
+
+  /* Initialize client parameters */
+  memset(&params, 0, sizeof(params));
+  strcat(params.nickname_format, settings_get_str("nickname_format"));
+  params.full_channel_names = TRUE;
+
+  /* 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);
+#ifdef SILC_PLUGIN
+  if (init_failed)
+    return;
+#endif
+  silc_register_hash(silc_client, def_hash);
+#ifdef SILC_PLUGIN
+  if (init_failed)
+    return;
+#endif
+  silc_register_hmac(silc_client, def_hmac);
+#ifdef SILC_PLUGIN
+  if (init_failed)
+    return;
+#endif
+  silc_pkcs_register_default();
+
+#ifdef SILC_PLUGIN
+  command_bind("silc", MODULE_NAME, (SIGNAL_FUNC) silc_opt_callback);
+#endif
+
   /* Register SILC to the irssi */
   rec = g_new0(CHAT_PROTOCOL_REC, 1);
   rec->name = "SILC";
@@ -1150,41 +809,77 @@ 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;
-  
+
   chat_protocol_register(rec);
   g_free(rec);
 
+  silc_queue_init();
   silc_server_init();
   silc_channels_init();
   silc_queries_init();
+  silc_expandos_init();
+  silc_lag_init();
+  silc_chatnets_init();
+
+#ifdef SILC_PLUGIN
+  sig_init_finished();
+  if (init_failed) {
+    silc_core_deinit();
+    return;
+  }
+#endif
 
-  idletag = g_timeout_add(100, (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);
+  if (running) {
+    volatile int stopped = 0;
+    silc_client_stop(silc_client, silc_stopped, (void *)&stopped);
+    while (!stopped)
+      silc_client_run_one(silc_client);
   }
-  
-  g_free(silc_client->username);
-  g_free(silc_client->realname);
+
+  if (opt_hostname)
+    silc_free(opt_hostname);
+  if (opt_nickname)
+    g_free(opt_nickname);
+
+  signal_remove("setup changed", (SIGNAL_FUNC) sig_setup_changed);
+#ifdef SILC_PLUGIN
+  command_unbind("silc", (SIGNAL_FUNC) silc_opt_callback);
+#else
+  signal_remove("irssi init finished", (SIGNAL_FUNC) sig_init_finished);
+#endif
+
+  signal_emit("chat protocol deinit", 1, chat_protocol_find("SILC"));
+
+  silc_hash_free(sha1hash);
+
+  silc_queue_deinit();
+  silc_server_deinit();
+  silc_channels_deinit();
+  silc_queries_deinit();
+  silc_expandos_deinit();
+  silc_lag_deinit();
+  silc_chatnets_deinit();
+
+  chat_protocol_unregister("SILC");
+
+  if (irssi_pubkey)
+    silc_pkcs_public_key_free(irssi_pubkey);
+  if (irssi_privkey)
+    silc_pkcs_private_key_free(irssi_privkey);
   silc_client_free(silc_client);
 }