apps/silc/silc.c

   1 /*
   2
   3   silc.c
   4
   5   Author: Pekka Riikonen <priikone@poseidon.pspt.fi>
   6
   7   Copyright (C) 1997 - 2000 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 /* $Id$ */
  21
  22 #include "clientincludes.h"
  23 #include "version.h"
  24
  25 /* Static function prototypes */
  26 static int silc_client_bad_keys(unsigned char key);
  27 static void silc_client_clear_input(SilcClientInternal app);
  28 static void silc_client_process_message(SilcClientInternal app);
  29 static char *silc_client_parse_command(unsigned char *buffer);
  30
  31 void silc_client_create_main_window(SilcClientInternal app);
  32
  33 /* Static task callback prototypes */
  34 SILC_TASK_CALLBACK(silc_client_update_clock);
  35 SILC_TASK_CALLBACK(silc_client_run_commands);
  36 SILC_TASK_CALLBACK(silc_client_process_key_press);
  37
  38 /* Long command line options */
  39 static struct option long_opts[] =
  40 {
  41   /* Generic options */
  42   { "server", 1, NULL, 's' },
  43   { "port", 1, NULL, 'p' },
  44   { "nickname", 1, NULL, 'n' },
  45   { "channel", 1, NULL, 'c' },
  46   { "cipher", 1, NULL, 'r' },
  47   { "public-key", 1, NULL, 'b' },
  48   { "private-key", 1, NULL, 'k' },
  49   { "config-file", 1, NULL, 'f' },
  50   { "no-silcrc", 0, NULL, 'q' },
  51   { "debug", 0, NULL, 'd' },
  52   { "help", 0, NULL, 'h' },
  53   { "version", 0, NULL, 'V' },
  54   { "list-ciphers", 0, NULL, 1 },
  55   { "list-hash-funcs", 0, NULL, 2 },
  56   { "list-pkcs", 0, NULL, 3 },
  57
  58   /* Key management options */
  59   { "create-key-pair", 0, NULL, 'C' },
  60   { "pkcs", 1, NULL, 10 },
  61   { "bits", 1, NULL, 11 },
  62   { "show-key", 1, NULL, 'S' },
  63
  64   { NULL, 0, NULL, 0 }
  65 };
  66
  67 /* Command line option variables */
  68 static char *opt_server = NULL;
  69 static int opt_port = 0;
  70 static char *opt_nickname = NULL;
  71 static char *opt_channel = NULL;
  72 static char *opt_cipher = NULL;
  73 static char *opt_public_key = NULL;
  74 static char *opt_private_key = NULL;
  75 static char *opt_config_file = NULL;
  76 static bool opt_no_silcrc = FALSE;
  77
  78 static bool opt_create_keypair = FALSE;
  79 static bool opt_show_key = FALSE;
  80 static char *opt_pkcs = NULL;
  81 static char *opt_keyfile = NULL;
  82 static int opt_bits = 0;
  83
  84 /* SILC Client operations */
  85 extern SilcClientOperations ops;
  86
  87 /* Prints out the usage of silc client */
  88
  89 void usage()
  90 {
  91   printf("\
  92 Usage: silc [options]\n\
  93 \n\
  94   Generic Options:\n\
  95   -s, --server=HOST            Open connection to server HOST\n\
  96   -p, --port=PORT              Set PORT as default port to connect\n\
  97   -n, --nickname=STRING        Set default nickname on startup\n\
  98   -c, --channel=STRING         Join channel on startup\n\
  99   -r, --cipher=CIPHER          Use CIPHER as default cipher in SILC\n\
 100   -b, --public-key=FILE        Public key used in SILC\n\
 101   -k, --private-key=FILE       Private key used in SILC\n\
 102   -f, --config-file=FILE       Alternate configuration file\n\
 103   -q, --no-silcrc              Don't load ~/.silcrc on startup\n\
 104   -d, --debug                  Enable debugging\n\
 105   -h, --help                   Display this help message\n\
 106   -V, --version                Display version\n\
 107       --list-ciphers           List supported ciphers\n\
 108       --list-hash-funcs        List supported hash functions\n\
 109       --list-pkcs              List supported PKCS's\n\
 110 \n\
 111   Key Management Options:\n\
 112   -C, --create-key-pair        Create new public key pair\n\
 113       --pkcs=PKCS              Set the PKCS of the public key pair\n\
 114       --bits=VALUE             Set length of the public key pair\n\
 115   -S, --show-key=FILE          Show the contents of the public key\n\
 116 \n");
 117 }
 118
 119 int main(int argc, char **argv)
 120 {
 121   int opt, option_index = 1;
 122   int ret;
 123   SilcClient silc = NULL;
 124   SilcClientInternal app = NULL;
 125
 126   silc_debug = FALSE;
 127
 128   if (argc > 1)
 129     {
 130       while ((opt =
 131               getopt_long(argc, argv,
 132                           "s:p:n:c:b:k:f:qdhVCS:",
 133                           long_opts, &option_index)) != EOF)
 134         {
 135           switch(opt)
 136             {
 137               /*
 138                * Generic options
 139                */
 140             case 's':
 141               if (optarg)
 142                 opt_server = strdup(optarg);
 143               break;
 144             case 'p':
 145               if (optarg)
 146                 opt_port = atoi(optarg);
 147               break;
 148             case 'n':
 149               if (optarg)
 150                 opt_nickname = strdup(optarg);
 151               break;
 152             case 'c':
 153               if (optarg)
 154                 opt_channel = strdup(optarg);
 155               break;
 156             case 'r':
 157               if (optarg)
 158                 opt_cipher = strdup(optarg);
 159               break;
 160             case 'b':
 161               if (optarg)
 162                 opt_public_key = strdup(optarg);
 163               break;
 164             case 'k':
 165               if (optarg)
 166                 opt_private_key = strdup(optarg);
 167               break;
 168             case 'f':
 169               if (optarg)
 170                 opt_config_file = strdup(optarg);
 171               break;
 172             case 'q':
 173               opt_no_silcrc = TRUE;
 174               break;
 175             case 'd':
 176               silc_debug = TRUE;
 177               break;
 178             case 'h':
 179               usage();
 180               exit(0);
 181               break;
 182             case 'V':
 183               printf("\
 184 SILC Secure Internet Live Conferencing, version %s\n",
 185                      silc_version);
 186               printf("\
 187 (c) 1997 - 2000 Pekka Riikonen <priikone@poseidon.pspt.fi>\n");
 188               exit(0);
 189               break;
 190             case 1:
 191               silc_client_list_ciphers();
 192               exit(0);
 193               break;
 194             case 2:
 195               silc_client_list_hash_funcs();
 196               exit(0);
 197               break;
 198             case 3:
 199               silc_client_list_pkcs();
 200               exit(0);
 201               break;
 202
 203               /*
 204                * Key management options
 205                */
 206             case 'C':
 207               opt_create_keypair = TRUE;
 208               break;
 209             case 10:
 210               if (optarg)
 211                 opt_pkcs = strdup(optarg);
 212               break;
 213             case 11:
 214               if (optarg)
 215                 opt_bits = atoi(optarg);
 216               break;
 217             case 'S':
 218               opt_show_key = TRUE;
 219               if (optarg)
 220                 opt_keyfile = strdup(optarg);
 221               break;
 222
 223             default:
 224               exit(0);
 225               break;
 226             }
 227         }
 228     }
 229
 230   /* Init signals */
 231   signal(SIGHUP, SIG_DFL);
 232   signal(SIGTERM, SIG_DFL);
 233   signal(SIGPIPE, SIG_IGN);
 234   signal(SIGCHLD, SIG_DFL);
 235   signal(SIGALRM, SIG_IGN);
 236   signal(SIGQUIT, SIG_IGN);
 237   signal(SIGSEGV, SIG_DFL);
 238   signal(SIGBUS, SIG_DFL);
 239   signal(SIGFPE, SIG_DFL);
 240   //  signal(SIGINT, SIG_IGN);
 241
 242 #ifdef SOCKS
 243   /* Init SOCKS */
 244   SOCKSinit(argv[0]);
 245 #endif
 246
 247   if (opt_create_keypair == TRUE) {
 248     /* Create new key pair and exit */
 249     silc_client_create_key_pair(opt_pkcs, opt_bits,
 250                                 NULL, NULL, NULL, NULL, NULL);
 251     silc_free(opt_pkcs);
 252     exit(0);
 253   }
 254
 255   if (opt_show_key == TRUE) {
 256     /* Dump the key */
 257     silc_cipher_register_default();
 258     silc_pkcs_register_default();
 259     silc_hash_register_default();
 260     silc_hmac_register_default();
 261     silc_client_show_key(opt_keyfile);
 262     silc_free(opt_keyfile);
 263     exit(0);
 264   }
 265
 266   /* Default configuration file */
 267   if (!opt_config_file)
 268     opt_config_file = strdup(SILC_CLIENT_CONFIG_FILE);
 269
 270   /* Allocate internal application context */
 271   app = silc_calloc(1, sizeof(*app));
 272
 273   /* Allocate new client */
 274   app->client = silc = silc_client_alloc(&ops, app);
 275   if (!silc)
 276     goto fail;
 277
 278   /* Read global configuration file. */
 279   app->config = silc_client_config_alloc(opt_config_file);
 280
 281   /* XXX Read local configuration file */
 282
 283   /* Check ~/.silc directory and public and private keys */
 284   if (silc_client_check_silc_dir() == FALSE)
 285     goto fail;
 286
 287   /* Get user information */
 288   silc->username = silc_get_username();
 289   silc->hostname = silc_net_localhost();
 290   silc->realname = silc_get_real_name();
 291
 292   /* Register all configured ciphers, PKCS and hash functions. */
 293   if (app->config) {
 294     app->config->client = (void *)app;
 295     if (!silc_client_config_register_ciphers(app->config))
 296       silc_cipher_register_default();
 297     if (!silc_client_config_register_pkcs(app->config))
 298       silc_pkcs_register_default();
 299     if (!silc_client_config_register_hashfuncs(app->config))
 300       silc_hash_register_default();
 301     if (!silc_client_config_register_hmacs(app->config))
 302       silc_hmac_register_default();
 303   } else {
 304     /* Register default ciphers, pkcs, hash funtions and hmacs. */
 305     silc_cipher_register_default();
 306     silc_pkcs_register_default();
 307     silc_hash_register_default();
 308     silc_hmac_register_default();
 309   }
 310
 311   /* Load public and private key */
 312   if (silc_client_load_keys(silc) == FALSE)
 313     goto fail;
 314
 315   /* Initialize the client. This initializes the client library and
 316      sets everything ready for silc_client_run. */
 317   ret = silc_client_init(silc);
 318   if (ret == FALSE)
 319     goto fail;
 320
 321   /* Register the main task that is used in client. This receives
 322      the key pressings. */
 323   silc_task_register(silc->io_queue, fileno(stdin),
 324                      silc_client_process_key_press,
 325                      (void *)silc, 0, 0,
 326                      SILC_TASK_FD,
 327                      SILC_TASK_PRI_NORMAL);
 328
 329   /* Register timeout task that updates clock every minute. */
 330   silc_task_register(silc->timeout_queue, 0,
 331                      silc_client_update_clock,
 332                      (void *)silc,
 333                      silc_client_time_til_next_min(), 0,
 334                      SILC_TASK_TIMEOUT,
 335                      SILC_TASK_PRI_LOW);
 336
 337   if (app->config && app->config->commands) {
 338     /* Run user configured commands with timeout */
 339     silc_task_register(silc->timeout_queue, 0,
 340                        silc_client_run_commands,
 341                        (void *)silc, 0, 1,
 342                        SILC_TASK_TIMEOUT,
 343                        SILC_TASK_PRI_LOW);
 344   }
 345
 346   /* Allocate the input buffer used to save typed characters */
 347   app->input_buffer = silc_buffer_alloc(SILC_SCREEN_INPUT_WIN_SIZE);
 348   silc_buffer_pull_tail(app->input_buffer,
 349                         SILC_BUFFER_END(app->input_buffer));
 350
 351   /* Initialize the screen */
 352   silc_client_create_main_window(app);
 353   silc_screen_print_coordinates(app->screen, 0);
 354
 355   /* Run the client. When this returns the application will be
 356      terminated. */
 357   silc_client_run(silc);
 358
 359   /* Stop the client. This probably has been done already but it
 360      doesn't hurt to do it here again. */
 361   silc_client_stop(silc);
 362   silc_client_free(silc);
 363
 364   exit(0);
 365
 366  fail:
 367   if (opt_config_file)
 368     silc_free(opt_config_file);
 369   if (app->config)
 370     silc_client_config_free(app->config);
 371   if (silc)
 372     silc_client_free(silc);
 373   exit(1);
 374 }
 375
 376 /* Creates the main window used in SILC client. This is called always
 377    at the initialization of the client. If user wants to create more
 378    than one windows a new windows are always created by calling
 379    silc_client_add_window. */
 380
 381 void silc_client_create_main_window(SilcClientInternal app)
 382 {
 383   void *screen;
 384
 385   SILC_LOG_DEBUG(("Creating main window"));
 386
 387   app->screen = silc_screen_init();
 388   app->screen->input_buffer = app->input_buffer->data;
 389   app->screen->u_stat_line.program_name = silc_name;
 390   app->screen->u_stat_line.program_version = silc_version;
 391
 392   /* Create the actual screen */
 393   screen = (void *)silc_screen_create_output_window(app->screen);
 394   silc_screen_create_input_window(app->screen);
 395   silc_screen_init_upper_status_line(app->screen);
 396   silc_screen_init_output_status_line(app->screen);
 397
 398   app->screen->bottom_line->nickname = silc_get_username();
 399   silc_screen_print_bottom_line(app->screen, 0);
 400 }
 401
 402 /* The main task on SILC client. This processes the key pressings user
 403    has made. */
 404
 405 SILC_TASK_CALLBACK(silc_client_process_key_press)
 406 {
 407   SilcClient client = (SilcClient)context;
 408   SilcClientInternal app = (SilcClientInternal)client->application;
 409   int c;
 410
 411   /* There is data pending in stdin, this gets it directly */
 412   c = wgetch(app->screen->input_win);
 413   if (silc_client_bad_keys(c))
 414     return;
 415
 416   SILC_LOG_DEBUG(("Pressed key: %d", c));
 417
 418   switch(c) {
 419     /*
 420      * Special character handling
 421      */
 422   case KEY_UP:
 423   case KEY_DOWN:
 424     break;
 425   case KEY_RIGHT:
 426     /* Right arrow */
 427     SILC_LOG_DEBUG(("RIGHT"));
 428     silc_screen_input_cursor_right(app->screen);
 429     break;
 430   case KEY_LEFT:
 431     /* Left arrow */
 432     SILC_LOG_DEBUG(("LEFT"));
 433     silc_screen_input_cursor_left(app->screen);
 434     break;
 435   case KEY_BACKSPACE:
 436   case KEY_DC:
 437   case '\177':
 438   case '\b':
 439     /* Backspace */
 440     silc_screen_input_backspace(app->screen);
 441     break;
 442   case '\011':
 443     /* Tabulator */
 444     break;
 445   case KEY_IC:
 446     /* Insert switch. Turns on/off insert on input window */
 447     silc_screen_input_insert(app->screen);
 448     break;
 449   case CTRL('j'):
 450   case '\r':
 451     /* Enter, Return. User pressed enter we are ready to
 452        process the message. */
 453     silc_client_process_message(app);
 454     break;
 455   case CTRL('l'):
 456     /* Refresh screen, Ctrl^l */
 457     silc_screen_refresh_all(app->screen);
 458     break;
 459   case CTRL('a'):
 460   case KEY_HOME:
 461 #ifdef KEY_BEG
 462   case KEY_BEG:
 463 #endif
 464     /* Beginning, Home */
 465     silc_screen_input_cursor_home(app->screen);
 466     break;
 467   case CTRL('e'):
 468 #ifdef KEY_END
 469   case KEY_END:
 470 #endif
 471   case KEY_LL:
 472     /* End */
 473     silc_screen_input_cursor_end(app->screen);
 474     break;
 475   case CTRL('g'):
 476     /* Bell, Ctrl^g */
 477     beep();
 478     break;
 479   case KEY_DL:
 480   case CTRL('u'):
 481     /* Delete line */
 482     silc_client_clear_input(app);
 483     break;
 484   default:
 485     /*
 486      * Other characters
 487      */
 488     if (c < 32) {
 489       /* Control codes are printed as reversed */
 490       c = (c & 127) | 64;
 491       wattron(app->screen->input_win, A_REVERSE);
 492       silc_screen_input_print(app->screen, c);
 493       wattroff(app->screen->input_win, A_REVERSE);
 494     } else  {
 495       /* Normal character */
 496       silc_screen_input_print(app->screen, c);
 497     }
 498   }
 499
 500   silc_screen_print_coordinates(app->screen, 0);
 501   silc_screen_refresh_win(app->screen->input_win);
 502 }
 503
 504 static int silc_client_bad_keys(unsigned char key)
 505 {
 506   /* these are explained in curses.h */
 507   switch(key) {
 508   case KEY_SF:
 509   case KEY_SR:
 510   case KEY_NPAGE:
 511   case KEY_PPAGE:
 512   case KEY_PRINT:
 513   case KEY_A1:
 514   case KEY_A3:
 515   case KEY_B2:
 516   case KEY_C1:
 517   case KEY_C3:
 518 #ifdef KEY_UNDO
 519   case KEY_UNDO:
 520 #endif
 521 #ifdef KEY_EXIT
 522   case KEY_EXIT:
 523 #endif
 524   case '\v':           /* VT */
 525   case '\E':           /* we ignore ESC */
 526     return TRUE;
 527   default:
 528     return FALSE;
 529   }
 530 }
 531
 532 /* Clears input buffer */
 533
 534 static void silc_client_clear_input(SilcClientInternal app)
 535 {
 536   silc_buffer_clear(app->input_buffer);
 537   silc_buffer_pull_tail(app->input_buffer,
 538                         SILC_BUFFER_END(app->input_buffer));
 539   silc_screen_input_reset(app->screen);
 540 }
 541
 542 /* Processes messages user has typed on the screen. This either sends
 543    a packet out to network or if command were written executes it. */
 544
 545 static void silc_client_process_message(SilcClientInternal app)
 546 {
 547   unsigned char *data;
 548   uint32 len;
 549
 550   SILC_LOG_DEBUG(("Start"));
 551
 552   data = app->input_buffer->data;
 553   len = strlen(data);
 554
 555   if (data[0] == '/' && data[1] != ' ') {
 556     /* Command */
 557     uint32 argc = 0;
 558     unsigned char **argv, *tmpcmd;
 559     uint32 *argv_lens, *argv_types;
 560     SilcClientCommand *cmd;
 561     SilcClientCommandContext ctx;
 562
 563     /* Get the command */
 564     tmpcmd = silc_client_parse_command(data);
 565     cmd = silc_client_local_command_find(tmpcmd);
 566     if (!cmd && (cmd = silc_client_command_find(tmpcmd)) == NULL) {
 567       silc_say(app->client, app->current_win, "Invalid command: %s", tmpcmd);
 568       silc_free(tmpcmd);
 569       goto out;
 570     }
 571
 572     /* Now parse all arguments */
 573     silc_parse_command_line(data + 1, &argv, &argv_lens,
 574                             &argv_types, &argc, cmd->max_args);
 575     silc_free(tmpcmd);
 576
 577     SILC_LOG_DEBUG(("Executing command: %s", cmd->name));
 578
 579     /* Allocate command context. This and its internals must be free'd
 580        by the command routine receiving it. */
 581     ctx = silc_client_command_alloc();
 582     ctx->client = app->client;
 583     ctx->conn = app->conn;
 584     ctx->command = cmd;
 585     ctx->argc = argc;
 586     ctx->argv = argv;
 587     ctx->argv_lens = argv_lens;
 588     ctx->argv_types = argv_types;
 589
 590     /* Execute command */
 591     (*cmd->cb)(ctx);
 592
 593   } else {
 594     /* Normal message to a channel */
 595     if (len && app->conn && app->conn->current_channel &&
 596         app->conn->current_channel->on_channel == TRUE) {
 597       silc_print(app->client, "> %s", data);
 598       silc_client_send_channel_message(app->client,
 599                                        app->conn,
 600                                        app->conn->current_channel, NULL,
 601                                        0, data, strlen(data), TRUE);
 602     }
 603   }
 604
 605  out:
 606   /* Clear the input buffer */
 607   silc_client_clear_input(app);
 608 }
 609
 610 /* Returns the command fetched from user typed command line */
 611
 612 static char *silc_client_parse_command(unsigned char *buffer)
 613 {
 614   char *ret;
 615   const char *cp = buffer;
 616   int len;
 617
 618   len = strcspn(cp, " ");
 619   ret = silc_to_upper((char *)++cp);
 620   ret[len - 1] = 0;
 621
 622   return ret;
 623 }
 624
 625 /* Updates clock on the screen every minute. */
 626
 627 SILC_TASK_CALLBACK(silc_client_update_clock)
 628 {
 629   SilcClient client = (SilcClient)context;
 630   SilcClientInternal app = (SilcClientInternal)client->application;
 631
 632   /* Update the clock on the screen */
 633   silc_screen_print_clock(app->screen);
 634
 635   /* Re-register this same task */
 636   silc_task_register(qptr, 0, silc_client_update_clock, context,
 637                      silc_client_time_til_next_min(), 0,
 638                      SILC_TASK_TIMEOUT,
 639                      SILC_TASK_PRI_LOW);
 640
 641   silc_screen_refresh_win(app->screen->input_win);
 642 }
 643
 644 /* Runs commands user configured in configuration file. This is
 645    called when initializing client. */
 646
 647 SILC_TASK_CALLBACK(silc_client_run_commands)
 648 {
 649   SilcClient client = (SilcClient)context;
 650   SilcClientInternal app = (SilcClientInternal)client->application;
 651   SilcClientConfigSectionCommand *cs;
 652
 653   SILC_LOG_DEBUG(("Start"));
 654
 655   cs = app->config->commands;
 656   while(cs) {
 657     uint32 argc = 0;
 658     unsigned char **argv, *tmpcmd;
 659     uint32 *argv_lens, *argv_types;
 660     SilcClientCommand *cmd;
 661     SilcClientCommandContext ctx;
 662
 663     /* Get the command */
 664     tmpcmd = silc_client_parse_command(cs->command);
 665     cmd = silc_client_local_command_find(tmpcmd);
 666     if (!cmd && (cmd = silc_client_command_find(tmpcmd)) == NULL) {
 667       silc_say(client, app->conn, "Invalid command: %s", tmpcmd);
 668       silc_free(tmpcmd);
 669       continue;
 670     }
 671
 672     /* Now parse all arguments */
 673     silc_parse_command_line(cs->command + 1, &argv, &argv_lens,
 674                             &argv_types, &argc, cmd->max_args);
 675     silc_free(tmpcmd);
 676
 677     SILC_LOG_DEBUG(("Executing command: %s", cmd->name));
 678
 679     /* Allocate command context. This and its internals must be free'd
 680        by the command routine receiving it. */
 681     ctx = silc_client_command_alloc();
 682     ctx->client = client;
 683     ctx->conn = app->conn;
 684     ctx->command = cmd;
 685     ctx->argc = argc;
 686     ctx->argv = argv;
 687     ctx->argv_lens = argv_lens;
 688     ctx->argv_types = argv_types;
 689
 690     /* Execute command */
 691     (*cmd->cb)(ctx);
 692
 693     cs = cs->next;
 694   }
 695 }