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