contrib/ntp/ntpd/ntpd.c

   1 /*
   2  * ntpd.c - main program for the fixed point NTP daemon
   3  */
   4
   5 #ifdef HAVE_CONFIG_H
   6 # include <config.h>
   7 #endif
   8
   9 #include "ntp_machine.h"
  10 #include "ntpd.h"
  11 #include "ntp_io.h"
  12 #include "ntp_stdlib.h"
  13 #include <ntp_random.h>
  14
  15 #include "ntp_config.h"
  16 #include "ntp_syslog.h"
  17 #include "ntp_assert.h"
  18 #include "isc/error.h"
  19 #include "isc/strerror.h"
  20 #include "isc/formatcheck.h"
  21 #include "iosignal.h"
  22
  23 #ifdef SIM
  24 # include "ntpsim.h"
  25 #endif
  26
  27 #include "ntp_libopts.h"
  28 #include "ntpd-opts.h"
  29
  30 /* there's a short treatise below what the thread stuff is for.
  31  * [Bug 2954] enable the threading warm-up only for Linux.
  32  */
  33 #if defined(HAVE_PTHREADS) && HAVE_PTHREADS && !defined(NO_THREADS)
  34 # ifdef HAVE_PTHREAD_H
  35 #  include <pthread.h>
  36 # endif
  37 # if defined(linux)
  38 #  define NEED_PTHREAD_WARMUP
  39 # endif
  40 #endif
  41
  42 #ifdef HAVE_UNISTD_H
  43 # include <unistd.h>
  44 #endif
  45 #ifdef HAVE_SYS_STAT_H
  46 # include <sys/stat.h>
  47 #endif
  48 #include <stdio.h>
  49 #ifdef HAVE_SYS_PARAM_H
  50 # include <sys/param.h>
  51 #endif
  52 #ifdef HAVE_SYS_SIGNAL_H
  53 # include <sys/signal.h>
  54 #else
  55 # include <signal.h>
  56 #endif
  57 #ifdef HAVE_SYS_IOCTL_H
  58 # include <sys/ioctl.h>
  59 #endif /* HAVE_SYS_IOCTL_H */
  60 #if defined(HAVE_RTPRIO)
  61 # ifdef HAVE_SYS_LOCK_H
  62 #  include <sys/lock.h>
  63 # endif
  64 # include <sys/rtprio.h>
  65 #else
  66 # ifdef HAVE_PLOCK
  67 #  ifdef HAVE_SYS_LOCK_H
  68 #       include <sys/lock.h>
  69 #  endif
  70 # endif
  71 #endif
  72 #if defined(HAVE_SCHED_SETSCHEDULER)
  73 # ifdef HAVE_SCHED_H
  74 #  include <sched.h>
  75 # else
  76 #  ifdef HAVE_SYS_SCHED_H
  77 #   include <sys/sched.h>
  78 #  endif
  79 # endif
  80 #endif
  81 #if defined(HAVE_SYS_MMAN_H)
  82 # include <sys/mman.h>
  83 #endif
  84
  85 #ifdef HAVE_TERMIOS_H
  86 # include <termios.h>
  87 #endif
  88
  89 #ifdef SYS_DOMAINOS
  90 # include <apollo/base.h>
  91 #endif /* SYS_DOMAINOS */
  92
  93
  94 #include "recvbuff.h"
  95 #include "ntp_cmdargs.h"
  96
  97 #if 0                           /* HMS: I don't think we need this. 961223 */
  98 #ifdef LOCK_PROCESS
  99 # ifdef SYS_SOLARIS
 100 #  include <sys/mman.h>
 101 # else
 102 #  include <sys/lock.h>
 103 # endif
 104 #endif
 105 #endif
 106
 107 #ifdef _AIX
 108 # include <ulimit.h>
 109 #endif /* _AIX */
 110
 111 #ifdef SCO5_CLOCK
 112 # include <sys/ci/ciioctl.h>
 113 #endif
 114
 115 #ifdef HAVE_DROPROOT
 116 # include <ctype.h>
 117 # include <grp.h>
 118 # include <pwd.h>
 119 #ifdef HAVE_LINUX_CAPABILITIES
 120 # include <sys/capability.h>
 121 # include <sys/prctl.h>
 122 #endif /* HAVE_LINUX_CAPABILITIES */
 123 #if defined(HAVE_PRIV_H) && defined(HAVE_SOLARIS_PRIVS)
 124 # include <priv.h>
 125 #endif /* HAVE_PRIV_H */
 126 #endif /* HAVE_DROPROOT */
 127
 128 #if defined (LIBSECCOMP) && (KERN_SECCOMP)
 129 /* # include <sys/types.h> */
 130 # include <sys/resource.h>
 131 # include <seccomp.h>
 132 #endif /* LIBSECCOMP and KERN_SECCOMP */
 133
 134 #ifdef HAVE_DNSREGISTRATION
 135 # include <dns_sd.h>
 136 DNSServiceRef mdns;
 137 #endif
 138
 139 #ifdef HAVE_SETPGRP_0
 140 # define ntp_setpgrp(x, y)      setpgrp()
 141 #else
 142 # define ntp_setpgrp(x, y)      setpgrp(x, y)
 143 #endif
 144
 145 #ifdef HAVE_SOLARIS_PRIVS
 146 # define LOWPRIVS "basic,sys_time,net_privaddr,proc_setid,!proc_info,!proc_session,!proc_exec"
 147 static priv_set_t *lowprivs = NULL;
 148 static priv_set_t *highprivs = NULL;
 149 #endif /* HAVE_SOLARIS_PRIVS */
 150 /*
 151  * Scheduling priority we run at
 152  */
 153 #define NTPD_PRIO       (-12)
 154
 155 int priority_done = 2;          /* 0 - Set priority */
 156                                 /* 1 - priority is OK where it is */
 157                                 /* 2 - Don't set priority */
 158                                 /* 1 and 2 are pretty much the same */
 159
 160 int listen_to_virtual_ips = TRUE;
 161
 162 /*
 163  * No-fork flag.  If set, we do not become a background daemon.
 164  */
 165 int nofork;                     /* Fork by default */
 166
 167 #ifdef HAVE_DNSREGISTRATION
 168 /*
 169  * mDNS registration flag. If set, we attempt to register with the mDNS system, but only
 170  * after we have synched the first time. If the attempt fails, then try again once per
 171  * minute for up to 5 times. After all, we may be starting before mDNS.
 172  */
 173 int mdnsreg = FALSE;
 174 int mdnstries = 5;
 175 #endif  /* HAVE_DNSREGISTRATION */
 176
 177 #ifdef HAVE_DROPROOT
 178 int droproot;
 179 int root_dropped;
 180 char *user;             /* User to switch to */
 181 char *group;            /* group to switch to */
 182 const char *chrootdir;  /* directory to chroot to */
 183 uid_t sw_uid;
 184 gid_t sw_gid;
 185 char *endp;
 186 struct group *gr;
 187 struct passwd *pw;
 188 #endif /* HAVE_DROPROOT */
 189
 190 #ifdef HAVE_WORKING_FORK
 191 int     waitsync_fd_to_close = -1;      /* -w/--wait-sync */
 192 #endif
 193
 194 /*
 195  * Version declaration
 196  */
 197 extern const char *Version;
 198
 199 char const *progname;
 200
 201 int was_alarmed;
 202
 203 #ifdef DECL_SYSCALL
 204 /*
 205  * We put this here, since the argument profile is syscall-specific
 206  */
 207 extern int syscall      (int, ...);
 208 #endif /* DECL_SYSCALL */
 209
 210
 211 #if !defined(SIM) && defined(SIGDIE1)
 212 static volatile int signalled   = 0;
 213 static volatile int signo       = 0;
 214
 215 /* In an ideal world, 'finish_safe()' would declared as noreturn... */
 216 static  void            finish_safe     (int);
 217 static  RETSIGTYPE      finish          (int);
 218 #endif
 219
 220 #if !defined(SIM) && defined(HAVE_WORKING_FORK)
 221 static int      wait_child_sync_if      (int, long);
 222 #endif
 223
 224 #if !defined(SIM) && !defined(SYS_WINNT)
 225 # ifdef DEBUG
 226 static  RETSIGTYPE      moredebug       (int);
 227 static  RETSIGTYPE      lessdebug       (int);
 228 # else  /* !DEBUG follows */
 229 static  RETSIGTYPE      no_debug        (int);
 230 # endif /* !DEBUG */
 231 #endif  /* !SIM && !SYS_WINNT */
 232
 233 int     saved_argc;
 234 char ** saved_argv;
 235
 236 #ifndef SIM
 237 int             ntpdmain                (int, char **);
 238 static void     set_process_priority    (void);
 239 static void     assertion_failed        (const char *, int,
 240                                          isc_assertiontype_t,
 241                                          const char *)
 242                         __attribute__   ((__noreturn__));
 243 static void     library_fatal_error     (const char *, int,
 244                                          const char *, va_list)
 245                                         ISC_FORMAT_PRINTF(3, 0);
 246 static void     library_unexpected_error(const char *, int,
 247                                          const char *, va_list)
 248                                         ISC_FORMAT_PRINTF(3, 0);
 249 #endif  /* !SIM */
 250
 251
 252 /* Bug2332 unearthed a problem in the interaction of reduced user
 253  * privileges, the limits on memory usage and some versions of the
 254  * pthread library on Linux systems. The 'pthread_cancel()' function and
 255  * likely some others need to track the stack of the thread involved,
 256  * and uses a function that comes from GCC (--> libgcc_s.so) to do
 257  * this. Unfortunately the developers of glibc decided to load the
 258  * library on demand, which speeds up program start but can cause
 259  * trouble here: Due to all the things NTPD does to limit its resource
 260  * usage, this deferred load of libgcc_s does not always work once the
 261  * restrictions are in effect.
 262  *
 263  * One way out of this was attempting a forced link against libgcc_s
 264  * when possible because it makes the library available immediately
 265  * without deferred load. (The symbol resolution would still be dynamic
 266  * and on demand, but the code would already be in the process image.)
 267  *
 268  * This is a tricky thing to do, since it's not necessary everywhere,
 269  * not possible everywhere, has shown to break the build of other
 270  * programs in the NTP suite and is now generally frowned upon.
 271  *
 272  * So we take a different approach here: We creat a worker thread that does
 273  * actually nothing except waiting for cancellation and cancel it. If
 274  * this is done before all the limitations are put in place, the
 275  * machinery is pre-heated and all the runtime stuff should be in place
 276  * and useable when needed.
 277  *
 278  * This uses only the standard pthread API and should work with all
 279  * implementations of pthreads. It is not necessary everywhere, but it's
 280  * cheap enough to go on nearly unnoticed.
 281  *
 282  * Addendum: Bug 2954 showed that the assumption that this should work
 283  * with all OS is wrong -- at least FreeBSD bombs heavily.
 284  */
 285 #ifdef NEED_PTHREAD_WARMUP
 286
 287 /* simple thread function: sleep until cancelled, just to exercise
 288  * thread cancellation.
 289  */
 290 static void*
 291 my_pthread_warmup_worker(
 292         void *thread_args)
 293 {
 294         (void)thread_args;
 295         for (;;)
 296                 sleep(10);
 297         return NULL;
 298 }
 299
 300 /* pre-heat threading: create a thread and cancel it, just to exercise
 301  * thread cancellation.
 302  */
 303 static void
 304 my_pthread_warmup(void)
 305 {
 306         pthread_t       thread;
 307         pthread_attr_t  thr_attr;
 308         int             rc;
 309
 310         pthread_attr_init(&thr_attr);
 311 #if defined(HAVE_PTHREAD_ATTR_GETSTACKSIZE) && \
 312     defined(HAVE_PTHREAD_ATTR_SETSTACKSIZE) && \
 313     defined(PTHREAD_STACK_MIN)
 314         rc = pthread_attr_setstacksize(&thr_attr, PTHREAD_STACK_MIN);
 315         if (0 != rc)
 316                 msyslog(LOG_ERR,
 317                         "my_pthread_warmup: pthread_attr_setstacksize() -> %s",
 318                         strerror(rc));
 319 #endif
 320         rc = pthread_create(
 321                 &thread, &thr_attr, my_pthread_warmup_worker, NULL);
 322         pthread_attr_destroy(&thr_attr);
 323         if (0 != rc) {
 324                 msyslog(LOG_ERR,
 325                         "my_pthread_warmup: pthread_create() -> %s",
 326                         strerror(rc));
 327         } else {
 328                 pthread_cancel(thread);
 329                 pthread_join(thread, NULL);
 330         }
 331 }
 332
 333 #endif /*defined(NEED_PTHREAD_WARMUP)*/
 334
 335
 336 void
 337 parse_cmdline_opts(
 338         int *   pargc,
 339         char ***pargv
 340         )
 341 {
 342         static int      parsed;
 343         static int      optct;
 344
 345         if (!parsed)
 346                 optct = ntpOptionProcess(&ntpdOptions, *pargc, *pargv);
 347
 348         parsed = 1;
 349
 350         *pargc -= optct;
 351         *pargv += optct;
 352 }
 353
 354
 355 #ifdef SIM
 356 int
 357 main(
 358         int argc,
 359         char *argv[]
 360         )
 361 {
 362         progname = argv[0];
 363         parse_cmdline_opts(&argc, &argv);
 364 #ifdef DEBUG
 365         debug = OPT_VALUE_SET_DEBUG_LEVEL;
 366         DPRINTF(1, ("%s\n", Version));
 367 #endif
 368
 369         return ntpsim(argc, argv);
 370 }
 371 #else   /* !SIM follows */
 372 #ifdef NO_MAIN_ALLOWED
 373 CALL(ntpd,"ntpd",ntpdmain);
 374 #else   /* !NO_MAIN_ALLOWED follows */
 375 #ifndef SYS_WINNT
 376 int
 377 main(
 378         int argc,
 379         char *argv[]
 380         )
 381 {
 382         return ntpdmain(argc, argv);
 383 }
 384 #endif /* !SYS_WINNT */
 385 #endif /* !NO_MAIN_ALLOWED */
 386 #endif /* !SIM */
 387
 388 #ifdef _AIX
 389 /*
 390  * OK. AIX is different than solaris in how it implements plock().
 391  * If you do NOT adjust the stack limit, you will get the MAXIMUM
 392  * stack size allocated and PINNED with you program. To check the
 393  * value, use ulimit -a.
 394  *
 395  * To fix this, we create an automatic variable and set our stack limit
 396  * to that PLUS 32KB of extra space (we need some headroom).
 397  *
 398  * This subroutine gets the stack address.
 399  *
 400  * Grover Davidson and Matt Ladendorf
 401  *
 402  */
 403 static char *
 404 get_aix_stack(void)
 405 {
 406         char ch;
 407         return (&ch);
 408 }
 409
 410 /*
 411  * Signal handler for SIGDANGER.
 412  */
 413 static void
 414 catch_danger(int signo)
 415 {
 416         msyslog(LOG_INFO, "ntpd: setpgid(): %m");
 417         /* Make the system believe we'll free something, but don't do it! */
 418         return;
 419 }
 420 #endif /* _AIX */
 421
 422 /*
 423  * Set the process priority
 424  */
 425 #ifndef SIM
 426 static void
 427 set_process_priority(void)
 428 {
 429
 430 # ifdef DEBUG
 431         if (debug > 1)
 432                 msyslog(LOG_DEBUG, "set_process_priority: %s: priority_done is <%d>",
 433                         ((priority_done)
 434                          ? "Leave priority alone"
 435                          : "Attempt to set priority"
 436                                 ),
 437                         priority_done);
 438 # endif /* DEBUG */
 439
 440 # if defined(HAVE_SCHED_SETSCHEDULER)
 441         if (!priority_done) {
 442                 extern int config_priority_override, config_priority;
 443                 int pmax, pmin;
 444                 struct sched_param sched;
 445
 446                 pmax = sched_get_priority_max(SCHED_FIFO);
 447                 sched.sched_priority = pmax;
 448                 if ( config_priority_override ) {
 449                         pmin = sched_get_priority_min(SCHED_FIFO);
 450                         if ( config_priority > pmax )
 451                                 sched.sched_priority = pmax;
 452                         else if ( config_priority < pmin )
 453                                 sched.sched_priority = pmin;
 454                         else
 455                                 sched.sched_priority = config_priority;
 456                 }
 457                 if ( sched_setscheduler(0, SCHED_FIFO, &sched) == -1 )
 458                         msyslog(LOG_ERR, "sched_setscheduler(): %m");
 459                 else
 460                         ++priority_done;
 461         }
 462 # endif /* HAVE_SCHED_SETSCHEDULER */
 463 # ifdef HAVE_RTPRIO
 464 #  ifdef RTP_SET
 465         if (!priority_done) {
 466                 struct rtprio srtp;
 467
 468                 srtp.type = RTP_PRIO_REALTIME;  /* was: RTP_PRIO_NORMAL */
 469                 srtp.prio = 0;          /* 0 (hi) -> RTP_PRIO_MAX (31,lo) */
 470
 471                 if (rtprio(RTP_SET, getpid(), &srtp) < 0)
 472                         msyslog(LOG_ERR, "rtprio() error: %m");
 473                 else
 474                         ++priority_done;
 475         }
 476 #  else /* !RTP_SET follows */
 477         if (!priority_done) {
 478                 if (rtprio(0, 120) < 0)
 479                         msyslog(LOG_ERR, "rtprio() error: %m");
 480                 else
 481                         ++priority_done;
 482         }
 483 #  endif        /* !RTP_SET */
 484 # endif /* HAVE_RTPRIO */
 485 # if defined(NTPD_PRIO) && NTPD_PRIO != 0
 486 #  ifdef HAVE_ATT_NICE
 487         if (!priority_done) {
 488                 errno = 0;
 489                 if (-1 == nice (NTPD_PRIO) && errno != 0)
 490                         msyslog(LOG_ERR, "nice() error: %m");
 491                 else
 492                         ++priority_done;
 493         }
 494 #  endif        /* HAVE_ATT_NICE */
 495 #  ifdef HAVE_BSD_NICE
 496         if (!priority_done) {
 497                 if (-1 == setpriority(PRIO_PROCESS, 0, NTPD_PRIO))
 498                         msyslog(LOG_ERR, "setpriority() error: %m");
 499                 else
 500                         ++priority_done;
 501         }
 502 #  endif        /* HAVE_BSD_NICE */
 503 # endif /* NTPD_PRIO && NTPD_PRIO != 0 */
 504         if (!priority_done)
 505                 msyslog(LOG_ERR, "set_process_priority: No way found to improve our priority");
 506 }
 507 #endif  /* !SIM */
 508
 509
 510 /*
 511  * Main program.  Initialize us, disconnect us from the tty if necessary,
 512  * and loop waiting for I/O and/or timer expiries.
 513  */
 514 #ifndef SIM
 515 int
 516 ntpdmain(
 517         int argc,
 518         char *argv[]
 519         )
 520 {
 521         l_fp            now;
 522         struct recvbuf *rbuf;
 523         const char *    logfilename;
 524 # ifdef HAVE_UMASK
 525         mode_t          uv;
 526 # endif
 527 # if defined(HAVE_GETUID) && !defined(MPE) /* MPE lacks the concept of root */
 528         uid_t           uid;
 529 # endif
 530 # if defined(HAVE_WORKING_FORK)
 531         long            wait_sync = 0;
 532         int             pipe_fds[2];
 533         int             rc;
 534         int             exit_code;
 535 #  ifdef _AIX
 536         struct sigaction sa;
 537 #  endif
 538 #  if !defined(HAVE_SETSID) && !defined (HAVE_SETPGID) && defined(TIOCNOTTY)
 539         int             fid;
 540 #  endif
 541 # endif /* HAVE_WORKING_FORK*/
 542 # ifdef SCO5_CLOCK
 543         int             fd;
 544         int             zero;
 545 # endif
 546
 547 # ifdef NEED_PTHREAD_WARMUP
 548         my_pthread_warmup();
 549 # endif
 550
 551 # ifdef HAVE_UMASK
 552         uv = umask(0);
 553         if (uv)
 554                 umask(uv);
 555         else
 556                 umask(022);
 557 # endif
 558         saved_argc = argc;
 559         saved_argv = argv;
 560         progname = argv[0];
 561         initializing = TRUE;            /* mark that we are initializing */
 562         parse_cmdline_opts(&argc, &argv);
 563 # ifdef DEBUG
 564         debug = OPT_VALUE_SET_DEBUG_LEVEL;
 565 #  ifdef HAVE_SETLINEBUF
 566         setlinebuf(stdout);
 567 #  endif
 568 # endif
 569
 570         if (HAVE_OPT(NOFORK) || HAVE_OPT(QUIT)
 571 # ifdef DEBUG
 572             || debug
 573 # endif
 574             || HAVE_OPT(SAVECONFIGQUIT))
 575                 nofork = TRUE;
 576
 577         init_logging(progname, NLOG_SYNCMASK, TRUE);
 578         /* honor -l/--logfile option to log to a file */
 579         if (HAVE_OPT(LOGFILE)) {
 580                 logfilename = OPT_ARG(LOGFILE);
 581                 syslogit = FALSE;
 582                 change_logfile(logfilename, FALSE);
 583         } else {
 584                 logfilename = NULL;
 585                 if (nofork)
 586                         msyslog_term = TRUE;
 587                 if (HAVE_OPT(SAVECONFIGQUIT))
 588                         syslogit = FALSE;
 589         }
 590         msyslog(LOG_NOTICE, "%s: Starting", Version);
 591
 592         {
 593                 int i;
 594                 char buf[1024]; /* Secret knowledge of msyslog buf length */
 595                 char *cp = buf;
 596
 597                 /* Note that every arg has an initial space character */
 598                 snprintf(cp, sizeof(buf), "Command line:");
 599                 cp += strlen(cp);
 600
 601                 for (i = 0; i < saved_argc ; ++i) {
 602                         snprintf(cp, sizeof(buf) - (cp - buf),
 603                                 " %s", saved_argv[i]);
 604                         cp += strlen(cp);
 605                 }
 606                 msyslog(LOG_INFO, "%s", buf);
 607         }
 608
 609         /*
 610          * Install trap handlers to log errors and assertion failures.
 611          * Default handlers print to stderr which doesn't work if detached.
 612          */
 613         isc_assertion_setcallback(assertion_failed);
 614         isc_error_setfatal(library_fatal_error);
 615         isc_error_setunexpected(library_unexpected_error);
 616
 617         /* MPE lacks the concept of root */
 618 # if defined(HAVE_GETUID) && !defined(MPE)
 619         uid = getuid();
 620         if (uid && !HAVE_OPT( SAVECONFIGQUIT )) {
 621                 msyslog_term = TRUE;
 622                 msyslog(LOG_ERR,
 623                         "must be run as root, not uid %ld", (long)uid);
 624                 exit(1);
 625         }
 626 # endif
 627
 628 /*
 629  * Enable the Multi-Media Timer for Windows?
 630  */
 631 # ifdef SYS_WINNT
 632         if (HAVE_OPT( MODIFYMMTIMER ))
 633                 set_mm_timer(MM_TIMER_HIRES);
 634 # endif
 635
 636 #ifdef HAVE_DNSREGISTRATION
 637 /*
 638  * Enable mDNS registrations?
 639  */
 640         if (HAVE_OPT( MDNS )) {
 641                 mdnsreg = TRUE;
 642         }
 643 #endif  /* HAVE_DNSREGISTRATION */
 644
 645         if (HAVE_OPT( NOVIRTUALIPS ))
 646                 listen_to_virtual_ips = 0;
 647
 648         /*
 649          * --interface, listen on specified interfaces
 650          */
 651         if (HAVE_OPT( INTERFACE )) {
 652                 int             ifacect = STACKCT_OPT( INTERFACE );
 653                 const char**    ifaces  = STACKLST_OPT( INTERFACE );
 654                 sockaddr_u      addr;
 655
 656                 while (ifacect-- > 0) {
 657                         add_nic_rule(
 658                                 is_ip_address(*ifaces, AF_UNSPEC, &addr)
 659                                         ? MATCH_IFADDR
 660                                         : MATCH_IFNAME,
 661                                 *ifaces, -1, ACTION_LISTEN);
 662                         ifaces++;
 663                 }
 664         }
 665
 666         if (HAVE_OPT( NICE ))
 667                 priority_done = 0;
 668
 669 # ifdef HAVE_SCHED_SETSCHEDULER
 670         if (HAVE_OPT( PRIORITY )) {
 671                 config_priority = OPT_VALUE_PRIORITY;
 672                 config_priority_override = 1;
 673                 priority_done = 0;
 674         }
 675 # endif
 676
 677 # ifdef HAVE_WORKING_FORK
 678         /* make sure the FDs are initialised */
 679         pipe_fds[0] = -1;
 680         pipe_fds[1] = -1;
 681         do {                                    /* 'loop' once */
 682                 if (!HAVE_OPT( WAIT_SYNC ))
 683                         break;
 684                 wait_sync = OPT_VALUE_WAIT_SYNC;
 685                 if (wait_sync <= 0) {
 686                         wait_sync = 0;
 687                         break;
 688                 }
 689                 /* -w requires a fork() even with debug > 0 */
 690                 nofork = FALSE;
 691                 if (pipe(pipe_fds)) {
 692                         exit_code = (errno) ? errno : -1;
 693                         msyslog(LOG_ERR,
 694                                 "Pipe creation failed for --wait-sync: %m");
 695                         exit(exit_code);
 696                 }
 697                 waitsync_fd_to_close = pipe_fds[1];
 698         } while (0);                            /* 'loop' once */
 699 # endif /* HAVE_WORKING_FORK */
 700
 701         init_lib();
 702 # ifdef SYS_WINNT
 703         /*
 704          * Start interpolation thread, must occur before first
 705          * get_systime()
 706          */
 707         init_winnt_time();
 708 # endif
 709         /*
 710          * Initialize random generator and public key pair
 711          */
 712         get_systime(&now);
 713
 714         ntp_srandom((int)(now.l_i * now.l_uf));
 715
 716         /*
 717          * Detach us from the terminal.  May need an #ifndef GIZMO.
 718          */
 719         if (!nofork) {
 720
 721 # ifdef HAVE_WORKING_FORK
 722                 rc = fork();
 723                 if (-1 == rc) {
 724                         exit_code = (errno) ? errno : -1;
 725                         msyslog(LOG_ERR, "fork: %m");
 726                         exit(exit_code);
 727                 }
 728                 if (rc > 0) {
 729                         /* parent */
 730                         exit_code = wait_child_sync_if(pipe_fds[0],
 731                                                        wait_sync);
 732                         exit(exit_code);
 733                 }
 734
 735                 /*
 736                  * child/daemon
 737                  * close all open files excepting waitsync_fd_to_close.
 738                  * msyslog() unreliable until after init_logging().
 739                  */
 740                 closelog();
 741                 if (syslog_file != NULL) {
 742                         fclose(syslog_file);
 743                         syslog_file = NULL;
 744                         syslogit = TRUE;
 745                 }
 746                 close_all_except(waitsync_fd_to_close);
 747                 INSIST(0 == open("/dev/null", 0) && 1 == dup2(0, 1) \
 748                         && 2 == dup2(0, 2));
 749
 750                 init_logging(progname, 0, TRUE);
 751                 /* we lost our logfile (if any) daemonizing */
 752                 setup_logfile(logfilename);
 753
 754 #  ifdef SYS_DOMAINOS
 755                 {
 756                         uid_$t puid;
 757                         status_$t st;
 758
 759                         proc2_$who_am_i(&puid);
 760                         proc2_$make_server(&puid, &st);
 761                 }
 762 #  endif        /* SYS_DOMAINOS */
 763 #  ifdef HAVE_SETSID
 764                 if (setsid() == (pid_t)-1)
 765                         msyslog(LOG_ERR, "setsid(): %m");
 766 #  elif defined(HAVE_SETPGID)
 767                 if (setpgid(0, 0) == -1)
 768                         msyslog(LOG_ERR, "setpgid(): %m");
 769 #  else         /* !HAVE_SETSID && !HAVE_SETPGID follows */
 770 #   ifdef TIOCNOTTY
 771                 fid = open("/dev/tty", 2);
 772                 if (fid >= 0) {
 773                         ioctl(fid, (u_long)TIOCNOTTY, NULL);
 774                         close(fid);
 775                 }
 776 #   endif       /* TIOCNOTTY */
 777                 ntp_setpgrp(0, getpid());
 778 #  endif        /* !HAVE_SETSID && !HAVE_SETPGID */
 779 #  ifdef _AIX
 780                 /* Don't get killed by low-on-memory signal. */
 781                 sa.sa_handler = catch_danger;
 782                 sigemptyset(&sa.sa_mask);
 783                 sa.sa_flags = SA_RESTART;
 784                 sigaction(SIGDANGER, &sa, NULL);
 785 #  endif        /* _AIX */
 786 # endif         /* HAVE_WORKING_FORK */
 787         }
 788
 789 # ifdef SCO5_CLOCK
 790         /*
 791          * SCO OpenServer's system clock offers much more precise timekeeping
 792          * on the base CPU than the other CPUs (for multiprocessor systems),
 793          * so we must lock to the base CPU.
 794          */
 795         fd = open("/dev/at1", O_RDONLY);
 796         if (fd >= 0) {
 797                 zero = 0;
 798                 if (ioctl(fd, ACPU_LOCK, &zero) < 0)
 799                         msyslog(LOG_ERR, "cannot lock to base CPU: %m");
 800                 close(fd);
 801         }
 802 # endif
 803
 804         /* Setup stack size in preparation for locking pages in memory. */
 805 # if defined(HAVE_MLOCKALL)
 806 #  ifdef HAVE_SETRLIMIT
 807         ntp_rlimit(RLIMIT_STACK, DFLT_RLIMIT_STACK * 4096, 4096, "4k");
 808 #   ifdef RLIMIT_MEMLOCK
 809         /*
 810          * The default RLIMIT_MEMLOCK is very low on Linux systems.
 811          * Unless we increase this limit malloc calls are likely to
 812          * fail if we drop root privilege.  To be useful the value
 813          * has to be larger than the largest ntpd resident set size.
 814          */
 815         ntp_rlimit(RLIMIT_MEMLOCK, DFLT_RLIMIT_MEMLOCK * 1024 * 1024, 1024 * 1024, "MB");
 816 #   endif       /* RLIMIT_MEMLOCK */
 817 #  endif        /* HAVE_SETRLIMIT */
 818 # else  /* !HAVE_MLOCKALL follows */
 819 #  ifdef HAVE_PLOCK
 820 #   ifdef PROCLOCK
 821 #    ifdef _AIX
 822         /*
 823          * set the stack limit for AIX for plock().
 824          * see get_aix_stack() for more info.
 825          */
 826         if (ulimit(SET_STACKLIM, (get_aix_stack() - 8 * 4096)) < 0)
 827                 msyslog(LOG_ERR,
 828                         "Cannot adjust stack limit for plock: %m");
 829 #    endif      /* _AIX */
 830 #   endif       /* PROCLOCK */
 831 #  endif        /* HAVE_PLOCK */
 832 # endif /* !HAVE_MLOCKALL */
 833
 834         /*
 835          * Set up signals we pay attention to locally.
 836          */
 837 # ifdef SIGDIE1
 838         signal_no_reset(SIGDIE1, finish);
 839         signal_no_reset(SIGDIE2, finish);
 840         signal_no_reset(SIGDIE3, finish);
 841         signal_no_reset(SIGDIE4, finish);
 842 # endif
 843 # ifdef SIGBUS
 844         signal_no_reset(SIGBUS, finish);
 845 # endif
 846
 847 # if !defined(SYS_WINNT) && !defined(VMS)
 848 #  ifdef DEBUG
 849         (void) signal_no_reset(MOREDEBUGSIG, moredebug);
 850         (void) signal_no_reset(LESSDEBUGSIG, lessdebug);
 851 #  else
 852         (void) signal_no_reset(MOREDEBUGSIG, no_debug);
 853         (void) signal_no_reset(LESSDEBUGSIG, no_debug);
 854 #  endif        /* DEBUG */
 855 # endif /* !SYS_WINNT && !VMS */
 856
 857         /*
 858          * Set up signals we should never pay attention to.
 859          */
 860 # ifdef SIGPIPE
 861         signal_no_reset(SIGPIPE, SIG_IGN);
 862 # endif
 863
 864         /*
 865          * Call the init_ routines to initialize the data structures.
 866          *
 867          * Exactly what command-line options are we expecting here?
 868          */
 869         INIT_SSL();
 870         init_auth();
 871         init_util();
 872         init_restrict();
 873         init_mon();
 874         init_timer();
 875         init_request();
 876         init_control();
 877         init_peer();
 878 # ifdef REFCLOCK
 879         init_refclock();
 880 # endif
 881         set_process_priority();
 882         init_proto();           /* Call at high priority */
 883         init_io();
 884         init_loopfilter();
 885         mon_start(MON_ON);      /* monitor on by default now      */
 886                                 /* turn off in config if unwanted */
 887
 888         /*
 889          * Get the configuration.  This is done in a separate module
 890          * since this will definitely be different for the gizmo board.
 891          */
 892         getconfig(argc, argv);
 893
 894         if (-1 == cur_memlock) {
 895 # if defined(HAVE_MLOCKALL)
 896                 /*
 897                  * lock the process into memory
 898                  */
 899                 if (   !HAVE_OPT(SAVECONFIGQUIT)
 900 #  ifdef RLIMIT_MEMLOCK
 901                     && -1 != DFLT_RLIMIT_MEMLOCK
 902 #  endif
 903                     && 0 != mlockall(MCL_CURRENT|MCL_FUTURE))
 904                         msyslog(LOG_ERR, "mlockall(): %m");
 905 # else  /* !HAVE_MLOCKALL follows */
 906 #  ifdef HAVE_PLOCK
 907 #   ifdef PROCLOCK
 908                 /*
 909                  * lock the process into memory
 910                  */
 911                 if (!HAVE_OPT(SAVECONFIGQUIT) && 0 != plock(PROCLOCK))
 912                         msyslog(LOG_ERR, "plock(PROCLOCK): %m");
 913 #   else        /* !PROCLOCK follows  */
 914 #    ifdef TXTLOCK
 915                 /*
 916                  * Lock text into ram
 917                  */
 918                 if (!HAVE_OPT(SAVECONFIGQUIT) && 0 != plock(TXTLOCK))
 919                         msyslog(LOG_ERR, "plock(TXTLOCK) error: %m");
 920 #    else       /* !TXTLOCK follows */
 921                 msyslog(LOG_ERR, "plock() - don't know what to lock!");
 922 #    endif      /* !TXTLOCK */
 923 #   endif       /* !PROCLOCK */
 924 #  endif        /* HAVE_PLOCK */
 925 # endif /* !HAVE_MLOCKALL */
 926         }
 927
 928         loop_config(LOOP_DRIFTINIT, 0);
 929         report_event(EVNT_SYSRESTART, NULL, NULL);
 930         initializing = FALSE;
 931
 932 # ifdef HAVE_DROPROOT
 933         if (droproot) {
 934                 /* Drop super-user privileges and chroot now if the OS supports this */
 935
 936 #  ifdef HAVE_LINUX_CAPABILITIES
 937                 /* set flag: keep privileges accross setuid() call (we only really need cap_sys_time): */
 938                 if (prctl( PR_SET_KEEPCAPS, 1L, 0L, 0L, 0L ) == -1) {
 939                         msyslog( LOG_ERR, "prctl( PR_SET_KEEPCAPS, 1L ) failed: %m" );
 940                         exit(-1);
 941                 }
 942 #  elif HAVE_SOLARIS_PRIVS
 943                 /* Nothing to do here */
 944 #  else
 945                 /* we need a user to switch to */
 946                 if (user == NULL) {
 947                         msyslog(LOG_ERR, "Need user name to drop root privileges (see -u flag!)" );
 948                         exit(-1);
 949                 }
 950 #  endif        /* HAVE_LINUX_CAPABILITIES || HAVE_SOLARIS_PRIVS */
 951
 952                 if (user != NULL) {
 953                         if (isdigit((unsigned char)*user)) {
 954                                 sw_uid = (uid_t)strtoul(user, &endp, 0);
 955                                 if (*endp != '\0')
 956                                         goto getuser;
 957
 958                                 if ((pw = getpwuid(sw_uid)) != NULL) {
 959                                         free(user);
 960                                         user = estrdup(pw->pw_name);
 961                                         sw_gid = pw->pw_gid;
 962                                 } else {
 963                                         errno = 0;
 964                                         msyslog(LOG_ERR, "Cannot find user ID %s", user);
 965                                         exit (-1);
 966                                 }
 967
 968                         } else {
 969 getuser:
 970                                 errno = 0;
 971                                 if ((pw = getpwnam(user)) != NULL) {
 972                                         sw_uid = pw->pw_uid;
 973                                         sw_gid = pw->pw_gid;
 974                                 } else {
 975                                         if (errno)
 976                                                 msyslog(LOG_ERR, "getpwnam(%s) failed: %m", user);
 977                                         else
 978                                                 msyslog(LOG_ERR, "Cannot find user `%s'", user);
 979                                         exit (-1);
 980                                 }
 981                         }
 982                 }
 983                 if (group != NULL) {
 984                         if (isdigit((unsigned char)*group)) {
 985                                 sw_gid = (gid_t)strtoul(group, &endp, 0);
 986                                 if (*endp != '\0')
 987                                         goto getgroup;
 988                         } else {
 989 getgroup:
 990                                 if ((gr = getgrnam(group)) != NULL) {
 991                                         sw_gid = gr->gr_gid;
 992                                 } else {
 993                                         errno = 0;
 994                                         msyslog(LOG_ERR, "Cannot find group `%s'", group);
 995                                         exit (-1);
 996                                 }
 997                         }
 998                 }
 999
1000                 if (chrootdir ) {
1001                         /* make sure cwd is inside the jail: */
1002                         if (chdir(chrootdir)) {
1003                                 msyslog(LOG_ERR, "Cannot chdir() to `%s': %m", chrootdir);
1004                                 exit (-1);
1005                         }
1006                         if (chroot(chrootdir)) {
1007                                 msyslog(LOG_ERR, "Cannot chroot() to `%s': %m", chrootdir);
1008                                 exit (-1);
1009                         }
1010                         if (chdir("/")) {
1011                                 msyslog(LOG_ERR, "Cannot chdir() to`root after chroot(): %m");
1012                                 exit (-1);
1013                         }
1014                 }
1015 #  ifdef HAVE_SOLARIS_PRIVS
1016                 if ((lowprivs = priv_str_to_set(LOWPRIVS, ",", NULL)) == NULL) {
1017                         msyslog(LOG_ERR, "priv_str_to_set() failed:%m");
1018                         exit(-1);
1019                 }
1020                 if ((highprivs = priv_allocset()) == NULL) {
1021                         msyslog(LOG_ERR, "priv_allocset() failed:%m");
1022                         exit(-1);
1023                 }
1024                 (void) getppriv(PRIV_PERMITTED, highprivs);
1025                 (void) priv_intersect(highprivs, lowprivs);
1026                 if (setppriv(PRIV_SET, PRIV_PERMITTED, lowprivs) == -1) {
1027                         msyslog(LOG_ERR, "setppriv() failed:%m");
1028                         exit(-1);
1029                 }
1030 #  endif /* HAVE_SOLARIS_PRIVS */
1031                 if (user && initgroups(user, sw_gid)) {
1032                         msyslog(LOG_ERR, "Cannot initgroups() to user `%s': %m", user);
1033                         exit (-1);
1034                 }
1035                 if (group && setgid(sw_gid)) {
1036                         msyslog(LOG_ERR, "Cannot setgid() to group `%s': %m", group);
1037                         exit (-1);
1038                 }
1039                 if (group && setegid(sw_gid)) {
1040                         msyslog(LOG_ERR, "Cannot setegid() to group `%s': %m", group);
1041                         exit (-1);
1042                 }
1043                 if (group) {
1044                         if (0 != setgroups(1, &sw_gid)) {
1045                                 msyslog(LOG_ERR, "setgroups(1, %d) failed: %m", sw_gid);
1046                                 exit (-1);
1047                         }
1048                 }
1049                 else if (pw)
1050                         if (0 != initgroups(pw->pw_name, pw->pw_gid)) {
1051                                 msyslog(LOG_ERR, "initgroups(<%s>, %d) filed: %m", pw->pw_name, pw->pw_gid);
1052                                 exit (-1);
1053                         }
1054                 if (user && setuid(sw_uid)) {
1055                         msyslog(LOG_ERR, "Cannot setuid() to user `%s': %m", user);
1056                         exit (-1);
1057                 }
1058                 if (user && seteuid(sw_uid)) {
1059                         msyslog(LOG_ERR, "Cannot seteuid() to user `%s': %m", user);
1060                         exit (-1);
1061                 }
1062
1063 #  if !defined(HAVE_LINUX_CAPABILITIES) && !defined(HAVE_SOLARIS_PRIVS)
1064                 /*
1065                  * for now assume that the privilege to bind to privileged ports
1066                  * is associated with running with uid 0 - should be refined on
1067                  * ports that allow binding to NTP_PORT with uid != 0
1068                  */
1069                 disable_dynamic_updates |= (sw_uid != 0);  /* also notifies routing message listener */
1070 #  endif /* !HAVE_LINUX_CAPABILITIES && !HAVE_SOLARIS_PRIVS */
1071
1072                 if (disable_dynamic_updates && interface_interval) {
1073                         interface_interval = 0;
1074                         msyslog(LOG_INFO, "running as non-root disables dynamic interface tracking");
1075                 }
1076
1077 #  ifdef HAVE_LINUX_CAPABILITIES
1078                 {
1079                         /*
1080                          *  We may be running under non-root uid now, but we still hold full root privileges!
1081                          *  We drop all of them, except for the crucial one or two: cap_sys_time and
1082                          *  cap_net_bind_service if doing dynamic interface tracking.
1083                          */
1084                         cap_t caps;
1085                         char *captext;
1086
1087                         captext = (0 != interface_interval)
1088                                       ? "cap_sys_time,cap_net_bind_service=pe"
1089                                       : "cap_sys_time=pe";
1090                         caps = cap_from_text(captext);
1091                         if (!caps) {
1092                                 msyslog(LOG_ERR,
1093                                         "cap_from_text(%s) failed: %m",
1094                                         captext);
1095                                 exit(-1);
1096                         }
1097                         if (-1 == cap_set_proc(caps)) {
1098                                 msyslog(LOG_ERR,
1099                                         "cap_set_proc() failed to drop root privs: %m");
1100                                 exit(-1);
1101                         }
1102                         cap_free(caps);
1103                 }
1104 #  endif        /* HAVE_LINUX_CAPABILITIES */
1105 #  ifdef HAVE_SOLARIS_PRIVS
1106                 if (priv_delset(lowprivs, "proc_setid") == -1) {
1107                         msyslog(LOG_ERR, "priv_delset() failed:%m");
1108                         exit(-1);
1109                 }
1110                 if (setppriv(PRIV_SET, PRIV_PERMITTED, lowprivs) == -1) {
1111                         msyslog(LOG_ERR, "setppriv() failed:%m");
1112                         exit(-1);
1113                 }
1114                 priv_freeset(lowprivs);
1115                 priv_freeset(highprivs);
1116 #  endif /* HAVE_SOLARIS_PRIVS */
1117                 root_dropped = TRUE;
1118                 fork_deferred_worker();
1119         }       /* if (droproot) */
1120 # endif /* HAVE_DROPROOT */
1121
1122 /* libssecomp sandboxing */
1123 #if defined (LIBSECCOMP) && (KERN_SECCOMP)
1124         scmp_filter_ctx ctx;
1125
1126         if ((ctx = seccomp_init(SCMP_ACT_KILL)) < 0)
1127                 msyslog(LOG_ERR, "%s: seccomp_init(SCMP_ACT_KILL) failed: %m", __func__);
1128         else {
1129                 msyslog(LOG_DEBUG, "%s: seccomp_init(SCMP_ACT_KILL) succeeded", __func__);
1130         }
1131
1132 #ifdef __x86_64__
1133 int scmp_sc[] = {
1134         SCMP_SYS(adjtimex),
1135         SCMP_SYS(bind),
1136         SCMP_SYS(brk),
1137         SCMP_SYS(chdir),
1138         SCMP_SYS(clock_gettime),
1139         SCMP_SYS(clock_settime),
1140         SCMP_SYS(close),
1141         SCMP_SYS(connect),
1142         SCMP_SYS(exit_group),
1143         SCMP_SYS(fstat),
1144         SCMP_SYS(fsync),
1145         SCMP_SYS(futex),
1146         SCMP_SYS(getitimer),
1147         SCMP_SYS(getsockname),
1148         SCMP_SYS(ioctl),
1149         SCMP_SYS(lseek),
1150         SCMP_SYS(madvise),
1151         SCMP_SYS(mmap),
1152         SCMP_SYS(munmap),
1153         SCMP_SYS(open),
1154         SCMP_SYS(poll),
1155         SCMP_SYS(read),
1156         SCMP_SYS(recvmsg),
1157         SCMP_SYS(rename),
1158         SCMP_SYS(rt_sigaction),
1159         SCMP_SYS(rt_sigprocmask),
1160         SCMP_SYS(rt_sigreturn),
1161         SCMP_SYS(select),
1162         SCMP_SYS(sendto),
1163         SCMP_SYS(setitimer),
1164         SCMP_SYS(setsid),
1165         SCMP_SYS(socket),
1166         SCMP_SYS(stat),
1167         SCMP_SYS(time),
1168         SCMP_SYS(write),
1169 };
1170 #endif
1171 #ifdef __i386__
1172 int scmp_sc[] = {
1173         SCMP_SYS(_newselect),
1174         SCMP_SYS(adjtimex),
1175         SCMP_SYS(brk),
1176         SCMP_SYS(chdir),
1177         SCMP_SYS(clock_gettime),
1178         SCMP_SYS(clock_settime),
1179         SCMP_SYS(close),
1180         SCMP_SYS(exit_group),
1181         SCMP_SYS(fsync),
1182         SCMP_SYS(futex),
1183         SCMP_SYS(getitimer),
1184         SCMP_SYS(madvise),
1185         SCMP_SYS(mmap),
1186         SCMP_SYS(mmap2),
1187         SCMP_SYS(munmap),
1188         SCMP_SYS(open),
1189         SCMP_SYS(poll),
1190         SCMP_SYS(read),
1191         SCMP_SYS(rename),
1192         SCMP_SYS(rt_sigaction),
1193         SCMP_SYS(rt_sigprocmask),
1194         SCMP_SYS(select),
1195         SCMP_SYS(setitimer),
1196         SCMP_SYS(setsid),
1197         SCMP_SYS(sigprocmask),
1198         SCMP_SYS(sigreturn),
1199         SCMP_SYS(socketcall),
1200         SCMP_SYS(stat64),
1201         SCMP_SYS(time),
1202         SCMP_SYS(write),
1203 };
1204 #endif
1205         {
1206                 int i;
1207
1208                 for (i = 0; i < COUNTOF(scmp_sc); i++) {
1209                         if (seccomp_rule_add(ctx,
1210                             SCMP_ACT_ALLOW, scmp_sc[i], 0) < 0) {
1211                                 msyslog(LOG_ERR,
1212                                     "%s: seccomp_rule_add() failed: %m",
1213                                     __func__);
1214                         }
1215                 }
1216         }
1217
1218         if (seccomp_load(ctx) < 0)
1219                 msyslog(LOG_ERR, "%s: seccomp_load() failed: %m",
1220                     __func__);
1221         else {
1222                 msyslog(LOG_DEBUG, "%s: seccomp_load() succeeded", __func__);
1223         }
1224 #endif /* LIBSECCOMP and KERN_SECCOMP */
1225
1226 # ifdef HAVE_IO_COMPLETION_PORT
1227
1228         for (;;) {
1229 #if !defined(SIM) && defined(SIGDIE1)
1230                 if (signalled)
1231                         finish_safe(signo);
1232 #endif
1233                 GetReceivedBuffers();
1234 # else /* normal I/O */
1235
1236         BLOCK_IO_AND_ALARM();
1237         was_alarmed = FALSE;
1238
1239         for (;;) {
1240 #if !defined(SIM) && defined(SIGDIE1)
1241                 if (signalled)
1242                         finish_safe(signo);
1243 #endif
1244                 if (alarm_flag) {       /* alarmed? */
1245                         was_alarmed = TRUE;
1246                         alarm_flag = FALSE;
1247                 }
1248
1249                 /* collect async name/addr results */
1250                 if (!was_alarmed)
1251                     harvest_blocking_responses();
1252
1253                 if (!was_alarmed && !has_full_recv_buffer()) {
1254                         /*
1255                          * Nothing to do.  Wait for something.
1256                          */
1257                         io_handler();
1258                 }
1259
1260                 if (alarm_flag) {       /* alarmed? */
1261                         was_alarmed = TRUE;
1262                         alarm_flag = FALSE;
1263                 }
1264
1265                 if (was_alarmed) {
1266                         UNBLOCK_IO_AND_ALARM();
1267                         /*
1268                          * Out here, signals are unblocked.  Call timer routine
1269                          * to process expiry.
1270                          */
1271                         timer();
1272                         was_alarmed = FALSE;
1273                         BLOCK_IO_AND_ALARM();
1274                 }
1275
1276 # endif         /* !HAVE_IO_COMPLETION_PORT */
1277
1278 # ifdef DEBUG_TIMING
1279                 {
1280                         l_fp pts;
1281                         l_fp tsa, tsb;
1282                         int bufcount = 0;
1283
1284                         get_systime(&pts);
1285                         tsa = pts;
1286 # endif
1287                         rbuf = get_full_recv_buffer();
1288                         while (rbuf != NULL) {
1289                                 if (alarm_flag) {
1290                                         was_alarmed = TRUE;
1291                                         alarm_flag = FALSE;
1292                                 }
1293                                 UNBLOCK_IO_AND_ALARM();
1294
1295                                 if (was_alarmed) {
1296                                         /* avoid timer starvation during lengthy I/O handling */
1297                                         timer();
1298                                         was_alarmed = FALSE;
1299                                 }
1300
1301                                 /*
1302                                  * Call the data procedure to handle each received
1303                                  * packet.
1304                                  */
1305                                 if (rbuf->receiver != NULL) {
1306 # ifdef DEBUG_TIMING
1307                                         l_fp dts = pts;
1308
1309                                         L_SUB(&dts, &rbuf->recv_time);
1310                                         DPRINTF(2, ("processing timestamp delta %s (with prec. fuzz)\n", lfptoa(&dts, 9)));
1311                                         collect_timing(rbuf, "buffer processing delay", 1, &dts);
1312                                         bufcount++;
1313 # endif
1314                                         (*rbuf->receiver)(rbuf);
1315                                 } else {
1316                                         msyslog(LOG_ERR, "fatal: receive buffer callback NULL");
1317                                         abort();
1318                                 }
1319
1320                                 BLOCK_IO_AND_ALARM();
1321                                 freerecvbuf(rbuf);
1322                                 rbuf = get_full_recv_buffer();
1323                         }
1324 # ifdef DEBUG_TIMING
1325                         get_systime(&tsb);
1326                         L_SUB(&tsb, &tsa);
1327                         if (bufcount) {
1328                                 collect_timing(NULL, "processing", bufcount, &tsb);
1329                                 DPRINTF(2, ("processing time for %d buffers %s\n", bufcount, lfptoa(&tsb, 9)));
1330                         }
1331                 }
1332 # endif
1333
1334                 /*
1335                  * Go around again
1336                  */
1337
1338 # ifdef HAVE_DNSREGISTRATION
1339                 if (mdnsreg && (current_time - mdnsreg ) > 60 && mdnstries && sys_leap != LEAP_NOTINSYNC) {
1340                         mdnsreg = current_time;
1341                         msyslog(LOG_INFO, "Attempting to register mDNS");
1342                         if ( DNSServiceRegister (&mdns, 0, 0, NULL, "_ntp._udp", NULL, NULL,
1343                             htons(NTP_PORT), 0, NULL, NULL, NULL) != kDNSServiceErr_NoError ) {
1344                                 if (!--mdnstries) {
1345                                         msyslog(LOG_ERR, "Unable to register mDNS, giving up.");
1346                                 } else {
1347                                         msyslog(LOG_INFO, "Unable to register mDNS, will try later.");
1348                                 }
1349                         } else {
1350                                 msyslog(LOG_INFO, "mDNS service registered.");
1351                                 mdnsreg = FALSE;
1352                         }
1353                 }
1354 # endif /* HAVE_DNSREGISTRATION */
1355
1356         }
1357         UNBLOCK_IO_AND_ALARM();
1358         return 1;
1359 }
1360 #endif  /* !SIM */
1361
1362
1363 #if !defined(SIM) && defined(SIGDIE1)
1364 /*
1365  * finish - exit gracefully
1366  */
1367 static void
1368 finish_safe(
1369         int     sig
1370         )
1371 {
1372         const char *sig_desc;
1373
1374         sig_desc = NULL;
1375 #ifdef HAVE_STRSIGNAL
1376         sig_desc = strsignal(sig);
1377 #endif
1378         if (sig_desc == NULL)
1379                 sig_desc = "";
1380         msyslog(LOG_NOTICE, "%s exiting on signal %d (%s)", progname,
1381                 sig, sig_desc);
1382         /* See Bug 2513 and Bug 2522 re the unlink of PIDFILE */
1383 # ifdef HAVE_DNSREGISTRATION
1384         if (mdns != NULL)
1385                 DNSServiceRefDeallocate(mdns);
1386 # endif
1387         peer_cleanup();
1388         exit(0);
1389 }
1390
1391 static RETSIGTYPE
1392 finish(
1393         int     sig
1394         )
1395 {
1396         signalled = 1;
1397         signo = sig;
1398 }
1399
1400 #endif  /* !SIM && SIGDIE1 */
1401
1402
1403 #ifndef SIM
1404 /*
1405  * wait_child_sync_if - implements parent side of -w/--wait-sync
1406  */
1407 # ifdef HAVE_WORKING_FORK
1408 static int
1409 wait_child_sync_if(
1410         int     pipe_read_fd,
1411         long    wait_sync
1412         )
1413 {
1414         int     rc;
1415         int     exit_code;
1416         time_t  wait_end_time;
1417         time_t  cur_time;
1418         time_t  wait_rem;
1419         fd_set  readset;
1420         struct timeval wtimeout;
1421
1422         if (0 == wait_sync)
1423                 return 0;
1424
1425         /* waitsync_fd_to_close used solely by child */
1426         close(waitsync_fd_to_close);
1427         wait_end_time = time(NULL) + wait_sync;
1428         do {
1429                 cur_time = time(NULL);
1430                 wait_rem = (wait_end_time > cur_time)
1431                                 ? (wait_end_time - cur_time)
1432                                 : 0;
1433                 wtimeout.tv_sec = wait_rem;
1434                 wtimeout.tv_usec = 0;
1435                 FD_ZERO(&readset);
1436                 FD_SET(pipe_read_fd, &readset);
1437                 rc = select(pipe_read_fd + 1, &readset, NULL, NULL,
1438                             &wtimeout);
1439                 if (-1 == rc) {
1440                         if (EINTR == errno)
1441                                 continue;
1442                         exit_code = (errno) ? errno : -1;
1443                         msyslog(LOG_ERR,
1444                                 "--wait-sync select failed: %m");
1445                         return exit_code;
1446                 }
1447                 if (0 == rc) {
1448                         /*
1449                          * select() indicated a timeout, but in case
1450                          * its timeouts are affected by a step of the
1451                          * system clock, select() again with a zero
1452                          * timeout to confirm.
1453                          */
1454                         FD_ZERO(&readset);
1455                         FD_SET(pipe_read_fd, &readset);
1456                         wtimeout.tv_sec = 0;
1457                         wtimeout.tv_usec = 0;
1458                         rc = select(pipe_read_fd + 1, &readset, NULL,
1459                                     NULL, &wtimeout);
1460                         if (0 == rc)    /* select() timeout */
1461                                 break;
1462                         else            /* readable */
1463                                 return 0;
1464                 } else                  /* readable */
1465                         return 0;
1466         } while (wait_rem > 0);
1467
1468         fprintf(stderr, "%s: -w/--wait-sync %ld timed out.\n",
1469                 progname, wait_sync);
1470         return ETIMEDOUT;
1471 }
1472 # endif /* HAVE_WORKING_FORK */
1473
1474
1475 /*
1476  * assertion_failed - Redirect assertion failures to msyslog().
1477  */
1478 static void
1479 assertion_failed(
1480         const char *file,
1481         int line,
1482         isc_assertiontype_t type,
1483         const char *cond
1484         )
1485 {
1486         isc_assertion_setcallback(NULL);    /* Avoid recursion */
1487
1488         msyslog(LOG_ERR, "%s:%d: %s(%s) failed",
1489                 file, line, isc_assertion_typetotext(type), cond);
1490         msyslog(LOG_ERR, "exiting (due to assertion failure)");
1491
1492 #if defined(DEBUG) && defined(SYS_WINNT)
1493         if (debug)
1494                 DebugBreak();
1495 #endif
1496
1497         abort();
1498 }
1499
1500
1501 /*
1502  * library_fatal_error - Handle fatal errors from our libraries.
1503  */
1504 static void
1505 library_fatal_error(
1506         const char *file,
1507         int line,
1508         const char *format,
1509         va_list args
1510         )
1511 {
1512         char errbuf[256];
1513
1514         isc_error_setfatal(NULL);  /* Avoid recursion */
1515
1516         msyslog(LOG_ERR, "%s:%d: fatal error:", file, line);
1517         vsnprintf(errbuf, sizeof(errbuf), format, args);
1518         msyslog(LOG_ERR, "%s", errbuf);
1519         msyslog(LOG_ERR, "exiting (due to fatal error in library)");
1520
1521 #if defined(DEBUG) && defined(SYS_WINNT)
1522         if (debug)
1523                 DebugBreak();
1524 #endif
1525
1526         abort();
1527 }
1528
1529
1530 /*
1531  * library_unexpected_error - Handle non fatal errors from our libraries.
1532  */
1533 # define MAX_UNEXPECTED_ERRORS 100
1534 int unexpected_error_cnt = 0;
1535 static void
1536 library_unexpected_error(
1537         const char *file,
1538         int line,
1539         const char *format,
1540         va_list args
1541         )
1542 {
1543         char errbuf[256];
1544
1545         if (unexpected_error_cnt >= MAX_UNEXPECTED_ERRORS)
1546                 return; /* avoid clutter in log */
1547
1548         msyslog(LOG_ERR, "%s:%d: unexpected error:", file, line);
1549         vsnprintf(errbuf, sizeof(errbuf), format, args);
1550         msyslog(LOG_ERR, "%s", errbuf);
1551
1552         if (++unexpected_error_cnt == MAX_UNEXPECTED_ERRORS)
1553                 msyslog(LOG_ERR, "Too many errors.  Shutting up.");
1554
1555 }
1556 #endif  /* !SIM */
1557
1558 #if !defined(SIM) && !defined(SYS_WINNT)
1559 # ifdef DEBUG
1560
1561 /*
1562  * moredebug - increase debugging verbosity
1563  */
1564 static RETSIGTYPE
1565 moredebug(
1566         int sig
1567         )
1568 {
1569         int saved_errno = errno;
1570
1571         if (debug < 255)
1572         {
1573                 debug++;
1574                 msyslog(LOG_DEBUG, "debug raised to %d", debug);
1575         }
1576         errno = saved_errno;
1577 }
1578
1579
1580 /*
1581  * lessdebug - decrease debugging verbosity
1582  */
1583 static RETSIGTYPE
1584 lessdebug(
1585         int sig
1586         )
1587 {
1588         int saved_errno = errno;
1589
1590         if (debug > 0)
1591         {
1592                 debug--;
1593                 msyslog(LOG_DEBUG, "debug lowered to %d", debug);
1594         }
1595         errno = saved_errno;
1596 }
1597
1598 # else  /* !DEBUG follows */
1599
1600
1601 /*
1602  * no_debug - We don't do the debug here.
1603  */
1604 static RETSIGTYPE
1605 no_debug(
1606         int sig
1607         )
1608 {
1609         int saved_errno = errno;
1610
1611         msyslog(LOG_DEBUG, "ntpd not compiled for debugging (signal %d)", sig);
1612         errno = saved_errno;
1613 }
1614 # endif /* !DEBUG */
1615 #endif  /* !SIM && !SYS_WINNT */