5 Author: Pekka Riikonen <priikone@silcnet.org>
7 Copyright (C) 1997 - 2002 Pekka Riikonen
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.
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.
21 * Created: Wed Mar 19 00:17:12 1997
23 * This is the main program for the SILC daemon. This parses command
24 * line arguments and creates the server object.
28 #include "serverincludes.h"
29 #include "server_internal.h"
30 #include "silcversion.h"
32 /* For now, we'll have this one server context global for this module. */
33 static SilcServer silcd;
35 static void silc_usage(void);
37 /* Long command line options */
38 static struct option long_opts[] =
40 { "config-file", 1, NULL, 'f' },
41 { "passphrase", 1, NULL, 'p' },
42 { "debug", 2, NULL, 'd' },
43 { "debug-level", 1, NULL, 'D' },
44 { "hexdump", 0, NULL, 'x' },
45 { "help", 0, NULL, 'h' },
46 { "foreground", 0, NULL, 'F' },
47 { "version", 0, NULL,'V' },
49 /* Key management options */
50 { "create-key-pair", 1, NULL, 'C' },
51 { "pkcs", 1, NULL, 10 },
52 { "bits", 1, NULL, 11 },
53 { "identifier", 1, NULL, 12 },
58 /* Command line option variables */
59 static char *opt_keypath = NULL;
60 static char *opt_pkcs = "rsa";
61 static char *opt_identifier = NULL;
62 static int opt_bits = 2048;
64 /* Prints out the usage of silc client */
66 static void silc_usage(void)
69 "Usage: silcd [options]\n"
72 " -f --config-file=FILE Alternate configuration file\n"
73 " -d --debug=string Enable debugging (Implies --foreground)\n"
74 " -D --debug-level=level Enable debugging (Implies --foreground)\n"
75 " -x --hexdump Enable hexdumps (Implies --debug)\n"
76 " -h --help Display this message\n"
77 " -F --foreground Dont fork\n"
78 " -V --version Display version\n"
80 " Key Management Options:\n"
81 " -C, --create-key-pair=PATH Create new public key pair\n"
82 " --pkcs=PKCS Set the PKCS of the public key pair\n"
83 " --bits=VALUE Set length of the public key pair\n"
84 " --identifier=IDENTIFIER Public key identifier\n"
86 " The public key identifier may be of the following format:\n"
88 " UN=<username>, HN=<hostname or IP>, RN=<real name>, E=<email>,\n"
89 " O=<organization>, C=<country>\n"
91 " The UN and HN must be provided, the others are optional. If the\n"
92 " --identifier option is not used an identifier will be created for\n"
93 " the public key automatically.\n"
95 " Example identifier: \"UN=foobar, HN=foo.bar.com, RN=Foo T. Bar, \n"
96 " E=foo@bar.com, C=FI\"\n"
101 /* Die if a *valid* pid file exists already */
103 static void silc_server_checkpid(SilcServer silcd)
105 if (silcd->config->server_info->pid_file) {
110 SILC_LOG_DEBUG(("Checking for another silcd running"));
111 buf = silc_file_readfile(silcd->config->server_info->pid_file, &buf_len);
118 kill(oldpid, SIGCHLD); /* this signal does nothing, check if alive */
119 if (errno != ESRCH) {
120 fprintf(stderr, "\nI detected another daemon running with the "
122 fprintf(stderr, "Please change the config file, or erase the %s\n",
123 silcd->config->server_info->pid_file);
129 /* Drop root privileges. If some system call fails, die. */
131 static void silc_server_drop_privs(SilcServer server)
133 /* Are we executing silcd as root or a regular user? */
135 SILC_LOG_DEBUG(("Server started as user"));
142 SILC_LOG_DEBUG(("Server started as root. Dropping privileges."));
144 /* Get the values given for user and group in configuration file */
145 user = server->config->server_info->user;
146 group = server->config->server_info->group;
148 if (!user || !group) {
149 fprintf(stderr, "Error:"
150 "\tSILC server must not be run as root. For the security of your\n"
151 "\tsystem it is strongly suggested that you run SILC under dedicated\n"
152 "\tuser account. Modify the ServerInfo configuration section to run\n"
153 "\tthe server as non-root user.\n");
157 /* Check whether the user/group does not begin with a number */
158 if (isdigit(user[0]) || isdigit(group[0])) {
159 SILC_LOG_DEBUG(("User and/or group starts with a number"));
160 fprintf(stderr, "Invalid user and/or group information\n");
161 fprintf(stderr, "Please assign them as names, not numbers\n");
165 if (!(pw = getpwnam(user))) {
166 fprintf(stderr, "Error: No such user %s found.\n", user);
169 if (!(gr = getgrnam(group))) {
170 fprintf(stderr, "Error: No such group %s found.\n", group);
174 /* Check whether user and/or group is set to root. If yes, exit
175 immediately. Otherwise, setgid and setuid server to user.group */
176 if ((gr->gr_gid == 0) || (pw->pw_uid == 0)) {
177 fprintf(stderr, "Error:"
178 "\tSILC server must not be run as root. For the security of your\n"
179 "\tsystem it is strongly suggested that you run SILC under dedicated\n"
180 "\tuser account. Modify the ServerInfo configuration section to run\n"
181 "\tthe server as non-root user.\n");
185 SILC_LOG_DEBUG(("Changing to group %s (gid=%u)", group, gr->gr_gid));
186 if (setgid(gr->gr_gid) != 0) {
187 fprintf(stderr, "Error: Failed setgid() to %s (gid=%u). Exiting.\n",
191 #if defined HAVE_SETGROUPS && defined HAVE_INITGROUPS
192 SILC_LOG_DEBUG(("Removing supplementary groups"));
193 if (setgroups(0, NULL) != 0) {
194 fprintf(stderr, "Error: Failed setgroups() to NULL. Exiting.\n");
197 SILC_LOG_DEBUG(("Setting supplementary groups for user %s", user));
198 if (initgroups(user, gr->gr_gid) != 0) {
199 fprintf(stderr, "Error: Failed initgroups() for user %s (gid=%u). "
200 "Exiting.\n", user, gr->gr_gid);
204 SILC_LOG_DEBUG(("Changing to user %s (uid=%u)", user, pw->pw_uid));
205 if (setuid(pw->pw_uid) != 0) {
206 fprintf(stderr, "Error: Failed to setuid() to %s (gid=%u). Exiting.\n",
213 /* Fork server to background */
215 static void silc_server_daemonise(SilcServer server)
219 SILC_LOG_DEBUG(("Forking SILC server to background"));
221 if ((i = fork()) < 0) {
222 fprintf(stderr, "Error: fork() failed: %s\n", strerror(errno));
226 if (i) /* Kill the parent */
229 server->background = TRUE;
232 /* XXX close stdin, stdout, stderr -- before this, check that all writes
233 to stderr are changed to SILC_SERVER_LOG_ERROR() */
236 static void signal_handler(int sig)
238 /* Mark the signal to be caller after this signal is over. */
239 silc_schedule_signal_call(silcd->schedule, sig);
242 SILC_TASK_CALLBACK(got_hup)
244 /* First, reset all log files (they might have been deleted) */
245 silc_log_reset_all();
247 /* Rehash the configuration file */
248 silc_server_rehash(silcd);
251 SILC_TASK_CALLBACK(stop_server)
253 /* Stop scheduler, the program will stop eventually after noticing
254 that the scheduler is down. */
255 silc_schedule_stop(silcd->schedule);
258 /* Dump server statistics into a file into /tmp directory */
260 SILC_TASK_CALLBACK(dump_stats)
265 memset(filename, 0, sizeof(filename));
266 snprintf(filename, sizeof(filename) - 1, "/tmp/silcd.%d.stats", getpid());
267 fdd = fopen(filename, "w+");
271 #define STAT_OUTPUT(fmt, stat) fprintf(fdd, fmt "\n", (int)stat);
273 fprintf(fdd, "SILC Server %s Statistics\n\n", silcd->server_name);
274 fprintf(fdd, "Local Stats:\n");
275 STAT_OUTPUT(" My clients : %d", silcd->stat.my_clients);
276 STAT_OUTPUT(" My servers : %d", silcd->stat.my_servers);
277 STAT_OUTPUT(" My routers : %d", silcd->stat.my_routers);
278 STAT_OUTPUT(" My channels : %d", silcd->stat.my_channels);
279 STAT_OUTPUT(" My joined users : %d", silcd->stat.my_chanclients);
280 STAT_OUTPUT(" My aways : %d", silcd->stat.my_aways);
281 STAT_OUTPUT(" My detached clients : %d", silcd->stat.my_detached);
282 STAT_OUTPUT(" My server operators : %d", silcd->stat.my_server_ops);
283 STAT_OUTPUT(" My router operators : %d", silcd->stat.my_router_ops);
284 fprintf(fdd, "\nGlobal Stats:\n");
285 STAT_OUTPUT(" Cell clients : %d", silcd->stat.cell_clients);
286 STAT_OUTPUT(" Cell servers : %d", silcd->stat.cell_servers);
287 STAT_OUTPUT(" Cell channels : %d", silcd->stat.cell_channels);
288 STAT_OUTPUT(" Cell joined users : %d", silcd->stat.cell_chanclients);
289 STAT_OUTPUT(" All clients : %d", silcd->stat.clients);
290 STAT_OUTPUT(" All servers : %d", silcd->stat.servers);
291 STAT_OUTPUT(" All routers : %d", silcd->stat.routers);
292 STAT_OUTPUT(" All channels : %d", silcd->stat.channels);
293 STAT_OUTPUT(" All joined users : %d", silcd->stat.chanclients);
294 STAT_OUTPUT(" All aways : %d", silcd->stat.aways);
295 STAT_OUTPUT(" All detached clients : %d", silcd->stat.detached);
296 STAT_OUTPUT(" All server operators : %d", silcd->stat.server_ops);
297 STAT_OUTPUT(" All router operators : %d", silcd->stat.router_ops);
298 fprintf(fdd, "\nGeneral Stats:\n");
299 STAT_OUTPUT(" Connection attempts : %d", silcd->stat.conn_attempts);
300 STAT_OUTPUT(" Connection failures : %d", silcd->stat.conn_failures);
301 STAT_OUTPUT(" Authentication attempts : %d", silcd->stat.auth_attempts);
302 STAT_OUTPUT(" Authentication failures : %d", silcd->stat.auth_failures);
303 STAT_OUTPUT(" Packets sent : %d", silcd->stat.packets_sent);
304 STAT_OUTPUT(" Packets received : %d", silcd->stat.packets_received);
309 /* Dump internal flags */
310 fprintf(fdd, "\nDumping internal flags\n");
311 fprintf(fdd, " server_type : %d\n", silcd->server_type);
312 fprintf(fdd, " standalone : %d\n", silcd->standalone);
313 fprintf(fdd, " listenning : %d\n", silcd->listenning);
314 fprintf(fdd, " background : %d\n", silcd->background);
315 fprintf(fdd, " backup_router : %d\n", silcd->backup_router);
316 fprintf(fdd, " backup_primary : %d\n", silcd->backup_primary);
317 fprintf(fdd, " backup_noswitch : %d\n", silcd->backup_noswitch);
318 fprintf(fdd, " wait_backup : %d\n", silcd->wait_backup);
320 fprintf(fdd, " primary router : %s\n",
321 silcd->router->server_name ? silcd->router->server_name : "");
325 SilcIDCacheList list = NULL;
326 SilcIDCacheEntry id_cache = NULL;
327 SilcServerEntry server_entry;
328 SilcClientEntry client_entry;
329 SilcChannelEntry channel_entry;
332 fprintf(fdd, "\nDumping databases\n");
334 if (silc_idcache_get_all(silcd->local_list->servers, &list)) {
335 if (silc_idcache_list_first(list, &id_cache)) {
336 fprintf(fdd, "\nServers in local-list:\n");
339 server_entry = (SilcServerEntry)id_cache->context;
340 fprintf(fdd, " %d: name %s id %s status 0x%x\n", c,
341 server_entry->server_name ? server_entry->server_name :
342 "N/A", server_entry->id ?
343 silc_id_render(server_entry->id, SILC_ID_SERVER) : "N/A",
344 server_entry->data.status);
345 if (!silc_idcache_list_next(list, &id_cache))
350 silc_idcache_list_free(list);
352 if (silc_idcache_get_all(silcd->global_list->servers, &list)) {
353 if (silc_idcache_list_first(list, &id_cache)) {
354 fprintf(fdd, "\nServers in global-list:\n");
357 server_entry = (SilcServerEntry)id_cache->context;
358 fprintf(fdd, " %d: name %s id %s status 0x%x\n", c,
359 server_entry->server_name ? server_entry->server_name :
360 "N/A", server_entry->id ?
361 silc_id_render(server_entry->id, SILC_ID_SERVER) : "N/A",
362 server_entry->data.status);
363 if (!silc_idcache_list_next(list, &id_cache))
368 silc_idcache_list_free(list);
370 if (silc_idcache_get_all(silcd->local_list->clients, &list)) {
371 if (silc_idcache_list_first(list, &id_cache)) {
372 fprintf(fdd, "\nClients in local-list:\n");
375 client_entry = (SilcClientEntry)id_cache->context;
376 fprintf(fdd, " %d: name %s id %s status 0x%x\n", c,
377 client_entry->nickname ? client_entry->nickname :
378 (unsigned char *)"N/A", client_entry->id ?
379 silc_id_render(client_entry->id, SILC_ID_CLIENT) : "N/A",
380 client_entry->data.status);
381 if (!silc_idcache_list_next(list, &id_cache))
386 silc_idcache_list_free(list);
388 if (silc_idcache_get_all(silcd->global_list->clients, &list)) {
389 if (silc_idcache_list_first(list, &id_cache)) {
390 fprintf(fdd, "\nClients in global-list:\n");
393 client_entry = (SilcClientEntry)id_cache->context;
394 fprintf(fdd, " %d: name %s id %s status 0x%x\n", c,
395 client_entry->nickname ? client_entry->nickname :
396 (unsigned char *)"N/A", client_entry->id ?
397 silc_id_render(client_entry->id, SILC_ID_CLIENT) : "N/A",
398 client_entry->data.status);
399 if (!silc_idcache_list_next(list, &id_cache))
404 silc_idcache_list_free(list);
406 if (silc_idcache_get_all(silcd->local_list->channels, &list)) {
407 if (silc_idcache_list_first(list, &id_cache)) {
408 fprintf(fdd, "\nChannels in local-list:\n");
411 channel_entry = (SilcChannelEntry)id_cache->context;
412 fprintf(fdd, " %d: name %s id %s\n", c,
413 channel_entry->channel_name ? channel_entry->channel_name :
414 "N/A", channel_entry->id ?
415 silc_id_render(channel_entry->id, SILC_ID_CHANNEL) : "N/A");
416 if (!silc_idcache_list_next(list, &id_cache))
421 silc_idcache_list_free(list);
423 if (silc_idcache_get_all(silcd->global_list->channels, &list)) {
424 if (silc_idcache_list_first(list, &id_cache)) {
425 fprintf(fdd, "\nChannels in global-list:\n");
428 channel_entry = (SilcChannelEntry)id_cache->context;
429 fprintf(fdd, " %d: name %s id %s\n", c,
430 channel_entry->channel_name ? channel_entry->channel_name :
431 "N/A", channel_entry->id ?
432 silc_id_render(channel_entry->id, SILC_ID_CHANNEL) : "N/A");
433 if (!silc_idcache_list_next(list, &id_cache))
438 silc_idcache_list_free(list);
452 static DebugLevel debug_levels[] = {
453 /* Very basic stuff from silcd/ */
454 { 3, "silcd\\.c,server\\.c" },
456 /* More stuff from silcd/ */
457 { 7, "silcd\\.c,server\\.c,command\\.c,server_backup\\.c,packet_send\\.c" },
459 /* All basic stuff from silcd/ */
460 { 10, "silc_server_*" },
462 /* All from silcd/ */
463 { 15, "*silcd*,*serverid*,silc_server_*,*idlist*" },
465 /* All from silcd/ and basic stuff from libs */
466 { 20, "*silcd*,*serverid*,silc_server_*,*idlist*,*silcauth*,*silcske*" },
468 /* All from silcd/ and more stuff from libs */
469 { 25, "*silcd*,*serverid*,silc_server_*,*idlist*,*silcauth*,"
470 "*silcpacket*,*ske*,*silcrng*" },
472 /* All from silcd/ and even more stuff from libs */
473 { 30, "*silcd*,*serverid*,silc_server_*,*idlist*,*silcauth*,"
474 "*silcpacket*,*ske*,*silcrng*,*command*,*channel*,*private*,*notify*" },
476 /* All from silcd/ and even more stuff from libs + all from silccore */
477 { 35, "*silcd*,*serverid*,silc_server_*,*idlist*,*silcauth*,"
478 "*silcpacket*,*ske*,*silcrng*,*command*,*channel*,*private*,*notify*"
479 "*silcid*,*argument*" },
481 /* All from silcd/, all from silccore, silccrypt and silcmath */
482 { 40, "*silcd*,*serverid*,silc_server_*,*idlist*,*silcauth*,"
483 "*silcpacket*,*ske*,*silcrng*,*command*,*channel*,*private*,*notify*"
484 "*silcid*,*argument*,*pkcs*,*hmac*,*hash*,*cipher*,silc_math*" },
486 /* All from silcd/, all from silccore, silccrypt and silcmath + stuff
488 { 45, "*silcd*,*serverid*,silc_server_*,*idlist*,*silcauth*,"
489 "*silcpacket*,*ske*,*silcrng*,*command*,*channel*,*private*,*notify*"
490 "*silcid*,*argument*,*pkcs*,*hmac*,*hash*,*cipher*,silc_math*,*sim*"
493 /* All from silcd/, all from silccore, silccrypt and silcmath + more stuff
495 { 50, "*silcd*,*serverid*,silc_server_*,*idlist*,*silcauth*,"
496 "*silcpacket*,*ske*,*silcrng*,*command*,*channel*,*private*,*notify*"
497 "*silcid*,*argument*,*pkcs*,*hmac*,*hash*,*cipher*,silc_math*,*sim*"
498 "*sockconn*,*net*" },
500 /* All from silcd/, all from silccore, silccrypt and silcmath + more stuff
502 { 55, "*silcd*,*serverid*,silc_server_*,*idlist*,*silcauth*,"
503 "*silcpacket*,*ske*,*silcrng*,*command*,*channel*,*private*,*notify*"
504 "*silcid*,*argument*,*pkcs*,*hmac*,*hash*,*cipher*,silc_math*,*sim*"
505 "*sockconn*,*net*,*log*,*config*" },
513 static void silc_get_debug_level(int level)
520 for (i = 0; debug_levels[i].string; i++)
521 if (level <= debug_levels[i].level) {
522 silc_log_set_debug_string(debug_levels[i].string);
527 /* This function should not be called directly but through the appropriate
528 wrapper macro defined in server.h */
530 void silc_server_stderr(SilcLogType type, char *message)
532 if (silcd->background) {
533 char *p, *n = message;
535 /* remove newlines if we are going to output it to a log file */
536 for (p = n; *p; p++) {
545 /* the message is freed inside the logging function */
546 silc_log_output(type, message);
549 fprintf(stderr, "%s\n", message);
554 int main(int argc, char **argv)
556 int ret, opt, option_index;
557 bool foreground = FALSE;
558 bool opt_create_keypair = FALSE;
559 char *silcd_config_file = NULL;
562 /* Parse command line arguments */
564 while ((opt = getopt_long(argc, argv, "f:p:d:D:xhFVC:",
565 long_opts, &option_index)) != EOF) {
571 printf("SILCd Secure Internet Live Conferencing daemon, "
572 "version %s (base: SILC Toolkit %s)\n",
573 silc_dist_version, silc_version);
574 printf("(c) 1997 - 2002 Pekka Riikonen "
575 "<priikone@silcnet.org>\n");
582 silc_log_set_debug_string(optarg);
583 foreground = TRUE; /* implied */
584 silc_log_quick = TRUE; /* implied */
587 "Run-time debugging is not enabled. To enable it recompile\n"
588 "the server with --enable-debug configuration option.\n");
595 silc_get_debug_level(atoi(optarg));
596 foreground = TRUE; /* implied */
597 silc_log_quick = TRUE; /* implied */
600 "Run-time debugging is not enabled. To enable it recompile\n"
601 "the server with --enable-debug configuration option.\n");
606 silc_debug_hexdump = TRUE;
607 silc_debug = TRUE; /* implied */
608 foreground = TRUE; /* implied */
609 silc_log_quick = TRUE; /* implied */
612 "Run-time debugging is not enabled. To enable it recompile\n"
613 "the server with --enable-debug configuration option.\n");
617 silcd_config_file = strdup(optarg);
624 * Key management options
627 opt_create_keypair = TRUE;
629 opt_keypath = strdup(optarg);
633 opt_pkcs = strdup(optarg);
637 opt_bits = atoi(optarg);
641 opt_identifier = strdup(optarg);
651 if (opt_create_keypair == TRUE) {
652 /* Create new key pair and exit */
653 char pubfile[256], prvfile[256];
655 memset(pubfile, 0, sizeof(pubfile));
656 memset(prvfile, 0, sizeof(prvfile));
657 snprintf(pubfile, sizeof(pubfile) - 1, "%s/silcd.pub", opt_keypath);
658 snprintf(prvfile, sizeof(prvfile) - 1, "%s/silcd.prv", opt_keypath);
660 silc_cipher_register_default();
661 silc_pkcs_register_default();
662 silc_hash_register_default();
663 silc_hmac_register_default();
664 silc_create_key_pair(opt_pkcs, opt_bits, pubfile, prvfile,
665 opt_identifier, "", NULL, NULL, NULL, FALSE);
669 /* Default configuration file */
670 if (!silcd_config_file)
671 silcd_config_file = strdup(SILC_SERVER_CONFIG_FILE);
673 /* Create SILC Server object */
674 ret = silc_server_alloc(&silcd);
678 /* Register default crypto stuff since we are going to need them
679 in the configuration file parsing phase */
680 silc_cipher_register_default();
681 silc_pkcs_register_default();
682 silc_hash_register_default();
683 silc_hmac_register_default();
685 /* Read configuration files */
686 silcd->config = silc_server_config_alloc(silcd_config_file);
687 if (silcd->config == NULL)
689 silcd->config_file = silcd_config_file;
691 /* Unregister the default crypto stuff so that configuration takes effect */
692 silc_cipher_unregister_all();
693 silc_pkcs_unregister_all();
694 silc_hash_unregister_all();
695 silc_hmac_unregister_all();
697 /* Check for another silcd running */
698 silc_server_checkpid(silcd);
700 /* Initialize the server */
701 if (silc_server_init(silcd) == FALSE)
705 sa.sa_handler = SIG_IGN;
707 sigemptyset(&sa.sa_mask);
708 sigaction(SIGPIPE, &sa, NULL);
709 sa.sa_handler = signal_handler;
710 sigaction(SIGHUP, &sa, NULL);
711 sigaction(SIGTERM, &sa, NULL);
712 sigaction(SIGINT, &sa, NULL);
713 sigaction(SIGUSR1, &sa, NULL);
714 silc_schedule_signal_register(silcd->schedule, SIGHUP, got_hup, NULL);
715 silc_schedule_signal_register(silcd->schedule, SIGTERM, stop_server, NULL);
716 silc_schedule_signal_register(silcd->schedule, SIGINT, stop_server, NULL);
717 silc_schedule_signal_register(silcd->schedule, SIGUSR1, dump_stats, NULL);
720 /* Before running the server, fork to background. */
721 silc_server_daemonise(silcd);
723 /* If set, write pid to file */
724 if (silcd->config->server_info->pid_file) {
725 char buf[10], *pidfile = silcd->config->server_info->pid_file;
727 snprintf(buf, sizeof(buf) - 1, "%d\n", getpid());
728 silc_file_writefile(pidfile, buf, strlen(buf));
732 /* Drop root if we are not in debug mode, so you don't need to bother about
733 file writing permissions and so on */
735 silc_server_drop_privs(silcd);
737 /* Run the server. When this returns the server has been stopped
739 silc_server_run(silcd);
741 /* Stop the server and free it. */
742 silc_server_stop(silcd);
743 silc_server_config_destroy(silcd->config);
744 silc_server_free(silcd);
746 /* Flush the logging system */
747 silc_log_flush_all();
749 silc_free(silcd_config_file);
750 silc_free(opt_identifier);
751 silc_free(opt_keypath);
755 silc_free(silcd_config_file);
756 silc_free(opt_identifier);
757 silc_free(opt_keypath);