2 * sslproc.c: An interface to ssld
3 * Copyright (C) 2007 Aaron Sethman <androsyn@ratbox.org>
4 * Copyright (C) 2007 ircd-ratbox development team
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
24 #include <ratbox_lib.h>
39 #define ZIPSTATS_TIME 60
41 static void collect_zipstats(void *unused
);
42 static void ssl_read_ctl(rb_fde_t
* F
, void *data
);
43 static int ssld_count
;
45 static char tmpbuf
[READBUF_SIZE
];
46 static char nul
= '\0';
50 typedef struct _ssl_ctl_buf
55 rb_fde_t
*F
[MAXPASSFD
];
72 static void send_new_ssl_certs_one(ssl_ctl_t
* ctl
, const char *ssl_cert
,
73 const char *ssl_private_key
, const char *ssl_dh_params
);
74 static void send_init_prng(ssl_ctl_t
* ctl
, prng_seed_t seedtype
, const char *path
);
77 static rb_dlink_list ssl_daemons
;
80 buf_to_int32(char *buf
)
83 memcpy(&x
, buf
, sizeof(x
));
88 int32_to_buf(char *buf
, int32_t x
)
90 memcpy(buf
, &x
, sizeof(x
));
95 static inline uint16_t
96 buf_to_uint16(char *buf
)
99 memcpy(&x
, buf
, sizeof(x
));
104 uint16_to_buf(char *buf
, uint16_t x
)
106 memcpy(buf
, &x
, sizeof(x
));
112 allocate_ssl_daemon(rb_fde_t
* F
, rb_fde_t
* P
, int pid
)
116 if(F
== NULL
|| pid
< 0)
118 ctl
= rb_malloc(sizeof(ssl_ctl_t
));
123 rb_dlinkAdd(ctl
, &ctl
->node
, &ssl_daemons
);
128 free_ssl_daemon(ssl_ctl_t
* ctl
)
131 ssl_ctl_buf_t
*ctl_buf
;
136 RB_DLINK_FOREACH(ptr
, ctl
->readq
.head
)
139 for(x
= 0; x
< ctl_buf
->nfds
; x
++)
140 rb_close(ctl_buf
->F
[x
]);
142 rb_free(ctl_buf
->buf
);
146 RB_DLINK_FOREACH(ptr
, ctl
->writeq
.head
)
149 for(x
= 0; x
< ctl_buf
->nfds
; x
++)
150 rb_close(ctl_buf
->F
[x
]);
152 rb_free(ctl_buf
->buf
);
157 rb_dlinkDelete(&ctl
->node
, &ssl_daemons
);
161 static char *ssld_path
;
163 static int ssld_spin_count
= 0;
164 static time_t last_spin
;
165 static int ssld_wait
= 0;
171 rb_dlink_node
*ptr
, *next
;
173 RB_DLINK_FOREACH_SAFE(ptr
, next
, ssl_daemons
.head
)
180 rb_kill(ctl
->pid
, SIGKILL
);
185 ssl_dead(ssl_ctl_t
* ctl
)
192 rb_kill(ctl
->pid
, SIGKILL
); /* make sure the process is really gone */
193 ilog(L_MAIN
, "ssld helper died - attempting to restart");
194 sendto_realops_snomask(SNO_GENERAL
, L_ALL
, "ssld helper died - attempting to restart");
195 start_ssldaemon(1, ServerInfo
.ssl_cert
, ServerInfo
.ssl_private_key
, ServerInfo
.ssl_dh_params
);
199 ssl_do_pipe(rb_fde_t
* F
, void *data
)
202 ssl_ctl_t
*ctl
= data
;
203 retlen
= rb_write(F
, "0", 1);
204 if(retlen
== 0 || (retlen
< 0 && !rb_ignore_errno(errno
)))
209 rb_setselect(F
, RB_SELECT_READ
, ssl_do_pipe
, data
);
213 restart_ssld_event(void *unused
)
218 if(ServerInfo
.ssld_count
> get_ssld_count())
220 int start
= ServerInfo
.ssld_count
- get_ssld_count();
221 ilog(L_MAIN
, "Attempting to restart ssld processes");
222 sendto_realops_snomask(SNO_GENERAL
, L_ALL
, "Attempt to restart ssld processes");
223 start_ssldaemon(start
, ServerInfo
.ssl_cert
, ServerInfo
.ssl_private_key
, ServerInfo
.ssl_dh_params
);
228 start_ssldaemon(int count
, const char *ssl_cert
, const char *ssl_private_key
, const char *ssl_dh_params
)
233 const char *suffix
= ".exe";
235 const char *suffix
= "";
238 char fullpath
[PATH_MAX
+ 1];
249 if(ssld_spin_count
> 20 && (rb_current_time() - last_spin
< 5))
251 ilog(L_MAIN
, "ssld helper is spinning - will attempt to restart in 1 minute");
252 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
253 "ssld helper is spinning - will attempt to restart in 1 minute");
254 rb_event_add("restart_ssld_event", restart_ssld_event
, NULL
, 60);
260 last_spin
= rb_current_time();
262 if(ssld_path
== NULL
)
264 rb_snprintf(fullpath
, sizeof(fullpath
), "%s/ssld%s", PKGLIBEXECDIR
, suffix
);
266 if(access(fullpath
, X_OK
) == -1)
268 rb_snprintf(fullpath
, sizeof(fullpath
), "%s/bin/ssld%s",
269 ConfigFileEntry
.dpath
, suffix
);
270 if(access(fullpath
, X_OK
) == -1)
273 "Unable to execute ssld%s in %s or %s/bin",
274 suffix
, PKGLIBEXECDIR
, ConfigFileEntry
.dpath
);
278 ssld_path
= rb_strdup(fullpath
);
280 rb_strlcpy(buf
, "-ircd ssld daemon helper", sizeof(buf
));
284 for(i
= 0; i
< count
; i
++)
287 if(rb_socketpair(AF_UNIX
, SOCK_DGRAM
, 0, &F1
, &F2
, "SSL/TLS handle passing socket") == -1)
289 ilog(L_MAIN
, "Unable to create ssld - rb_socketpair failed: %s", strerror(errno
));
293 rb_set_buffers(F1
, READBUF_SIZE
);
294 rb_set_buffers(F2
, READBUF_SIZE
);
295 rb_snprintf(fdarg
, sizeof(fdarg
), "%d", rb_get_fd(F2
));
296 rb_setenv("CTL_FD", fdarg
, 1);
297 if(rb_pipe(&P1
, &P2
, "SSL/TLS pipe") == -1)
299 ilog(L_MAIN
, "Unable to create ssld - rb_pipe failed: %s", strerror(errno
));
302 rb_snprintf(fdarg
, sizeof(fdarg
), "%d", rb_get_fd(P1
));
303 rb_setenv("CTL_PIPE", fdarg
, 1);
304 rb_snprintf(s_pid
, sizeof(s_pid
), "%d", (int)getpid());
305 rb_setenv("CTL_PPID", s_pid
, 1);
307 SetHandleInformation((HANDLE
) rb_get_fd(F2
), HANDLE_FLAG_INHERIT
, 1);
308 SetHandleInformation((HANDLE
) rb_get_fd(P1
), HANDLE_FLAG_INHERIT
, 1);
311 pid
= rb_spawn_process(ssld_path
, (const char **) parv
);
314 ilog(L_MAIN
, "Unable to create ssld: %s\n", strerror(errno
));
324 ctl
= allocate_ssl_daemon(F1
, P2
, pid
);
326 send_init_prng(ctl
, RB_PRNG_DEFAULT
, NULL
);
327 if(ssl_ok
&& ssl_cert
!= NULL
&& ssl_private_key
!= NULL
)
328 send_new_ssl_certs_one(ctl
, ssl_cert
, ssl_private_key
,
329 ssl_dh_params
!= NULL
? ssl_dh_params
: "");
330 ssl_read_ctl(ctl
->F
, ctl
);
331 ssl_do_pipe(P2
, ctl
);
338 ssl_process_zipstats(ssl_ctl_t
* ctl
, ssl_ctl_buf_t
* ctl_buf
)
340 struct Client
*server
;
341 struct ZipStats
*zips
;
344 parc
= rb_string_to_array(ctl_buf
->buf
, parv
, 6);
345 server
= find_server(NULL
, parv
[1]);
346 if(server
== NULL
|| server
->localClient
== NULL
|| !IsCapable(server
, CAP_ZIP
))
348 if(server
->localClient
->zipstats
== NULL
)
349 server
->localClient
->zipstats
= rb_malloc(sizeof(struct ZipStats
));
351 zips
= server
->localClient
->zipstats
;
353 zips
->in
+= strtoull(parv
[2], NULL
, 10);
354 zips
->in_wire
+= strtoull(parv
[3], NULL
, 10);
355 zips
->out
+= strtoull(parv
[4], NULL
, 10);
356 zips
->out_wire
+= strtoull(parv
[5], NULL
, 10);
359 zips
->in_ratio
= ((double) (zips
->in
- zips
->in_wire
) / (double) zips
->in
) * 100.00;
364 zips
->out_ratio
= ((double) (zips
->out
- zips
->out_wire
) / (double) zips
->out
) * 100.00;
370 ssl_process_dead_fd(ssl_ctl_t
* ctl
, ssl_ctl_buf_t
* ctl_buf
)
372 struct Client
*client_p
;
376 if(ctl_buf
->buflen
< 6)
377 return; /* bogus message..drop it.. XXX should warn here */
379 fd
= buf_to_int32(&ctl_buf
->buf
[1]);
380 rb_strlcpy(reason
, &ctl_buf
->buf
[5], sizeof(reason
));
381 client_p
= find_cli_fd_hash(fd
);
384 if(IsAnyServer(client_p
) || IsRegistered(client_p
))
386 /* read any last moment ERROR, QUIT or the like -- jilles */
387 if (!strcmp(reason
, "Remote host closed the connection"))
388 read_packet(client_p
->localClient
->F
, client_p
);
389 if (IsAnyDead(client_p
))
392 if(IsAnyServer(client_p
))
394 sendto_realops_snomask(SNO_GENERAL
, is_remote_connect(client_p
) && !IsServer(client_p
) ? L_NETWIDE
: L_ALL
, "ssld error for %s: %s", client_p
->name
, reason
);
395 ilog(L_SERVER
, "ssld error for %s: %s", log_client_name(client_p
, SHOW_IP
), reason
);
397 exit_client(client_p
, client_p
, &me
, reason
);
401 ssl_process_certfp(ssl_ctl_t
* ctl
, ssl_ctl_buf_t
* ctl_buf
)
403 struct Client
*client_p
;
409 if(ctl_buf
->buflen
!= 5 + RB_SSL_CERTFP_LEN
)
410 return; /* bogus message..drop it.. XXX should warn here */
412 fd
= buf_to_int32(&ctl_buf
->buf
[1]);
413 certfp
= (uint8_t *)&ctl_buf
->buf
[5];
414 client_p
= find_cli_fd_hash(fd
);
417 rb_free(client_p
->certfp
);
418 certfp_string
= rb_malloc(RB_SSL_CERTFP_LEN
* 2 + 1);
419 for(i
= 0; i
< RB_SSL_CERTFP_LEN
; i
++)
420 rb_snprintf(certfp_string
+ 2 * i
, 3, "%02x",
422 client_p
->certfp
= certfp_string
;
426 ssl_process_cmd_recv(ssl_ctl_t
* ctl
)
428 static const char *cannot_setup_ssl
= "ssld cannot setup ssl, check your certificates and private key";
429 static const char *no_ssl_or_zlib
= "ssld has neither SSL/TLS or zlib support killing all sslds";
430 rb_dlink_node
*ptr
, *next
;
431 ssl_ctl_buf_t
*ctl_buf
;
434 RB_DLINK_FOREACH_SAFE(ptr
, next
, ctl
->readq
.head
)
437 switch (*ctl_buf
->buf
)
440 ssl_ok
= 0; /* ssld says it can't do ssl/tls */
443 ssl_process_dead_fd(ctl
, ctl_buf
);
446 ssl_process_certfp(ctl
, ctl_buf
);
449 ssl_process_zipstats(ctl
, ctl_buf
);
453 ilog(L_MAIN
, "%s", cannot_setup_ssl
);
454 sendto_realops_snomask(SNO_GENERAL
, L_ALL
, "%s", cannot_setup_ssl
);
459 ilog(L_MAIN
, "%s", no_ssl_or_zlib
);
460 sendto_realops_snomask(SNO_GENERAL
, L_ALL
, "%s", no_ssl_or_zlib
);
467 ilog(L_MAIN
, "Received invalid command from ssld: %s", ctl_buf
->buf
);
468 sendto_realops_snomask(SNO_GENERAL
, L_ALL
, "Received invalid command from ssld");
471 rb_dlinkDelete(ptr
, &ctl
->readq
);
472 rb_free(ctl_buf
->buf
);
480 ssl_read_ctl(rb_fde_t
* F
, void *data
)
482 ssl_ctl_buf_t
*ctl_buf
;
483 ssl_ctl_t
*ctl
= data
;
490 ctl_buf
= rb_malloc(sizeof(ssl_ctl_buf_t
));
491 ctl_buf
->buf
= rb_malloc(READSIZE
);
492 retlen
= rb_recv_fd_buf(ctl
->F
, ctl_buf
->buf
, READSIZE
, ctl_buf
->F
, 4);
493 ctl_buf
->buflen
= retlen
;
496 rb_free(ctl_buf
->buf
);
500 rb_dlinkAddTail(ctl_buf
, &ctl_buf
->node
, &ctl
->readq
);
504 if(retlen
== 0 || (retlen
< 0 && !rb_ignore_errno(errno
)))
509 ssl_process_cmd_recv(ctl
);
510 rb_setselect(ctl
->F
, RB_SELECT_READ
, ssl_read_ctl
, ctl
);
516 ssl_ctl_t
*ctl
, *lowest
= NULL
;
519 RB_DLINK_FOREACH(ptr
, ssl_daemons
.head
)
529 if(ctl
->cli_count
< lowest
->cli_count
)
536 ssl_write_ctl(rb_fde_t
* F
, void *data
)
538 ssl_ctl_t
*ctl
= data
;
539 ssl_ctl_buf_t
*ctl_buf
;
540 rb_dlink_node
*ptr
, *next
;
546 RB_DLINK_FOREACH_SAFE(ptr
, next
, ctl
->writeq
.head
)
549 /* in theory unix sock_dgram shouldn't ever short write this.. */
550 retlen
= rb_send_fd_buf(ctl
->F
, ctl_buf
->F
, ctl_buf
->nfds
, ctl_buf
->buf
, ctl_buf
->buflen
, ctl
->pid
);
553 rb_dlinkDelete(ptr
, &ctl
->writeq
);
554 for(x
= 0; x
< ctl_buf
->nfds
; x
++)
555 rb_close(ctl_buf
->F
[x
]);
556 rb_free(ctl_buf
->buf
);
560 if(retlen
== 0 || (retlen
< 0 && !rb_ignore_errno(errno
)))
567 rb_setselect(ctl
->F
, RB_SELECT_WRITE
, ssl_write_ctl
, ctl
);
573 ssl_cmd_write_queue(ssl_ctl_t
* ctl
, rb_fde_t
** F
, int count
, const void *buf
, size_t buflen
)
575 ssl_ctl_buf_t
*ctl_buf
;
582 ctl_buf
= rb_malloc(sizeof(ssl_ctl_buf_t
));
583 ctl_buf
->buf
= rb_malloc(buflen
);
584 memcpy(ctl_buf
->buf
, buf
, buflen
);
585 ctl_buf
->buflen
= buflen
;
587 for(x
= 0; x
< count
&& x
< MAXPASSFD
; x
++)
589 ctl_buf
->F
[x
] = F
[x
];
591 ctl_buf
->nfds
= count
;
592 rb_dlinkAddTail(ctl_buf
, &ctl_buf
->node
, &ctl
->writeq
);
593 ssl_write_ctl(ctl
->F
, ctl
);
598 send_new_ssl_certs_one(ssl_ctl_t
* ctl
, const char *ssl_cert
, const char *ssl_private_key
, const char *ssl_dh_params
)
602 len
= strlen(ssl_cert
) + strlen(ssl_private_key
) + strlen(ssl_dh_params
) + 5;
603 if(len
> sizeof(tmpbuf
))
605 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
606 "Parameters for send_new_ssl_certs_one too long (%zu > %zu) to pass to ssld, not sending...",
607 len
, sizeof(tmpbuf
));
609 "Parameters for send_new_ssl_certs_one too long (%zu > %zu) to pass to ssld, not sending...",
610 len
, sizeof(tmpbuf
));
613 len
= rb_snprintf(tmpbuf
, sizeof(tmpbuf
), "K%c%s%c%s%c%s%c", nul
, ssl_cert
, nul
,
614 ssl_private_key
, nul
, ssl_dh_params
, nul
);
615 ssl_cmd_write_queue(ctl
, NULL
, 0, tmpbuf
, len
);
619 send_init_prng(ssl_ctl_t
* ctl
, prng_seed_t seedtype
, const char *path
)
623 uint8_t seed
= (uint8_t) seedtype
;
631 if(len
> sizeof(tmpbuf
))
633 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
634 "Parameters for send_init_prng too long (%zd > %zd) to pass to ssld, not sending...",
635 len
, sizeof(tmpbuf
));
637 "Parameters for send_init_prng too long (%zd > %zd) to pass to ssld, not sending...",
638 len
, sizeof(tmpbuf
));
642 len
= rb_snprintf(tmpbuf
, sizeof(tmpbuf
), "I%c%s%c", seed
, s
, nul
);
643 ssl_cmd_write_queue(ctl
, NULL
, 0, tmpbuf
, len
);
647 send_new_ssl_certs(const char *ssl_cert
, const char *ssl_private_key
, const char *ssl_dh_params
)
650 if(ssl_cert
== NULL
|| ssl_private_key
== NULL
|| ssl_dh_params
== NULL
)
655 RB_DLINK_FOREACH(ptr
, ssl_daemons
.head
)
657 ssl_ctl_t
*ctl
= ptr
->data
;
658 send_new_ssl_certs_one(ctl
, ssl_cert
, ssl_private_key
, ssl_dh_params
);
664 start_ssld_accept(rb_fde_t
* sslF
, rb_fde_t
* plainF
, int32_t id
)
673 int32_to_buf(&buf
[1], id
);
676 ssl_cmd_write_queue(ctl
, F
, 2, buf
, sizeof(buf
));
681 start_ssld_connect(rb_fde_t
* sslF
, rb_fde_t
* plainF
, int32_t id
)
690 int32_to_buf(&buf
[1], id
);
694 ssl_cmd_write_queue(ctl
, F
, 2, buf
, sizeof(buf
));
699 ssld_decrement_clicount(ssl_ctl_t
* ctl
)
705 if(ctl
->dead
&& !ctl
->cli_count
)
707 free_ssl_daemon(ctl
);
712 * what we end up sending to the ssld process for ziplinks is the following
713 * Z[ourfd][level][RECVQ]
714 * Z = ziplinks command = buf[0]
715 * ourfd = Our end of the socketpair = buf[1..4]
716 * level = zip level buf[5]
717 * recvqlen = our recvq len = buf[6-7]
718 * recvq = any data we read prior to starting ziplinks
721 start_zlib_session(void *data
)
723 struct Client
*server
= (struct Client
*) data
;
734 size_t hdr
= (sizeof(uint8_t) * 2) + sizeof(int32_t);
738 server
->localClient
->event
= NULL
;
740 recvqlen
= rb_linebuf_len(&server
->localClient
->buf_recvq
);
742 len
= recvqlen
+ hdr
;
744 if(len
> READBUF_SIZE
)
746 sendto_realops_snomask(SNO_GENERAL
, L_ALL
,
747 "ssld - attempted to pass message of %zd len, max len %d, giving up",
749 ilog(L_MAIN
, "ssld - attempted to pass message of %zd len, max len %d, giving up", len
, READBUF_SIZE
);
750 exit_client(server
, server
, server
, "ssld readbuf exceeded");
754 buf
= rb_malloc(len
);
755 level
= ConfigFileEntry
.compression_level
;
757 int32_to_buf(&buf
[1], rb_get_fd(server
->localClient
->F
));
758 buf
[5] = (char) level
;
760 recvq_start
= &buf
[6];
761 server
->localClient
->zipstats
= rb_malloc(sizeof(struct ZipStats
));
768 cpylen
= rb_linebuf_get(&server
->localClient
->buf_recvq
, xbuf
, left
, LINEBUF_PARTIAL
, LINEBUF_RAW
);
770 xbuf
= (void *) (((uintptr_t) xbuf
) + cpylen
);
774 /* Pass the socket to ssld. */
776 if(rb_socketpair(AF_UNIX
, SOCK_STREAM
, 0, &xF1
, &xF2
, "Initial zlib socketpairs") == -1)
778 sendto_realops_snomask(SNO_GENERAL
, L_ALL
, "Error creating zlib socketpair - %s", strerror(errno
));
779 ilog(L_MAIN
, "Error creating zlib socketpairs - %s", strerror(errno
));
780 exit_client(server
, server
, server
, "Error creating zlib socketpair");
786 /* tell ssld the new connid for the ssl part*/
788 int32_to_buf(&buf2
[1], rb_get_fd(server
->localClient
->F
));
789 int32_to_buf(&buf2
[5], rb_get_fd(xF2
));
790 ssl_cmd_write_queue(server
->localClient
->ssl_ctl
, NULL
, 0, buf2
, sizeof(buf2
));
794 F
[0] = server
->localClient
->F
;
796 del_from_cli_fd_hash(server
);
797 server
->localClient
->F
= xF2
;
798 /* need to redo as what we did before isn't valid now */
799 int32_to_buf(&buf
[1], rb_get_fd(server
->localClient
->F
));
800 add_to_cli_fd_hash(server
);
802 server
->localClient
->z_ctl
= which_ssld();
803 server
->localClient
->z_ctl
->cli_count
++;
804 ssl_cmd_write_queue(server
->localClient
->z_ctl
, F
, 2, buf
, len
);
809 collect_zipstats(void *unused
)
812 struct Client
*target_p
;
813 char buf
[sizeof(uint8_t) + sizeof(int32_t) + HOSTLEN
];
819 odata
= buf
+ sizeof(uint8_t) + sizeof(int32_t);
821 RB_DLINK_FOREACH(ptr
, serv_list
.head
)
823 target_p
= ptr
->data
;
824 if(IsCapable(target_p
, CAP_ZIP
))
826 len
= sizeof(uint8_t) + sizeof(uint32_t);
828 id
= rb_get_fd(target_p
->localClient
->F
);
829 int32_to_buf(&buf
[1], rb_get_fd(target_p
->localClient
->F
));
830 rb_strlcpy(odata
, target_p
->name
, (sizeof(buf
) - len
));
831 len
+= strlen(odata
) + 1; /* Get the \0 as well */
832 ssl_cmd_write_queue(target_p
->localClient
->z_ctl
, NULL
, 0, buf
, len
);
838 cleanup_dead_ssl(void *unused
)
840 rb_dlink_node
*ptr
, *next
;
842 RB_DLINK_FOREACH_SAFE(ptr
, next
, ssl_daemons
.head
)
845 if(ctl
->dead
&& !ctl
->cli_count
)
847 free_ssl_daemon(ctl
);
861 rb_event_addish("collect_zipstats", collect_zipstats
, NULL
, ZIPSTATS_TIME
);
862 rb_event_addish("cleanup_dead_ssld", cleanup_dead_ssl
, NULL
, 1200);