1 /***********************************************************************
2 * *
3 * This software is part of the ast package *
4 * Copyright (c) 1992-2010 AT&T Intellectual Property *
5 * and is licensed under the *
6 * Common Public License, Version 1.0 *
7 * by AT&T Intellectual Property *
8 * *
9 * A copy of the License is available at *
10 * http://www.opensource.org/licenses/cpl1.0.txt *
11 * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
12 * *
13 * Information and Software Systems Research *
14 * AT&T Research *
15 * Florham Park NJ *
16 * *
17 * Glenn Fowler <gsf@research.att.com> *
18 * David Korn <dgk@research.att.com> *
19 * *
20 ***********************************************************************/
21 #pragma prototyped
22 /*
23 * Glenn Fowler
24 * AT&T Research
25 *
26 * date -- set/display date
27 */
28
29 static const char usage[] =
30 "[-?\n@(#)$Id: date (AT&T Research) 2009-03-03 $\n]"
31 USAGE_LICENSE
32 "[+NAME?date - set/list/convert dates]"
33 "[+DESCRIPTION?\bdate\b sets the current date and time (with appropriate"
34 " privilege), lists the current date or file dates, or converts"
35 " dates.]"
36 "[+?Most common \adate\a forms are recognized, including those for"
37 " \bcrontab\b(1), \bls\b(1), \btouch\b(1), and the default"
38 " output from \bdate\b itself.]"
39 "[+?If the \adate\a operand consists of 4, 6, 8, 10 or 12 digits followed"
40 " by an optional \b.\b and two digits then it is interpreted as:"
41 " \aHHMM.SS\a, \addHHMM.SS\a, \ammddHHMM.SS\a, \ammddHHMMyy.SS\a or"
42 " \ayymmddHHMM.SS\a, or \ammddHHMMccyy.SS\a or \accyymmddHHMM.SS\a."
43 " Conflicting standards and practice allow a leading or trailing"
44 " 2 or 4 digit year for the 10 and 12 digit forms; the X/Open trailing"
45 " form is used to disambiguate (\btouch\b(1) uses the leading form.)"
46 " Avoid the 10 digit form to avoid confusion. The digit fields are:]{"
47 " [+cc?Century - 1, 19-20.]"
48 " [+yy?Year in century, 00-99.]"
49 " [+mm?Month, 01-12.]"
50 " [+dd?Day of month, 01-31.]"
51 " [+HH?Hour, 00-23.]"
52 " [+MM?Minute, 00-59.]"
53 " [+SS?Seconds, 00-60.]"
54 "}"
55 "[+?If more than one \adate\a operand is specified then:]{"
56 " [+1.?Each operand sets the reference date for the next"
57 " operand.]"
58 " [+2.?The date is listed for each operand.]"
59 " [+3.?The system date is not set.]"
60 "}"
61
62 "[a:access-time|atime?List file argument access times.]"
63 "[c:change-time|ctime?List file argument change times.]"
64 "[d:date?Use \adate\a as the current date and do not set the system"
65 " clock.]:[date]"
66 "[e:epoch?Output the date in seconds since the epoch."
67 " Equivalent to \b--format=%s\b.]"
68 "[E:elapsed?Interpret pairs of arguments as start and stop dates, sum the"
69 " differences between all pairs, and list the result as a"
70 " \bfmtelapsed\b(3) elapsed time on the standard output. If there are"
71 " an odd number of arguments then the last time argument is differenced"
72 " with the current time.]"
73 "[f:format?Output the date according to the \bstrftime\b(3) \aformat\a."
74 " For backwards compatibility, a first argument of the form"
75 " \b+\b\aformat\a is equivalent to \b-f\b format."
76 " \aformat\a is in \bprintf\b(3) style, where %\afield\a names"
77 " a fixed size field, zero padded if necessary,"
78 " and \\\ac\a and \\\annn\a sequences are as in C. Invalid"
79 " %\afield\a specifications and all other characters are copied"
80 " without change. \afield\a may be preceded by \b%-\b to turn off"
81 " padding or \b%_\b to pad with space, otherwise numeric fields"
82 " are padded with \b0\b and string fields are padded with space."
83 " \afield\a may also be preceded by \bE\b for alternate era"
84 " representation or \bO\b for alternate digit representation (if"
85 " supported by the current locale.) Finally, an integral \awidth\a"
86 " preceding \afield\a truncates the field to \awidth\a characters."
87 " The fields are:]:[format]{"
88 " [+%?% character]"
89 " [+a?abbreviated weekday name]"
90 " [+A?full weekday name]"
91 " [+b?abbreviated month name]"
92 " [+c?\bctime\b(3) style date without the trailing newline]"
93 " [+C?2-digit century]"
94 " [+d?day of month number]"
95 " [+D?date as \amm/dd/yy\a]"
96 " [+e?blank padded day of month number]"
97 " [+E?unpadded day of month number]"
98 " [+f?locale default override date format]"
99 " [+F?%ISO 8601:2000 standard date format; equivalent to Y-%m-%d]"
100 " [+g?\bls\b(1) \b-l\b recent date with \ahh:mm\a]"
101 " [+G?\bls\b(1) \b-l\b distant date with \ayyyy\a]"
102 " [+h?abbreviated month name]"
103 " [+H?24-hour clock hour]"
104 " [+i?international \bdate\b(1) date with time zone type name]"
105 " [+I?12-hour clock hour]"
106 " [+j?1-offset Julian date]"
107 " [+J?0-offset Julian date]"
108 " [+k?\bdate\b(1) style date]"
109 " [+K?all numeric date; equivalent to \b%Y-%m-%d+%H:%M:%S\b; \b%_[EO]]K\b for space separator, %OK adds \b.%N\b, \b%EK\b adds \b%.N%z\b, \b%_EK\b adds \b.%N %z\b]"
110 " [+l?\bls\b(1) \b-l\b date; equivalent to \b%Q/%g/%G/\b]"
111 " [+L?locale default date format]"
112 " [+m?month number]"
113 " [+M?minutes]"
114 " [+n?newline character]"
115 " [+N?nanoseconds 000000000-999999999]"
116 " [+p?meridian (e.g., \bAM\b or \bPM\b)]"
117 " [+q?time zone type name (nation code)]"
118 " [+Q?\a<del>recent<del>distant<del>\a: \a<del>\a is a unique"
119 " delimter character; \arecent\a format for recent"
120 " dates, \adistant\a format otherwise]"
121 " [+r?12-hour time as \ahh:mm:ss meridian\a]"
122 " [+R?24-hour time as \ahh:mm\a]"
123 " [+s?number of seconds since the epoch; \a.prec\a preceding"
124 " \bs\b appends \aprec\a nanosecond digits, \b9\b if"
125 " \aprec\a is omitted]"
126 " [+S?seconds 00-60]"
127 " [+t?tab character]"
128 " [+T?24-hour time as \ahh:mm:ss\a]"
129 " [+u?weekday number 1(Monday)-7]"
130 " [+U?week number with Sunday as the first day]"
131 " [+V?ISO week number (i18n is \afun\a)]"
132 " [+w?weekday number 0(Sunday)-6]"
133 " [+W?week number with Monday as the first day]"
134 " [+x?locale date style that includes month, day and year]"
135 " [+X?locale time style that includes hours and minutes]"
136 " [+y?2-digit year (you'll be sorry)]"
137 " [+Y?4-digit year]"
138 " [+z?time zone \aSHHMM\a west of GMT offset where S is"
139 " \b+\b or \b-\b]"
140 " [+Z?time zone name]"
141 " [+=[=]][-+]]flag?set (default or +) or clear (-) \aflag\a"
142 " for the remainder of \aformat\a, or for the remainder"
143 " of the process if \b==\b is specified. \aflag\a may be:]{"
144 " [+l?enable leap second adjustments]"
145 " [+n?convert \b%S\b as \b%S.%N\b]"
146 " [+u?UTC time zone]"
147 " }"
148 " [+#?equivalent to %s]"
149 " [+??alternate?use \aalternate\a format if a default format"
150 " override has not been specified, e.g., \bls\b(1) uses"
151 " \"%?%l\"; export TM_OPTIONS=\"format='\aoverride\a'\""
152 " to override the default]"
153 "}"
154 "[i:incremental|adjust?Set the system time in incrementatl adjustments to"
155 " avoid complete time shift shock. Negative adjustments still maintain"
156 " monotonic increasing time. Not available on all systems.]"
157 "[L:last?List only the last time for multiple \adate\a operands.]"
158 "[l:leap-seconds?Include leap seconds in time calculations. Leap seconds"
159 " after the ast library release date are not accounted for.]"
160 "[m:modify-time|mtime?List file argument modify times.]"
161 "[n!:network?Set network time.]"
162 "[p:parse?Add \aformat\a to the list of \bstrptime\b(3) parse conversion"
163 " formats. \aformat\a follows the same conventions as the"
164 " \b--format\b option, with the addition of these format"
165 " fields:]:[format]{"
166 " [+|?If the format failed before this point then restart"
167 " the parse with the remaining format.]"
168 " [+&?Call the \btmdate\b(3) heuristic parser. This is"
169 " is the default when \b--parse\b is omitted.]"
170 "}"
171 "[s:show?Show the date without setting the system time.]"
172 "[u:utc|gmt|zulu?Output dates in \acoordinated universal time\a (UTC).]"
173 "[U:unelapsed?Interpret each argument as \bfmtelapsed\b(3) elapsed"
174 " time and list the \bstrelapsed\b(3) 1/\ascale\a seconds.]#[scale]"
175 "[z:list-zones?List the known time zone table and exit. The table columns"
176 " are: country code, standard zone name, savings time zone name,"
177 " minutes west of \bUTC\b, and savings time minutes offset. Blank"
178 " or empty entries are listed as \b-\b.]"
179
180 "\n"
181 "\n[ +format | date ... | file ... ]\n"
182 "\n"
183
184 "[+SEE ALSO?\bcrontab\b(1), \bls\b(1), \btouch\b(1), \bfmtelapsed\b(3),"
185 " \bstrftime\b(3), \bstrptime\b(3), \btm\b(3)]"
186 ;
187
188 #include <cmd.h>
189 #include <ls.h>
190 #include <proc.h>
191 #include <tmx.h>
192 #include <times.h>
193
194 typedef struct Fmt
195 {
196 struct Fmt* next;
197 char* format;
198 } Fmt_t;
199
200 #ifndef ENOSYS
201 #define ENOSYS EINVAL
202 #endif
203
204 /*
205 * set the system clock
206 * the standards wimped out here
207 */
208
209 static int
settime(void * context,const char * cmd,Time_t now,int adjust,int network)210 settime(void* context, const char* cmd, Time_t now, int adjust, int network)
211 {
212 char* s;
213 char** argv;
214 char* args[5];
215 char buf[1024];
216
217 if (!adjust && !network)
218 return tmxsettime(now);
219 argv = args;
220 s = "/usr/bin/date";
221 if (!streq(cmd, s) && (!eaccess(s, X_OK) || !eaccess(s+=4, X_OK)))
222 {
223 *argv++ = s;
224 if (streq(astconf("UNIVERSE", NiL, NiL), "att"))
225 {
226 tmxfmt(buf, sizeof(buf), "%m%d%H" "%M%Y.%S", now);
227 if (adjust)
228 *argv++ = "-a";
229 }
230 else
231 {
232 tmxfmt(buf, sizeof(buf), "%Y%m%d%H" "%M.%S", now);
233 if (network)
234 *argv++ = "-n";
235 if (tm_info.flags & TM_UTC)
236 *argv++ = "-u";
237 }
238 *argv++ = buf;
239 *argv = 0;
240 if (!sh_run(context, argv - args, args))
241 return 0;
242 }
243 return -1;
244 }
245
246 /*
247 * convert s to Time_t with error checking
248 */
249
250 static Time_t
convert(register Fmt_t * f,char * s,Time_t now)251 convert(register Fmt_t* f, char* s, Time_t now)
252 {
253 char* t;
254 char* u;
255
256 do
257 {
258 now = tmxscan(s, &t, f->format, &u, now, 0);
259 if (!*t && (!f->format || !*u))
260 break;
261 } while (f = f->next);
262 if (!f || *t)
263 error(3, "%s: invalid date specification", f ? t : s);
264 return now;
265 }
266
267 int
b_date(int argc,register char ** argv,void * context)268 b_date(int argc, register char** argv, void* context)
269 {
270 register int n;
271 register char* s;
272 register Fmt_t* f;
273 char* t;
274 unsigned long u;
275 Time_t now;
276 Time_t ts;
277 Time_t te;
278 Time_t e;
279 char buf[1024];
280 Fmt_t* fmts;
281 Fmt_t fmt;
282 struct stat st;
283
284 char* cmd = argv[0]; /* original command path */
285 char* format = 0; /* tmxfmt() format */
286 char* string = 0; /* date string */
287 int elapsed = 0; /* args are start/stop pairs */
288 int filetime = 0; /* use this st_ time field */
289 int increment = 0; /* incrementally adjust time */
290 int last = 0; /* display the last time arg */
291 Tm_zone_t* listzones = 0; /* known time zone table */
292 int network = 0; /* don't set network time */
293 int show = 0; /* show date and don't set */
294 int unelapsed = 0; /* fmtelapsed() => strelapsed */
295
296 cmdinit(argc, argv, context, ERROR_CATALOG, 0);
297 tm_info.flags = TM_DATESTYLE;
298 fmts = &fmt;
299 fmt.format = "";
300 fmt.next = 0;
301 for (;;)
302 {
303 switch (optget(argv, usage))
304 {
305 case 'a':
306 case 'c':
307 case 'm':
308 filetime = opt_info.option[1];
309 continue;
310 case 'd':
311 string = opt_info.arg;
312 show = 1;
313 continue;
314 case 'e':
315 format = "%#";
316 continue;
317 case 'E':
318 elapsed = 1;
319 continue;
320 case 'f':
321 format = opt_info.arg;
322 continue;
323 case 'i':
324 increment = 1;
325 continue;
326 case 'l':
327 tm_info.flags |= TM_LEAP;
328 continue;
329 case 'L':
330 last = 1;
331 continue;
332 case 'n':
333 network = 1;
334 continue;
335 case 'p':
336 if (!(f = newof(0, Fmt_t, 1, 0)))
337 error(ERROR_SYSTEM|3, "out of space [format]");
338 f->next = fmts;
339 f->format = opt_info.arg;
340 fmts = f;
341 continue;
342 case 's':
343 show = 1;
344 continue;
345 case 'u':
346 tm_info.flags |= TM_UTC;
347 continue;
348 case 'U':
349 unelapsed = (int)opt_info.num;
350 continue;
351 case 'z':
352 listzones = tm_data.zone;
353 continue;
354 case '?':
355 error(ERROR_USAGE|4, "%s", opt_info.arg);
356 continue;
357 case ':':
358 error(2, "%s", opt_info.arg);
359 continue;
360 }
361 break;
362 }
363 argv += opt_info.index;
364 if (error_info.errors)
365 error(ERROR_USAGE|4, "%s", optusage(NiL));
366 now = tmxgettime();
367 if (listzones)
368 {
369 s = "-";
370 while (listzones->standard)
371 {
372 if (listzones->type)
373 s = listzones->type;
374 sfprintf(sfstdout, "%3s %4s %4s %4d %4d\n", s, *listzones->standard ? listzones->standard : "-", listzones->daylight ? listzones->daylight : "-", listzones->west, listzones->dst);
375 listzones++;
376 show = 1;
377 }
378 }
379 else if (elapsed)
380 {
381 e = 0;
382 while (s = *argv++)
383 {
384 if (!(t = *argv++))
385 {
386 argv--;
387 t = "now";
388 }
389 ts = convert(fmts, s, now);
390 te = convert(fmts, t, now);
391 if (te > ts)
392 e += te - ts;
393 else
394 e += ts - te;
395 }
396 sfputr(sfstdout, fmtelapsed((unsigned long)tmxsec(e), 1), '\n');
397 show = 1;
398 }
399 else if (unelapsed)
400 {
401 while (s = *argv++)
402 {
403 u = strelapsed(s, &t, unelapsed);
404 if (*t)
405 error(3, "%s: invalid elapsed time", s);
406 sfprintf(sfstdout, "%lu\n", u);
407 }
408 show = 1;
409 }
410 else if (filetime)
411 {
412 if (!*argv)
413 error(ERROR_USAGE|4, "%s", optusage(NiL));
414 n = argv[1] != 0;
415 while (s = *argv++)
416 {
417 if (stat(s, &st))
418 error(2, "%s: not found", s);
419 else
420 {
421 switch (filetime)
422 {
423 case 'a':
424 now = tmxgetatime(&st);
425 break;
426 case 'c':
427 now = tmxgetctime(&st);
428 break;
429 default:
430 now = tmxgetmtime(&st);
431 break;
432 }
433 tmxfmt(buf, sizeof(buf), format, now);
434 if (n)
435 sfprintf(sfstdout, "%s: %s\n", s, buf);
436 else
437 sfprintf(sfstdout, "%s\n", buf);
438 show = 1;
439 }
440 }
441 }
442 else
443 {
444 if ((s = *argv) && !format && *s == '+')
445 {
446 format = s + 1;
447 argv++;
448 s = *argv;
449 }
450 if (s || (s = string))
451 {
452 if (*argv && string)
453 error(ERROR_USAGE|4, "%s", optusage(NiL));
454 now = convert(fmts, s, now);
455 if (*argv && (s = *++argv))
456 {
457 show = 1;
458 do
459 {
460 if (!last)
461 {
462 tmxfmt(buf, sizeof(buf), format, now);
463 sfprintf(sfstdout, "%s\n", buf);
464 }
465 now = convert(fmts, s, now);
466 } while (s = *++argv);
467 }
468 }
469 else
470 show = 1;
471 if (format || show)
472 {
473 tmxfmt(buf, sizeof(buf), format, now);
474 sfprintf(sfstdout, "%s\n", buf);
475 }
476 else if (settime(context, cmd, now, increment, network))
477 error(ERROR_SYSTEM|3, "cannot set system time");
478 }
479 while (fmts != &fmt)
480 {
481 f = fmts;
482 fmts = fmts->next;
483 free(f);
484 }
485 tm_info.flags = 0;
486 if (show && sfsync(sfstdout))
487 error(ERROR_system(0), "write error");
488 return error_info.errors != 0;
489 }
490