]> jfr.im git - solanum.git/blob - ircd/ircd.c
doc/reference.conf: document the auth::umodes configuration option
[solanum.git] / ircd / ircd.c
1 /*
2 * Solanum: a slightly advanced ircd
3 * ircd.c: Starts up and runs the ircd.
4 *
5 * Copyright (C) 1990 Jarkko Oikarinen and University of Oulu, Co Center
6 * Copyright (C) 1996-2002 Hybrid Development Team
7 * Copyright (C) 2002-2008 ircd-ratbox development team
8 * Copyright (C) 2005-2013 charybdis development team
9 *
10 * This program is free software; you can redistribute it and/or modify
11 * it under the terms of the GNU General Public License as published by
12 * the Free Software Foundation; either version 2 of the License, or
13 * (at your option) any later version.
14 *
15 * This program is distributed in the hope that it will be useful,
16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 * GNU General Public License for more details.
19 *
20 * You should have received a copy of the GNU General Public License
21 * along with this program; if not, write to the Free Software
22 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
23 * USA
24 */
25
26 #include "rb_lib.h"
27 #include "stdinc.h"
28 #include "setup.h"
29 #include "defaults.h"
30 #include "ircd.h"
31 #include "channel.h"
32 #include "class.h"
33 #include "client.h"
34 #include "hash.h"
35 #include "match.h"
36 #include "ircd_signal.h"
37 #include "msg.h" /* msgtab */
38 #include "hostmask.h"
39 #include "numeric.h"
40 #include "parse.h"
41 #include "restart.h"
42 #include "s_conf.h"
43 #include "logger.h"
44 #include "s_serv.h" /* try_connections */
45 #include "s_user.h"
46 #include "s_stats.h"
47 #include "scache.h"
48 #include "send.h"
49 #include "supported.h"
50 #include "whowas.h"
51 #include "modules.h"
52 #include "hook.h"
53 #include "ircd_getopt.h"
54 #include "newconf.h"
55 #include "reject.h"
56 #include "s_newconf.h"
57 #include "cache.h"
58 #include "monitor.h"
59 #include "patchlevel.h"
60 #include "serno.h"
61 #include "sslproc.h"
62 #include "wsproc.h"
63 #include "chmode.h"
64 #include "privilege.h"
65 #include "bandbi.h"
66 #include "authproc.h"
67 #include "operhash.h"
68
69 static void
70 ircd_die_cb(const char *str) __attribute__((noreturn));
71
72 /* /quote set variables */
73 struct SetOptions GlobalSetOptions;
74
75 /* configuration set from ircd.conf */
76 struct config_file_entry ConfigFileEntry;
77 /* server info set from ircd.conf */
78 struct server_info ServerInfo;
79 /* admin info set from ircd.conf */
80 struct admin_info AdminInfo;
81
82 struct Counter Count;
83 struct ServerStatistics ServerStats;
84
85 int maxconnections;
86 struct Client me; /* That's me */
87 struct LocalUser meLocalUser; /* That's also part of me */
88
89 rb_dlink_list global_client_list;
90
91 /* unknown/client pointer lists */
92 rb_dlink_list unknown_list; /* unknown clients ON this server only */
93 rb_dlink_list lclient_list; /* local clients only ON this server */
94 rb_dlink_list serv_list; /* local servers to this server ONLY */
95 rb_dlink_list global_serv_list; /* global servers on the network */
96 rb_dlink_list local_oper_list; /* our opers, duplicated in lclient_list */
97 rb_dlink_list oper_list; /* network opers */
98
99 char * const *myargv;
100 volatile sig_atomic_t dorehash = false;
101 volatile sig_atomic_t dorehashbans = false;
102 volatile sig_atomic_t doremotd = false;
103 bool kline_queued = false;
104 bool server_state_foreground = false;
105 bool opers_see_all_users = false;
106 bool ircd_ssl_ok = false;
107 bool ircd_zlib_ok = true;
108
109 int testing_conf = 0;
110 time_t startup_time;
111
112 int default_server_capabs;
113
114 int splitmode;
115 int splitchecking;
116 int split_users;
117 int split_servers;
118 int eob_count;
119
120 const char *ircd_paths[IRCD_PATH_COUNT] = {
121 [IRCD_PATH_PREFIX] = DPATH,
122 [IRCD_PATH_MODULES] = MODPATH,
123 [IRCD_PATH_AUTOLOAD_MODULES] = AUTOMODPATH,
124 [IRCD_PATH_ETC] = ETCPATH,
125 [IRCD_PATH_LOG] = LOGPATH,
126 [IRCD_PATH_USERHELP] = UHPATH,
127 [IRCD_PATH_OPERHELP] = HPATH,
128 [IRCD_PATH_IRCD_EXEC] = SPATH,
129 [IRCD_PATH_IRCD_CONF] = CPATH,
130 [IRCD_PATH_IRCD_MOTD] = MPATH,
131 [IRCD_PATH_IRCD_LOG] = LPATH,
132 [IRCD_PATH_IRCD_PID] = PPATH,
133 [IRCD_PATH_IRCD_OMOTD] = OPATH,
134 [IRCD_PATH_BANDB] = DBPATH,
135 [IRCD_PATH_BIN] = BINPATH,
136 [IRCD_PATH_LIBEXEC] = PKGLIBEXECDIR,
137 };
138
139 const char *ircd_pathnames[IRCD_PATH_COUNT] = {
140 [IRCD_PATH_PREFIX] = "prefix",
141 [IRCD_PATH_MODULES] = "modules",
142 [IRCD_PATH_AUTOLOAD_MODULES] = "autoload modules",
143 [IRCD_PATH_ETC] = "config",
144 [IRCD_PATH_LOG] = "log",
145 [IRCD_PATH_USERHELP] = "user help",
146 [IRCD_PATH_OPERHELP] = "oper help",
147 [IRCD_PATH_IRCD_EXEC] = "ircd binary",
148 [IRCD_PATH_IRCD_CONF] = "ircd.conf",
149 [IRCD_PATH_IRCD_MOTD] = "ircd.motd",
150 [IRCD_PATH_IRCD_LOG] = "ircd.log",
151 [IRCD_PATH_IRCD_PID] = "ircd.pid",
152 [IRCD_PATH_IRCD_OMOTD] = "oper motd",
153 [IRCD_PATH_BANDB] = "bandb",
154 [IRCD_PATH_BIN] = "binary dir",
155 [IRCD_PATH_LIBEXEC] = "libexec dir",
156 };
157
158 const char *logFileName = NULL;
159 const char *pidFileName = NULL;
160
161 void
162 ircd_shutdown(const char *reason)
163 {
164 struct Client *target_p;
165 rb_dlink_node *ptr;
166
167 RB_DLINK_FOREACH(ptr, lclient_list.head)
168 {
169 target_p = ptr->data;
170
171 sendto_one(target_p, ":%s NOTICE %s :Server Terminating. %s",
172 me.name, target_p->name, reason);
173 }
174
175 RB_DLINK_FOREACH(ptr, serv_list.head)
176 {
177 target_p = ptr->data;
178
179 sendto_one(target_p, ":%s ERROR :Terminated by %s",
180 me.name, reason);
181 }
182
183 ilog(L_MAIN, "Server Terminating. %s", reason);
184 close_logfiles();
185
186 unlink(pidFileName);
187 exit(0);
188 }
189
190 /*
191 * init_sys
192 *
193 * inputs - boot_daemon flag
194 * output - none
195 * side effects - if boot_daemon flag is not set, don't daemonize
196 */
197 static void
198 init_sys(void)
199 {
200 struct rlimit limit;
201
202 if(!getrlimit(RLIMIT_NOFILE, &limit))
203 {
204 maxconnections = limit.rlim_cur;
205 if(maxconnections <= MAX_BUFFER)
206 {
207 fprintf(stderr, "ERROR: Shell FD limits are too low.\n");
208 fprintf(stderr, "ERROR: solanum reserves %d FDs, shell limits must be above this\n", MAX_BUFFER);
209 exit(EXIT_FAILURE);
210 }
211 return;
212 }
213 maxconnections = MAXCONNECTIONS;
214 }
215
216 static int
217 make_daemon(void)
218 {
219 int pid, nullfd, fdx;
220
221 /* The below is approximately what daemon(1, 0) does, but
222 we need control over the parent after forking to print
223 the startup message -- Aaron */
224
225 if((nullfd = open("/dev/null", O_RDWR)) < 0)
226 {
227 perror("open /dev/null");
228 exit(EXIT_FAILURE);
229 }
230
231 if((pid = fork()) < 0)
232 {
233 perror("fork");
234 exit(EXIT_FAILURE);
235 }
236 else if(pid > 0)
237 {
238 inotice("now running in background mode from %s as pid %d ...",
239 ConfigFileEntry.dpath, pid);
240
241 exit(EXIT_SUCCESS);
242 }
243
244 for(fdx = 0; fdx <= 2; fdx++)
245 if (fdx != nullfd)
246 (void) dup2(nullfd, fdx);
247
248 if(nullfd > 2)
249 (void) close(nullfd);
250
251 (void) setsid();
252
253 return 0;
254 }
255
256 static int printVersion = 0;
257
258 struct lgetopt myopts[] = {
259 {"configfile", &ConfigFileEntry.configfile,
260 STRING, "File to use for ircd.conf"},
261 {"logfile", &logFileName,
262 STRING, "File to use for ircd.log"},
263 {"pidfile", &pidFileName,
264 STRING, "File to use for process ID"},
265 {"foreground", &server_state_foreground,
266 YESNO, "Run in foreground (don't detach)"},
267 {"version", &printVersion,
268 YESNO, "Print version and exit"},
269 {"conftest", &testing_conf,
270 YESNO, "Test the configuration files and exit"},
271 {"help", NULL, USAGE, "Print this text"},
272 {NULL, NULL, STRING, NULL},
273 };
274
275 static void
276 check_rehash(void *unused)
277 {
278 /*
279 * Check to see whether we have to rehash the configuration ..
280 */
281 if(dorehash)
282 {
283 rehash(true);
284 dorehash = false;
285 }
286
287 if(dorehashbans)
288 {
289 rehash_bans();
290 dorehashbans = false;
291 }
292
293 if(doremotd)
294 {
295 sendto_realops_snomask(SNO_GENERAL, L_NETWIDE,
296 "Got signal SIGUSR1, reloading ircd motd file");
297 cache_user_motd();
298 doremotd = false;
299 }
300 }
301
302 /*
303 * initalialize_global_set_options
304 *
305 * inputs - none
306 * output - none
307 * side effects - This sets all global set options needed
308 */
309 static void
310 initialize_global_set_options(void)
311 {
312 memset(&GlobalSetOptions, 0, sizeof(GlobalSetOptions));
313 /* memset( &ConfigFileEntry, 0, sizeof(ConfigFileEntry)); */
314
315 GlobalSetOptions.maxclients = ServerInfo.default_max_clients;
316
317 if(GlobalSetOptions.maxclients > (maxconnections - MAX_BUFFER) || (GlobalSetOptions.maxclients <= 0))
318 GlobalSetOptions.maxclients = maxconnections - MAX_BUFFER;
319
320 GlobalSetOptions.autoconn = 1;
321
322 GlobalSetOptions.spam_time = MIN_JOIN_LEAVE_TIME;
323 GlobalSetOptions.spam_num = MAX_JOIN_LEAVE_COUNT;
324
325 GlobalSetOptions.floodcount = ConfigFileEntry.default_floodcount;
326
327 split_servers = ConfigChannel.default_split_server_count;
328 split_users = ConfigChannel.default_split_user_count;
329
330 if(split_users && split_servers
331 && (ConfigChannel.no_create_on_split || ConfigChannel.no_join_on_split))
332 {
333 splitmode = 1;
334 splitchecking = 1;
335 }
336
337 GlobalSetOptions.ident_timeout = ConfigFileEntry.default_ident_timeout;
338
339 rb_strlcpy(GlobalSetOptions.operstring,
340 ConfigFileEntry.default_operstring,
341 sizeof(GlobalSetOptions.operstring));
342 rb_strlcpy(GlobalSetOptions.adminstring,
343 ConfigFileEntry.default_adminstring,
344 sizeof(GlobalSetOptions.adminstring));
345
346 /* memset( &ConfigChannel, 0, sizeof(ConfigChannel)); */
347
348 /* End of global set options */
349
350 }
351
352 /*
353 * write_pidfile
354 *
355 * inputs - filename+path of pid file
356 * output - none
357 * side effects - write the pid of the ircd to filename
358 */
359 static void
360 write_pidfile(const char *filename)
361 {
362 FILE *fb;
363 char buff[32];
364 if((fb = fopen(filename, "w")))
365 {
366 unsigned int pid = (unsigned int) getpid();
367
368 snprintf(buff, sizeof(buff), "%u\n", pid);
369 if((fputs(buff, fb) == -1))
370 {
371 ilog(L_MAIN, "Error writing %u to pid file %s (%s)",
372 pid, filename, strerror(errno));
373 }
374 fclose(fb);
375 return;
376 }
377 else
378 {
379 ilog(L_MAIN, "Error opening pid file %s", filename);
380 }
381 }
382
383 /*
384 * check_pidfile
385 *
386 * inputs - filename+path of pid file
387 * output - none
388 * side effects - reads pid from pidfile and checks if ircd is in process
389 * list. if it is, gracefully exits
390 * -kre
391 */
392 static void
393 check_pidfile(const char *filename)
394 {
395 FILE *fb;
396 char buff[32];
397 pid_t pidfromfile;
398
399 /* Don't do logging here, since we don't have log() initialised */
400 if((fb = fopen(filename, "r")))
401 {
402 if(fgets(buff, 20, fb) != NULL)
403 {
404 pidfromfile = atoi(buff);
405 if(!rb_kill(pidfromfile, 0))
406 {
407 printf("ircd: daemon is already running\n");
408 exit(-1);
409 }
410 }
411 fclose(fb);
412 }
413 }
414
415 /*
416 * setup_corefile
417 *
418 * inputs - nothing
419 * output - nothing
420 * side effects - setups corefile to system limits.
421 * -kre
422 */
423 static void
424 setup_corefile(void)
425 {
426 struct rlimit rlim; /* resource limits */
427
428 /* Set corefilesize to maximum */
429 if(!getrlimit(RLIMIT_CORE, &rlim))
430 {
431 rlim.rlim_cur = rlim.rlim_max;
432 setrlimit(RLIMIT_CORE, &rlim);
433 }
434 }
435
436 static void
437 ircd_log_cb(const char *str)
438 {
439 ilog(L_MAIN, "librb reports: %s", str);
440 }
441
442 static void
443 ircd_restart_cb(const char *str)
444 {
445 inotice("librb has called the restart callback: %s", str);
446 restart(str);
447 }
448
449 /*
450 * Why EXIT_FAILURE here?
451 * Because if ircd_die_cb() is called it's because of a fatal
452 * error inside libsolanum, and we don't know how to handle the
453 * exception, so it is logical to return a FAILURE exit code here.
454 * --nenolod
455 */
456 static void
457 ircd_die_cb(const char *str)
458 {
459 if(str != NULL)
460 {
461 /* Try to get the message out to currently logged in operators. */
462 sendto_realops_snomask(SNO_GENERAL, L_NETWIDE, "librb has called the die callback..aborting: %s", str);
463 inotice("librb has called the die callback..aborting: %s", str);
464 }
465 else
466 inotice("librb has called the die callback..aborting");
467
468 unlink(pidFileName);
469 exit(EXIT_FAILURE);
470 }
471
472 struct ev_entry *check_splitmode_ev = NULL;
473
474 static int
475 seed_with_urandom(void)
476 {
477 unsigned int seed;
478 int fd;
479
480 fd = open("/dev/urandom", O_RDONLY);
481 if(fd >= 0)
482 {
483 if(read(fd, &seed, sizeof(seed)) == sizeof(seed))
484 {
485 close(fd);
486 srand(seed);
487 return 1;
488 }
489 close(fd);
490 }
491 return 0;
492 }
493
494 static void
495 seed_with_clock(void)
496 {
497 const struct timeval *tv;
498 rb_set_time();
499 tv = rb_current_time_tv();
500 srand(tv->tv_sec ^ (tv->tv_usec | (getpid() << 20)));
501 }
502
503 static void
504 seed_random(void *unused)
505 {
506 unsigned int seed;
507 if(rb_get_random(&seed, sizeof(seed)) == -1)
508 {
509 if(!seed_with_urandom())
510 seed_with_clock();
511 return;
512 }
513 srand(seed);
514 }
515
516 /*
517 * main
518 *
519 * Initializes the IRCd.
520 *
521 * Inputs - number of commandline args, args themselves
522 * Outputs - none
523 * Side Effects - this is where the ircd gets going right now
524 */
525 int
526 solanum_main(int argc, char * const argv[])
527 {
528 int fd;
529
530 /* Check to see if the user is running us as root, which is a nono */
531 if(geteuid() == 0)
532 {
533 fprintf(stderr, "Don't run ircd as root!!!\n");
534 return -1;
535 }
536
537 logFileName = ircd_paths[IRCD_PATH_IRCD_LOG];
538 pidFileName = ircd_paths[IRCD_PATH_IRCD_PID];
539
540 ConfigFileEntry.dpath = ircd_paths[IRCD_PATH_PREFIX];
541 ConfigFileEntry.configfile = ircd_paths[IRCD_PATH_IRCD_CONF]; /* Server configuration file */
542 ConfigFileEntry.connect_timeout = 30; /* Default to 30 */
543
544 init_sys();
545
546 umask(077); /* better safe than sorry --SRB */
547
548 myargv = argv;
549 parseargs(&argc, &argv, myopts);
550
551 if(chdir(ConfigFileEntry.dpath))
552 {
553 fprintf(stderr, "Unable to chdir to %s: %s\n", ConfigFileEntry.dpath, strerror(errno));
554 exit(EXIT_FAILURE);
555 }
556
557 rb_set_time();
558
559 /*
560 * Setup corefile size immediately after boot -kre
561 */
562 setup_corefile();
563
564 /* initialise operhash fairly early. */
565 init_operhash();
566
567 memset(&me, 0, sizeof(me));
568 memset(&meLocalUser, 0, sizeof(meLocalUser));
569 me.localClient = &meLocalUser;
570
571 /* Make sure all lists are zeroed */
572 memset(&global_client_list, 0, sizeof(global_client_list));
573 memset(&unknown_list, 0, sizeof(unknown_list));
574 memset(&lclient_list, 0, sizeof(lclient_list));
575 memset(&serv_list, 0, sizeof(serv_list));
576 memset(&global_serv_list, 0, sizeof(global_serv_list));
577 memset(&local_oper_list, 0, sizeof(local_oper_list));
578 memset(&oper_list, 0, sizeof(oper_list));
579
580 rb_dlinkAddTail(&me, &me.node, &global_client_list);
581
582 memset(&Count, 0, sizeof(Count));
583 memset(&ServerInfo, 0, sizeof(ServerInfo));
584 memset(&AdminInfo, 0, sizeof(AdminInfo));
585 memset(&ServerStats, 0, sizeof(struct ServerStatistics));
586
587 if(printVersion)
588 {
589 printf("ircd: version %s(%s)\n", ircd_version, serno);
590 #ifdef CUSTOM_BRANDING
591 printf("ircd: based on %s-%s\n", PACKAGE_NAME, PACKAGE_VERSION);
592 #endif
593 printf("ircd: %s\n", rb_lib_version());
594 exit(EXIT_SUCCESS);
595 }
596
597 setup_signals();
598
599 if (testing_conf)
600 server_state_foreground = true;
601
602 /* Make sure fd 0, 1 and 2 are in use -- jilles */
603 do
604 {
605 fd = open("/dev/null", O_RDWR);
606 } while (fd < 2 && fd != -1);
607 if (fd > 2)
608 close(fd);
609 else if (fd == -1)
610 exit(1);
611
612 /* Check if there is pidfile and daemon already running */
613 if(!testing_conf)
614 {
615 check_pidfile(pidFileName);
616
617 inotice("starting %s ...", ircd_version);
618 inotice("%s", rb_lib_version());
619
620 if(!server_state_foreground)
621 make_daemon();
622 }
623
624 /* Init the event subsystem */
625 rb_lib_init(ircd_log_cb, ircd_restart_cb, ircd_die_cb, !server_state_foreground, maxconnections, DNODE_HEAP_SIZE, FD_HEAP_SIZE);
626 rb_linebuf_init(LINEBUF_HEAP_SIZE);
627
628 rb_init_prng(NULL, RB_PRNG_DEFAULT);
629
630 seed_random(NULL);
631
632 init_builtin_capabs();
633 default_server_capabs = CAP_MASK;
634
635 init_main_logfile();
636 newconf_init();
637 init_s_conf();
638 init_s_newconf();
639 init_hash();
640 clear_scache_hash_table(); /* server cache name table */
641 init_host_hash();
642 clear_hash_parse();
643 init_client();
644 init_hook();
645 init_channels();
646 initclass();
647 whowas_init();
648 init_reject();
649 init_cache();
650 init_monitor();
651
652 construct_cflags_strings();
653
654 init_authd(); /* Start up authd. */
655 init_dns(); /* Start up DNS query system */
656 init_modules(); /* Start up modules system */
657
658 privilegeset_set_new("default", "", 0);
659
660 if (testing_conf)
661 fprintf(stderr, "\nBeginning config test\n");
662 read_conf_files(true); /* cold start init conf files */
663
664 load_all_modules(1);
665 load_core_modules(1);
666
667 init_isupport();
668
669 init_bandb();
670 init_ssld();
671 init_wsockd();
672
673 rehash_bans();
674
675 initialize_global_set_options();
676
677 if(ServerInfo.name == NULL)
678 {
679 ierror("no server name specified in serverinfo block.");
680 return -1;
681 }
682 rb_strlcpy(me.name, ServerInfo.name, sizeof(me.name));
683
684 if(ServerInfo.sid[0] == '\0')
685 {
686 ierror("no server sid specified in serverinfo block.");
687 return -2;
688 }
689 rb_strlcpy(me.id, ServerInfo.sid, sizeof(me.id));
690 init_uid();
691
692 /* serverinfo{} description must exist. If not, error out. */
693 if(ServerInfo.description == NULL)
694 {
695 ierror("no server description specified in serverinfo block.");
696 return -3;
697 }
698 rb_strlcpy(me.info, ServerInfo.description, sizeof(me.info));
699
700 if(ServerInfo.ssl_cert != NULL)
701 {
702 /* just do the rb_setup_ssl_server to validate the config */
703 if(!rb_setup_ssl_server(ServerInfo.ssl_cert, ServerInfo.ssl_private_key, ServerInfo.ssl_dh_params, ServerInfo.ssl_cipher_list))
704 {
705 ilog(L_MAIN, "WARNING: Unable to setup SSL.");
706 ircd_ssl_ok = false;
707 }
708 else
709 ircd_ssl_ok = true;
710 }
711
712 me.from = &me;
713 me.servptr = &me;
714 SetMe(&me);
715 make_server(&me);
716 startup_time = rb_current_time();
717 add_to_client_hash(me.name, &me);
718 add_to_id_hash(me.id, &me);
719 me.serv->nameinfo = scache_connect(me.name, me.info, 0);
720
721 rb_dlinkAddAlloc(&me, &global_serv_list);
722
723 construct_umodebuf();
724
725 if (testing_conf)
726 {
727 fprintf(stderr, "\nConfig testing complete.\n");
728 fflush(stderr);
729 return 0; /* Why? We want the launcher to exit out. */
730 }
731
732 check_class();
733 write_pidfile(pidFileName);
734 load_help();
735 open_logfiles();
736
737 configure_authd();
738
739 ilog(L_MAIN, "Server Ready");
740
741 /* We want try_connections to be called as soon as possible now! -- adrian */
742 /* No, 'cause after a restart it would cause all sorts of nick collides */
743 /* um. by waiting even longer, that just means we have even *more*
744 * nick collisions. what a stupid idea. set an event for the IO loop --fl
745 */
746 rb_event_addish("try_connections", try_connections, NULL, STARTUP_CONNECTIONS_TIME);
747 rb_event_addonce("try_connections_startup", try_connections, NULL, 2);
748 rb_event_add("check_rehash", check_rehash, NULL, 3);
749 rb_event_addish("reseed_srand", seed_random, NULL, 300); /* reseed every 10 minutes */
750
751 if(splitmode)
752 check_splitmode_ev = rb_event_add("check_splitmode", check_splitmode, NULL, 5);
753
754 if(server_state_foreground)
755 inotice("now running in foreground mode from %s as pid %ld ...",
756 ConfigFileEntry.dpath, (long)getpid());
757
758 rb_lib_loop(0);
759
760 return 0;
761 }