apps/irssi/src/silc/core/silc-core.c

   1 /*
   2
   3   silc-core.c
   4
   5   Author: Pekka Riikonen <priikone@silcnet.org>
   6
   7   Copyright (C) 2001 - 2006 Pekka Riikonen
   8
   9   This program is free software; you can redistribute it and/or modify
  10   it under the terms of the GNU General Public License as published by
  11   the Free Software Foundation; either version 2 of the License, or
  12   (at your option) any later version.
  13
  14   This program is distributed in the hope that it will be useful,
  15   but WITHOUT ANY WARRANTY; without even the implied warranty of
  16   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17   GNU General Public License for more details.
  18
  19 */
  20
  21 #include "module.h"
  22 #include "chat-protocols.h"
  23 #include "args.h"
  24
  25 #include "chatnets.h"
  26 #include "servers-setup.h"
  27 #include "channels-setup.h"
  28 #include "silc-servers.h"
  29 #include "silc-channels.h"
  30 #include "silc-queries.h"
  31 #include "silc-nicklist.h"
  32 #include "silc-chatnets.h"
  33 #include "silc-cmdqueue.h"
  34
  35 #include "signals.h"
  36 #include "levels.h"
  37 #include "settings.h"
  38 #include "fe-common/core/printtext.h"
  39 #include "fe-common/core/fe-channels.h"
  40 #include "fe-common/core/keyboard.h"
  41 #include "fe-common/silc/module-formats.h"
  42
  43 /* Command line option variables */
  44 static char *opt_pkcs = NULL;
  45 static int opt_bits = 0;
  46
  47 static int idletag = -1;
  48
  49 /* SILC Client */
  50 SilcClient silc_client = NULL;
  51 extern SilcClientOperations ops;
  52
  53 /* Our keypair */
  54 SilcPublicKey irssi_pubkey = NULL;
  55 SilcPrivateKey irssi_privkey = NULL;
  56
  57 char *opt_nickname = NULL;
  58 char *opt_hostname = NULL;
  59
  60 /* Default hash function */
  61 SilcHash sha1hash = NULL;
  62
  63 void silc_expandos_init(void);
  64 void silc_expandos_deinit(void);
  65
  66 void silc_lag_init(void);
  67 void silc_lag_deinit(void);
  68
  69 static int my_silc_scheduler(void)
  70 {
  71   silc_client_run_one(silc_client);
  72   return 1;
  73 }
  74
  75 static CHATNET_REC *create_chatnet(void)
  76 {
  77   return g_malloc0(sizeof(CHATNET_REC));
  78 }
  79
  80 static SERVER_SETUP_REC *create_server_setup(void)
  81 {
  82   return g_malloc0(sizeof(SERVER_SETUP_REC));
  83 }
  84
  85 static CHANNEL_SETUP_REC *create_channel_setup(void)
  86 {
  87   return g_malloc0(sizeof(CHANNEL_SETUP_REC));
  88 }
  89
  90 static SERVER_CONNECT_REC *create_server_connect(void)
  91 {
  92   return g_malloc0(sizeof(SILC_SERVER_CONNECT_REC));
  93 }
  94
  95 static void destroy_server_connect(SERVER_CONNECT_REC *conn)
  96 {
  97
  98 }
  99
 100 /* Checks user information and saves them to the config file it they
 101    do not exist there already. */
 102
 103 static void silc_init_userinfo(void)
 104 {
 105   const char *set, *nick, *user_name, *str;
 106   char *tmp;
 107
 108   /* check if nick/username/realname wasn't read from setup.. */
 109   set = settings_get_str("real_name");
 110   if (set == NULL || *set == '\0') {
 111     str = g_getenv("SILCNAME");
 112     if (!str)
 113       str = g_getenv("IRCNAME");
 114     settings_set_str("real_name",
 115                      str != NULL ? str : silc_get_real_name());
 116   }
 117
 118   /* Check that real name is UTF-8 encoded */
 119   set = settings_get_str("real_name");
 120   if (!silc_utf8_valid(set, strlen(set))) {
 121     int len = silc_utf8_encoded_len(set, strlen(set), SILC_STRING_LOCALE);
 122     tmp = silc_calloc(len, sizeof(*tmp));
 123     if (tmp) {
 124       silc_utf8_encode(set, strlen(set), SILC_STRING_LOCALE, tmp, len);
 125       settings_set_str("real_name", tmp);
 126       silc_free(tmp);
 127     }
 128   }
 129
 130   /* username */
 131   user_name = settings_get_str("user_name");
 132   if (user_name == NULL || *user_name == '\0') {
 133     str = g_getenv("SILCUSER");
 134     if (!str)
 135       str = g_getenv("IRCUSER");
 136     settings_set_str("user_name",
 137                      str != NULL ? str : silc_get_username());
 138
 139     user_name = settings_get_str("user_name");
 140   }
 141
 142   /* nick */
 143   nick = settings_get_str("nick");
 144   if (nick == NULL || *nick == '\0') {
 145     str = g_getenv("SILCNICK");
 146     if (!str)
 147       str = g_getenv("IRCNICK");
 148     settings_set_str("nick", str != NULL ? str : user_name);
 149
 150     nick = settings_get_str("nick");
 151   }
 152
 153   /* alternate nick */
 154   set = settings_get_str("alternate_nick");
 155   if (set == NULL || *set == '\0') {
 156     tmp = g_strconcat(nick, "_", NULL);
 157     settings_set_str("alternate_nick", tmp);
 158     g_free(tmp);
 159   }
 160
 161   /* host name */
 162   set = settings_get_str("hostname");
 163   if (set == NULL || *set == '\0') {
 164     str = g_getenv("SILCHOST");
 165     if (!str)
 166       str = g_getenv("IRCHOST");
 167     if (str != NULL)
 168       settings_set_str("hostname", str);
 169   }
 170 }
 171
 172 #ifdef SILC_DEBUG
 173 static bool i_debug;
 174 static bool silc_irssi_debug_print(char *file, char *function, int line,
 175                                    char *message, void *context)
 176 {
 177   printtext(NULL, NULL, MSGLEVEL_CLIENTCRAP,
 178             "DEBUG: %s:%d: %s", function, line, message);
 179   return TRUE;
 180 }
 181 #endif
 182
 183 static void sig_setup_changed(void)
 184 {
 185 #ifdef SILC_DEBUG
 186   bool debug = settings_get_bool("debug");
 187   if (debug) {
 188     const char *debug_string = settings_get_str("debug_string");
 189     i_debug = TRUE;
 190     silc_log_debug(TRUE);
 191     if (strlen(debug_string))
 192       silc_log_set_debug_string(debug_string);
 193     silc_log_set_debug_callbacks(silc_irssi_debug_print, NULL, NULL, NULL);
 194     return;
 195   }
 196   if (i_debug)
 197     silc_log_debug(FALSE);
 198 #endif
 199 }
 200
 201 /* Log callbacks */
 202
 203 static bool silc_log_misc(SilcLogType type, char *message, void *context)
 204 {
 205   printtext(NULL, NULL, MSGLEVEL_CLIENTCRAP, "%s: %s",
 206             (type == SILC_LOG_INFO ? "[Info]" :
 207              type == SILC_LOG_WARNING ? "[Warning]" : "[Error]"), message);
 208   return TRUE;
 209 }
 210
 211 static bool silc_log_stderr(SilcLogType type, char *message, void *context)
 212 {
 213   fprintf(stderr, "%s: %s\n",
 214           (type == SILC_LOG_INFO ? "[Info]" :
 215            type == SILC_LOG_WARNING ? "[Warning]" : "[Error]"), message);
 216   return TRUE;
 217 }
 218
 219 static void silc_nickname_format_parse(const char *nickname,
 220                                        char **ret_nickname)
 221 {
 222   char nick[128 + 1];
 223   silc_parse_userfqdn(nickname, nick, sizeof(nick), NULL, 0);
 224   *ret_nickname = strdup(nick);
 225 }
 226
 227 static void silc_register_cipher(SilcClient client, const char *cipher)
 228 {
 229   int i;
 230
 231   if (cipher) {
 232     for (i = 0; silc_default_ciphers[i].name; i++)
 233       if (!strcmp(silc_default_ciphers[i].name, cipher)) {
 234         silc_cipher_register(&(silc_default_ciphers[i]));
 235         break;
 236       }
 237
 238     if (!silc_cipher_is_supported(cipher)) {
 239       SILC_LOG_ERROR(("Unknown cipher `%s'", cipher));
 240       exit(1);
 241     }
 242   }
 243
 244   /* Register other defaults */
 245   silc_cipher_register_default();
 246 }
 247
 248 static void silc_register_hash(SilcClient client, const char *hash)
 249 {
 250   int i;
 251
 252   if (hash) {
 253     for (i = 0; silc_default_hash[i].name; i++)
 254       if (!strcmp(silc_default_hash[i].name, hash)) {
 255         silc_hash_register(&(silc_default_hash[i]));
 256         break;
 257       }
 258
 259     if (!silc_hash_is_supported(hash)) {
 260       SILC_LOG_ERROR(("Unknown hash function `%s'", hash));
 261       exit(1);
 262     }
 263   }
 264
 265   /* Register other defaults */
 266   silc_hash_register_default();
 267 }
 268
 269 static void silc_register_hmac(SilcClient client, const char *hmac)
 270 {
 271   int i;
 272
 273   if (hmac) {
 274     for (i = 0; silc_default_hmacs[i].name; i++)
 275       if (!strcmp(silc_default_hmacs[i].name, hmac)) {
 276         silc_hmac_register(&(silc_default_hmacs[i]));
 277         break;
 278       }
 279
 280     if (!silc_hmac_is_supported(hmac)) {
 281       SILC_LOG_ERROR(("Unknown HMAC `%s'", hmac));
 282       exit(1);
 283     }
 284   }
 285
 286   /* Register other defaults */
 287   silc_hmac_register_default();
 288 }
 289
 290 /* Finalize init. Init finish signal calls this. */
 291
 292 void silc_opt_callback(poptContext con,
 293                        enum poptCallbackReason reason,
 294                        const struct poptOption *opt,
 295                        const char *arg, void *data)
 296 {
 297   if (strcmp(opt->longName, "nick") == 0) {
 298     g_free(opt_nickname);
 299     opt_nickname = g_strdup(arg);
 300   }
 301
 302   if (strcmp(opt->longName, "hostname") == 0) {
 303     g_free(opt_hostname);
 304     opt_hostname = g_strdup(arg);
 305   }
 306
 307   if (strcmp(opt->longName, "list-ciphers") == 0) {
 308     silc_cipher_register_default();
 309     silc_client_list_ciphers();
 310     exit(0);
 311   }
 312
 313   if (strcmp(opt->longName, "list-hash-funcs") == 0) {
 314     silc_hash_register_default();
 315     silc_client_list_hash_funcs();
 316     exit(0);
 317   }
 318
 319   if (strcmp(opt->longName, "list-hmacs") == 0) {
 320     silc_hmac_register_default();
 321     silc_client_list_hmacs();
 322     exit(0);
 323   }
 324
 325   if (strcmp(opt->longName, "list-pkcs") == 0) {
 326     silc_pkcs_register_default();
 327     silc_client_list_pkcs();
 328     exit(0);
 329   }
 330
 331   if (strcmp(opt->longName, "debug") == 0) {
 332     silc_log_debug(TRUE);
 333     silc_log_debug_hexdump(TRUE);
 334     silc_log_set_debug_string(arg);
 335 #ifndef SILC_DEBUG
 336     fprintf(stdout,
 337             "Run-time debugging is not enabled. To enable it recompile\n"
 338             "the client with --enable-debug configuration option.\n");
 339     sleep(1);
 340 #endif
 341   }
 342
 343   if (strcmp(opt->longName, "create-key-pair") == 0) {
 344     /* Create new key pair and exit */
 345     silc_cipher_register_default();
 346     silc_pkcs_register_default();
 347     silc_hash_register_default();
 348     silc_hmac_register_default();
 349     silc_create_key_pair(opt_pkcs, opt_bits, NULL, NULL,
 350                          NULL, NULL, NULL, NULL, TRUE);
 351     exit(0);
 352   }
 353
 354   if (strcmp(opt->longName, "passphrase-change") == 0) {
 355     /* Change the passphrase of the private key file */
 356     silc_cipher_register_default();
 357     silc_pkcs_register_default();
 358     silc_hash_register_default();
 359     silc_hmac_register_default();
 360     silc_change_private_key_passphrase(arg, NULL, NULL);
 361     exit(0);
 362   }
 363
 364   if (strcmp(opt->longName, "show-key") == 0) {
 365     /* Dump the key */
 366     silc_cipher_register_default();
 367     silc_pkcs_register_default();
 368     silc_hash_register_default();
 369     silc_hmac_register_default();
 370     silc_show_public_key_file((char *)arg);
 371     exit(0);
 372   }
 373 }
 374
 375 /* Called to indicate the client library has stopped. */
 376
 377 static void
 378 silc_stopped(SilcClient client, void *context)
 379 {
 380   SILC_LOG_DEBUG(("Client library has stopped"));
 381   if (idletag != -1)
 382     g_source_remove(idletag);
 383 }
 384
 385 static void sig_gui_quit(SILC_SERVER_REC *server, const char *msg)
 386 {
 387   silc_client_stop(silc_client, silc_stopped, NULL);
 388 }
 389
 390 /* Called to indicate the client library is running. */
 391
 392 static void
 393 silc_running(SilcClient client, void *context)
 394 {
 395   SILC_LOG_DEBUG(("Client library is running"));
 396 }
 397
 398 static void sig_init_finished(void)
 399 {
 400   /* Check ~/.silc directory and public and private keys */
 401   if (!silc_client_check_silc_dir()) {
 402     sleep(1);
 403     exit(1);
 404     return;
 405   }
 406
 407   /* Load public and private key */
 408   if (!silc_client_load_keys(silc_client)) {
 409     sleep(1);
 410     exit(1);
 411     return;
 412   }
 413
 414   /* Initialize the SILC client */
 415   if (!silc_client_init(silc_client, settings_get_str("user_name"),
 416                         opt_hostname ? opt_hostname : silc_net_localhost(),
 417                         settings_get_str("real_name"), silc_running, NULL)) {
 418     sleep(1);
 419     exit(1);
 420     return;
 421   }
 422
 423   silc_log_set_callback(SILC_LOG_INFO, silc_log_misc, NULL);
 424   silc_log_set_callback(SILC_LOG_WARNING, silc_log_misc, NULL);
 425   silc_log_set_callback(SILC_LOG_ERROR, silc_log_misc, NULL);
 426   silc_log_set_callback(SILC_LOG_FATAL, silc_log_misc, NULL);
 427
 428   silc_hash_alloc("sha1", &sha1hash);
 429
 430   /* register SILC scheduler */
 431   idletag = g_timeout_add(5, (GSourceFunc) my_silc_scheduler, NULL);
 432 }
 433
 434 /* Init SILC. Called from src/fe-text/silc.c */
 435
 436 void silc_core_init(void)
 437 {
 438   static struct poptOption silc_options[] = {
 439     { NULL, '\0', POPT_ARG_CALLBACK, (void *)&silc_opt_callback, '\0', NULL },
 440     { "list-ciphers", 0, POPT_ARG_NONE, NULL, 0,
 441       "List supported ciphers", NULL },
 442     { "list-hash-funcs", 0, POPT_ARG_NONE, NULL, 0,
 443       "List supported hash functions", NULL },
 444     { "list-hmacs", 0, POPT_ARG_NONE, NULL, 0,
 445       "List supported HMACs", NULL },
 446     { "list-pkcs", 0, POPT_ARG_NONE, NULL, 0,
 447       "List supported PKCSs", NULL },
 448 #ifdef SILC_DEBUG
 449     { "debug", 'd', POPT_ARG_STRING, NULL, 0,
 450       "Enable debugging", "STRING" },
 451 #endif /* SILC_DEBUG */
 452     { "create-key-pair", 'C', POPT_ARG_NONE, NULL, 0,
 453       "Create new public key pair", NULL },
 454     { "pkcs", 0, POPT_ARG_STRING, &opt_pkcs, 0,
 455       "Set the PKCS of the public key pair (-C)", "PKCS" },
 456     { "bits", 0, POPT_ARG_INT, &opt_bits, 0,
 457       "Set the length of the public key pair (-C)", "VALUE" },
 458     { "passphrase-change", 'P', POPT_ARG_STRING, NULL, 0,
 459       "Change the passphrase of private key file", "FILE" },
 460     { "show-key", 'S', POPT_ARG_STRING, NULL, 0,
 461       "Show the contents of the public key", "FILE" },
 462     { NULL, '\0', 0, NULL }
 463   };
 464
 465   CHAT_PROTOCOL_REC *rec;
 466   SilcClientParams params;
 467   const char *def_cipher, *def_hash, *def_hmac;
 468
 469   args_register(silc_options);
 470
 471   /* Settings */
 472   settings_add_bool("server", "skip_motd", FALSE);
 473   settings_add_str("server", "alternate_nick", NULL);
 474   settings_add_bool("server", "use_auto_addr", FALSE);
 475   settings_add_str("server", "auto_bind_ip", "");
 476   settings_add_str("server", "auto_public_ip", "");
 477   settings_add_int("server", "auto_bind_port", 0);
 478   settings_add_str("server", "crypto_default_cipher", SILC_DEFAULT_CIPHER);
 479   settings_add_str("server", "crypto_default_hash", SILC_DEFAULT_HASH);
 480   settings_add_str("server", "crypto_default_hmac", SILC_DEFAULT_HMAC);
 481   settings_add_int("server", "key_exchange_timeout_secs", 120);
 482   settings_add_int("server", "key_exchange_rekey_secs", 3600);
 483   settings_add_bool("server", "key_exchange_rekey_pfs", FALSE);
 484   settings_add_int("server", "connauth_request_secs", 2);
 485   settings_add_int("server", "heartbeat", 300);
 486   settings_add_bool("server", "ignore_message_signatures", FALSE);
 487   settings_add_str("server", "session_filename", "session.$chatnet");
 488   settings_add_bool("server", "sign_channel_messages", FALSE);
 489   settings_add_bool("server", "sign_private_messages", FALSE);
 490
 491   /* Requested Attributes settings */
 492   settings_add_bool("silc", "attr_allow", TRUE);
 493   settings_add_str("silc", "attr_vcard", "");
 494   settings_add_str("silc", "attr_services", "");
 495   settings_add_str("silc", "attr_status_mood", "NORMAL");
 496   settings_add_str("silc", "attr_status_text", "");
 497   settings_add_str("silc", "attr_status_message", NULL);
 498   settings_add_str("silc", "attr_preferred_language", "");
 499   settings_add_str("silc", "attr_preferred_contact", "CHAT");
 500   settings_add_bool("silc", "attr_timezone", TRUE);
 501   settings_add_str("silc", "attr_geolocation", "");
 502   settings_add_str("silc", "attr_device_info", NULL);
 503   settings_add_str("silc", "attr_public_keys", "");
 504
 505 #ifdef SILC_DEBUG
 506   settings_add_bool("debug", "debug", FALSE);
 507   settings_add_str("debug", "debug_string", "");
 508 #endif
 509
 510   signal_add("setup changed", (SIGNAL_FUNC) sig_setup_changed);
 511   signal_add("irssi init finished", (SIGNAL_FUNC) sig_init_finished);
 512   signal_add("gui exit", (SIGNAL_FUNC) sig_gui_quit);
 513
 514   silc_init_userinfo();
 515
 516   silc_log_set_callback(SILC_LOG_INFO, silc_log_stderr, NULL);
 517   silc_log_set_callback(SILC_LOG_WARNING, silc_log_stderr, NULL);
 518   silc_log_set_callback(SILC_LOG_ERROR, silc_log_stderr, NULL);
 519   silc_log_set_callback(SILC_LOG_FATAL, silc_log_stderr, NULL);
 520
 521   /* Initialize client parameters */
 522   memset(&params, 0, sizeof(params));
 523   strcat(params.nickname_format, "%n@%h%a");
 524   params.nickname_parse = silc_nickname_format_parse;
 525   params.connauth_request_secs = settings_get_int("connauth_request_secs");
 526
 527   /* Allocate SILC client */
 528   silc_client = silc_client_alloc(&ops, &params, NULL, silc_version_string);
 529
 530   /* Get the ciphers and stuff from config file */
 531   def_cipher = settings_get_str("crypto_default_cipher");
 532   def_hash = settings_get_str("crypto_default_hash");
 533   def_hmac = settings_get_str("crypto_default_hmac");
 534   silc_register_cipher(silc_client, def_cipher);
 535   silc_register_hash(silc_client, def_hash);
 536   silc_register_hmac(silc_client, def_hmac);
 537   silc_pkcs_register_default();
 538
 539   /* Register SILC to the irssi */
 540   rec = g_new0(CHAT_PROTOCOL_REC, 1);
 541   rec->name = "SILC";
 542   rec->fullname = "Secure Internet Live Conferencing";
 543   rec->chatnet = "silcnet";
 544   rec->create_chatnet = create_chatnet;
 545   rec->create_server_setup = create_server_setup;
 546   rec->create_channel_setup = create_channel_setup;
 547   rec->create_server_connect = create_server_connect;
 548   rec->destroy_server_connect = destroy_server_connect;
 549   rec->server_init_connect = silc_server_init_connect;
 550   rec->server_connect = silc_server_connect;
 551   rec->channel_create = (CHANNEL_REC *(*) (SERVER_REC *, const char *,
 552                                            const char *, int))
 553     silc_channel_create;
 554   rec->query_create = (QUERY_REC *(*) (const char *, const char *, int))
 555     silc_query_create;
 556
 557   chat_protocol_register(rec);
 558   g_free(rec);
 559
 560   silc_queue_init();
 561   silc_server_init();
 562   silc_channels_init();
 563   silc_queries_init();
 564   silc_expandos_init();
 565   silc_lag_init();
 566   silc_chatnets_init();
 567
 568   module_register("silc", "core");
 569 }
 570
 571 /* Deinit SILC. Called from src/fe-text/silc.c */
 572
 573 void silc_core_deinit(void)
 574 {
 575   if (idletag != -1)
 576     g_source_remove(idletag);
 577
 578   signal_emit("chat protocol deinit", 1,
 579         chat_protocol_find("SILC"));
 580   signal_remove("setup changed", (SIGNAL_FUNC) sig_setup_changed);
 581   signal_remove("irssi init finished", (SIGNAL_FUNC) sig_init_finished);
 582   signal_remove("gui exit", (SIGNAL_FUNC) sig_gui_quit);
 583
 584   silc_queue_deinit();
 585   silc_server_deinit();
 586   silc_channels_deinit();
 587   silc_queries_deinit();
 588   silc_expandos_deinit();
 589   silc_lag_deinit();
 590   silc_chatnets_deinit();
 591
 592   chat_protocol_unregister("SILC");
 593
 594   silc_pkcs_private_key_free(irssi_privkey);
 595   silc_pkcs_public_key_free(irssi_pubkey);
 596   silc_client_free(silc_client);
 597 }