src/OS/os.c-Linux

   1 /*************************************************
   2 *     Exim - an Internet mail transport agent    *
   3 *************************************************/
   4
   5 /* Copyright (c) University of Cambridge 1997 - 2018 */
   6 /* SPDX-License-Identifier: GPL-2.0-or-later */
   7 /* See the file NOTICE for conditions of use and distribution. */
   8
   9 /* Linux-specific code. This is concatenated onto the generic
  10 src/os.c file. */
  11
  12
  13 /*************************************************
  14 *              Load average computation          *
  15 *************************************************/
  16
  17 /*Linux has an apparently unique way of getting the load average, so we provide
  18 a unique function here, and define OS_LOAD_AVERAGE to stop src/os.c trying to
  19 provide the function. However, when compiling os.c for utilities, we may not
  20 want this at all, so check that it isn't set first. */
  21
  22 #if !defined(OS_LOAD_AVERAGE) && defined(__linux__)
  23 #define OS_LOAD_AVERAGE
  24
  25 /* Linux has 2 ways of returning load average:
  26
  27   (1) Do a read on /proc/loadavg
  28   (2) Use the sysinfo library function and syscall
  29
  30 The latter is simpler but in Linux 2.0 - 2.2 (and probably later releases) is
  31 exceptionally slow - 10-50ms per call is not unusual and about 100x slow the
  32 first method. This cripples high performance mail servers by increasing CPU
  33 utilisation by 3-5x.
  34
  35 In Exim's very early days, it used the 1st method. Later, it switched to the
  36 2nd method. Now it tries the 1st method and falls back to the 2nd if /proc is
  37 unavailable. */
  38
  39 #include <sys/sysinfo.h>
  40
  41 static int
  42 linux_slow_getloadavg(void)
  43 {
  44 struct sysinfo s;
  45 double avg;
  46 if (sysinfo(&s) < 0) return -1;
  47 avg = (double) (s.loads[0]) / (1<<SI_LOAD_SHIFT);
  48 return (int)(avg * 1000.0);
  49 }
  50
  51 int
  52 os_getloadavg(void)
  53 {
  54 char buffer[40];
  55 double avg;
  56 int count;
  57 int fd = open ("/proc/loadavg", O_RDONLY);
  58 if (fd == -1) return linux_slow_getloadavg();
  59 count = read (fd, buffer, sizeof(buffer));
  60 (void)close (fd);
  61 if (count <= 0) return linux_slow_getloadavg();
  62 count = sscanf (buffer, "%lf", &avg);
  63 if (count < 1) return linux_slow_getloadavg();
  64 return (int)(avg * 1000.0);
  65 }
  66 #endif  /* OS_LOAD_AVERAGE */
  67
  68
  69
  70
  71
  72 /*************************************************
  73 *         Finding interface addresses            *
  74 *************************************************/
  75
  76 /* This function is not required for utilities; we cut it out if
  77 FIND_RUNNING_INTERFACES is already defined. */
  78
  79 #ifndef FIND_RUNNING_INTERFACES
  80
  81 /* This code, contributed by Jason Gunthorpe, appears to be the current
  82 way of finding IPv6 interfaces in Linux. It first calls the common function in
  83 order to find IPv4 interfaces, then grobbles around to find the others. Jason
  84 said, "This is so horrible, don't look. Slightly ripped from net-tools
  85 ifconfig." It gets called by virtue of os_find_running_interfaces being defined
  86 as a macro for os_find_running_interfaces_linux in the os.h-Linux file. */
  87
  88 ip_address_item *
  89 os_find_running_interfaces_linux(void)
  90 {
  91 ip_address_item *yield = NULL;
  92
  93 #if HAVE_IPV6
  94 ip_address_item *last = NULL;
  95 ip_address_item  *next;
  96 char addr6p[8][5];
  97 unsigned int plen, scope, dad_status, if_idx;
  98 char devname[20+1];
  99 FILE *f;
 100 #endif
 101
 102 yield = os_common_find_running_interfaces();
 103
 104 #if HAVE_IPV6
 105
 106 /* Open the /proc file; give up if we can't. */
 107
 108 if ((f = fopen("/proc/net/if_inet6", "r")) == NULL) return yield;
 109
 110 /* Pick out the data from within the file, and add it on to the chain */
 111
 112 last = yield;
 113 if (last != NULL) while (last->next != NULL) last = last->next;
 114
 115 while (fscanf(f, "%4s%4s%4s%4s%4s%4s%4s%4s %02x %02x %02x %02x %20s\n",
 116              addr6p[0], addr6p[1], addr6p[2], addr6p[3],
 117              addr6p[4], addr6p[5], addr6p[6], addr6p[7],
 118              &if_idx, &plen, &scope, &dad_status, devname) != EOF)
 119   {
 120   struct sockaddr_in6 addr;
 121
 122   /* This data has to survive for ever, so use malloc. */
 123
 124   next = store_malloc(sizeof(ip_address_item));
 125   next->next = NULL;
 126   next->port = 0;
 127   sprintf(CS next->address, "%s:%s:%s:%s:%s:%s:%s:%s",
 128          addr6p[0], addr6p[1], addr6p[2], addr6p[3],
 129          addr6p[4], addr6p[5], addr6p[6], addr6p[7]);
 130
 131   /* Normalize the representation */
 132
 133   inet_pton(AF_INET6, CS next->address, &addr.sin6_addr);
 134   inet_ntop(AF_INET6, &addr.sin6_addr, CS next->address, sizeof(next->address));
 135
 136   if (yield == NULL) yield = last = next; else
 137     {
 138     last->next = next;
 139     last = next;
 140     }
 141
 142   DEBUG(D_interface)
 143     debug_printf("Actual local interface address is %s (%s)\n", last->address,
 144       devname);
 145   }
 146 fclose(f);
 147 #endif  /* HAVE_IPV6 */
 148
 149 return yield;
 150 }
 151
 152 #endif  /* FIND_RUNNING_INTERFACES */
 153
 154
 155 /*************
 156 * Sendfile   *
 157 *************/
 158 #include <sys/sendfile.h>
 159
 160 ssize_t
 161 os_sendfile(int out, int in, off_t * off, size_t cnt)
 162 {
 163 return sendfile(out, in, off, cnt);
 164 }
 165
 166 /* End of os.c-Linux */