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