1 /*- 2 * SPDX-License-Identifier: ISC 3 * 4 * Copyright (c) 2004 by Internet Systems Consortium, Inc. ("ISC") 5 * Copyright (c) 1996,1999 by Internet Software Consortium. 6 * 7 * Permission to use, copy, modify, and distribute this software for any 8 * purpose with or without fee is hereby granted, provided that the above 9 * copyright notice and this permission notice appear in all copies. 10 * 11 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES 12 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 13 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR 14 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 15 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN 16 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 17 * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 18 */ 19 20 #ifndef lint 21 static const char rcsid[] = "$Id: ns_ttl.c,v 1.4 2005/07/28 06:51:49 marka Exp $"; 22 #endif 23 /* Import. */ 24 25 #include "port_before.h" 26 27 #include <arpa/nameser.h> 28 29 #include <ctype.h> 30 #include <errno.h> 31 #include <stdio.h> 32 #include <string.h> 33 34 #include "port_after.h" 35 36 #ifdef SPRINTF_CHAR 37 # define SPRINTF(x) strlen(sprintf/**/x) 38 #else 39 # define SPRINTF(x) ((size_t)sprintf x) 40 #endif 41 42 /* Forward. */ 43 44 static int fmt1(int t, char s, char **buf, size_t *buflen); 45 46 /* Macros. */ 47 48 #define T(x) if ((x) < 0) return (-1); else (void)NULL 49 50 /* Public. */ 51 52 int 53 ns_format_ttl(u_long src, char *dst, size_t dstlen) { 54 char *odst = dst; 55 int secs, mins, hours, days, weeks, x; 56 char *p; 57 58 secs = src % 60; src /= 60; 59 mins = src % 60; src /= 60; 60 hours = src % 24; src /= 24; 61 days = src % 7; src /= 7; 62 weeks = src; src = 0; 63 64 x = 0; 65 if (weeks) { 66 T(fmt1(weeks, 'W', &dst, &dstlen)); 67 x++; 68 } 69 if (days) { 70 T(fmt1(days, 'D', &dst, &dstlen)); 71 x++; 72 } 73 if (hours) { 74 T(fmt1(hours, 'H', &dst, &dstlen)); 75 x++; 76 } 77 if (mins) { 78 T(fmt1(mins, 'M', &dst, &dstlen)); 79 x++; 80 } 81 if (secs || !(weeks || days || hours || mins)) { 82 T(fmt1(secs, 'S', &dst, &dstlen)); 83 x++; 84 } 85 86 if (x > 1) { 87 int ch; 88 89 for (p = odst; (ch = *p) != '\0'; p++) 90 if (isascii(ch) && isupper(ch)) 91 *p = tolower(ch); 92 } 93 94 return (dst - odst); 95 } 96 97 int 98 ns_parse_ttl(const char *src, u_long *dst) { 99 u_long ttl, tmp; 100 int ch, digits, dirty; 101 102 ttl = 0; 103 tmp = 0; 104 digits = 0; 105 dirty = 0; 106 while ((ch = *src++) != '\0') { 107 if (!isascii(ch) || !isprint(ch)) 108 goto einval; 109 if (isdigit(ch)) { 110 tmp *= 10; 111 tmp += (ch - '0'); 112 digits++; 113 continue; 114 } 115 if (digits == 0) 116 goto einval; 117 if (islower(ch)) 118 ch = toupper(ch); 119 switch (ch) { 120 case 'W': tmp *= 7; 121 case 'D': tmp *= 24; 122 case 'H': tmp *= 60; 123 case 'M': tmp *= 60; 124 case 'S': break; 125 default: goto einval; 126 } 127 ttl += tmp; 128 tmp = 0; 129 digits = 0; 130 dirty = 1; 131 } 132 if (digits > 0) { 133 if (dirty) 134 goto einval; 135 else 136 ttl += tmp; 137 } else if (!dirty) 138 goto einval; 139 *dst = ttl; 140 return (0); 141 142 einval: 143 errno = EINVAL; 144 return (-1); 145 } 146 147 /* Private. */ 148 149 static int 150 fmt1(int t, char s, char **buf, size_t *buflen) { 151 char tmp[50]; 152 size_t len; 153 154 len = SPRINTF((tmp, "%d%c", t, s)); 155 if (len + 1 > *buflen) 156 return (-1); 157 strcpy(*buf, tmp); 158 *buf += len; 159 *buflen -= len; 160 return (0); 161 } 162 163 /*! \file */ 164