1 /*
2 * Copyright (c) 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
13 * 4. Neither the name of the University nor the names of its contributors
14 * may be used to endorse or promote products derived from this software
15 * without specific prior written permission.
16 *
17 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27 * SUCH DAMAGE.
28 */
29
30 #include <sys/cdefs.h>
31
32 __FBSDID("$FreeBSD$");
33
34 #ifndef lint
35 static const char copyright[] =
36 "@(#) Copyright (c) 1993\n\
37 The Regents of the University of California. All rights reserved.\n";
38 #endif
39
40 #ifndef lint
41 static const char sccsid[] = "@(#)touch.c 8.1 (Berkeley) 6/6/93";
42 #endif
43
44 #include <sys/types.h>
45 #include <sys/stat.h>
46 #include <sys/time.h>
47
48 #include <ctype.h>
49 #include <err.h>
50 #include <errno.h>
51 #include <fcntl.h>
52 #include <libgen.h>
53 #include <stdio.h>
54 #include <stdlib.h>
55 #include <string.h>
56 #include <time.h>
57 #include <unistd.h>
58
59 static void stime_arg1(const char *, struct timeval *);
60 static void stime_arg2(const char *, int, struct timeval *);
61 static void stime_darg(const char *, struct timeval *);
62 static void stime_file(const char *, struct timeval *);
63 static int timeoffset(const char *);
64 static void usage(const char *);
65
66 int
main(int argc,char * argv[])67 main(int argc, char *argv[])
68 {
69 struct stat sb;
70 struct timeval tv[2];
71 int (*stat_f)(const char *, struct stat *);
72 int (*utimes_f)(const char *, const struct timeval *);
73 int Aflag, aflag, cflag, mflag, ch, fd, len, rval, timeset;
74 char *p;
75 char *myname;
76
77 myname = basename(argv[0]);
78 Aflag = aflag = cflag = mflag = timeset = 0;
79 stat_f = stat;
80 utimes_f = utimes;
81 if (gettimeofday(&tv[0], NULL) == -1)
82 err(1, "gettimeofday");
83
84 while ((ch = getopt(argc, argv, "A:acd:fhmr:t:")) != -1)
85 switch(ch) {
86 case 'A':
87 Aflag = timeoffset(optarg);
88 break;
89 case 'a':
90 aflag = 1;
91 break;
92 case 'c':
93 cflag = 1;
94 break;
95 case 'd':
96 timeset = 1;
97 stime_darg(optarg, tv);
98 break;
99 case 'f':
100 /* No-op for compatibility. */
101 break;
102 case 'h':
103 cflag = 1;
104 stat_f = lstat;
105 utimes_f = lutimes;
106 break;
107 case 'm':
108 mflag = 1;
109 break;
110 case 'r':
111 timeset = 1;
112 stime_file(optarg, tv);
113 break;
114 case 't':
115 timeset = 1;
116 stime_arg1(optarg, tv);
117 break;
118 default:
119 usage(myname);
120 }
121 argc -= optind;
122 argv += optind;
123
124 if (aflag == 0 && mflag == 0)
125 aflag = mflag = 1;
126
127 if (timeset) {
128 if (Aflag) {
129 /*
130 * We're setting the time to an offset from a specified
131 * time. God knows why, but it means that we can set
132 * that time once and for all here.
133 */
134 if (aflag)
135 tv[0].tv_sec += Aflag;
136 if (mflag)
137 tv[1].tv_sec += Aflag;
138 Aflag = 0; /* done our job */
139 }
140 } else {
141 /*
142 * If no -r or -t flag, at least two operands, the first of
143 * which is an 8 or 10 digit number, use the obsolete time
144 * specification, otherwise use the current time.
145 */
146 if (argc > 1) {
147 strtol(argv[0], &p, 10);
148 len = p - argv[0];
149 if (*p == '\0' && (len == 8 || len == 10)) {
150 timeset = 1;
151 stime_arg2(*argv++, len == 10, tv);
152 }
153 }
154 /* Both times default to the same. */
155 tv[1] = tv[0];
156 }
157
158 if (*argv == NULL)
159 usage(myname);
160
161 if (Aflag)
162 cflag = 1;
163
164 for (rval = 0; *argv; ++argv) {
165 /* See if the file exists. */
166 if (stat_f(*argv, &sb) != 0) {
167 if (errno != ENOENT) {
168 rval = 1;
169 warn("%s", *argv);
170 continue;
171 }
172 if (!cflag) {
173 /* Create the file. */
174 fd = open(*argv,
175 O_WRONLY | O_CREAT, DEFFILEMODE);
176 if (fd == -1 || fstat(fd, &sb) || close(fd)) {
177 rval = 1;
178 warn("%s", *argv);
179 continue;
180 }
181
182 /* If using the current time, we're done. */
183 if (!timeset)
184 continue;
185 } else
186 continue;
187 }
188
189 if (!aflag)
190 TIMESPEC_TO_TIMEVAL(&tv[0], &sb.st_atim);
191 if (!mflag)
192 TIMESPEC_TO_TIMEVAL(&tv[1], &sb.st_mtim);
193
194 /*
195 * We're adjusting the times based on the file times, not a
196 * specified time (that gets handled above).
197 */
198 if (Aflag) {
199 if (aflag) {
200 TIMESPEC_TO_TIMEVAL(&tv[0], &sb.st_atim);
201 tv[0].tv_sec += Aflag;
202 }
203 if (mflag) {
204 TIMESPEC_TO_TIMEVAL(&tv[1], &sb.st_mtim);
205 tv[1].tv_sec += Aflag;
206 }
207 }
208
209 /* Try utimes(2). */
210 if (!utimes_f(*argv, tv))
211 continue;
212
213 /* If the user specified a time, nothing else we can do. */
214 if (timeset || Aflag) {
215 rval = 1;
216 warn("%s", *argv);
217 continue;
218 }
219
220 /*
221 * System V and POSIX 1003.1 require that a NULL argument
222 * set the access/modification times to the current time.
223 * The permission checks are different, too, in that the
224 * ability to write the file is sufficient. Take a shot.
225 */
226 if (!utimes_f(*argv, NULL))
227 continue;
228
229 rval = 1;
230 warn("%s", *argv);
231 }
232 exit(rval);
233 }
234
235 #define ATOI2(ar) ((ar)[0] - '0') * 10 + ((ar)[1] - '0'); (ar) += 2;
236
237 static void
stime_arg1(const char * arg,struct timeval * tvp)238 stime_arg1(const char *arg, struct timeval *tvp)
239 {
240 time_t now;
241 struct tm *t;
242 int yearset;
243 char *p;
244 /* Start with the current time. */
245 now = tvp[0].tv_sec;
246 if ((t = localtime(&now)) == NULL)
247 err(1, "localtime");
248 /* [[CC]YY]MMDDhhmm[.SS] */
249 if ((p = strchr(arg, '.')) == NULL)
250 t->tm_sec = 0; /* Seconds defaults to 0. */
251 else {
252 if (strlen(p + 1) != 2)
253 goto terr;
254 *p++ = '\0';
255 t->tm_sec = ATOI2(p);
256 }
257
258 yearset = 0;
259 switch(strlen(arg)) {
260 case 12: /* CCYYMMDDhhmm */
261 t->tm_year = ATOI2(arg);
262 t->tm_year *= 100;
263 yearset = 1;
264 /* FALLTHROUGH */
265 case 10: /* YYMMDDhhmm */
266 if (yearset) {
267 yearset = ATOI2(arg);
268 t->tm_year += yearset;
269 } else {
270 yearset = ATOI2(arg);
271 if (yearset < 69)
272 t->tm_year = yearset + 2000;
273 else
274 t->tm_year = yearset + 1900;
275 }
276 t->tm_year -= 1900; /* Convert to UNIX time. */
277 /* FALLTHROUGH */
278 case 8: /* MMDDhhmm */
279 t->tm_mon = ATOI2(arg);
280 --t->tm_mon; /* Convert from 01-12 to 00-11 */
281 t->tm_mday = ATOI2(arg);
282 t->tm_hour = ATOI2(arg);
283 t->tm_min = ATOI2(arg);
284 break;
285 default:
286 goto terr;
287 }
288
289 t->tm_isdst = -1; /* Figure out DST. */
290 tvp[0].tv_sec = tvp[1].tv_sec = mktime(t);
291 if (tvp[0].tv_sec == -1)
292 goto terr;
293
294 tvp[0].tv_usec = tvp[1].tv_usec = 0;
295 return;
296
297 terr:
298 errx(1, "out of range or illegal time specification: [[CC]YY]MMDDhhmm[.SS]");
299 }
300
301 static void
stime_arg2(const char * arg,int year,struct timeval * tvp)302 stime_arg2(const char *arg, int year, struct timeval *tvp)
303 {
304 time_t now;
305 struct tm *t;
306 /* Start with the current time. */
307 now = tvp[0].tv_sec;
308 if ((t = localtime(&now)) == NULL)
309 err(1, "localtime");
310
311 t->tm_mon = ATOI2(arg); /* MMDDhhmm[yy] */
312 --t->tm_mon; /* Convert from 01-12 to 00-11 */
313 t->tm_mday = ATOI2(arg);
314 t->tm_hour = ATOI2(arg);
315 t->tm_min = ATOI2(arg);
316 if (year) {
317 t->tm_year = ATOI2(arg);
318 if (t->tm_year < 39) /* support 2000-2038 not 1902-1969 */
319 t->tm_year += 100;
320 }
321
322 t->tm_isdst = -1; /* Figure out DST. */
323 tvp[0].tv_sec = tvp[1].tv_sec = mktime(t);
324 if (tvp[0].tv_sec == -1)
325 errx(1,
326 "out of range or illegal time specification: MMDDhhmm[yy]");
327
328 tvp[0].tv_usec = tvp[1].tv_usec = 0;
329 }
330
331 static void
stime_darg(const char * arg,struct timeval * tvp)332 stime_darg(const char *arg, struct timeval *tvp)
333 {
334 struct tm t = { .tm_sec = 0 };
335 const char *fmt, *colon;
336 char *p;
337 int val, isutc = 0;
338
339 tvp[0].tv_usec = 0;
340 t.tm_isdst = -1;
341 colon = strchr(arg, ':');
342 if (colon == NULL || strchr(colon + 1, ':') == NULL)
343 goto bad;
344 fmt = strchr(arg, 'T') != NULL ? "%Y-%m-%dT%H:%M:%S" :
345 "%Y-%m-%d %H:%M:%S";
346 p = strptime(arg, fmt, &t);
347 if (p == NULL)
348 goto bad;
349 /* POSIX: must have at least one digit after dot */
350 if ((*p == '.' || *p == ',') && isdigit((unsigned char)p[1])) {
351 p++;
352 val = 100000;
353 while (isdigit((unsigned char)*p)) {
354 tvp[0].tv_usec += val * (*p - '0');
355 p++;
356 val /= 10;
357 }
358 }
359 if (*p == 'Z') {
360 isutc = 1;
361 p++;
362 }
363 if (*p != '\0')
364 goto bad;
365
366 tvp[0].tv_sec = isutc ? timegm(&t) : mktime(&t);
367
368 tvp[1] = tvp[0];
369 return;
370
371 bad:
372 errx(1, "out of range or illegal time specification: YYYY-MM-DDThh:mm:SS[.frac][tz]");
373 }
374
375 /* Calculate a time offset in seconds, given an arg of the format [-]HHMMSS. */
376 int
timeoffset(const char * arg)377 timeoffset(const char *arg)
378 {
379 int offset;
380 int isneg;
381
382 offset = 0;
383 isneg = *arg == '-';
384 if (isneg)
385 arg++;
386 switch (strlen(arg)) {
387 default: /* invalid */
388 errx(1, "Invalid offset spec, must be [-][[HH]MM]SS");
389
390 case 6: /* HHMMSS */
391 offset = ATOI2(arg);
392 /* FALLTHROUGH */
393 case 4: /* MMSS */
394 offset = offset * 60 + ATOI2(arg);
395 /* FALLTHROUGH */
396 case 2: /* SS */
397 offset = offset * 60 + ATOI2(arg);
398 }
399 if (isneg)
400 return (-offset);
401 else
402 return (offset);
403 }
404
405 static void
stime_file(const char * fname,struct timeval * tvp)406 stime_file(const char *fname, struct timeval *tvp)
407 {
408 struct stat sb;
409
410 if (stat(fname, &sb))
411 err(1, "%s", fname);
412 TIMESPEC_TO_TIMEVAL(tvp, &sb.st_atim);
413 TIMESPEC_TO_TIMEVAL(tvp + 1, &sb.st_mtim);
414 }
415
416 static void
usage(const char * myname)417 usage(const char *myname)
418 {
419 fprintf(stderr, "usage: %s [-A [-][[hh]mm]SS] [-achm] [-r file] "
420 "[-t [[CC]YY]MMDDhhmm[.SS]]\n"
421 " [-d YYYY-MM-DDThh:mm:SS[.frac][tz]] "
422 "file ...\n", myname);
423 exit(1);
424 }
425